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

Package: Inpatient Medications

Routine: PSIVPAT


Information

PSIVPAT ;BIR/PR-PATIENT COST REPORT ;07 OCT 97 / 9:48 AM

Source Information

Source file <PSIVPAT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Inpatient Medications 2 TM^PSIVDCR1  ENIV^PSJAC  

Entry Points

Name Comments DBIA/ICR reference
P2
B
P1 ;
H ;Header
K ;
ND
P ;
PRTQUE
W

External References

Name Field # of Occurrence
^%ZIS PRTQUE+2
^%ZISC P+1
^%ZTLOAD PRTQUE+2
TM^PSIVDCR1 P2+1
ENIV^PSJAC W

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: PRTQUE+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H+1
Function Call: WRITE
  • Prompt: ?97,$J(DATE,13),!!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?51,"PATIENT COST REPORT FOR:",?97,"PAGE ",$J(PC,3)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?51,VADM(1)," PID: ",VA("PID"),!?51,HEAD
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?51,"WARD: ",$S(VAIN(4)]"":$P(VAIN(4),U,2),1:"OUTPATIENT")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: " ",VAIN(5)
  • Condition for execution: VAIN(5)]""
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,?51,"DOB: ",$S(VADM(3)]"":$P(VADM(3),U,2),1:"NF")," ","SEX: ",$S(VADM(5)]"":$P(VADM(5),U,2),1:"NF")
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !?51,"Weight (kg): ",$S(+PSJPWT:+PSJPWT,1:"NF")
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !!!!,"DRUG NAME",?39,"DISPENSED",?57,"(DESTROYED)",?78,"RECYCLED",?101,"CANCELLED",?123,"DRUG COST",!
  • Line Location: H+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+9
Function Call: WRITE
  • Prompt: !
  • Line Location: H+10
Function Call: WRITE
  • Prompt: !,$E(DRG,1,37),?38,$J($P(G,U,3),10,2)_" "_C,?60,$J($P(G,U,6),8,2),?78,$J($P(G,U,5),8,2),?99,$J($P(G,U,7),10,2),?116,"$",$J($P(G,U,4),15,4)
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !,?117,"==============="
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !,?20,"GRAND TOTAL:",?116,"$",$J(TOTCOS,15,4)
  • Line Location: P2+1
Routine Call
  • %ZIS
  • Line Location:
    • PRTQUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSIVPAT+2
^DD(52.6 P1+1
^PS(50.8 - [#50.8] PSIVPAT+3, ND, B, B+1
^UTILITY($J PSIVPAT+2!, B+2, P+1, P+2, P1+1, K+2!

Label References

Name Line Occurrences
B ND
H W+1, P1+4
K PRTQUE+2, P+1
ND PSIVPAT+3
P W+1
P1 P+2
P2 P+3
W PRTQUE

Naked Globals

Name Field # of Occurrence
^( PSIVPAT+3, ND, B+2*
^(0 B+1
^(1 ND

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H K+2!
%I K+2!
>> %ZIS PRTQUE+2*
C P1+1*, P1+3, K+2!
CAN B+1*, B+2, K+2!
CC P1+1*!
DA ND*, B, B+1, K+2!
DAT PSIVPAT+3*, ND, B, B+1, K+2!
DATE PSIVPAT+2*, H+1, K+2!
DEST W+1*, B+1*, B+2, K+2!
DFN W*!
DRG W+1*, P+2*, P1+1, P1+3, K+2!
DRUG B*, B+2, K+2!
DT PSIVPAT+2
DX K+2!
G PRTQUE+1*, B+2*, P1+1*, P1+2, P1+3, K+2!
G1 B*, B+2, K+2!
HEAD PSIVPAT+2*, H+3, K+2!
I5 W, ND, B+1, B+2, P+2, P1+1, K+2!
>> I6 PRTQUE, PRTQUE+2
I7 PSIVPAT+2, PSIVPAT+3, K+2!
I8 PSIVPAT+2, PSIVPAT+3, K+2!
IO W+1
IOF H+1, P+1
>> IOP PRTQUE+2*
IOSL P1+4
IOST P+1
IV PSIVPAT+3*, ND, B, B+1, K+2!
>> JJ P+2*
LN H+9*, K+2!
PC W+1*, H+1*, H+2, K+2!
>> PSJPWT H+6
RT W+1*, B+1*, B+2, K+2!
SEX K+2!
ST K+2!
TOTCAN W+1*, P1+2*, K+2!
TOTCOS W+1*, P1+2*, P2+1, K+2!
TOTDIS W+1*, P1+2*, K+2!
TOTRT W+1*, P1+2*, K+2!
U B, B+1, B+2, H+4, H+5, P1+1, P1+2, P1+3
UC B*, B+2, K+2!
UD W+1*, B+1*, B+2, K+2!
>> VA("PID" H+3
>> VADM(1 H+3
>> VADM(3 H+5
>> VADM(5 H+5
>> VAIN W
>> VAIN(4 H+4
>> VAIN(5 H+4
>> VAIN(9 H+7
WT K+2!
X3 K+2!
X4 K+2!
X5 K+2!
Y PSIVPAT+2*, K+2!
Z K+2!
>> ZTDESC PRTQUE*
>> ZTDTH PRTQUE*
>> ZTIO PRTQUE*
>> ZTQUEUED W+1, K+1
>> ZTREQ W+1*, K+1*
>> ZTRTN PRTQUE*
>> ZTSAVE( PRTQUE+1*
>> ZTSAVE("^UTILITY($J," PRTQUE+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All