Routine: PSGPER0

Information

PSGPER0 ;BIR/CML3-PRINTS PRE-EXCHANGE NEEDS REPORT ;24 JAN 94 / 11:14 AM

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ^DIK ^DIR
Inpatient Medications	2	($$ENDDN,$$ENDTC,$$ENMRN,$$ENNPN,$$ENPDN)^PSGMI $$ENSET^PSGSICHK
Kernel	1	^%ZISC
Registration	1	PID^VADPT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Inpatient Medications	1	PSGPER

Entry Points

Name	Comments	DBIA/ICR reference
ONI	;
PAT	;
HEADER	;
DDS	;
PPI	;
ENP	;
ENQ	;
DONE	;
PRT	; find order info and print same
GWR	;
NP	;
ENPAT	;
OP	;

External References

Name	Field # of Occurrence
NOW^%DTC	PAT+2
^%ZISC	PAT+6
^DIK	ENQ+1
^DIR	NP+1
$$ENDDN^PSGMI	DDS+1, PRT+4
$$ENDTC^PSGMI	PAT+2, PRT+8
$$ENMRN^PSGMI	ONI+3, PRT+4
$$ENNPN^PSGMI	ONI+1
$$ENPDN^PSGMI	ONI+2
$$ENSET^PSGSICHK	PRT+12
PID^VADPT	PAT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(13),# Condition for execution: Y Line Location: NP+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+1
Function Call: WRITE	Prompt: !?20,"PRE-EXCHANGE UNITS REPORT - ",% Line Location: HEADER+1
Function Call: WRITE	Prompt: !!,"Ward",?32,"Room-bed",!,"Patient",!?5,"Order",!?20,"Dispense Drug",?64,"U/D",?72,"Needs",!,L Line Location: HEADER+2
Function Call: WRITE	Prompt: !?5,PDN," ",DO," ",MR,$S(MR]"":" ",1:""),SCH Line Location: OP+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: PRT+9
Function Call: WRITE	Prompt: !!?6,BORD_" PRE-EXCHANGE MED "_BORD,!?6,"#",?73,"#",!?6,"# ",PN,?50,"Ward: ",WD,?73,"#",!?6,"# ("_SN_")",?52,"RB: "_RB,?73,"#",!?6,"#",?73,"#" Line Location: PRT+9
Function Call: WRITE	Prompt: !?6,"# "_DRG,?46,"START: "_STRT,?73,"#",!?6,"# "_$S(DRGS]"":"("_DRGS_")",1:""),?47,"STOP: "_STOP,?73,"#",!?6,"# GIVE: "_$S(DO]"":" "_DO,1:"")_$S(MR]"":" "_MR,1:"")_$S(SCH]"":" "_SCH,1:""),?73,"#" Line Location: PRT+10
Function Call: WRITE	Prompt: !?6,"#",?73,"#",!?6,"# (NO SPECIAL INSTRUCTIONS)" Line Location: PRT+11
Function Call: WRITE	Prompt: !?6,"#",?73,"#",!?6,"# " Line Location: PRT+12
Function Call: WRITE	Prompt: ?73,"#",!?6,"# " Condition for execution: $X+$L(X)>72 Line Location: PRT+12
Function Call: WRITE	Prompt: X_" " Line Location: PRT+12
Function Call: WRITE	Prompt: ?73,"#",!?6,"#",?73,"#",!,?6,"#",?43,"VERIFIED: "_VD,?73,"#",!?6,"#",?49,"BY: "_VU,?73,"#",!?6,"#",?38,"SEND TO FLOOR: "_PX,?73,"#" Line Location: PRT+13
Function Call: WRITE	Prompt: !?6,"#",?73,"#" Line Location: PRT+14
Function Call: WRITE	Prompt: !?6,"#",?73,"#",!?6,"#",?36,"_______________ _______________ #",!?6,"#",?36,"FILLED BY",?56,"CHECKED BY",?73,"#",!?6,BORD_BORD_$E(BORD,1,20) Line Location: PRT+15
Routine Call	DIR Line Location: NP+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53.4 - [#53.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GWR+1
^PS(53.4 - [#53.4]	ENP+2, PAT+1
^PS(55 - [#55]	ONI+1, DDS+1, PRT+3
^TMP("PSGPER"	ENPAT+2!, ENP+1!, PAT+3, PAT+4, PAT+5, DONE+1!, GWR+2, ONI+3, DDS+3*
^VA(200 - [#200]	PRT+7

Label References

Name	Line Occurrences
DDS	PAT+1
DONE	ENPAT+2, ENP+2
ENP	ENQ+1
ENPAT	ENQ+1
GWR	PAT+1
HEADER	PAT+2
NP	PAT+5, PPI+1, PRT+1
ONI	PAT+1
OP	PAT+4
PAT	ENPAT+2, ENP+2
PPI	PAT+4
PRT	PAT+4

Naked Globals

Name	Field # of Occurrence
^(	PAT+1, PAT+3, PAT+4, GWR+1, ONI+1, PRT+3
^(0	PAT+1, GWR+1
^(2	ONI+1, PRT+3
^(4	PRT+3
^(6	PRT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAT+2*, HEADER+1
BORD	PAT+2*, DONE+1!, PRT+9, PRT+15
DA	ENQ+1*!
DD	PAT+1*, DONE+1!
DDN	PAT+2, PAT+4, DONE+1!
>> DFN	ENPAT+1, ENP+2, PAT+1, GWR+1, GWR+2, ONI+1, DDS+1, PPI+1, PRT+3
DIK	ENQ+1*!
DIR	NP+1!
DIR(0	NP+1*
DN	PAT+2, PAT+4, DONE+1!, ONI+1, ONI+2, ONI+3, PRT+3
DO	DONE+1!, ONI+1, ONI+3, OP+1, OP+2, PRT+3*, PRT+5, PRT+10
DONE	DONE+2!
DRG	DONE+1!, PRT+4*, PRT+5, PRT+10
DRGS	DONE+1!, PRT+10
F	PAT+2, PAT+3, PAT+4, PAT+5, DONE+1!, HEADER+3
FIL	DONE+2!
I2	DONE+1!
IO	ENPAT+2, ENP+1, PAT+2
IO(0	PAT+2
IOF	PAT+6, HEADER+1, PRT+9
IOSL	PPI+1, PRT+1
IOST	PAT+2
L	PAT+2*, DONE+1!, HEADER+2
MR	DONE+1!, ONI+1, ONI+3, OP+1, OP+2, PRT+4, PRT+10
ND	PAT+1, DONE+1!, ONI+1, ONI+3, DDS+1, DDS+2, DDS+3, PRT+3*
ND0	DONE+1!, PRT+3*, PRT+4
ND1	DONE+1!, DDS+1*, DDS+3
ND2	DONE+1!, PRT+3*, PRT+7
ND4	DONE+1!, PRT+3*, PRT+7
NF	DONE+2!
NP	PAT+2*, DONE+1!, PPI+1, PRT+1
ON	PAT+1, DONE+1!, ONI+1, ONI+3, DDS+1, PRT+3
PDM	DONE+2!
PDN	DONE+1!, OP+1, OP+2, PRT+2
PDRG	DONE+2!
PI	PAT+3*, PAT+4, PAT+5, DONE+1!, PPI+1
PN	DONE+1!, HEADER+3, GWR+1, GWR+2, PPI+1, PPI+2, PRT+9
PSG25	DONE+1!
PSG26	DONE+1!
PSGACTO	DONE+2!
PSGDA	DONE+2!
PSGEB	DONE+1!
PSGEBN	DONE+1!
PSGNEFDO	DONE+2!
PSGNESDO	DONE+2!
PSGNODE	DONE+1!
PSGOAT	DONE+1!
PSGPEN	DONE+2!
PSGPENWS	DONE+2!
PSGPXN	ENQ+1!, ENP+2, PAT+1
>> PSGPXPT	ENQ+1
PSGSTAT	DONE+1!
PSGY	DONE+2!
PSIVAC	DONE+2!
PSIVCT	DONE+2!
PSIVE	DONE+2!
PSIVEXAM	DONE+2!
PSIVUP	DONE+2!
PSIVWAT	DONE+2!
PSJH	DONE+2!
PSJNOO	DONE+2!
PSJNOON	DONE+2!
PX	PAT+4, DONE+1!, OP+1, PRT+2, PRT+5, PRT+13
>> Q	PRT+8, PRT+12, PRT+14*
RB	PAT+3, DONE+1!, HEADER+3, GWR+1, GWR+2, PPI+1*, PPI+2, PRT+9
RF	PAT+2*, DONE+1!, PPI+1, PRT+1, PRT+5
SCH	DONE+1!, ONI+1, ONI+3, OP+1, OP+2, PRT+7*, PRT+10
SDN	DONE+1!, ONI+3*, DDS+3
SN	DONE+1!, HEADER+3, PPI+1*, PPI+2, PRT+9
SND1	DONE+1!, DDS+1*, DDS+3
SPN	DONE+1!, GWR+2*, ONI+3, DDS+3
STOP	DONE+1!, PRT+7*, PRT+10
STRT	DONE+1!, PRT+7*, PRT+10
T	PAT+2*, PAT+6, DONE+1!, NP+1
UD	DONE+1!, DDS+1, DDS+3, PRT+2, PRT+5
>> VA("BID"	GWR+2
VD	DONE+1!, PRT+7*, PRT+13
VU	DONE+1!, PRT+7*, PRT+13
W	DONE+1!
WD	PAT+2, PAT+3, PAT+4, PAT+5, DONE+1!, NP+1, HEADER+3, GWR+1, GWR+2, ONI+3 , DDS+3, PPI+2, PRT+9
X	DONE+1!, PRT+12*
XL	DONE+1!, PRT+11, PRT+12, PRT+14*
Y	DONE+1!, NP+1, PRT+3, PRT+11, PRT+12

Customize PDF page

Package: Inpatient Medications

Routine: PSGPER0

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: