Routine: PSGOEPO

Package	Total	Call Graph
Inpatient Medications	4	^PSGLPI ($$ENDTC,$$ENDTC2)^PSGMI $$ENSET^PSGSICHK ENTSK^PSGTI
Kernel	2	^%ZIS ^%ZISC
VA Fileman	2	NOW^%DTC ^DIK

Package	Total	Caller Graph
Inpatient Medications	1	PSGOE

Entry Points

Name	Comments	DBIA/ICR reference
LAST	;
HEADER	; ; IHS/CIA/PLS - 08/29/04 - Removed reference to VA FORM
DONE	;
BTM	;
PO	;
ENQOP	;
OPRT	;

External References

Name	Field # of Occurrence
NOW^%DTC	ENQOP+1
^%ZIS	PSGOEPO+7
^%ZISC	LAST+1
^DIK	PO+3
^PSGLPI	PO+1
$$ENDTC^PSGMI	OPRT+2
$$ENDTC2^PSGMI	ENQOP+1, PO+1
$$ENSET^PSGSICHK	OPRT+4
ENTSK^PSGTI	PSGOEPO+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"NURSE: Remove one copy and send to Pharmacy.",!!!!!,LN1,!?1,"VA FORM 10-1158",?21,"PROVIDER'S MEDICATION ORDERS",?53,"Printed: ",PSGOEPOD,!,LN1 Line Location: HEADER+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+3
Function Call: WRITE	Prompt: !!?2,"NURSE: Remove one copy and send to Pharmacy.",!!!!!,LN1,!?1,"",?21,"PROVIDER'S MEDICATION ORDERS",?53,"Printed: ",PSGOEPOD,!,LN1 Line Location: HEADER+3
Function Call: WRITE	Prompt: !?3,"\|Date/\|",?33,"ORDERS",?58,"\| \| Nurse's",!,"No.\|Time \|Action",?19,"Check here if NO SUBSTITUTE allowed. ->",?58,"\| \| Signature",!,LN1 Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$J(OCNT,3),"\|",$E(OD,1,5),"\|",$S(PSGOEPOA="C":"DC ",PSGOEPOA="R":"RNW",PSGOEPOA="W":"NEW",1:"???"),"\|",ND1,?58-$L(ST),ST,?58,"\| \|" Line Location: OPRT+5
Function Call: WRITE	Prompt: !?3,"\| \| \|",?58-$L(AD),AD,"\| \|" Line Location: OPRT+7
Function Call: WRITE	Prompt: !?3,"\| \| \|" Line Location: OPRT+8
Function Call: WRITE	Prompt: ?58,"\| \|",!?3,"\| \| \|" Condition for execution: $X+$L(QQ)>57 Line Location: OPRT+8
Function Call: WRITE	Prompt: QQ," " Line Location: OPRT+8
Function Call: WRITE	Prompt: ?58,"\| \|" Condition for execution: ND6]"" Line Location: OPRT+9
Function Call: WRITE	Prompt: !,LN1 Line Location: OPRT+9
Function Call: WRITE	Prompt: ! Line Location: BTM+1
Function Call: WRITE	Prompt: !?25,"_______________",?45,"______________________________",!?25,"Date AND Time",?45,TITLE,!! Line Location: BTM+2
Function Call: WRITE	Prompt: ?36,"THIS PATIENT'S ORDERS CONTINUE ON NEXT PAGE" Line Location: BTM+2
Function Call: WRITE	Prompt: !,LN1,!?1,PSGLPN,?36,"Ward: ",PSGLWDN,!?7,"PID: ",PSGLSSN,?32,"Room-Bed: ",PSGLRB,?59,"Admitted: ",PSGLAD,!?7,"DOB: ",PSGLDOB," (",PSGLAGE,")",?37,"Sex: ",PSGLSEX Line Location: BTM+3
Function Call: WRITE	Prompt: ?56,"Last Transfer: ",PSGLTD Line Location: BTM+3
Routine Call	%ZIS Line Location: PSGOEPO+7

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.3 - [#50.3]	OPRT+3
^PS(51.2 - [#51.2]	OPRT+3
^PS(53.44 - [#53.44]	ENQOP+2, PO+2
^PS(55 - [#55]	PO+1
^VA(200 - [#200]	ENQOP+1

Name	Field # of Occurrence
^(	ENQOP+2, OPRT+1
^(0	PO+2, OPRT+3
^(2	OPRT+1
^(6	OPRT+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENQOP+1
%ZIS	PSGOEPO+7!*
AD	DONE+1!, OPRT+2*, OPRT+7
DA	PO+3*, DONE+1!
DA(1	PO+3*
DIK	PO+3*, DONE+1!
DO	DONE+1!, OPRT+2*, OPRT+6
DUZ	ENQOP+1, ENQOP+2, PO+2, PO+3
FD	DONE+1!, OPRT+2*
IO	PSGOEPO+7, ENQOP+1
IO("Q"	PSGOEPO+7!
IO(0	PSGOEPO+7
IOF	LAST+1, HEADER+3
IOP	PSGOEPO+7*!
IOSL	OPRT+5, BTM+1
LN1	ENQOP+1*, DONE+1!, HEADER+3, HEADER+4, OPRT+9, BTM+3
MORE	PO+1, LAST+1, DONE+1!, BTM+2
MR	DONE+1!, OPRT+2, OPRT+3, OPRT+6
ND	DONE+1!, OPRT+1, OPRT+2, OPRT+6
ND1	DONE+1!, OPRT+1, OPRT+2, OPRT+3*, OPRT+5
ND2	DONE+1!, OPRT+1, OPRT+2, OPRT+6
ND6	DONE+1!, OPRT+1, OPRT+4, OPRT+8, OPRT+9
OCNT	PO+1, DONE+1!, OPRT+5
OD	DONE+1!, OPRT+1*, OPRT+5, OPRT+6
PSGID	DONE+1!
>> PSGLAD	BTM+3
>> PSGLAGE	BTM+3
>> PSGLDOB	BTM+3
>> PSGLPN	BTM+3
>> PSGLRB	BTM+3
>> PSGLSEX	BTM+3
>> PSGLSSN	BTM+3
>> PSGLTD	PO+1*, BTM+3
>> PSGLWDN	BTM+3
PSGOD	DONE+1!
>> PSGOE	PO+2*
PSGOEPO	PO+2*, DONE+1!
>> PSGOEPOA	PO+1, PO+2, OPRT+5, OPRT+6
PSGOEPOD	ENQOP+1*, DONE+1!, HEADER+3
PSGOEPOF	PSGOEPO+8, ENQOP+2, ENQOP+3, PO+3, DONE+1!
>> PSGOP	ENQOP+2*, PO+1, PO+2, PO+3, OPRT+1
PSGORD	PO+2, DONE+1!, OPRT+1
>> PSGTID	PSGOEPO+8*
>> PSGTIR	PSGOEPO+8*
>> PSJSYSO	PSGOEPO+7
>> Q	OPRT+8, BTM+1
>> QQ	OPRT+8*
SD	DONE+1!, OPRT+2*
ST	DONE+1!, OPRT+2*, OPRT+5
>> TITLE	ENQOP+1*, BTM+2
>> X	PO+1, OPRT+2
>> ZTDESC	PSGOEPO+8*
ZTSAVE	PSGOEPO+7!
ZTSAVE("PSGOEPOF"	PSGOEPO+8*
ZTSAVE("PSGOP"	PSGOEPO+8*
ZTSAVE("PSJSYSU"	PSGOEPO+8*
ZTSK	PSGOEPO+8!

Customize PDF page

Package: Inpatient Medications

Routine: PSGOEPO

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
BTM	LAST+1, OPRT+5
DONE	PSGOEPO+8
ENQOP	PSGOEPO+7
HEADER	PO+1, OPRT+5
LAST	ENQOP+3
OPRT	PO+2
PO	ENQOP+2