Routine: PSGOE91

Package	Total	Call Graph
Inpatient Medications	9	($$ENDL,ENE,ENPREV)^PSGDL ($$ENDD,$$ENDTC)^PSGMI ENFF^PSGOE92 (ENFF,ENHLP)^PSGOEM ($$ODD,ENCHK)^PSGS0 ^PSGSICHK CMPLX^PSJCOM1 $$COMPLEX^PSJOE ($$ENBCMA,EFDACT)^PSJUTL
VA Fileman	4	^%DT C^%DTC YN^DICN ^DIR
Registration	1	(FULL,PAUSE)^VALM1

Entry Points

Name	Comments	DBIA/ICR reference
10	; start date/time
A10	;
A34	;
A41
41	; admin times
DEL	; delete entry
DONE	;
W34
FF	; up-arrow to another field
8	; special instructions
A8
34	; stop date

External References

Name	Field # of Occurrence
^%DT	A10+9, A34+9
C^%DTC	A10+9
YN^DICN	DEL+1
^DIR	A8+3
$$ENDL^PSGDL	A34+8
ENE^PSGDL	A34+8
ENPREV^PSGDL	A10+6
$$ENDD^PSGMI	A10+6, A10+11, A34+9
$$ENDTC^PSGMI	A10+6, A10+11, A34+9
ENFF^PSGOE92	A41+4, A8+4, A8+12, A10+8, A34+6
ENFF^PSGOEM	FF+1
ENHLP^PSGOEM	A41+6, A41+8, A41+9, A8+5, A8+13, A8+15, A8+16, A10+7, A10+9, A34+7
$$ODD^PSGS0	41+2
ENCHK^PSGS0	A41+9
^PSGSICHK	A8+16
CMPLX^PSJCOM1	A8+2
$$COMPLEX^PSJOE	A41, A8, A10+1, A34+2
$$ENBCMA^PSJUTL	A8+8
EFDACT^PSJUTL	DONE+2
FULL^VALM1	A8+2
PAUSE^VALM1	A41+1, A10+2, A34+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"ADMIN TIMES may not be edited for active complex orders." Line Location: A41+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: A41+2
Function Call: WRITE	Prompt: !,"ADMIN TIMES: "_$S(PSGAT:PSGAT_"// ",1:"") Line Location: A41+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A41+9
Function Call: WRITE	Prompt: !!?5,"This order is part of a complex order. Please review the following ",!?5,"associated orders before changing this order." Line Location: A8+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A8+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: A8+10
Function Call: WRITE	Prompt: !,"SPECIAL INSTRUCTIONS: "_$S(PSGSI]"":PSGSI_"// ",1:"") Line Location: A8+10
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A8+13
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: A8+16
Function Call: WRITE	Prompt: !!?5,"Start Date/Time may not be edited for active complex orders." Line Location: A10+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: A10+4
Function Call: WRITE	Prompt: !,"START DATE/TIME: "_$S($P(PSGSDN,"^")]"":$P(PSGSDN,"^")_"// ",1:"") Line Location: A10+4
Function Call: WRITE	Prompt: " "_PSGSDN Line Location: A10+5
Function Call: WRITE	Prompt: A10 Condition for execution: '$D(X) $C(7) G:'$D(X) Line Location: A10+6
Function Call: WRITE	Prompt: " ",$P(PSGSDN,"^") Line Location: A10+6
Function Call: WRITE	Prompt: $C(7),!?5,"* THE START DATE CANNOT BE AFTER THE STOP DATE! *",! Line Location: A10+10
Function Call: WRITE	Prompt: !!?5,"Stop Date/Time may not be edited for active complex orders." Line Location: A34+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: A34+4
Function Call: WRITE	Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"") Line Location: A34+4
Function Call: WRITE	Prompt: " "_$P(PSGFDN,"^") Line Location: A34+5
Function Call: WRITE	Prompt: " ...dose limit..." Line Location: A34+8
Function Call: WRITE	Prompt: $C(7),!!?13,"* WARNING! THE STOP DATE ENTERED IS IN THE PAST! *",! Line Location: W34+0
Function Call: WRITE	Prompt: $C(7)," <NOTHING DELETED>" Line Location: DEL+1
Routine Call	DIR Line Location: A8+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	A8+1
^PS(55 - [#55]	A8+1

Label References

Name	Line Occurrences
@(	A41+4, A8+4, A8+12, A10+8, A34+6, DONE+3
A10	A10+6, A10+8, A10+9, A10+10
A34	A34+6, A34+8, A34+9
A41	A41+4, A41+5, A41+7, A41+8, A41+9
A8	A8+4, A8+5, A8+6, A8+12, A8+13, A8+14, A8+15, A8+16
DEL	A41+7, A8+6, A8+14
DONE	41+2, A41, A41+2, A41+3, A41+7, A41+10, A8+3, A8+6, A8+7, A8+8 , A8+10, A8+11, A8+14, A8+17, A10+1, A10+4, A10+5, A10+6, A10+11, A34+2 , A34+4
W34	A34+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A41+7, A8+6, A8+14, DEL+1*
%DT	A10+9!, A34+9!
%DT(0	A10+9, A34+9
>> BACK	41+1, 8+1, 10+1, 34+1, DONE+3
DIR	A8+3~
DIR("??"	A8+3*
DIR("A"	A8+3*
DIR("B"	A8+3*
DIR(0	A8+3*
DTIME	A41+2, A8+10, A10+4, A34+4
>> DTOUT	A8+3
>> DUOUT	A8+3
F	DONE+4!
F0	DONE+4!
F1	DONE+4!
F3	DONE+4!
>> FB	FF+1*
>> MSG	41+1, 8+1, 10+1, A10+10, 34+1, W34
P2ND	A8+1~*
PARENT	A8+1~*, A8+2
PSG	DONE+4!
>> PSGAT	A41+2, A41+5, A41+7, A41+10
>> PSGDL	A34+8*
PSGDLS	A34+8!
>> PSGDT	A10+9, W34
PSGF2	41+1, 8+1, 10+1, 34+1, DONE+3, DONE+4!, FF+1
>> PSGFD	A10+10, A34+5, A34+9*, W34
>> PSGFDN	A34+4, A34+5, A34+9*
PSGFDX	A34+1!, A34+9*
>> PSGOEE	A41, A41+2, A8+3, A8+10, A10+1, A10+4, A34+2, A34+4, DONE+3*
>> PSGOEEF(	41+1, 8+1, 10+1, 34+1, DONE+3
>> PSGORD	A8, A8+1, A8+2
>> PSGP	A41, A8, A8+1, A8+2, A10+1, A34+2
>> PSGS0XT	41+2, A41+5, A41+6
>> PSGS0Y	A41+10*
>> PSGSCH	A41+5, A41+6, A34+8
>> PSGSD	A10+5, A10+6, A10+11, A34+9
>> PSGSDN	A10+4, A10+5, A10+6, A10+11
PSGSDX	A10+3!, A10+11*
>> PSGSI	A8+3, A8+5, A8+6, A8+7, A8+8, A8+10, A8+11, A8+13, A8+14, A8+17
>> PSGST	A41+5
>> PSJORD	A41, A10+1, A34+2
SDT	DONE+4!
TMPX	A10+9~*
U	A8+4
X	A41+2, A41+3, A41+4, A41+5, A41+6, A41+7, A41+8, A41+9, A41+10, A8+1~ , A8+4, A8+5, A8+6, A8+10, A8+11, A8+12, A8+13, A8+14, A8+15, A8+16 , A8+17, A10+4, A10+5, A10+6, A10+7, A10+8, A10+9, A34+4, A34+5, A34+6 , A34+7*, A34+8
>> X1	A10+9*
>> X2	A10+9*
Y	A41+4, A8+1~, A8+4, A8+7, A8+8, A8+12, A10+8, A10+9, A10+10, A10+11 , A34+6, A34+9, FF+1*

Customize PDF page

Package: Inpatient Medications

Routine: PSGOE91

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: