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 |  Caller 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: PSOB

Package: Outpatient Pharmacy

Routine: PSOB


Information

PSOB ;BHAM ISC/CCG - black line resolver ; 07/18/96 8:49 am

Source Information

Source file <PSOB.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 ^DIC  $$GET1^DIQ  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Outpatient Pharmacy 1 (,LASK)^PSOLSET  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO B  PSOB  

Entry Points

Name Comments DBIA/ICR reference
SET
END
PT
LIST
RL
RX08
RX1
RX2
RX05

External References

Name Field # of Occurrence
^%ZIS SET+2
^%ZISC END
^%ZTLOAD SET+12
^DIC PT, RX1, RX1+1, RX2
$$GET1^DIQ PSOB+6
EN^DIQ1 SET+1, SET+6
^DIR PSOB+8
^PSOLSET PSOB+2
LASK^PSOLSET SET+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"THE LABEL/PROFILE MONITOR LIST IS EMPTY.",!!
  • Line Location: PSOB+5
Function Call: WRITE
  • Prompt: !!,"THE ENDING RX# DOES NOT FOLLOW THE BEGINNING RX#. PLEASE TRY AGAIN.",!!!
  • Line Location: RX2+2
Function Call: WRITE
  • Prompt: $C(7),!,"Output MUST be sent to a printer !!",!
  • Line Location: SET+4
Function Call: WRITE
  • Prompt: !,"Task Queued #"_ZTSK_" !!",!
  • Line Location: SET+12
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: RX05+0
Function Call: WRITE
  • Prompt: !!,"???"
  • Line Location: RX05+1
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
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",I-2," : "
  • Line Location: RL+0
Routine Call
  • DIC
  • Line Location:
    • PT
    • RX1
    • RX1+1
    • RX2
Routine Call
  • DIR
  • Line Location:
    • PSOB+8
Routine Call
  • %ZIS
  • Line Location:
    • SET+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(2 - [#3.2] Classic Fileman Calls
^%ZIS(1 - [#3.5] Classic Fileman Calls
^PS(52.9 - [#52.9] Classic Fileman Calls
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] RX05
^PS(52.9 - [#52.9] PSOB+5, RX2+1, RX08, RX08+1, RX08+2, RX08+3, RX08+4, RX05+2
^PSRX - [#52] RX08+3
^PSRX("B" RX08, RX05+2

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SET+1!, SET+2*, SET+3!, END!
%ZIS("A" SET+2*
%ZIS("B" SET+2*
CC PSOB+3*, END!
DA SET+1*, SET+2, SET+5*, SET+7, SET+8, END!
DA(1 RX1+1*
DIC PT*!, RX1*!, RX1+1*, RX1+2!, RX2*, SET+1*, SET+6*, END!
DIC("A" PT*, RX1*, RX1+1*, RX2*
DIC("S" RX2*!
DIC(0 PT*, RX1*, RX1+1*, RX2*
DIQ SET+1*, SET+6*, END!
DIQ(0 SET+1*, SET+2, SET+6*, SET+7, SET+8, END!
DIR PSOB+7!, PSOB+8!
DIR("A" PSOB+7*
DIR("B" PSOB+7*
DIR(0 PSOB+7*
DIRUT PSOB+7!, PSOB+8!
DPTR END!
DPTR( SET+2
DPTRS SET+2*, END!
DPTRS1 END!
DPTRS1( SET+7, SET+8
DR SET+1*, SET+6*, END!
DTIME RX05, RL
DUZ PSOB+3
I END!, RX08+3*, LIST*, RL
ION SET+5
IOP END!
IOS SET~, SET+5
IOST SET+4
IOST(0 SET+5
>> PDUZ PSOB+3*
POP SET+3, END!
PSOB END!, RX08+3*, RX08+4, RX05+1, LIST, RL
PSOBAR0 SET~, SET+7*, SET+9
PSOBAR1 SET~, SET+8*, SET+9
PSOBARS SET~, SET+9*
PSOBFLAG SET+9*!
PSOBIO PT*, RX2+1, END!, RX08, RX08+1, RX08+2, RX08+3, RX08+4, RX05+2
PSOBOUT PSOB+3*, RX1+1, RX1+3, END!, RX05*
PSOBPT PT*, RX1+2, SET+1, END!
PSOBR RX1+2*, RX1+3*, RX2+2*, END!, RX08*, RX08+1*, RX08+2, RX08+3, RX08+4*, RX08+5*
, RX05+2*
PSOBR1 RX1+2*, RX1+3*, RX2+2, END!
PSOBR2 RX2+1*, RX2+2*, END!, RX08+1
PSOBRX END!, RX08*, RX08+1*
>> PSOBY RX1*, RX1+2
>> PSOCLC PSOB+3*
PSODISP PSOB+4~, PSOB+9*
PSODPT RX1*, RX1+2, END!
PSODPT(0 RX1*, RX1+2
>> PSOIOS SET+1*, SET+2, SET+5*
PSOIS SET+2*, END!
>> PSOPAR PSOB+2, PSOB+6, SET+9
>> PSOSITE PSOB+6
U RX05+1
X RX1, RX1+1, RX2, RX2+1, END!, RX08, RX05*, RX05+1, RX05+2, RL*
Y PSOB+9, PT, RX1, RX1+1, RX1+2*, RX1+3, RX2+2, END!, RX08*
Y(0 PT, RX1, RX1+2*, RX08, RX08+5, RX05
>> ZTDESC SET+10*
>> ZTDTH SET+10*
>> ZTIO SET+5*
>> ZTRTN SET+10*
>> ZTSAVE("CC" SET+10*
>> ZTSAVE("PDUZ" SET+10*
>> ZTSAVE("PSOBAR0" SET+11*
>> ZTSAVE("PSOBAR1" SET+11*
>> ZTSAVE("PSOBARS" SET+11*
>> ZTSAVE("PSOBIO" SET+10*
>> ZTSAVE("PSOBR1" SET+10*
>> ZTSAVE("PSOBR2" SET+10*
>> ZTSAVE("PSODISP" SET+11*
>> ZTSAVE("PSODIV" SET+10*
>> ZTSAVE("PSOIOS" SET+11*
>> ZTSAVE("PSOPAR" SET+10*
>> ZTSAVE("PSOSITE" SET+10*
>> ZTSAVE("PSOSYS" SET+11*
ZTSK SET+1!, SET+12, END!
Info |  Source |  Call Graph |  Caller 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