Routine: PSGOE41

Package	Total	Call Graph
Inpatient Medications	11	($$ENDL,EN1,ENPREV)^PSGDL ($$ENDD,$$ENDTC)^PSGMI (,ENFD)^PSGNE3 (1,IND)^PSGOE42 (DURHLP,ENFF,ENHLP)^PSGOEM ($$ODD,ENCHK)^PSGS0 $$EDITSI^PSJBCMA5 ($$ISCLOZ,CLOZPAT)^PSJCLOZ $$ENOSD^PSJDCU $$ENQ^PSJORP2 ($$ENBCMA,EFDNEW)^PSJUTL
VA FileMan	7	^%DT (,C)^%DTC EN^DDIOL $$FIND1^DIC YN^DICN $$GET1^DIQ ^DIR
Kernel	1	$$FMADD^XLFDT
List Manager	1	WAIT^VALM1
Mental Health	1	$$OVERRIDE^YSCLTST2

Package	Total	Caller Graph
Inpatient Medications	2	PSGOE3 PSGOE4

Name	Comments	DBIA/ICR reference
39	; admin times
8	; special instructions
132	;*399-IND
10	; start date/time
A10	; start date/time edit
O25	;
25	; stop date
A25	;
A255	;
W25	;
NEXT	;
DONE	;
FF	; up-arrow to another field
DEL	; delete entry
TIMES
DOSE	;Make certain at least one dose is given.
PSGDUR	; Prompt for Removal times if admin times are on 24hr rotations and Site Params are enabled. ; check parameter files for removal criteria quit if removal rotation not enabled (<2) ; if enabled determine type (hard vers soft stop)
VERTIMES	; Redisplay Admin and Removal times
WRITE	;
ASK	;

