Routine: PSJCLOR3

Package	Total	Call Graph
Inpatient Medications	14	$$ENDTC^PSGMI ENHLP^PSGOEM ENCV^PSGSETU EXPIR^PSIVOE GTOT^PSIVUTL $$ONE^PSJBCMA (DSPORD,INIT,NEWORDER)^PSJCLOR2 ENOR^PSJCLOR4 ORDCHK^PSJCLOR5 EN1^PSJHL2 (,RESTORE)^PSJHVARS DRGDISP^PSJLMUT1 CONT^PSJOE0 $$RECDCEXP^PSJP
VA FileMan	3	^%DT (C,NOW)^%DTC ^DIR
Kernel	2	(T0,T1)^%ZOSV ($$DT,$$FMADD,$$FMTE)^XLFDT
List Manager	1	(CLEAR,FULL)^VALM1
Registration	1	IN5^VADPT

Package	Total	Caller Graph
Inpatient Medications	4	PSJ LM ECO SELECT PSJ LM ECO START PSJCLOR2 PSJP
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
ECHK	;
SET	;
IVSET	;Set IV data in ^TMP("PSJ",$J,.
IVSET1	;
ENU	; update status field to reflect expired orders, if necessary
ENUNM	;
EN(PSJPTYP)	; enter here to find clinic orders meeting search criteria, store in ^TMP ; PSJPTYP=1:UD ONLY, 2:IV ONLY, 3:BOTH
NVSET	; Set up orders from 53.1.
KILL	;
COMCHK(PSJCOM,PSJPTYP)	;Check complex orders for order type
PRMPTOR	; Prompt for order numbers
PRMPTSD	; Prompt for start date/time
PRMPTSD2	;

Name	Field # of Occurrence
^%DT	PRMPTSD2+3
C^%DTC	EN+15
NOW^%DTC	EN+7, EN+15
T0^%ZOSV	EN+6
T1^%ZOSV	EN+19
^DIR	PRMPTOR+3, PRMPTSD+47, PRMPTSD+59
$$ENDTC^PSGMI	EN+15
ENHLP^PSGOEM	PRMPTSD2+5
ENCV^PSGSETU	PRMPTSD+7
EXPIR^PSIVOE	EN+12
GTOT^PSIVUTL	IVSET+7
$$ONE^PSJBCMA	IVSET1+1
DSPORD^PSJCLOR2	PRMPTSD+44, PRMPTSD+53, PRMPTSD+63
INIT^PSJCLOR2	PRMPTSD+66
NEWORDER^PSJCLOR2	PRMPTSD+64
ENOR^PSJCLOR4	PRMPTSD+49
ORDCHK^PSJCLOR5	PRMPTSD+9
EN1^PSJHL2	ENUNM+3
^PSJHVARS	PRMPTSD+49
RESTORE^PSJHVARS	PRMPTSD+49
DRGDISP^PSJLMUT1	SET+7, IVSET+9
CONT^PSJOE0	PRMPTSD+12, PRMPTSD+40, PRMPTSD+45, PRMPTSD+53
$$RECDCEXP^PSJP	EN+4
IN5^VADPT	PRMPTSD+5
CLEAR^VALM1	PRMPTSD+45, PRMPTSD+53
FULL^VALM1	PRMPTSD+13, PRMPTSD+37, PRMPTSD+45, PRMPTSD+49, PRMPTSD+50, PRMPTSD+53
$$DT^XLFDT	EN+7
$$FMADD^XLFDT	EN+3, PRMPTSD2+7, PRMPTSD2+8
$$FMTE^XLFDT	PRMPTSD+41, PRMPTSD+45, PRMPTSD+56

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"...a few moments, I have some updating to do..." Line Location: ENU+1
Function Call: WRITE	Prompt: !!," * The new start date is after one or more stop date(s). * ",!," The stop date(s) will be automatically changed to reflect the new start date.",! Line Location: PRMPTSD+39
Function Call: WRITE	Prompt: !!," * This patient has active order(s) on "_$$FMTE^XLFDT($P(PSJNEWSD,"."))_". *" Line Location: PRMPTSD+41
Function Call: WRITE	Prompt: ! Line Location: PRMPTSD+45
Function Call: WRITE	Prompt: !,"Active Order(s) on "_$$FMTE^XLFDT($P(PSJNEWSD,"."))_" (CONTINUED)",!!,"Active Order(s) (CONTINUED)"_$E(PSJBLANK,1,20)_"Current Start / Stop Dates",!,PSJDASH Line Location: PRMPTSD+45
Function Call: WRITE	Prompt: ! Line Location: PRMPTSD+50
Function Call: WRITE	Prompt: !,"Selected Orders:",?45,"Current Start / Stop Dates",!,$G(PSJHLIN) Line Location: PRMPTSD+52
Function Call: WRITE	Prompt: ! Line Location: PRMPTSD+53
Function Call: WRITE	Prompt: !,"Selected Orders (CONTINUED):",?45,"Current Start / Stop Dates",!,$G(PSJHLIN) Line Location: PRMPTSD+53
Function Call: WRITE	Prompt: !,$G(PSJHLIN) Line Location: PRMPTSD+54
Function Call: WRITE	Prompt: " NOTHING CHANGED " Line Location: PRMPTSD+59
Function Call: WRITE	Prompt: $C(7),!?5," Time is REQUIRED. Re-enter Start Date. " Line Location: PRMPTSD2+6
Function Call: WRITE	Prompt: $C(7),!?3,"Start Date/Time earlier than NOW is not allowed. Re-enter Start Date. " Line Location: PRMPTSD2+7
Function Call: WRITE	Prompt: $C(7),!?3,"Start Date cannot be more than 365 days from today. Re-enter Start Date." Line Location: PRMPTSD2+8
Routine Call	DIR Line Location: PRMPTOR+3 PRMPTSD+47 PRMPTSD+59

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	SET+2, SET+4, IVSET+4!, IVSET+5, IVSET1+5, EN+18, NVSET+1, NVSET+2!, NVSET+4!, NVSET+6! , NVSET+7!, NVSET+9, NVSET+10, COMCHK+5, COMCHK+8, COMCHK+9!, COMCHK+10, COMCHK+11, PRMPTSD+32, PRMPTSD+33
^PS(55 - [#55]	ECHK+1, ECHK+2, ECHK+5, ECHK+6, SET+11, IVSET+2, ENUNM+1, EN+8, EN+9, EN+10 , EN+12*, EN+13, EN+17, PRMPTSD+15, PRMPTSD+19, PRMPTSD+20, PRMPTSD+21, PRMPTSD+22, PRMPTSD+26, PRMPTSD+27 , PRMPTSD+28, PRMPTSD+32, PRMPTSD+33
^SC - [#44]	SET+3, SET+11, IVSET1+6
^TMP("PSJ"	SET+12, IVSET1+7, EN+7!
^TMP("PSJCLOR"	PRMPTSD+6
^TMP("PSJON"	PRMPTSD+6!*, PRMPTSD+16, PRMPTSD+17, PRMPTSD+23, PRMPTSD+24, PRMPTSD+31, PRMPTSD+51, PRMPTSD+60
^TMP("PSJPRO"	PRMPTOR+1

Name	Line Occurrences
$$COMCHK	SET+6, IVSET+6
@(	IVSET+7
ECHK	EN+17
ENUNM	EN+16
IVSET	EN+14
KILL	EN+20
NVSET	EN+18
PRMPTSD	PRMPTOR+6
PRMPTSD2	PRMPTSD+13
SET	ECHK+6, ECHK+8, NVSET+11

Name	Field # of Occurrence
^(	EN+13, PRMPTSD+16, PRMPTSD+23
^("DSS"	SET+2
^(0	ENUNM+1, ENUNM+3*, NVSET+10
^(2	NVSET+9
^(8	SET+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+7, EN+15, KILL+1!
%DT	PRMPTSD2+2!*
%DT("A"	PRMPTSD2+2*
BEGDT	ECHK+4, EN+2~, EN+3*
C	ECHK+2, ECHK+8, ECHK+9, SET+12, NVSET+10, KILL+1!
CHKSEL	PRMPTSD+2~, PRMPTSD+17, PRMPTSD+24
CHKSEL2	PRMPTSD+2~, PRMPTSD+17, PRMPTSD+24
DFN	IVSET+2, EN+8, EN+9, EN+10, EN+12, EN+13, EN+17, EN+18, PRMPTSD+1~, PRMPTSD+4*
DIR	PRMPTOR+1!, PRMPTSD+2!, PRMPTSD+37!, PRMPTSD+40~, PRMPTSD+45~, PRMPTSD+53~, PRMPTSD+57!, PRMPTSD2+1!, PRMPTSD2+5!
DIR("A"	PRMPTOR+3, PRMPTSD+37, PRMPTSD+47, PRMPTSD+57, PRMPTSD+58, PRMPTSD+59
DIR(0	PRMPTOR+3, PRMPTSD+47, PRMPTSD+57*
DN	SET+1~, SET+8*, SET+12
DRG	IVSET+1~, IVSET+8
DRG("AD"	IVSET+8
DRG("SOL"	IVSET+8
DRGT	IVSET+1~, IVSET+8*
DRUGNAME	SET+7~
DRUGNAME(1	SET+8
DSPLN	PRMPTSD+44~*, PRMPTSD+46
DT	EN+7, EN+15
DTOUT	KILL+1!, PRMPTSD2+3
ENDDT	ECHK+4, EN+2~, EN+3*
HDT	EN+15*, KILL+1!
I	KILL+1!, PRMPTSD+2~, PRMPTSD+62*
JJ	KILL+1!
LINE	KILL+1!
N	KILL+1!
NAME	IVSET+1~, IVSET+9
NAME(1	IVSET+9
ND	ECHK+6, ECHK+7, IVSET+1~, IVSET+4, IVSET+5, NVSET+1~*, NVSET+3, NVSET+5, NVSET+8
ND0	PRMPTSD+30~, PRMPTSD+32*, PRMPTSD+34
ND2	NVSET+7~, PRMPTSD+30~, PRMPTSD+33, PRMPTSD+34
ND4	ECHK+6*, ECHK+7, KILL+1!
NDP1	PRMPTSD+30~
NF	SET+12, KILL+1!
O	ECHK+1, ECHK+2, ECHK+5, ECHK+6, EN+17, EN+18, NVSET+1, NVSET+2, NVSET+4, NVSET+6 , NVSET+7, NVSET+9, NVSET+10, KILL+1!
OK	KILL+1!, COMCHK+1~, COMCHK+2, COMCHK+3, COMCHK+4, COMCHK+5, COMCHK+6, COMCHK+8, COMCHK+10, COMCHK+11* , COMCHK+12
ON	ECHK+2, SET+2, SET+4, SET+6, SET+7, SET+9, SET+10, SET+11, SET+12, IVSET+2 , IVSET+3, IVSET+4, IVSET+5, IVSET+6, IVSET+7, IVSET+9, IVSET1+1, IVSET1+5, IVSET1+7, EN+2~ , EN+12, EN+14!, EN+18
ON55	IVSET+1~, IVSET+2*
ORIFN	ENUNM+3*, KILL+1!
ORTX	IVSET+1~, IVSET+8, IVSET+9, IVSET+10*, IVSET1+7, KILL+1!
P	IVSET+1~, EN+2~, KILL+1!
P(	IVSET+2*
P("PRNTON"	SET+6, SET+9, SET+10, IVSET+5, IVSET+6, IVSET1+5, NVSET+9
P(17	IVSET+5*, IVSET1+2, IVSET1+3
P(2	IVSET+3, IVSET+5*, IVSET1+1, IVSET1+7
P(3	IVSET+3, IVSET+5*, IVSET1+1, IVSET1+4
P(4	IVSET+5*, IVSET+7
P(9	IVSET+5*, IVSET1+1
PRNTON	SET+6, SET+9, SET+10, IVSET1+5, EN+18~*
>> PSGDT	ENUNM+1, EN+3, EN+7, EN+12, EN+15, PRMPTSD2+7, PRMPTSD2+8
PSGODT	ECHK+3, ECHK+7, EN+15*, KILL+1!
>> PSGOEAV	PRMPTSD+64
>> PSGP	ECHK+1, ECHK+2, ECHK+5, ECHK+6, SET+7, SET+11, IVSET+4, IVSET+9, IVSET1+1, ENUNM+1 , ENUNM+3, NVSET+2, NVSET+3, NVSET+4, NVSET+6, PRMPTSD+4, PRMPTSD+15, PRMPTSD+19, PRMPTSD+20, PRMPTSD+21 , PRMPTSD+22, PRMPTSD+26, PRMPTSD+27, PRMPTSD+28, PRMPTSD+32, PRMPTSD+33, PRMPTSD+44, PRMPTSD+49, PRMPTSD+53, PRMPTSD+63 , PRMPTSD+64, PRMPTSD+65
>> PSGSS	ECHK+1, SET+2, SET+11, IVSET1+6, PRMPTSD+4*
>> PSGSSAV	PRMPTSD+4
PSIVCLND	EN+2~, EN+9*
PSIVCNT	PRMPTSD+43~*, PRMPTSD+45
PSIVLCNT	PRMPTSD+44~*, PRMPTSD+45
PSJABORT	PRMPTSD+1~, PRMPTSD+9, PRMPTSD+36, PRMPTSD+47*, PRMPTSD+48, PRMPTSD+49
PSJASTRK	PRMPTSD+1~, PRMPTSD+7*
>> PSJBEG	SET+5, EN+3, EN+10
PSJBLANK	PRMPTSD+37~, PRMPTSD+38*, PRMPTSD+42, PRMPTSD+45
>> PSJCLNAR(	ECHK+1, SET+2, SET+11, IVSET1+6
>> PSJCLNAR(""	ECHK+1
PSJCLNM	SET+1~, SET+2, SET+3, SET+11, SET+12, IVSET+1~, IVSET+2, IVSET1+5, IVSET1+6, IVSET1+7
PSJCLSEL	PRMPTSD+1~, PRMPTSD+31, PRMPTSD+51, PRMPTSD+52, PRMPTSD+53, PRMPTSD+54, PRMPTSD+60, PRMPTSD+61
PSJCOM	COMCHK~, COMCHK+2, COMCHK+3, COMCHK+5, COMCHK+8, COMCHK+9
>> PSJCURCL	ECHK+1, SET+2, IVSET1+6
PSJDASH	PRMPTSD+37~, PRMPTSD+38*, PRMPTSD+42, PRMPTSD+45
PSJDASH1	PRMPTSD+62~*, PRMPTSD+63
PSJDASH2	PRMPTSD+62~*
>> PSJDCEXP	ECHK+8, IVSET1+4, EN+4*, EN+14
PSJDTTMP	PRMPTSD+15~, PRMPTSD+22~
>> PSJEND	SET+5, EN+3, EN+10, PRMPTSD+65*
>> PSJHLIN	PRMPTSD+52, PRMPTSD+53, PRMPTSD+54
PSJIVOF	EN+2~, EN+15*
PSJLM	PRMPTSD+49~
PSJMATCH	PRMPTSD+1~, PRMPTSD+16, PRMPTSD+17, PRMPTSD+18, PRMPTSD+20, PRMPTSD+21, PRMPTSD+23, PRMPTSD+24, PRMPTSD+25, PRMPTSD+27* , PRMPTSD+28*, PRMPTSD+36, PRMPTSD+41, PRMPTSD+43, PRMPTSD+49
PSJMATCH(	PRMPTSD+20, PRMPTSD+21, PRMPTSD+27, PRMPTSD+28, PRMPTSD+43
PSJNEWSD	PRMPTSD+1~, PRMPTSD+14, PRMPTSD+15, PRMPTSD+20, PRMPTSD+21, PRMPTSD+22, PRMPTSD+27, PRMPTSD+28, PRMPTSD+31, PRMPTSD+34 , PRMPTSD+41, PRMPTSD+45, PRMPTSD+51, PRMPTSD+56, PRMPTSD+59!, PRMPTSD+60, PRMPTSD+61, PRMPTSD+64, PRMPTSD+65, PRMPTSD2+11*
PSJNOLOK	PRMPTSD+1~, PRMPTSD+3, PRMPTSD+64
PSJNWDTE	PRMPTSD+1~, PRMPTSD+56*, PRMPTSD+58
PSJOCNT	SET+12, IVSET1+7, EN+2~, EN+8*, EN+15, KILL+1!
PSJOK	SET+6~, IVSET+6~
>> PSJOL	ECHK+8, ECHK+9, IVSET1+4, EN+5*, EN+6, EN+19
PSJON	COMCHK+7~, COMCHK+8, COMCHK+9, COMCHK+10, COMCHK+11
>> PSJONTMP	PRMPTSD+15, PRMPTSD+16, PRMPTSD+17, PRMPTSD+19, PRMPTSD+20, PRMPTSD+21, PRMPTSD+22, PRMPTSD+23, PRMPTSD+24, PRMPTSD+26 , PRMPTSD+27, PRMPTSD+28
PSJORANG	SET+1~, SET+2, SET+5*
PSJORD	EN+2~, EN+8*, EN+9, EN+10, EN+12, EN+13, EN+14
>> PSJOS	ECHK+2, SET+8, SET+12, IVSET1+7, EN+7*
PSJOTOT	PRMPTOR+1~*, PRMPTOR+3
PSJPAD	ENUNM+1, PRMPTSD+5~*
PSJPRI	IVSET1+2, EN+13*, EN+14!
PSJPTYP	SET+6, IVSET+6, EN~, EN+8, EN+18, COMCHK~, COMCHK+4, COMCHK+6, COMCHK+10, COMCHK+11
>> PSJPWD	PRMPTSD+4*
PSJQMSG	PRMPTSD+1~, PRMPTSD+13, PRMPTSD2+1, PRMPTSD2+4, PRMPTSD2+5, PRMPTSD2+6, PRMPTSD2+7, PRMPTSD2+8, PRMPTSD2+10
PSJREVFY	PRMPTSD+1~, PRMPTSD+4*, PRMPTSD+64
PSJSELOR	PRMPTOR+1~, PRMPTOR+2, PRMPTOR+5, PRMPTSD+6, PRMPTSD+8, PRMPTSD+10, PRMPTSD+11, PRMPTSD+14!, PRMPTSD+16, PRMPTSD+17 , PRMPTSD+23, PRMPTSD+24, PRMPTSD+31, PRMPTSD+51, PRMPTSD+57, PRMPTSD+60, PRMPTSD+61, PRMPTSD+67!
>> PSJSYSP0	EN+7
>> PSJSYSU	EN+7, EN+13
PSJSYSW	PRMPTSD+1~, PRMPTSD+4*
PSJSYSW0	PRMPTSD+1~, PRMPTSD+4*
>> PSJTMPED	PRMPTSD+65*
PSJTMPXQ	PRMPTSD+1~, PRMPTSD+3*
PSJX	EN+2~, EN+10*, EN+11, EN+12, EN+14
PSJY	EN+2~, EN+11, EN+12, EN+14
Q	ENUNM+1*, KILL+1!
QQ	ENUNM+1*, ENUNM+3, EN+2~, KILL+1!
SD	ECHK+7, IVSET+4, EN+2~, EN+17, EN+18, NVSET+2, NVSET+4, NVSET+6, NVSET+10, KILL+1!
ST	ECHK+6, ECHK+7, SET+12, EN+17, NVSET+9, KILL+1!
START	ECHK+2, ECHK+4, SET+8, EN+2~, NVSET+9, KILL+1!
STAT	IVSET+1~, IVSET1+2, IVSET1+4, IVSET1+7, KILL+1!, PRMPTSD+2~, PRMPTSD+19, PRMPTSD+26
STOP	ECHK+2*, ECHK+3, ECHK+4, ECHK+8, EN+2~, KILL+1!
SUB	SET+8*, SET+12, EN+2~, KILL+1!
TMPARRAY	PRMPTSD+60!, PRMPTSD+61, PRMPTSD+67!
TMPARRAY(	PRMPTSD+60*, PRMPTSD+61
TMPC	PRMPTSD+2~, PRMPTSD+16, PRMPTSD+23
TMPCLIN	ECHK+1~*
TMPCNT	PRMPTSD+37~*, PRMPTSD+47
>> TMPNEWSD	PRMPTSD2+9*, PRMPTSD2+11
TMPO	PRMPTSD+2~, PRMPTSD+16, PRMPTSD+23
TMPOINF	PRMPTSD+43~, PRMPTSD+44!*
TMPOINF(	PRMPTSD+44, PRMPTSD+46
TMPONST	PRMPTSD+43~*, PRMPTSD+44
TMPORDER	PRMPTSD+1~, PRMPTSD+31, PRMPTSD+32, PRMPTSD+33, PRMPTSD+34, PRMPTSD+51, PRMPTSD+53, PRMPTSD+60, PRMPTSD+61, PRMPTSD+63 , PRMPTSD+64
TMPSELOR	PRMPTSD+1~, PRMPTSD+8, PRMPTSD+10, PRMPTSD+31, PRMPTSD+51, PRMPTSD+60, PRMPTSD+61*
TMPSTP	SET+4~, SET+5, PRMPTSD+1~, PRMPTSD+30!, PRMPTSD+34
TMPSTP(	PRMPTSD+34*
TMPSTP(""	PRMPTSD+36, PRMPTSD+39, PRMPTSD+49
TMPSTR	PRMPTSD+1~, PRMPTSD+30!
TMPSTRT	SET+4~*, SET+5
TMPY	PRMPTSD2+1~, PRMPTSD2+4*, PRMPTSD2+5, PRMPTSD2+6, PRMPTSD2+7, PRMPTSD2+8, PRMPTSD2+9
TYP	IVSET+1~, IVSET1+1*, IVSET1+7, KILL+1!
U	ECHK+2, ECHK+8, IVSET+2, IVSET+5, IVSET+8, IVSET1+4, EN+11, EN+12, EN+13, EN+14 , EN+18, NVSET+3, NVSET+5, NVSET+7, NVSET+8, NVSET+9, NVSET+10
UDU	ECHK+7, EN+2~, EN+7*, KILL+1!
UPD	ENUNM+1*, ENUNM+4!
VADM	PRMPTSD+49~
VAIN	PRMPTSD+49~
VAIP	KILL+1!
VAIP(13	PRMPTSD+5
VALMBCK	KILL+1!, PRMPTOR+4, PRMPTSD+9, PRMPTSD+11, PRMPTSD+14, PRMPTSD+48, PRMPTSD+49, PRMPTSD+66, PRMPTSD+67
VALMHDR	PRMPTSD+14!, PRMPTSD+67!
X	IVSET+1~, IVSET+2, EN+15, EN+18, PRMPTSD+37~, PRMPTSD+57!, PRMPTSD2+1!, PRMPTSD2+5!
X1	EN+15*, KILL+1!
X2	EN+15*, KILL+1!
>> XQORNOD	PRMPTSD+3
>> XQORNOD(0	PRMPTOR+2, PRMPTSD+6
>> XRT0	EN+19
>> XRTL	EN+6
>> XRTN	EN+19*
Y	IVSET+1~, IVSET+2, IVSET+5, PRMPTOR+4, PRMPTSD+10*, PRMPTSD+37~, PRMPTSD+47, PRMPTSD+57!, PRMPTSD+59, PRMPTSD2+1! , PRMPTSD2+3, PRMPTSD2+4, PRMPTSD2+5!
Y(0	PRMPTOR+5

Customize PDF page

Package: Inpatient Medications

Routine: PSJCLOR3

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: