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

Package: Inpatient Medications

Routine: PSIVAMIS


Information

PSIVAMIS ;BIR/CCH,PR-AMIS REPORT ;03 NOV 94 / 4:38 PM

Source Information

Source file <PSIVAMIS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Inpatient Medications 2 ENIVKV^PSGSETU  TM^PSIVDCR1  
VA FileMan 1 NOW^%DTC  

Entry Points

Name Comments DBIA/ICR reference
ENQ
PRTQUE
W
K
DRUG
WARD
TYPE
H
WRT2
WDTOT
COMPTE
HERE
PRTLN
CTOT
PRTLN1
IV
GETEM
SETEM

External References

Name Field # of Occurrence
NOW^%DTC H
^%ZIS PRTQUE+1
^%ZISC W
^%ZTLOAD PRTQUE+1
ENIVKV^PSGSETU K
TM^PSIVDCR1 W+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: PRTQUE+0
Function Call: WRITE
  • Prompt: U
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,"IV ROOM ",$P(^PS(59.5,IV,0),U)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !!?56,"================",!?5,"*TOTAL FOR IV ROOM: ",$P(^PS(59.5,IV,0),U),?54,$J(IVTOT,18,4),!
  • Line Location: W+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!!?31,"IV AMIS REPORT",?65,"Page No. ",PGCNT,!,?20,"FROM "
  • Line Location: H+0
Function Call: WRITE
  • Prompt: Y," THROUGH "
  • Line Location: H+0
Function Call: WRITE
  • Prompt: Y," THROUGH "
  • Line Location: H+0
Function Call: WRITE
  • Prompt: Y," THROUGH "
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!,?36,"TOTAL",?63,"AVERAGE",!,?5,"TYPE",?34,"DISPENSED (BAGS)",?64,"COST"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: H+2
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,?30,"_____________",?57,"_______________"
  • Line Location: WDTOT+0
Function Call: WRITE
  • Prompt: !,?5,"TOTAL FOR WARD"
  • Line Location: WDTOT+1
Function Call: WRITE
  • Prompt: !?5
  • Line Location: PRTLN+0
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: $D(PR)
  • Line Location: PRTLN+0
Function Call: WRITE
  • Prompt: $S(TYP="P":"Piggyback",TYP="A":"Admixture",TYP="H":"Hyperal",TYP="C":"Chemotherapy",1:"Syringe")
  • Line Location: PRTLN+0
Function Call: WRITE
  • Prompt: ?35,$J(DISP,8,0),?60,$J(TUC,12,4)
  • Line Location: PRTLN1+0
Function Call: WRITE
  • Prompt: !!,PERRY
  • Line Location: IV+0
Routine Call
  • %ZIS
  • Line Location:
    • PRTQUE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" H
^DIC(42 - [#42] TYPE+2, TYPE+3, SETEM+1, SETEM+2
^PS(50.8 - [#50.8] ENQ, DRUG, DRUG+1, WARD, TYPE, TYPE+1, TYPE+2, GETEM, GETEM+1
^PS(59.5 - [#59.5] W+1
^UTILITY($J ENQ!, W, W+1, K!, TYPE+2, TYPE+3*, WRT2, WRT2+1, IV, SETEM+1
, SETEM+2*

Label References

Name Line Occurrences
COMPTE WRT2+1
CTOT W+1
DRUG ENQ
GETEM DRUG
H W, W+1, WDTOT+1, IV
HERE COMPTE, COMPTE+1
IV W+1
K PRTQUE+1, W
PRTLN W+1, WRT2+1
PRTLN1 WRT2+1, WDTOT+1
SETEM GETEM, GETEM+1
TYPE WARD
W PRTQUE
WARD DRUG+1
WRT2 IV

Naked Globals

Name Field # of Occurrence
^( DRUG+1, WARD, TYPE+2, WRT2+1, SETEM+1
^("R" GETEM+1
^(0 DRUG+1, TYPE+2, TYPE+3, GETEM, SETEM+1, SETEM+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PRTQUE+1*
>> C HERE+1*
CNT K!
CNT( SETEM*, SETEM+1
CNTNDE K!, GETEM*, GETEM+1*, SETEM
COST TYPE+1*, TYPE+2, TYPE+3!
D K!
>> DA TYPE*, TYPE+1, TYPE+2
DAT ENQ*, K!, DRUG, DRUG+1, WARD, TYPE, TYPE+1, TYPE+2, GETEM, GETEM+1
DISP K!, WDTOT+1*, COMPTE*, COMPTE+1, HERE, HERE+2, CTOT+1*, PRTLN1
DRG K!, DRUG+1*, WARD, TYPE, TYPE+1, TYPE+2
DRGCOST K!, DRUG+1*, TYPE+1
DS K!, WDTOT+1*
>> G PRTQUE*
>> I6 PRTQUE, PRTQUE+1
>> I7 ENQ, H
>> I8 ENQ, H
IO W
IOF W, H
>> IOP PRTQUE+1*
IOSL WDTOT+1, IV
IOST W
IV ENQ*, W+1*, K!, DRUG, DRUG+1, WARD, TYPE, TYPE+1, TYPE+2, TYPE+3
, WRT2, WRT2+1, IV, GETEM, GETEM+1, SETEM+1, SETEM+2
IVTOT W+1*, K!, WDTOT+1*
JJ K!, IV*
LN K!, H+2*
LO K!, TYPE+2*, TYPE+3, HERE+1*, HERE+2*, SETEM+1*, SETEM+2
PERRY K!, WRT2, WRT2+1, IV*
PGCNT W*, K!, H*
PR W+1*, PRTLN!
TOT W+1!
TOT( HERE+1, HERE+2*, CTOT, CTOT+1
TOTNDE K!, WRT2*, COMPTE
TUC K!, WDTOT+1*, COMPTE*, COMPTE+1*, CTOT*, PRTLN1
TYP W+1*, K!, WARD*, TYPE, TYPE+2, TYPE+3, WRT2+1*, COMPTE, COMPTE+1, HERE
, HERE+1, HERE+2, PRTLN, CTOT, CTOT+1
U W+1, DRUG+1, TYPE+1, TYPE+2, TYPE+3, COMPTE, COMPTE+1, HERE, HERE+1, HERE+2
, CTOT, CTOT+1, SETEM, SETEM+1, SETEM+2
WARD K!, DRUG*, GETEM, GETEM+1, SETEM+1, SETEM+2
WCOST K!, WDTOT+1, HERE*, IV!
>> WD WARD*, TYPE, TYPE+1, TYPE+2, TYPE+3
WDISP K!, WDTOT+1, HERE*, IV!
WUNITS K!, HERE*, IV!
>> X H, GETEM*, GETEM+1*, SETEM+1, SETEM+2
>> Y H*
>> ZTDESC PRTQUE+1*
>> ZTDTH PRTQUE*
>> ZTIO PRTQUE*
>> ZTQUEUED K
>> ZTREQ K*
>> ZTRTN PRTQUE*
>> ZTSAVE( PRTQUE*
>> ZTSAVE("^UTILITY($J," PRTQUE*
ZZ K!, SETEM*, SETEM+1*
ZZ( WRT2+1*, COMPTE, COMPTE+1, HERE, HERE+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All