Name	Field # of Occurrence
^%DT	A10+7, A25+6
^%DTC	A25+8
C^%DTC	A10+7, A10+9, 25+16, 25+25
EN^DDIOL	25+47, PSGDUR+42
$$FIND1^DIC	25+29, 25+30
YN^DICN	DEL+1
$$GET1^DIQ	25+18, 25+28, 25+30, NEXT+1, PSGDUR+9, PSGDUR+15, VERTIMES+1
^DIR	ASK+2
$$ENDL^PSGDL	A25+5
EN1^PSGDL	A25+5
ENPREV^PSGDL	A10+4
$$ENDD^PSGMI	10+1, 10+3, A10+4, A10+11, O25+1, 25+11, 25+12, 25+16, 25+19, 25+25 , A25+16, A255+2
$$ENDTC^PSGMI	A25+16
^PSGNE3	10+2
ENFD^PSGNE3	25+2
1^PSGOE42	NEXT+2
IND^PSGOE42	132+2
DURHLP^PSGOEM	PSGDUR+17
ENFF^PSGOEM	FF+1
ENHLP^PSGOEM	39+6, 39+10, 8+3, 8+5, A10+5, A10+7, A25+4
$$ODD^PSGS0	39+2
ENCHK^PSGS0	39+14
$$EDITSI^PSJBCMA5	8+1
$$ISCLOZ^PSJCLOZ	25+5
CLOZPAT^PSJCLOZ	25+21
$$ENOSD^PSJDCU	O25+1
$$ENQ^PSJORP2	DOSE+5
$$ENBCMA^PSJUTL	8+7
EFDNEW^PSJUTL	W25+6
WAIT^VALM1	A10+10
$$FMADD^XLFDT	25+11, 25+19
$$OVERRIDE^YSCLTST2	25+13

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: 39+3
Function Call: WRITE	Prompt: !,"ADMIN TIMES: "_$S(PSGS0Y:PSGS0Y_"// ",1:"") Line Location: 39+3
Function Call: WRITE	Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times." Line Location: 39+10
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: 39+14
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: 8+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: A10+2
Function Call: WRITE	Prompt: !,"START DATE/TIME: "_PSGSD_"// " Line Location: A10+2
Function Call: WRITE	Prompt: " "_PSGSD Line Location: A10+3
Function Call: WRITE	Prompt: A10 Condition for execution: '$D(X) $C(7) G:'$D(X) Line Location: A10+4
Function Call: WRITE	Prompt: " ",PSGSD Line Location: A10+4
Function Call: WRITE	Prompt: !!,$C(7),"Start date/time should not be entered for more than 7 days after the",!,"order's LOGIN DATE.",! Line Location: A10+10
Function Call: READ	Variable: X Timeout: DTIME Line Location: A25+1
Function Call: WRITE	Prompt: !,"STOP DATE/TIME: "_$S(PSGFD]"":PSGFD_"// ",1:"") Line Location: A25+1
Function Call: WRITE	Prompt: " "_PSGFD Line Location: A25+2
Function Call: WRITE	Prompt: " ...dose limit..." Line Location: A25+5
Function Call: WRITE	Prompt: $C(7),!!?13,"* WARNING! INVALID STOP DATE OR PRIOR TO START DATE! *",! Line Location: A25+6
Function Call: WRITE	Prompt: $C(7),!!?13,"* STOP DATE cannot be more than 367 days from START DATE *",! Line Location: A25+9
Function Call: WRITE	Prompt: !!,"* STOP DATE/TIME NOT TO EXCEED "_X2_" DAYS! *",! Line Location: A25+15
Function Call: WRITE	Prompt: $C(7),!!?13,"* WARNING! THE STOP DATE ENTERED IS IN THE PAST! *",! Line Location: W25+5
Function Call: WRITE	Prompt: $C(7)," ...order not entered..." Line Location: DONE+1
Function Call: WRITE	Prompt: $C(7)," <NOTHING DELETED>" Line Location: DEL+1
Function Call: WRITE	Prompt: !,"This order requires at least one administration time." Line Location: TIMES+1
Function Call: WRITE	Prompt: !,"This is a One Time Order - only one admin time is permitted." Line Location: TIMES+4
Function Call: WRITE	Prompt: !,"ADMIN TIMES must be entered in a 2 or 4 digit numeric format" Line Location: TIMES+10
Function Call: WRITE	Prompt: !,"All ADMIN TIMES must be the same 2 or 4 digit numeric format" Line Location: TIMES+13
Function Call: WRITE	Prompt: !,"(i.e. 09-13 or 0900-1300)" Line Location: TIMES+13
Function Call: WRITE	Prompt: !,"This order requires one admin time." Line Location: TIMES+16
Function Call: WRITE	Prompt: !,"The number of admin times entered is greater than indicated by the schedule." Line Location: TIMES+17
Function Call: WRITE	Prompt: !,"The number of admin times entered is fewer than indicated by the schedule." Line Location: TIMES+18
Function Call: READ	Variable: RP Timeout: DTIME Line Location: PSGDUR+13
Function Call: WRITE	Prompt: !,"DURATION OF ADMINISTRATION (HRS): "_$S($G(RP):RP_"// ",1:"") Line Location: PSGDUR+13
Function Call: WRITE	Prompt: !,"DURATION OF ADMINISTRATION MATCHES OR EXCEEDS ORDER FREQUENCY" Line Location: PSGDUR+21
Function Call: WRITE	Prompt: !,"ENTRY IS REQUIRED" Line Location: PSGDUR+24
Function Call: WRITE	Prompt: !!,"Verify Admin and removal times",! Line Location: WRITE+1
Function Call: WRITE	Prompt: !,"(A)DMINISTRATION -(R)EMOVAL TIMES" Line Location: WRITE+2
Function Call: WRITE	Prompt: !,"___________________________________________________________________________",! Line Location: WRITE+3
Routine Call	DIC Line Location: 25+29 25+30
Routine Call	DIR Line Location: ASK+2

