Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APSPSOB

Package: IHS Changes To Pharmacy

Routine: APSPSOB


Information

APSPSOB ;BHAM/ISC/CCG - BLACK LINE RESOLVER [ 09/09/97 8:45 AM ]

Source Information

Source file <APSPSOB.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Outpatient Pharmacy 2 ^PSOBMST  (,LASK)^PSOLSET  
Kernel 1 ^%ZISC  
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
SET ;K ZTSK,%ZIS S PSOIS=PSOIOS,%ZIS("A")="PRINT ON DEVICE: ",%ZIS("B")=$P(^%ZIS(1,PSOBPT,0),"^"),%ZIS="QMN" D ^%ZIS
END
PT
LIST
RL ;W !,"CHOOSE 1-",I-2," : " R X:DTIME G:(X<1)!(X>(I-2)) RL S X=$P(PSOB,"^",X+1) Q ;IHS/DSD/ENM 09/4/97
RX08
RX1
RX2
RX05

External References

Name Field # of Occurrence
^%ZISC END
^DIC PT, RX1, RX2
^PSOBMST SET+9
^PSOLSET APSPSOB+4
LASK^PSOLSET SET+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THE LABEL/PROFILE MONITOR LIST IS EMPTY.",!!
  • Line Location: APSPSOB+7
Function Call: WRITE
  • Prompt: !!,"THE ENDING RX# DOES NOT FOLLOW THE BEGINNING RX#. PLEASE TRY AGAIN.",!!!
  • Line Location: RX2+2
Function Call: WRITE
  • Prompt: *7,!,"Output MUST be sent to a printer !!",!
  • Line Location: SET+5
Function Call: WRITE
  • Prompt: !,"Task Queued #"_ZTSK_" !!",!
  • Line Location: SET+8
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RX05+0
Function Call: WRITE
  • Prompt: !,"ENTER RX# OF LAST USABLE SCRIPT FOR ",$P(^DPT(+Y(0),0),"^")," : "
  • Line Location: RX05+0
Function Call: WRITE
  • Prompt: !!,"???"
  • Line Location: RX05+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,?5,I-1," ",$P(PSOB,"^",I)
  • Line Location: LIST+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RL+0
Routine Call
  • DIC
  • Line Location:
    • PT
    • RX1
    • RX2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.9 - [#52.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] SET+3
^%ZIS(2 - [#3.2] SET+3
^DPT - [#2] RX05
^PS(52.9 - [#52.9] APSPSOB+7, RX2+1, RX08, RX08+1, RX08+2, RX08+3, RX08+4, RX05+1
^PSRX - [#52] RX08+3
^PSRX("B" RX08, RX05+1

Label References

Name Line Occurrences
END PT, RX1, RX2
LIST RX05
RX05 RX05
RX08 RX1, RX2+2
RX1 RX1, RX2+2
RX2 RX2+2
SET RX2+1

Naked Globals

Name Field # of Occurrence
^( RX08+1, RX08+3
^("BAR" SET+3
^(0 RX08+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS END!
APSPKEYZ APSPSOB+3*, END!
CC APSPSOB+6*, END!
DIC PT*!, RX1*, END!
DIC("A" PT*, RX1*, RX2*
DIC("S" RX2*!
DIC(0 PT*, RX1*
DTIME RX05
DUZ APSPSOB+6
I END!, RX08+3*, LIST*
IOP END!
>> IOS APSPSOB+5, SET+3
>> J SET+3*
>> PDUZ APSPSOB+6*
POP END!
PSOB END!, RX08+3*, RX08+4, RX05, LIST
>> PSOBAR0 SET+4
>> PSOBAR1 SET+4
>> PSOBARS SET+4*
PSOBIO PT*, RX2+1, END!, RX08, RX08+1, RX08+2, RX08+3, RX08+4, RX05+1
PSOBOUT APSPSOB+6*, RX1, END!, RX05*
PSOBPT PT*, END!
PSOBR RX1*, RX2+2*, END!, RX08*, RX08+1*, RX08+2, RX08+3, RX08+4*, RX08+5*, RX05+1*
PSOBR1 RX1*, RX2+2, END!
PSOBR2 RX2+1*, RX2+2*, END!, RX08+1
PSOBRX END!, RX08*, RX08+1*
>> PSOCLC APSPSOB+6*
>> PSOIOS APSPSOB+5*
PSOIS END!
>> PSOLAP SET+2
>> PSOPAR APSPSOB+4, SET+4
U RX05
X RX1, RX2, RX2+1, END!, RX08, RX05*, RX05+1
Y PT, RX1, RX2+2, END!, RX08*
Y(0 PT, RX08, RX08+5, RX05
>> ZTIO SET+2*
ZTSK END!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All