Routine: PSGOE81

Information

PSGOE81 ;BIR/CML - NON-VERIFIED ORDER EDIT (CONT.) ;May 03, 2023@17:45

Package	Total	Call Graph
Inpatient Medications	11	($$ENDL,ENE,ENPREV)^PSGDL ($$ENDD,$$ENDTC,$$ENDTC2)^PSGMI ENFF^PSGOE82 (DURHLP,ENFF,ENHLP)^PSGOEM ($$ODD,$$PRNOK,ENCHK)^PSGS0 ($$DIFFSI,$$EDITSI)^PSJBCMA5 ($$ISCLOZ,CLOZPAT)^PSJCLOZ ($$DURMIN,$$GETDUR)^PSJLIVMD $$LASTREN^PSJLMPRI $$ENQ^PSJORP2 ($$ENBCMA,EFDNV)^PSJUTL
VA FileMan	7	^%DT (,C)^%DTC EN^DDIOL $$FIND1^DIC YN^DICN $$GET1^DIQ ^DIR
Kernel	1	($$FMADD,$$HTFM)^XLFDT
List Manager	1	(PAUSE,WAIT)^VALM1

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: 3

Package	Total	Caller Graph
Inpatient Medications	3	PSGOE8 PSJCLOR4 PSJUTL

Entry Points

Name	Comments	DBIA/ICR reference
39	; admin times
A39	;*315 next 2 lines
8	; special instructions
A8	; special instructions
10	; start date/time edit
A10	; start date/time edit
25	; stop date
A25	;
A255
W25	;
DONE	;
FF	; up-arrow to another field
DEL	; delete entry
TIMES	;At least one admin time, not more than interval allows.
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	;

External References

