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: PSOMGRP4

Package: Outpatient Pharmacy

Routine: PSOMGRP4


Information

PSOMGRP4 ;BHAM ISC/JMB - DAILY MANAGEMENT IV REPORT ; 3/1/93

Source Information

Source file <PSOMGRP4.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ^%ZISC  
VA Fileman 1 NOW^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSOMGREP  PSOMGRP1  

Entry Points

Name Comments DBIA/ICR reference
MLINE
EN
WRT2
SETEM
H
K
COMPTE
HERE
IV
GETEM
MON
W
PRTLN1
CTOT
LINE
WDTOT
TYPE
WARD
DLINE

External References

Name Field # of Occurrence
NOW^%DTC W+2
^%ZISC W+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"GRAND TOTAL: "
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?101,$J(BTOT,8,0),?111,$J(IVTOT,13,2),!!!?17,"FINISHED PRINTING ON: "
  • Line Location: W+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: W+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: RUN="A"
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !?15
  • Line Location: MLINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: MLINE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DLINE+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: DLINE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!?30,"O U T P A T I E N T P H A R M A C Y M A N A G E M E N T R E P O R T",!?55,"INTRAVENOUS ADMIXTURE",?117,"PAGE ",PG
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!?40,"FROM "_$E(SDT,4,5)_"-"_$E(SDT,6,7)_"-"_$E(SDT,2,3),?60,"TO "_$E(EDT,4,5)_"-"_$E(EDT,6,7)_"-"_$E(EDT,2,3)_" ALL DIVISIONS",!!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!?24,"PIGGYBKS & SYRS",?47,"L. V. P",?71,"T. P. N.",?87,"CHEMOTHERAPY",?110,"PER DATE",!?7,"DATE",?24,"TOT AVG CST",?44,"TOT AVG CST",?66,"TOT AVG CST",?85,"TOT AVG CST",?106,"TOT TOT CST"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,$E(DATE,4,5)_"-"_$E(DATE,6,7)_"-"_$E(DATE,2,3)
  • Line Location: WRT2+1
Function Call: WRITE
  • Prompt: !,"MONTH TOTAL"
  • Line Location: MON+0
Function Call: WRITE
  • Prompt: ?TCOL,$J(DISP,7,0),?CCOL,$J(TUC,12,2)
  • Line Location: PRTLN1+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" W+2
^DIC(42 - [#42] WARD
^PS(50.8 - [#50.8] EN+1, EN+2, EN+4, WARD, TYPE, TYPE+1, GETEM, GETEM+1
^PS(59 - [#59] EN
^TMP($J EN+1!, W, W+1, K!, TYPE+2, TYPE+3*, IV, WRT2+1, WRT2+2, SETEM+1
, SETEM+3*

Label References

Name Line Occurrences
COMPTE WRT2+2
CTOT W+1
DLINE W+1
GETEM EN+2
H W, IV
HERE COMPTE, COMPTE+1
IV W+1
K W
LINE H+3
MLINE MON
MON IV, WRT2
PRTLN1 WRT2+2, WDTOT, MON+4, MON+5
SETEM GETEM, GETEM+1
TYPE WARD
WARD EN+4
WRT2 IV+3

Naked Globals

Name Field # of Occurrence
^( EN+4, WARD, TYPE+2, WRT2+2, SETEM+1
^("P" TYPE+2
^("R" GETEM+1
^(0 EN+4, GETEM

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % W+2
>> BEG EN+1*, IV*, IV+1*
BTOT W+1*, W+2, K!, WDTOT*
C K!
CCOL K!, PRTLN1*
CNT K!
CNT( SETEM*, SETEM+1
CNT(1 SETEM+2*
CNT(5 SETEM+2
CNTNDE K!, GETEM*, GETEM+1*, SETEM
COST TYPE+1*, TYPE+2, TYPE+4!
D K!
DA K!, TYPE*, TYPE+1
DAT EN+1*, EN+2, EN+4, K!, WARD, TYPE, TYPE+1, TYPE+2, TYPE+3, GETEM
, GETEM+1, SETEM+1, SETEM+3
DATE K!, IV*, IV+1, WRT2, WRT2+1, WRT2+2
DISP K!, WRT2+1!, WDTOT*, COMPTE*, COMPTE+1, HERE, HERE+1, HERE+3, MON!, MON+2*
, MON+3, MON+5*, CTOT+1*, PRTLN1
>> DIV EN*
DRG EN+4*, K!, WARD, TYPE, TYPE+1
DRGCOST EN+4*, K!, TYPE+1
DS K!, WDTOT*, MON+5*
>> DV EN*
>> DVCNT EN*
EDT EN+1, K!, H+1
I6 K!
IO H
IOF W, W+2, H
IOSL IV
IOST W
IV EN+1*, EN+2, EN+4, W+1*, K!, WARD, TYPE, TYPE+1, TYPE+2, TYPE+3
, IV, WRT2+1, WRT2+2, GETEM, GETEM+1, SETEM+1, SETEM+3
IVTOT W+1*, W+2, K!, WDTOT*
JJ K!, IV*
LN K!, LINE*, MLINE*, DLINE*
LO K!, TYPE+2*, TYPE+3, HERE+1*, HERE+4, SETEM+1*, SETEM+2*, SETEM+3
>> MM( IV+1, IV+2*, HERE+2*, HERE+3*, MON+1, MON+2, MON+3
>> MN IV+1*, IV+2, WRT2, HERE+2, HERE+3
PG EN+1*, W*, K!, H*
PR W+1*, WRT2+2!
>> PRV IV+1*, WRT2*, MON+1, MON+2, MON+3
>> RUN W+2
SDT EN+1, K!, H+1
TCOL K!, PRTLN1*
TOT W+1!, K+2!
TOT( HERE+1, HERE+4*, CTOT, CTOT+1
TOTNDE K+2!, WRT2+1*, COMPTE
>> TT TYPE+3*
TUC K+2!, WRT2+1!, WDTOT*, COMPTE*, COMPTE+1*, MON!, MON+1*, MON+5*, CTOT*, PRTLN1
TYP W+1*, K+2!, WARD*, TYPE, TYPE+2, TYPE+3, IV+2, WRT2+2*, WDTOT*, COMPTE
, COMPTE+1, HERE, HERE+1, HERE+2, HERE+3, HERE+4, MON*, MON+1, MON+2, MON+3
, MON+5*, CTOT, CTOT+1, PRTLN1
WARD EN+2*, K+2!, GETEM, GETEM+1
WCOST K+2!, IV+3!, WRT2+1!, WDTOT, HERE*, MON!, MON+3*, MON+5
WD K+2!, WARD*, TYPE, TYPE+1
WDISP K+2!, IV+3!, WRT2+1!, WDTOT, HERE*, MON!, MON+3*, MON+5
WUNITS K+2!, IV+3!
X K+2!, GETEM*, GETEM+1*, SETEM+1, SETEM+3
Y W+2*, K+2!
ZTSK W+2!
ZZ K+2!, SETEM*, SETEM+1*
ZZ( WRT2+2*, COMPTE, COMPTE+1, HERE, HERE+1, HERE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All