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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSIVAOR

Package: Inpatient Medications

Routine: PSIVAOR


Information

PSIVAOR ;BIR/PR-BUILD ACT/DC ORDER RPT BY WD/DRUG ;24 JAN 94 / 11:18 AM

Source Information

Source file <PSIVAOR.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Inpatient Medications 5 ENIVKV^PSGSETU  ^PSIVAOR1  ^PSIVHLP2  DTS^PSIVRQ  ENIV^PSJAC  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 NOW^%DTC  ^DIC  WAIT^DICD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Inpatient Medications 2 PSIVAOR1  PSJI AOR  

Entry Points

Name Comments DBIA/ICR reference
SW ;
WARD ;Select ward
DRUG ;Select drug
QUEUE ;Ask to queue report
ENQ1 ;Entry from first queue or fall through
AIV ;Active orders
ADC ;Discontinued orders
Q2 ;Do second queue
1 ;1 w 1 d
2 ;1 w all d
3 ;All w all d
4 ;1 d all w
B ;;Build TMP
ENQ2 ;Entry second queue
H ;
K ;

External References

Name Field # of Occurrence
NOW^%DTC ENQ1+2, AIV+1, ADC+1, ENQ2+2
^%ZIS QUEUE+1, Q2+2
^%ZISC QUEUE+8, K+3
^%ZTLOAD QUEUE+8, Q2+2
^DIC WARD+4, DRUG+4
WAIT^DICD ENQ1+1
ENIVKV^PSGSETU K+2
^PSIVAOR1 ENQ2+3
^PSIVHLP2 WARD+3, DRUG+3
DTS^PSIVRQ SW+1
ENIV^PSJAC AIV+1, ADC+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select Ward (or enter ^ALL or ^OUTPATIENT): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: $P("^ALL",X,2)
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: $P("^OUTPATIENT",X,2)
  • Line Location: WARD+2
Function Call: READ
  • Formatting: !
  • Prompt: "Select DRUG (or enter ^ALL): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !,"No Device selected or report run."
  • Line Location: QUEUE+1
Function Call: WRITE
  • Prompt: !,"No data"
  • Line Location: ENQ2+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H+1
Function Call: WRITE
  • Prompt: TYPE,"Order Report by Ward/Drug For: ",I11,!,USER
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Date range: ",RANGE
  • Condition for execution: XREF="ADC"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?70,"PAGE: ",PG,!!,"IV ROOM/WARD/NAME/ORDER",?35,"STOP DATE",?60,"PROVIDER",!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?70,"PAGE: ",PG,!!,"IV ROOM/WARD/NAME/ORDER",?35,"STOP DATE",?60,"PROVIDER",!
  • Line Location: H+1
Routine Call
  • DIC
  • Line Location:
    • WARD+4
    • DRUG+4
Routine Call
  • %ZIS
  • Line Location:
    • QUEUE+1
    • Q2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" ENQ2+1, ENQ2+2