Name	Field # of Occurrence
^%DT	A10+13, A25+37
^%DTC	A10+19, A25+39, A25+47, A255+5
C^%DTC	A10+12, A10+17, A25+51
EN^DDIOL	A25+27, W25+5, TIMES+1, TIMES+4, TIMES+15, TIMES+16, TIMES+17, PSGDUR+43
$$FIND1^DIC	A25+9, A25+10
YN^DICN	DEL+1
$$GET1^DIQ	A10+24, A25+8, A25+10, A25+45, DONE+6, PSGDUR+9, PSGDUR+16, VERTIMES+1
^DIR	ASK+3
$$ENDL^PSGDL	A25+36
ENE^PSGDL	A25+36
ENPREV^PSGDL	A10+7
$$ENDD^PSGMI	A10+8, A10+32, A10+35, A25+42, A25+52, A255+10
$$ENDTC^PSGMI	A10+8, A255+10
$$ENDTC2^PSGMI	A10+32, A10+35, A25+42
ENFF^PSGOE82	A39+5, A10+11, A25+34
DURHLP^PSGOEM	PSGDUR+18
ENFF^PSGOEM	FF+1
ENHLP^PSGOEM	A39+6, A39+8, A10+10, A10+13, A25+35
$$ODD^PSGS0	A39+2, A39+10
$$PRNOK^PSGS0	A39+1, A39+10, TIMES+1
ENCHK^PSGS0	A39+15
$$DIFFSI^PSJBCMA5	A8+1
$$EDITSI^PSJBCMA5	A8+1
$$ISCLOZ^PSJCLOZ	A10+20, A10+21, A25+3, A25+4
CLOZPAT^PSJCLOZ	A10+28, A25+5
$$DURMIN^PSJLIVMD	A10+33
$$GETDUR^PSJLIVMD	A10+33
$$LASTREN^PSJLMPRI	A10+3
$$ENQ^PSJORP2	DOSE+5
$$ENBCMA^PSJUTL	A8+3
EFDNV^PSJUTL	DONE+2
PAUSE^VALM1	A10+4
WAIT^VALM1	A10+18
$$FMADD^XLFDT	A10+35
$$HTFM^XLFDT	A10+24, A25+46

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: A39+3
Function Call: WRITE	Prompt: !,"ADMIN TIMES: "_$S(PSGAT:PSGAT_"// ",1:"") Line Location: A39+3
Function Call: WRITE	Prompt: !,"This is a 'DAY OF THE WEEK' schedule and MUST have admin times." Line Location: A39+8
Function Call: WRITE	Prompt: $C(7) Line Location: A39+15
Function Call: READ	Variable: X Timeout: DTIME Line Location: A10+5
Function Call: WRITE	Prompt: !,"START DATE/TIME: "_$S($P(PSGSDN,"^")]"":$P(PSGSDN,"^")_"// ",1:"") Line Location: A10+5
Function Call: WRITE	Prompt: " "_$P(PSGSDN,"^") Line Location: A10+6
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+18
Function Call: WRITE	Prompt: !!,"* SUPPLY PERIOD NOT TO EXCEED "_X2_" DAYS! *",! Line Location: A10+30
Function Call: READ	Variable: X Timeout: DTIME Line Location: A25+32
Function Call: WRITE	Prompt: !,"STOP DATE/TIME: "_$S($P(PSGFDN,"^")]"":$P(PSGFDN,"^")_"// ",1:"") Line Location: A25+32
Function Call: WRITE	Prompt: " ...dose limit..." Line Location: A25+36
Function Call: WRITE	Prompt: $C(7),!!?13,"* WARNING! INVALID STOP DATE OR PRIOR TO START DATE! *",! Line Location: A25+37
Function Call: WRITE	Prompt: $C(7),!!?13,"* STOP DATE cannot be more than 367 days from START DATE *",! Line Location: A25+40
Function Call: WRITE	Prompt: !!,"* STOP DATE/TIME NOT TO EXCEED "_X2_" DAYS! *",! Line Location: A255+6
Function Call: WRITE	Prompt: $C(7),!!?13,"* WARNING! THE STOP DATE ENTERED IS IN THE PAST! *",! Line Location: W25+6
Function Call: WRITE	Prompt: $C(7)," <NOTHING DELETED>" Line Location: DEL+1
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: 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+22
Function Call: WRITE	Prompt: $C(7),!,"ENTRY IS REQUIRED" Line Location: PSGDUR+25
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: A25+9 A25+10
Routine Call	DIR Line Location: ASK+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	TIMES+3
^PS(53.45 - [#53.45]	A8+2
^XTMP("PSJ4D-"	A10+24, A25+46

Label References

Name	Line Occurrences
25	A39+13
8	PSGDUR+15
@(	A39+5, A10+11, A25+34, DONE+3, PSGDUR+19
A10	A10+7, A10+11, A10+13, A10+14, A10+25, A10+27
A25	A25+34, A25+36, A25+37, A25+40, A25+45, A255, W25+2
A39	A39+5, A39+6, A39+7, A39+9, A39+10, A39+15, ASK+4
ASK	WRITE+5
DEL	A39+9, PSGDUR+16
DONE	A39+1, A39+2, A39+3, A39+10, A39+11, A39+17, A8+1, A8+3, A10+5, A10+6 , A10+7, A10+36, A25+32, ASK+3
DOSE	W25+2
FF	PSGDUR+19
PSGDUR	A39+2, A39+10, PSGDUR+16, PSGDUR+18, PSGDUR+19, PSGDUR+20, PSGDUR+25
TIMES	A39+10
VERTIMES	DONE+4
WRITE	VERTIMES+10, VERTIMES+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A39+9, DEL+1*, PSGDUR+16
%DT	A10+12!, A10+13!, A25+37!
%DT(0	A10+12, A25+37
>> ANQDATA	A10+29, A255+3
>> BACK	39+2, 8+1, 10+1, 25+1, DONE+3
CHK	TIMES+12~, TIMES+13*
CLOZFLG	A10+19~, A10+20, A10+21, A10+25, A10+27, A25+2~, A25+3, A25+4, A25+5, A25+6 , A25+45, A255
CLOZPAT	A10+28~, A10+29, A25+2~, A25+5~, A255+3
>> DFN	A10+24, A25+45, A25+46
DIFF	A10+19~*, A10+25, A10+30
DIR	A10+18!, ASK+2~
DIR("A"	ASK+3*
DIR(0	ASK+3*
DTIME	A39+3, A10+5, A25+32, PSGDUR+13
>> DTOUT	ASK+3
>> DUOUT	ASK+3
DUR	A10+2~, A10+33*
DURMIN	A10+2~, A10+33*, A10+35
F	PSGDUR+33~
F(	PSGDUR+37*, PSGDUR+38
>> FB	FF+1*
H	TIMES+2~, TIMES+3*
I	TIMES+2~, TIMES+3*, TIMES+6, TIMES+14
INFO	DOSE+1~, DOSE+2*, 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+16, TIMES+17
MSG	39+2, 8+1, 10+1, A10+15, 25+1, A25+8~, A25+27, W25+1~, W25+5, W25+6
MSG(1	A25+13, A25+17, A25+23, W25+3
MSG(2	A25+14, A25+18, A25+24, W25+4
MSG(3	A25+15, A25+19, A25+25*
MSG(4	A25+20*
MSG(5	A25+21*
ORIG	39+2*, A39+3, DONE+5!
P	PSGDUR+33~, PSGDUR+36, PSGDUR+37, PSGDUR+38, VERTIMES+14~, VERTIMES+15, VERTIMES+16, VERTIMES+18, VERTIMES+19, VERTIMES+20 , VERTIMES+21, WRITE+4, ASK+5~, ASK+6*, ASK+7
PSGAARR	VERTIMES+2~, VERTIMES+6, VERTIMES+13, WRITE+4
PSGAARR(	VERTIMES+20, VERTIMES+21, WRITE+4
PSGAARR(1	VERTIMES+9*
PSGADT	PSGDUR+34, PSGDUR+35, PSGDUR+37, VERTIMES+2~, VERTIMES+6, VERTIMES+7, VERTIMES+9, VERTIMES+16, VERTIMES+17, VERTIMES+18 , VERTIMES+20
PSGARR	PSGDUR+33~, PSGDUR+35*, PSGDUR+36
PSGARR(	PSGDUR+37*
>> PSGAT	39+2, A39+3, A39+4, A39+9, A39+12, A39+16, A39+17, PSGDUR+15*, PSGDUR+34, VERTIMES+4 , VERTIMES+13, VERTIMES+16
PSGBACK	A10+19~, A10+23, A10+27, A10+30, A255~, A255+6*
PSGCFLG	A255+1~*
PSGDERR	PSGDUR+11~, PSGDUR+22, PSGDUR+24
>> PSGDL	A25+36*
PSGDLS	A25+36!
PSGDOA	39+1~, 39+2*, PSGDUR+13
PSGDRG	A10+21, A25+4, A25+5~*, DOSE+2
>> PSGDT	W25+6
PSGDUR	39+2, A39+3, DONE+4, PSGDUR+11, PSGDUR+13, PSGDUR+14, PSGDUR+16, PSGDUR+21, PSGDUR+22!, PSGDUR+34 , PSGDUR+41, VERTIMES+4, VERTIMES+7, VERTIMES+18, ASK+3!, ASK+4
PSGEMRG	A10+19~, A10+23, A10+24, A10+25, A10+27, A25+29~, A25+48*, A255, A255+7!
>> PSGF2	39+2, 8+1, 10+1, 25+1, DONE+3, FF+1, PSGDUR+12*
>> PSGFD	A10+14, A10+19, A10+35, A25+6, A25+12, A25+30, A25+31, A25+33, A25+42, A25+51* , A25+52, A255+10*, W25+6
>> PSGFDN	A10+35, A25+6, A25+12, A25+30, A25+31, A25+32, A25+33, A25+42, A25+52, A255+10
PSGFDNOLD	A25+6~*, DONE+5!
PSGFDORG	A25+30, A25+31~*
PSGFDORX	A25+30, A25+31~*
PSGFDX	A25+29!, A25+42, A255+10
PSGGTF	A25+44~, A25+45, A25+53
PSGIDF	PSGDUR+11~*, PSGDUR+20, PSGDUR+32
>> PSGLI	A10+12, A10+17
PSGMRV	PSGDUR+20!
>> PSGNEFD	A25+42, A255+10, W25+2, DOSE+2
PSGNEFDOLD	DONE+5!
>> PSGNESD	A10+32*, DOSE+2, VERTIMES+4, VERTIMES+6
>> PSGNOHI	A39+4*
>> PSGOAT	A39+16*
>> PSGOEE	A39+3, A39+4, A8+1, A10+5, A25+32, DONE+3, PSGDUR+13, ASK+3
>> PSGOEEF(	39+2, 8+1, 10+1, 25+1, DONE+3
>> PSGOEEF(25	A39+13*
>> PSGOEEF(39	A39+13*
PSGOLDED	A25+6~*, DONE+5!
>> PSGORD	A8+1, A10+3, A10+20, A10+33, A25+3, PSGDUR+16
PSGP	A8+1, A10+3, A10+33, DOSE+4~*, DOSE+5
>> PSGPDRG	A25+8, DONE+6, PSGDUR+9, VERTIMES+1
PSGRARR	VERTIMES+2~, VERTIMES+6, VERTIMES+13, VERTIMES+15
PSGRARR(	VERTIMES+18, VERTIMES+19, WRITE+4, ASK+5, ASK+6, ASK+7
PSGRARR(1	VERTIMES+7, VERTIMES+8
>> PSGRF	A39+13, A25+8, A25+12, A25+13, A25+17, A25+23, DONE+6, PSGDUR+9, PSGDUR+16, PSGDUR+18 , PSGDUR+25, PSGDUR+26, VERTIMES+1
>> PSGRMV	PSGDUR+16, PSGDUR+20, PSGDUR+21, PSGDUR+22, PSGDUR+30*
>> PSGRMVT	PSGDUR+15, PSGDUR+16, ASK+5, ASK+7
PSGRO	A39+13~*, W25+7
>> PSGS0XT	A39+2, A39+4, A39+7, A39+10, TIMES+1, PSGDUR+10, PSGDUR+15, PSGDUR+21, VERTIMES+4
>> PSGS0Y	A39+4, A39+12, A39+17, DOSE+2, PSGDUR+16, PSGDUR+34, VERTIMES+13, VERTIMES+16
>> PSGSCH	A39+1, A39+10, A25+9, A25+10, A25+36, TIMES+1, TIMES+3, DOSE+2, PSGDUR+11, PSGDUR+15
>> PSGSD	A10+6, A10+8, A10+32, A10+35, A25+37, A25+39, A25+47, A25+51, A255+5, DOSE+2
>> PSGSDEDT	A10+1*
>> PSGSDN	A10+5, A10+6, A10+8, A10+9, A10+32
PSGSDX	A10+2!, A10+32*
>> PSGSI	A8+1, A8+2, A8+3*
>> PSGST	A39+1, A39+7, A39+10, A39+11, A39+13, A25+8, A25+10*, TIMES+1, TIMES+4, TIMES+5 , DOSE+2, DOSE+3, PSGDUR+9, VERTIMES+1
PSGTMPST	A25+8~*, A25+10, A25+12
>> PSJSYSP	A8+2
RP	PSGDUR+11~, PSGDUR+13, PSGDUR+14, PSGDUR+15, PSGDUR+16, PSGDUR+17, PSGDUR+18, PSGDUR+19, PSGDUR+20, PSGDUR+21 , PSGDUR+22, PSGDUR+25, PSGDUR+26, PSGDUR+30*, PSGDUR+32, PSGDUR+38, PSGDUR+41, PSGDUR+42
TMPFD	A10+2~, A10+35*!
TMPX	A10+12~*
TOT	TIMES+12~, TIMES+13*
U	A25+5, DOSE+2, PSGDUR+38, PSGDUR+43, VERTIMES+6
WMSG	PSGDUR+11~, PSGDUR+38*, PSGDUR+43
WMSG(1	PSGDUR+38*, PSGDUR+43
X	A39+3, A39+4, A39+5, A39+6, A39+7, A39+8, A39+9, A39+10, A39+11, A39+12 , A39+15, A39+17, A10+5, A10+6, A10+7, A10+8, A10+10, A10+11, A10+12, A10+18 , A10+19, A25+32, A25+33, A25+34, A25+35, A25+36, A25+40, A25+48, A25+49, A25+51 , A255+2~, A255+6, TIMES+1!, TIMES+4!, TIMES+8, TIMES+9, TIMES+10!, TIMES+12, TIMES+13!, TIMES+15! , TIMES+16!, TIMES+17!, DOSE+1~, PSGDUR+13*, PSGDUR+34, ASK+4!
X1	A10+12, A10+17, A10+19~, A25+39, A25+47~, A25+51, A255+2~, A255+4, A255+5
X2	A10+12, A10+17, A10+19~, A10+28~, A10+29, A10+30, A25+39, A25+47~, A25+51, A255+2~ , A255+3, A255+5~*, A255+6
Y	A39+5, A10+11, A10+13, A10+14, A10+18, A10+19, A10+32, A25+34, A25+37, A25+39 , A25+42, A25+47, A255+4, A255+10, FF+1*, PSGDUR+19, ASK+2~, ASK+4
Z	W25+1~, W25+2, DOSE+2, DOSE+5

Customize PDF page

Package: Inpatient Medications