Routine: PSIVMAN1

Package	Total	Call Graph
Inpatient Medications	3	DESC^PSIVLBL1 $$CODES^PSIVUTL ENIV^PSJAC
VA Fileman	1	NOW^%DTC

Package

Total

Call Graph

Inpatient Medications

DESC^PSIVLBL1 $$CODES^PSIVUTL ENIV^PSJAC

VA Fileman

NOW^%DTC

Package	Total	Caller Graph
Inpatient Medications	2	PSIVMAN PSIVSUS1

Package

Total

Caller Graph

Inpatient Medications

PSIVMAN PSIVSUS1

Entry Points

Name	Field # of Occurrence
NOW^%DTC	HDR+3
DESC^PSIVLBL1	HDR+6
$$CODES^PSIVUTL	HDR+5, HDRE+1
ENIV^PSJAC	RGY+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?16,$P(^PS(52.6,$P(PSIVA,"^",2),0),"^")," ",$P(PSIVA,"^",3) Line Location: PRNTO+2
Function Call: WRITE	Prompt: " in bottle(s): ",$P(PSIVA,"^",4) Condition for execution: $P(PSIVA,"^",4)]"" Line Location: PRNTO+2
Function Call: WRITE	Prompt: ?80,"Lot#: __________" Line Location: PRNTO+2
Function Call: WRITE	Prompt: !?4,"[",ON,"] ",?10,VADM(1)," (",$G(PSJPBID),") (",$S(+VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",?62,+^PS(55,PSIVGL1,PSIVSN,PSIVGL2,PSIVT,PSIV1,PSIV2,DFN,ON) Line Location: PAT+1
Function Call: WRITE	Prompt: ! Line Location: PAT+4
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: WD+0
Function Call: WRITE	Prompt: "ROM SUSPENSE" Line Location: HDR+0
Function Call: WRITE	Prompt: "OR IV ROOM: ",$P(^PS(59.5,PSIVSN,0),U)," AT " Line Location: HDR+1
Function Call: WRITE	Prompt: $P(Y,"@") Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Printed on",?30,": " Line Location: HDR+2
Function Call: WRITE	Prompt: !,X," manufacturing time: " Line Location: HDR+5
Function Call: WRITE	Prompt: !!,X,"S covering from " Line Location: HDR+5
Function Call: WRITE	Prompt: !!,X,"S covering from " Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: !!?20,"Order",?60,"Totals",?80,"Lot #'s" Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: HDRE+0
Function Call: WRITE	Prompt: "-" Line Location: HDRE+0
Function Call: WRITE	Prompt: ! Line Location: HDRE+1
Function Call: WRITE	Prompt: !,"* ",X,"S *",! Condition for execution: X]"" Line Location: HDRE+1
Function Call: WRITE	Prompt: !,PSIVDN,?55,"Total: ",^PS(55,PSIVGL1,PSIVSN,PSIVGL2,PSIVT,PSIV1,0) Line Location: RGY1+0
Function Call: WRITE	Prompt: !?16,PSIVDN Condition for execution: $E(PSIVDN,1,3)="***" Line Location: RGY1+0
Function Call: WRITE	Prompt: !?60,"_______",!?47,"Overall Total: ",TOTAL Line Location: TOTAL+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WD, HDR+1
^PS(	LOOKUP+3
^PS(52.6 - [#52.6]	PRNTO+2
^PS(52.7 - [#52.7]	SOL+3
^PS(55 - [#55]	PRNTO+1, PRNTO+2, SOL+1, SOL+2, PAT+1, PAT+2, PAT+3, ENT+2, ENT+4, RGY+1 , SETP, RGY1, RGY1+1
^PS(59.5 - [#59.5]	HDR+1

Name	Line Occurrences
HDR	ENT+2, ENT+4
HDRE	HDR+4
LOOKUP	ENT+4, RGY1+1
PAT	SOL+1
PRNTO	RGY+1
RGY	RGY1+1
RGY1	ENT+4
SETP	RGY+1
SOL	PRNTO+1
TOTAL	ENT+4
WD	HDR+4, HDR+5

Name	Field # of Occurrence
^(	PRNTO+2, SOL+2, PAT+1
^(0	PRNTO+1, SOL+1, SOL+3, LOOKUP+3
^(1	PAT+3
^(2	PAT+2
^(3	PAT+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+3!
%H	HDR+3!
%I	HDR+3!
>> DA	LOOKUP+2*, LOOKUP+3
>> DFN	PRNTO+1, PRNTO+2, SOL+1, SOL+2, PAT+1, PAT+2, PAT+3, RGY+1*, SETP
FILE	ENT+5!, LOOKUP+2*, LOOKUP+3
IOF	HDR
IOM	HDRE
>> JJ	ENT+4, RGY1+1
>> JJ1	ENT+4*
>> NOFLG	ENT+1, ENT+2, HDR+6, HDR+7
>> ON	PRNTO+1, PRNTO+2, SOL+1, SOL+2, PAT+1, PAT+2, PAT+3, RGY+1*, SETP
>> P(	SETP*
>> P(23	PAT+2
>> P(4	PAT+2
PSIV	SOL+2, SOL+3, PAT+3, PAT+4!
PSIV1	PAT+1, ENT+4*, ENT+5!, RGY+1, RGY1, RGY1+1
PSIV2	PAT+1, ENT+5!, RGY+1, RGY1+1*
PSIV3	PAT+4!
PSIVA	PRNTO+2*, PAT+4!
>> PSIVCD(	HDR+5
PSIVDN	SOL, ENT+4, ENT+5!, LOOKUP+1, LOOKUP+2, LOOKUP+3, RGY1, RGY1+1
>> PSIVDT	HDR+1
>> PSIVGL1	PAT+1, ENT+2, ENT+4, RGY+1, RGY1, RGY1+1
>> PSIVGL2	PAT+1, ENT+2, ENT+4, RGY+1, RGY1, RGY1+1
>> PSIVMT(	HDR+5
>> PSIVOD	HDR, HDR+4
>> PSIVOD(	HDR+5
>> PSIVSL	SOL+3*
>> PSIVSN	PAT+1, ENT+2, ENT+4, RGY+1, HDR+1, RGY1, RGY1+1
PSIVT	PAT+1, ENT+2, ENT+3, ENT+4*, ENT+5!, RGY+1, HDR+5, HDR+6, HDRE+1, RGY1 , RGY1+1
PSIVTEST	ENT+5!
>> PSIVTTM	ENT+2
>> PSJPBID	PAT+1
>> TOTAL	PAT+1, ENT+3, ENT+4, TOTAL*
U	PAT+1, PAT+2, HDR+1
>> VADM(1	PAT+1
>> VAIN(4	PAT+1
>> X	SETP, HDR+5, HDRE, HDRE+1
>> Y	SETP, WD, HDR+1, HDR+3, HDR+5

Customize PDF page

Package: Inpatient Medications

Routine: PSIVMAN1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
WD
PAT	;W !?4,"[",ON,"] ",?10,VADM(1)," (",$E(VADM(2),6,9),") (",$S(+VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",?62,+^PS(55,PSIVGL1,PSIVSN,PSIVGL2,PSIVT,PSIV1,PSIV2,DFN,ON) S TOTAL=TOTAL+^(ON)
HDR
SETP
RGY	;
RGY1
SOL
PRNTO	;
HDRE
ENT	; will print man. list
LOOKUP	; expand drug info
TOTAL