Routine: PSIVMAN1

Information

PSIVMAN1 ;BIR/RGY,PR-COMPILE MAN LIST ;07 OCT 97 / 9:35 AM

Package	Total	Call Graph
Inpatient Medications	3	DESC^PSIVLBL1 $$CODES^PSIVUTL ENIV^PSJAC
Pharmacy Data Management	1	$$HAZ^PSSUTIL
VA FileMan	1	NOW^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Inpatient Medications	2	PSIVMAN PSIVSUS1

Entry Points

Name	Comments	DBIA/ICR reference
PRNTO	;
SOL
PAT
ENT	; will print man. list
LOOKUP	; expand drug info
RGY	;
SETP
WD
HDR
HDRE
RGY1
TOTAL

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?80,"Lot#: __________" Line Location: PRNTO+4
Function Call: WRITE	Prompt: ! Line Location: PRNTO+7
Function Call: WRITE	Prompt: ?16,"<<HAZ Handle>>" Condition for execution: $P(PSHAZD,"^") Line Location: PRNTO+7
Function Call: WRITE	Prompt: ?15," <<HAZ Dispose>>" Condition for execution: $P(PSHAZD,"^",2) Line Location: PRNTO+7
Function Call: WRITE	Prompt: !?16,PSIVSL Line Location: SOL+3
Function Call: WRITE	Prompt: ! Line Location: SOL+7
Function Call: WRITE	Prompt: ?16,"<<HAZ Handle>>" Condition for execution: $P(PSHAZS,"^") Line Location: SOL+7
Function Call: WRITE	Prompt: ?15," <<HAZ Dispose>>" Condition for execution: $P(PSHAZS,"^",2) Line Location: SOL+7
Function Call: WRITE	Prompt: !?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) Line Location: PAT+0
Function Call: WRITE	Prompt: ! Line Location: PAT+3
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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>>	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, PAT+1, PAT+2, 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, PAT+1, PAT+2, RGY+1*, SETP
>> P(	SETP*
>> P(23	PAT+1
>> P(4	PAT+1
PSDA	PRNTO+6~*
PSHAZD	PRNTO+6~*, PRNTO+7
PSHAZS	SOL+6~*, SOL+7
PSIV	SOL+2, SOL+3, SOL+6, PAT+2, PAT+3!
PSIV1	PAT, ENT+4*, ENT+5!, RGY+1, RGY1, RGY1+1
PSIV2	PAT, ENT+5!, RGY+1, RGY1+1*
PSIV3	PAT+3!
PSIVA	PRNTO+2*, PRNTO+3, PRNTO+4, PRNTO+6, PAT+3!
>> PSIVCD(	HDR+5
PSIVDN	SOL, ENT+4, ENT+5!, LOOKUP+1, LOOKUP+2, LOOKUP+3, RGY1, RGY1+1
>> PSIVDT	HDR+1
>> PSIVGL1	PAT, ENT+2, ENT+4, RGY+1, RGY1, RGY1+1
>> PSIVGL2	PAT, ENT+2, ENT+4, RGY+1, RGY1, RGY1+1
>> PSIVMT(	HDR+5
>> PSIVOD	HDR, HDR+4
>> PSIVOD(	HDR+5
>> PSIVSL	SOL+3*, SOL+4
>> PSIVSN	PAT, ENT+2, ENT+4, RGY+1, HDR+1, RGY1, RGY1+1
PSIVT	PAT, 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
PSSOL	SOL+6~*
>> TOTAL	PAT, ENT+3, ENT+4, TOTAL*
U	PRNTO+6, SOL+6, PAT, PAT+1, HDR+1
>> VADM(1	PAT
>> VADM(2	PAT
>> VAIN(4	PAT
>> 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: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: