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

Package: Inpatient Medications

Routine: PSIVDCR2


Information

PSIVDCR2 ;BIR/PR,MLM-CONT. PRINT DRUG COST REPORT ;07 OCT 97 / 9:30 AM

Source Information

Source file <PSIVDCR2.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Inpatient Medications 1 H^PSIVDCR1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSIVDCR1  

Entry Points

Name Comments DBIA/ICR reference
P2 ;Sum bags for summary, get unit measure, print total drug cost and units
P1 ;Print drug name and bag counts
NO ;No patient data. This is indirection @S
F ;Form feed
BRIEF ;Run a condensed report if $D(BRIEF). A condensed report will never
1 ;Sum ward or patient units to get total drug units (U1-U4)
Y1 ;Patient data continued
2 ;If patient data, print total ward units and total ward costs
HI ;Check low/high cost
Y ;Patient data. This is indirection @S

External References

Name Field # of Occurrence
H^PSIVDCR1 F+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$E(N,1,34),?37,$P(G,U,20)_I,?61,$P(G,U,22)_I,?78,$P(G,U,21)_I,?97,$P(G,U,23)_I,?122,$P(G,U,20)-$P(G,U,21)-$P(G,U,23)_I
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !,?30,L1,?53,L1,?71,L1,?90,L1,?117,L1,!?10,"TOTAL DRUG UNITS:",?30,$J(U1,14,2)_" "_C,?53,$J(U2,14,2),?74,$J(U3,11,2),?93,$J(U4,11,2),?114,$J(U1-U3-U4,17,2)
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !,?30,L1,?53,L1,?71,L1,?90,L1,?117,L1,!?10,"TOTAL DRUG COST:",?29,"$",$J(C1,14,2),?52,"$",$J(C2,14,2),?70,"$",$J(C3,14,2),?89,"$",$J(C4,14,2),?113,"$",$J(WT,17,2)
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: !?2,"WARD: ",N1
  • Line Location: Y+2
Function Call: WRITE
  • Prompt: !?3,$E($P(P,"/"),1,18)," (",$E($P(^DPT($P(P,"/",2),0),U,9),6,9),")",?30,$J($P(G,U,8),14,2)_" "_C,?53,$J($P(G,U,10),14,2),?74,$J($P(G,U,9),11,2),?93,$J($P(G,U,11),11,2),?113,"$",$J($P(G,U),17,2)
  • Line Location: Y1+1
Function Call: WRITE
  • Prompt: !?30,L2,?53,L2,?71,L2,?90,L2,?117,L2,!?6,"TOTAL WARD UNITS:",?30,$J(P1,14,2)_" "_C,?53,$J(P2,14,2),?74,$J(P3,11,2),?93,$J(P4,11,2),?114,$J(P1-P3-P4,17,2)
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !?30,L2,?53,L2,?71,L2,?90,L2,?117,L2,!?6,"TOTAL WARD COST:",?29,"$",$J(V1,14,2),?52,"$",$J(V2,14,2),?70,"$",$J(V3,14,2),?89,"$",$J(V4,14,2),?113,"$",$J(P5,17,2)
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(52.6 P2+2
^DPT - [#2] Y1+1
^PS(59.5 - [#59.5] HI+2
^UTILITY("PSIV" HI+2*
^UTILITY($J P1+2, BRIEF+2, Y+2

Label References

Name Line Occurrences
1 BRIEF+2, Y1+1
2 Y+2
@( P2+2
F P1+2, P2+3, P2+4, BRIEF+2, Y+2, 2+1, 2+2
HI P1+2
P2 P1+2
Y1 Y+2

Naked Globals

Name Field # of Occurrence
^( P1+2, BRIEF+2, Y+2
^(0 HI+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B1 P2+1*
>> B2 P2+1*
>> B3 P2+1*
>> B4 P2+1*
>> BRIEF P2+3, BRIEF+2
>> C P2+2*, P2+3, BRIEF+2, Y1+1, 2+1
>> C1 P2+4, NO+1*, Y+1*, 1+3*
>> C2 P2+4, NO+1*, Y+1*, 1+3*
>> C3 P2+4, NO+1*, Y+1*, 1+3*
>> C4 P2+4, NO+1*, Y+1*, 1+3*
>> CC P2+2*
>> DC P1+2, BRIEF+2, Y+2
>> DCO HI+2*
>> G P1+2*, P2+1, P2+2, BRIEF+2*, Y+2*, Y1+1, 1+2, 1+3, 1+7, HI+2
>> G1 1+3*
>> G2 1+3*
>> G3 1+3*
>> G4 1+3*
>> G5 1+2*
>> I P1+1*, P1+2
>> I2 P1+2
IOSL F+1
>> J Y+2*
>> L1 P2+3, P2+4
>> L2 2+1, 2+2
>> LCO HI+2
>> N P1+1*, P1+2*, BRIEF+2, Y+2, HI+2
>> N1 BRIEF+2*, Y+2*
>> OK P1+2, HI+2*, HI+3*
>> P Y+2*, Y1+1
>> P1 Y+2*, 1+7*, 2+1
>> P2 Y+2*, 1+7*, 2+1
>> P3 Y+2*, 1+7*, 2+1
>> P4 Y+2*, 1+7*, 2+1
>> P5 Y+2*, 1+7*, 2+2
>> PQ 1+7
>> Q P1+2*, BRIEF+2*, Y+2*
>> S P2+2
>> SMO P1+2, P2+4
U P1+2, P2+1, P2+2, BRIEF+2, Y1+1, 1+2, 1+3, 1+7, HI+2
>> U1 P2+3, NO+1*, Y+1*, 1+2*
>> U2 P2+3, NO+1*, Y+1*, 1+2*
>> U3 P2+3, NO+1*, Y+1*, 1+2*
>> U4 P2+3, NO+1*, Y+1*, 1+2*
>> UCO HI+2
>> V P1+2, BRIEF+2, Y+2, HI+2
>> V1 Y+2*, 1+7*, 2+2
>> V2 Y+2*, 1+7*, 2+2
>> V3 Y+2*, 1+7*, 2+2
>> V4 Y+2*, 1+7*, 2+2
>> WT P2+4, NO+1*, Y+1*, 1+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All