^DIC(42 - [#42] 1+1, 2+1, 3+1, 4+1
^PS(55 - [#55] ENQ1+2, AIV+1, ADC+1, 1+1, 4+1
^TMP("PSJ" ENQ1+2!, B+1*, ENQ2+2, K+2!
^VA(200 - [#200] ENQ2+2

Label References

Name Line Occurrences
@( ENQ1+2, AIV+1, ADC+1
B 1+1, 2+1, 3+1, 4+1
DRUG WARD+1, WARD+2, DRUG+3, DRUG+4, DRUG+5
ENQ2 Q2+1
H ENQ2+2, ENQ2+3
K SW+1, WARD+1, DRUG+1, QUEUE+1, QUEUE+8, Q2+2, ENQ2+2, ENQ2+3
Q2 ENQ1+3
QUEUE DRUG+2
WARD WARD+3, WARD+4

Naked Globals

Name Field # of Occurrence
^( 1+1, 4+1
^(0 AIV+1, ADC+1, 1+1, 3+1, 4+1
^(2 AIV+1, ADC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENQ1+2, AIV+1, ENQ2+2
%T K+2!
%ZIS QUEUE+1!*, Q2+2*
%ZIS("B" QUEUE+1*
D K+2!
DAT ENQ1+2*, AIV+1, ADC+1, K+2!
DFN AIV+1*, ADC+1*, 1+1, 4+1, B+1, K+2!
DIC WARD+4*, DRUG+4*, K+2!
DIC(0 WARD+4*, DRUG+4*
DTIME WARD+1, DRUG+1
DUZ ENQ2+2
FI DRUG+4*, 1+1, 4+1, K+2!
G QUEUE+7*, AIV+1*, ADC+1*, 1+1, 2+1, 3+1, 4+1, K+2!
>> HELP WARD+3*, DRUG+3*
I H+1*, K+2!
I10 DRUG+2*, DRUG+5*, ENQ2+2, K+2!
I11 WARD+1*, WARD+2*, WARD+4*, ENQ2+2*, H+1, K+2!
I2 DRUG+2*, DRUG+5*, ENQ1+2, 1+1, 4+1, K+2!
I3 WARD+1*, WARD+2*, WARD+4*, ENQ1+2, 1+1, 2+1, K+2!
I6 QUEUE+4*, ENQ1+1, Q2+1, Q2+2, K+2!
I7 SW+1, ENQ1+2, ENQ2+1, K+2!
I8 SW+1, ENQ1+2, ENQ2+1, K+2!
IO ENQ2+2
>> IO("DOC" QUEUE+4
IO("Q" QUEUE+1!, QUEUE+2, QUEUE+3!
IOF H+1, K+1
ION QUEUE+4
IOP QUEUE+1!, Q2+2*
IOST K+1
IV AIV+1*, ADC+1*, B+1, K+2!
>> JJ Q2+1*
NA 1+1*, 4+1*, K+2!
ON AIV+1*, ADC+1*, 1+1, 4+1, B+1, K+2!
P2 K+2!
P3 K+2!
P4 AIV+1*, ADC+1*, B+1, K+2!
P5 K+2!
P6 K+2!
PAT K+2!
PG ENQ2+2*, H+1*, K+2!
>> POP QUEUE+1
>> PSIVDCF AIV+1
>> PSIVPR QUEUE+1
PSIVQ ENQ1+2*, K+2!
>> RANGE ENQ2+1*, H+1
S ENQ1+2*, AIV+1, ADC+1, K+2!
STSRPT SW+1*!
TYPE ENQ2+2*, H+1, K+2!
U WARD+4, DRUG+2, DRUG+5, AIV+1, ADC+1, 1+1, 2+1, 3+1, 4+1, B+1
ENQ2+2
USER ENQ2+2*, H+1, K+2!
>> VADM(1 B+1
>> VADM(2 B+1
VAERR K+2!
>> VAIN(5 B+1
W42 1+1*, 2+1*, 3+1*, 4+1*, B+1, K+2!
WD K+2!
>> X WARD+1*, WARD+2, WARD+3, DRUG+1*, DRUG+2, DRUG+3, DRUG+4
XREF SW+1, ENQ1+2, AIV+1, ADC+1, ENQ2+1, ENQ2+2, H+1, K+2!
>> Y WARD+4, DRUG+2*, DRUG+4, DRUG+5, ENQ2+1*, ENQ2+2*
>> Y(0 WARD+4, DRUG+5
Z K+2!
>> ZTDESC QUEUE+6*, Q2+1*
ZTDTH QUEUE+5!, Q2+1*
>> ZTIO QUEUE+4*, Q2+1*
>> ZTQUEUED K+3
>> ZTREQ K+3*
>> ZTRTN QUEUE+6*, Q2+1*
ZTSAVE QUEUE+5!
ZTSAVE( QUEUE+7*, Q2+1*
ZTSK QUEUE+5!, QUEUE+8, K+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All