FileNo	Call Tags
^PS(50.7 - [#50.7]	GET1^DIQ
^PS(51.1 - [#51.1]	FIND1^DIC, GET1^DIQ
^PS(53.1 - [#53.1]	GET1^DIQ
^PS(55 - [#55]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	TIMES+3
^PS(53.45 - [#53.45]	8+6
^PS(59.6 - [#59.6]	25+9, 25+10

Name	Line Occurrences
10	8+4
132	132+3
39	39+6, 39+7, 39+8, 39+9, 39+12, 39+14, ASK+3
8	39+1, 39+2, 39+5, 39+13, 8+2, 8+3, 8+4, 8+5, PSGDUR+14
@(	39+8, 8+2, 132+3, A10+6, A25+3, PSGDUR+18
A10	10+1, A10+4, A10+6, A10+7
A25	A25+3, A25+5, A25+6, A25+9, A25+11, A255+1, W25+2
ASK	WRITE+5
DEL	39+7, 8+4, PSGDUR+15
DONE	39+3, 39+12, 132+2, A10+2, A25+1, ASK+2
DOSE	W25+2
FF	39+8, 8+2, 132+3, A10+6, A25+3, PSGDUR+18
O25	A10+3, A10+4
PSGDUR	39+2, 39+12, PSGDUR+15, PSGDUR+17, PSGDUR+18, PSGDUR+19, PSGDUR+24
TIMES	39+12
VERTIMES	W25+7
W25	A25+2
WRITE	VERTIMES+10, VERTIMES+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	39+7, 8+4, DEL+1*, PSGDUR+15
%DT	A10+7!, A25+6!
%DT(0	A10+7, A25+6
>> ANQDATA	25+15
BKY	132+1~*, 132+2
CHK	TIMES+12~, TIMES+13*
CLOZFLG	25+4~, 25+5*, A25+11
CLOZPAT	25+4~, 25+22, 25+24, A25+12
DIR	A10+10!
DIR("A"	ASK+2*
DIR(0	ASK+2*
DTIME	39+3, A10+2, A25+1, PSGDUR+13
>> DTOUT	ASK+2
>> DUOUT	ASK+2
F	DONE+2!, PSGDUR+32~
F(	PSGDUR+36*, PSGDUR+37
F0	DONE+2!
F1	DONE+2!
F3	DONE+2!
>> FB	FF+3*
H	TIMES+2~, TIMES+3*
I	TIMES+2~, TIMES+3*, TIMES+6, TIMES+14
IEN	25+9~*, 25+10
INFO	DOSE+2~, DOSE+3*, DOSE+5
L	VERTIMES+5~, VERTIMES+6, VERTIMES+8, VERTIMES+9, VERTIMES+14~, VERTIMES+16, VERTIMES+19, VERTIMES+21
LEN	TIMES+12~*, TIMES+13
MAX	TIMES+2~, TIMES+14*, TIMES+15, TIMES+17, TIMES+18
MSG	25+28~, 25+47
MSG(1	25+33, 25+37, 25+43*
MSG(2	25+34, 25+38, 25+44*
MSG(3	25+35, 25+39, 25+45*
MSG(4	25+40*
MSG(5	25+41*
P	PSGDUR+32~, PSGDUR+35, PSGDUR+36, PSGDUR+37, VERTIMES+14~, VERTIMES+15, VERTIMES+16, VERTIMES+18, VERTIMES+19, VERTIMES+20 , VERTIMES+21, WRITE+4, ASK+4~, ASK+5*, ASK+6
PSG	DONE+2!
PSGAARR	NEXT+2, VERTIMES+2~, VERTIMES+6, VERTIMES+13, WRITE+4
PSGAARR(	VERTIMES+20, VERTIMES+21, WRITE+4
PSGAARR(1	VERTIMES+9*
PSGADT	PSGDUR+33, PSGDUR+34, PSGDUR+36, VERTIMES+2~, VERTIMES+6, VERTIMES+7, VERTIMES+9, VERTIMES+16, VERTIMES+17, VERTIMES+18 , VERTIMES+20
PSGARR	PSGDUR+32~, PSGDUR+34*, PSGDUR+35
PSGARR(	PSGDUR+36*
>> PSGAT	39+5, 39+13, 39+15, PSGDUR+14, PSGDUR+33*, VERTIMES+4, VERTIMES+13, VERTIMES+16
PSGCFLG	25+4~, 25+13, 25+14, 25+26, A25+11, A25+14, A255+1
PSGCLOZ	DONE+2!
PSGDERR	PSGDUR+11~, PSGDUR+21, PSGDUR+23
>> PSGDL	A25+5*
PSGDLS	A25+5!
>> PSGDRG	25+5, DOSE+3
>> PSGDT	A10+7, A10+9, 25+2, W25+5
PSGDUR	39+3, W25+7, PSGDUR+11, PSGDUR+15, PSGDUR+20, PSGDUR+21!, PSGDUR+33, PSGDUR+40, PSGDUR+43, VERTIMES+4 , VERTIMES+7, VERTIMES+18, ASK+2!, ASK+3*
PSGEMRG	25+4~, 25+20*, 25+22, A25+13, A255+3!, DONE+2!
PSGF2	39+8, 8+2, A10+5, A25+3, DONE+2!, FF+3, PSGDUR+12*
>> PSGFD	A10+11, O25+1, 25+2, 25+11, 25+12, 25+16, 25+17, 25+19, 25+20, 25+25 , 25+26, 25+32, A25+1, A25+2, A25+16, A255+2*
>> PSGFDN	A25+16*
>> PSGFDX	A25+16*
>> PSGFOK(10	O25+1*
>> PSGFOK(25	A25+2, A255+2
>> PSGFOK(39	39+7, 39+13, 39+15, PSGDUR+13!, PSGDUR+15
>> PSGFOK(8	8+4, 8+7
PSGIDF	PSGDUR+11~*, PSGDUR+19, PSGDUR+31
>> PSGNEDFD	39+1, O25+1
>> PSGNEFD	A10+11, O25+1, 25+2, 25+11, 25+12, 25+16, 25+17, 25+19, 25+20, 25+25* , 25+26, 25+32, A25+2, A25+14, A25+16, A255+2*, W25+2, W25+5, DOSE+3
>> PSGNEFDO	25+2
>> PSGNEFDOLD	25+17, 25+20, 25+26*
>> PSGNESD	10+1, 10+3, A10+3, A10+4, A10+11*, O25+1, 25+11, 25+16, 25+19, 25+24 , A25+6, A25+8, DOSE+3, VERTIMES+4, VERTIMES+6
>> PSGNESDO	10+1, 10+3
>> PSGNOHI	39+4*
>> PSGOE3	8+4, 8+8, 25+1, PSGDUR+43
>> PSGOEE	132+1, 132+2, ASK+2*
>> PSGOLDED	25+17, 25+20, 25+26*
>> PSGORD	8+1, PSGDUR+15
>> PSGOROE1	39+3, 132+2, A10+2, A25+1, W25+7, DONE+1, PSGDUR+13
>> PSGOVRD	25+13*
PSGP	8+1, O25+1, 25+13, 25+18, DOSE+4~*, DOSE+5
>> PSGPDRG	132+2, 25+28, NEXT+1, PSGDUR+9, VERTIMES+1
PSGRARR	VERTIMES+2~, VERTIMES+6, VERTIMES+13, VERTIMES+15
PSGRARR(	VERTIMES+18, VERTIMES+19, WRITE+4, ASK+4, ASK+5, ASK+6
PSGRARR(1	VERTIMES+7, VERTIMES+8
>> PSGRF	25+28, 25+29, 25+32, 25+33, 25+37, 25+43, NEXT+1, PSGDUR+9, PSGDUR+15, PSGDUR+17 , PSGDUR+24, PSGDUR+25, VERTIMES+1
PSGRMV	PSGDUR+14, PSGDUR+15, PSGDUR+19!, PSGDUR+20, PSGDUR+21, PSGDUR+29
>> PSGRMVT	PSGDUR+15, ASK+4, ASK+6*
>> PSGS0XT	39+2, 39+5, 39+9, 39+12, 39+13, TIMES+1, PSGDUR+10, PSGDUR+14, PSGDUR+20, VERTIMES+4
>> PSGS0Y	39+3, 39+4, 39+5, 39+7, 39+13, 39+15, DOSE+3, PSGDUR+15*, PSGDUR+33, VERTIMES+4 , VERTIMES+13, VERTIMES+16
>> PSGSCH	39+5, 25+29, 25+30, A25+5, TIMES+3, DOSE+3, PSGDUR+11, PSGDUR+14
>> PSGSD	10+1, 10+3, A10+2, A10+3, A10+4, A10+11
>> PSGSDEDT	A10+1*
>> PSGSI	8+1, 8+3, 8+4, 8+6, 8+7
>> PSGST	39+9, 25+8, 25+28, 25+30*, TIMES+4, TIMES+5, DOSE+1, DOSE+3, PSGDUR+9, VERTIMES+1
PSGTDTD	25+4~, 25+17*, 25+22, A25+13, A255+3!
PSGTMPST	25+28~*, 25+30, 25+32
>> PSJCLAPP	10+1
>> PSJPWD	25+8, 25+9
>> PSJSYSP	8+6
>> PSJSYSW0	O25+1
RP	PSGDUR+11~, PSGDUR+13, PSGDUR+14, PSGDUR+15, PSGDUR+16, PSGDUR+17, PSGDUR+18, PSGDUR+19, PSGDUR+20, PSGDUR+21 , PSGDUR+24, PSGDUR+25, PSGDUR+29, PSGDUR+31, PSGDUR+37, PSGDUR+40, PSGDUR+41
SDT	DONE+2!
TMPX	A10+7~*
TOT	TIMES+12~, TIMES+13*
U	25+6, 25+10, FF+3, DOSE+3, PSGDUR+37, PSGDUR+42, VERTIMES+6
WMSG	PSGDUR+11~, PSGDUR+37*, PSGDUR+42
WMSG(1	PSGDUR+37*, PSGDUR+42
WRDPDYS	25+4~, 25+6~, 25+10, 25+11
X	39+3, 39+4, 39+5, 39+6, 39+7, 39+8, 39+9, 39+10, 39+12, 39+13 , 39+14, 39+15, 8+2, 8+3, 8+4, 8+5, 132+3, A10+2, A10+3, A10+4 , A10+5, A10+6, A10+7, A10+10, 25+12, 25+16~, 25+19~, 25+23~, 25+25, A25+1* , A25+2, A25+3, A25+4, A25+5, A25+9, TIMES+1!, TIMES+4!, TIMES+8, TIMES+9, TIMES+10! , TIMES+12, TIMES+13!, TIMES+16!, TIMES+17!, TIMES+18!, DOSE+2~, PSGDUR+13, PSGDUR+33, ASK+3!
X1	A10+7, A10+9, 25+16~, 25+23~, 25+24, A25+8*
X2	A10+7, A10+9, 25+16~, 25+23~, 25+24, A25+8, A25+12~, A25+13*, A25+15
X3	25+16~*
Y	39+8, 8+2, 132+1, 132+2, 132+3, A10+6, A10+7, A10+10, A10+11, A25+3 , A25+6, A25+8, A25+14, A25+16, A255+2, DONE+1!, FF+2, FF+3*, PSGDUR+18, ASK+1~ , ASK+3
Z	W25+1~, W25+2, DOSE+3, DOSE+5

Customize PDF page

Package: Inpatient Medications

Routine: PSGOE41

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: