Routine: PSJCLOR2

Package	Total	Call Graph
Inpatient Medications	27	(NEWNVAL,NEWUDAL)^PSGAL5 ($$ENDD,$$ENDTC)^PSGMI ENFD^PSGNE3 (NEW,UPD)^PSGOEE EN2^PSGOEEW (ENASR,ENCHK)^PSGON ENCV^PSGSETU ENSTOP^PSIVCAL NEWORD^PSIVOPT1 EN^PSIVORE GT55^PSIVORFB (,ENBOTH)^PSJAC ($$GETSI,FILESI)^PSJBCMA5 (HDRDT,INIT)^PSJCLOR2 EN^PSJCLOR3 (A25NV,A25V,A34)^PSJCLOR4 (DSPORD,NEWCLN)^PSJCLOR5 NEW^PSJCOM1 EN1^PSJHL2 $$GETDUR^PSJLIVMD GETUD^PSJLMGUD ($$CRCL,HDR)^PSJLMHED PAUSE^PSJLMUTL (CONT,GODO)^PSJOE0 $$RECDCEXP^PSJP $$ENORL^PSJUTL $$ENNOO^PSJUTL5
VA FileMan	3	^%DT ^DIE ^DIR
List Manager	2	($$SETSTR,FULL)^VALM1 KILL^VALM10
Pharmacy Data Management	2	$$BSA^PSSDSAPI ($$LS,UNL)^PSSLOCK
Kernel	1	$$FMTE^XLFDT
Order Entry Results Reporting	1	$$CWAD^ORQPT2

Package	Total	Caller Graph
Inpatient Medications	6	PSJ LM CLINIC ORDERS PSJ LM ECO RANGE PSJ LM VIEW ORDER DETAIL PSJCLOR2 PSJCLOR3 PSJCLOR5
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
HDR(DFN)	; -- list screen header ; input: DFN := ifn of pat ; output: VALMHDR() := hdr array
HDRO(DFN)	; Standardized part of profile header.
INIT(PSJPROT)	; -- init bld vars ; PSJPROT=1:UD ONLY; 2:IV ONLY; 3:BOTH
DONE	;
ON	; Set order number into ^TMP
TF	; Set up order type header
TEST	; Headers
VWDETAIL(PSGP)	;
ENVW	; ask user to select or view any of the orders shown
GODO(PSJORD)	;
DONEVD	; Kill variables
NEWORDER(PSGP,PSGORD,PSGNWSD,PSGOEAV)	;
DSPORD(PSGP,TMPORDER,PSJORDAR)	; Display order summary
HDRDT	; Header Date Range
CHGDT	; Change date range
BEGDT	; begin date
ENDDT(BEG)	; end date

External References

Name	Field # of Occurrence
^%DT	BEGDT+5
^DIE	NEWORDER+56
^DIR	ENDDT+3
$$CWAD^ORQPT2	HDRO+6
NEWNVAL^PSGAL5	NEWORDER+4
NEWUDAL^PSGAL5	NEWORDER+5
$$ENDD^PSGMI	NEWORDER+20, NEWORDER+22, NEWORDER+31, NEWORDER+33, NEWORDER+45
$$ENDTC^PSGMI	HDR+10, HDRO+10, NEWORDER+20, NEWORDER+31
ENFD^PSGNE3	NEWORDER+13
NEW^PSGOEE	NEWORDER+25
UPD^PSGOEE	NEWORDER+34
EN2^PSGOEEW	NEWORDER+19
ENASR^PSGON	ENVW+3
ENCHK^PSGON	ENVW+2
ENCV^PSGSETU	VWDETAIL+1
ENSTOP^PSIVCAL	NEWORDER+44
NEWORD^PSIVOPT1	NEWORDER+47
EN^PSIVORE	NEWORDER+48
GT55^PSIVORFB	NEWORDER+44
^PSJAC	VWDETAIL+2
ENBOTH^PSJAC	HDR+5
$$GETSI^PSJBCMA5	NEWORDER+54
FILESI^PSJBCMA5	NEWORDER+3, NEWORDER+54
HDRDT^PSJCLOR2	CHGDT+4
INIT^PSJCLOR2	VWDETAIL+2, CHGDT+4
EN^PSJCLOR3	INIT+5
A25NV^PSJCLOR4	NEWORDER+33
A25V^PSJCLOR4	NEWORDER+46
A34^PSJCLOR4	NEWORDER+22
DSPORD^PSJCLOR5	DSPORD+1
NEWCLN^PSJCLOR5	NEWORDER+57
NEW^PSJCOM1	NEWORDER+6
EN1^PSJHL2	NEWORDER+35, NEWORDER+48
$$GETDUR^PSJLIVMD	NEWORDER+56
GETUD^PSJLMGUD	NEWORDER+31
$$CRCL^PSJLMHED	HDR+15
HDR^PSJLMHED	CHGDT+4
PAUSE^PSJLMUTL	INIT+6
CONT^PSJOE0	NEWORDER+2, NEWORDER+23
GODO^PSJOE0	GODO+1
$$RECDCEXP^PSJP	TF+3
$$ENORL^PSJUTL	NEWORDER+48
$$ENNOO^PSJUTL5	NEWORDER+23
$$BSA^PSSDSAPI	HDR+13
$$LS^PSSLOCK	NEWORDER+2
UNL^PSSLOCK	NEWORDER+58
$$SETSTR^VALM1	HDR+7, HDR+9, HDR+10, HDR+21, HDRO+4, HDRO+5, HDRO+7, HDRO+11, HDRO+12
FULL^VALM1	INIT+2, VWDETAIL+3
KILL^VALM10	INIT+5
$$FMTE^XLFDT	HDRDT+2, BEGDT+4, ENDDT+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?22,"NO CLINIC ORDERS FOUND." Line Location: INIT+6
Function Call: WRITE	Prompt: !,$E($E(Y,1,(80-$L(X))/2)_" "_X_$E(Y,1,(80-$L(X))/2),1,80) Line Location: TEST+2
Function Call: WRITE	Prompt: !,"NO ACTION TAKEN ON ORDER",! Line Location: NEWORDER+2
Function Call: WRITE	Prompt: $C(7),!?5,"* THE START DATE CANNOT BE AFTER THE STOP DATE! *" Line Location: NEWORDER+14
Function Call: WRITE	Prompt: " No changes made to this order!" Line Location: NEWORDER+23
Function Call: WRITE	Prompt: !!?5,"Search for CLINIC Medication Orders with a Start Date/Time" Line Location: BEGDT+2
Function Call: WRITE	Prompt: !?5,"within the date range selected below: " Line Location: BEGDT+3
Function Call: WRITE	Prompt: ! Line Location: BEGDT+4
Function Call: WRITE	Prompt: ! Line Location: ENDDT+3
Routine Call	DIE Line Location: NEWORDER+56
Routine Call	DIR Line Location: ENDDT+3

FileNo	Call Tags
^PS(53.1 - [#53.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(53.1 - [#53.1]	HDRO+2, ON+4, ENVW+8, NEWORDER+4, NEWORDER+6, NEWORDER+10, NEWORDER+31, NEWORDER+49, NEWORDER+51, NEWORDER+52 , NEWORDER+55
^PS(53.45 - [#53.45]	NEWORDER+3
^PS(55 - [#55]	HDRO+2, ON+4, NEWORDER+5, NEWORDER+10, NEWORDER+21, NEWORDER+24, NEWORDER+49, NEWORDER+50, NEWORDER+51, NEWORDER+52
^SC - [#44]	HDRO+3
^TMP("PSJ"	INIT+2!, INIT+6, INIT+7, INIT+10, INIT+11, INIT+14, INIT+17, INIT+18, INIT+20, INIT+21 , INIT+23, INIT+24, DONE+2!, ON+3, TF+2
^TMP("PSJCLOR"	INIT+2!, DONE+1!*
^TMP("PSJON"	INIT+2!, DONE+1, ON+5, ON+6, VWDETAIL+3, ENVW+7
^TMP("PSJPRO"	INIT+2!, ON+5, TF+8

Name	Line Occurrences
@(	ON+5
BEGDT	CHGDT+2
DONEVD	VWDETAIL+4, ENVW+5, ENVW+7
ENDDT	CHGDT+3
ENVW	VWDETAIL+3
GODO	ENVW+8, ENVW+9
HDRO	HDR+6
ON	INIT+11, INIT+18, INIT+21, INIT+24
TF	INIT+9, INIT+16, INIT+19, INIT+22

Name	Field # of Occurrence
^(	ON+3
^(2	NEWORDER+18, NEWORDER+43
^(2.1	NEWORDER+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEGDT+4!*
%DT("A"	BEGDT+4*
%DT("B"	BEGDT+4*
%DT(0	BEGDT+5*
BEG	ENDDT~, ENDDT+1*, ENDDT+3, ENDDT+4
C	TF+5~*
CNT	DONE+2!
DA	NEWORDER+56!*
DFN	HDR~, HDR+6, HDR+13, HDR+15, HDRO~, HDRO+2, HDRO+6, INIT+3~, VWDETAIL+1~, VWDETAIL+2 , NEWORDER+2, NEWORDER+3, NEWORDER+5, NEWORDER+48, NEWORDER+54, CHGDT+4
DIE	NEWORDER+56!*
DIR	NEWORDER+2!, ENDDT+3!
DIR("A"	ENDDT+3*
DIR("B"	ENDDT+3*
DIR(0	ENDDT+3*
DN	ON+3*, ON+7!
DR	NEWORDER+29~, NEWORDER+56!
DTOUT	DONEVD+1!, BEGDT+5
DUR	NEWORDER+56~*
FQ	ON+3*, ON+7!
GMRA	HDR+4!
I	NEWORDER+9~, NEWORDER+10*
>> IORVOFF	HDRO+7
>> IORVON	HDRO+7
LN	NEWORDER+50~, NEWORDER+51, NEWORDER+52
ND	NEWORDER+9~, NEWORDER+18, NEWORDER+38~, NEWORDER+43
ND(	NEWORDER+10*
ND(0	NEWORDER+11, NEWORDER+12
ND(2	NEWORDER+11, NEWORDER+12
ND0	NEWORDER+18, NEWORDER+38~, NEWORDER+43
ND2	NEWORDER+9~, NEWORDER+18, NEWORDER+38~, NEWORDER+43
ND2P1	NEWORDER+9~, NEWORDER+18*
>> OD	NEWORDER+48*
>> ON	NEWORDER+48*
ON55	NEWORDER+38~, NEWORDER+43*, NEWORDER+48, NEWORDER+49, NEWORDER+51, NEWORDER+52
P	NEWORDER+29~, NEWORDER+38~
P(2	NEWORDER+44*, NEWORDER+45, NEWORDER+48
PRJPRI	ON+4~
PSGAT	NEWORDER+1~, NEWORDER+32
PSGFD	NEWORDER+1~, NEWORDER+12, NEWORDER+13, NEWORDER+20, NEWORDER+30, NEWORDER+31
PSGFDN	NEWORDER+1~, NEWORDER+20, NEWORDER+31
>> PSGLMT	ENVW+1*
PSGNEFD	NEWORDER+1~, NEWORDER+13, NEWORDER+14, NEWORDER+18, NEWORDER+20, NEWORDER+31*
PSGNESD	NEWORDER+9~, NEWORDER+11, NEWORDER+20, NEWORDER+31~, NEWORDER+32*
PSGNWSD	NEWORDER~, NEWORDER+11, NEWORDER+13, NEWORDER+14, NEWORDER+20, NEWORDER+32, NEWORDER+44
PSGODDD	ENVW+7, DONEVD+1!
PSGODDD(	ENVW+7
PSGOE	ENVW+7*, DONEVD+1!
PSGOEA	ENVW+5, ENVW+8, ENVW+9*, DONEVD+1!
PSGOEAV	NEWORDER~, NEWORDER+42, NEWORDER+55
>> PSGOEE	NEWORDER+32*
PSGOEEF	NEWORDER+1~
PSGOEEF(	NEWORDER+15*
PSGOEEF(10	NEWORDER+1*
PSGOEEF(25	NEWORDER+29, NEWORDER+31
PSGOEENO	NEWORDER+21, NEWORDER+24~, NEWORDER+34~*
>> PSGOEEWF	NEWORDER+18, NEWORDER+38, NEWORDER+43
PSGOFD	NEWORDER+1~, NEWORDER+12, NEWORDER+21
PSGONC	ENVW+1*, DONEVD+1!
PSGONR	ENVW+1*, DONEVD+1!
PSGONV	ENVW+1*, DONEVD+1!
>> PSGOORD	NEWORDER+20*, NEWORDER+54, NEWORDER+58
PSGORD	ENVW+7*, NEWORDER~, NEWORDER+2, NEWORDER+3, NEWORDER+4, NEWORDER+5, NEWORDER+6, NEWORDER+8, NEWORDER+10, NEWORDER+11 , NEWORDER+12, NEWORDER+13, NEWORDER+15, NEWORDER+17, NEWORDER+18, NEWORDER+20, NEWORDER+21, NEWORDER+24, NEWORDER+28, NEWORDER+31 , NEWORDER+35, NEWORDER+37, NEWORDER+38, NEWORDER+43, NEWORDER+46, NEWORDER+54, NEWORDER+55, NEWORDER+56, NEWORDER+58
PSGOSD	NEWORDER+1~, NEWORDER+12*
PSGP	INIT+3, INIT+8, INIT+15, ON+4, VWDETAIL~, VWDETAIL+2, NEWORDER~, NEWORDER+10, NEWORDER+18, NEWORDER+21 , NEWORDER+24, NEWORDER+31, NEWORDER+35, NEWORDER+38, NEWORDER+46, NEWORDER+49, NEWORDER+50, NEWORDER+51, NEWORDER+52, NEWORDER+56 , NEWORDER+58, DSPORD~, DSPORD+1, HDRDT+1, CHGDT+4, BEGDT+1, ENDDT+2
>> PSGPD	NEWORDER+31, NEWORDER+32
>> PSGPDN	NEWORDER+32
PSGPDRG	NEWORDER+31~, NEWORDER+32
>> PSGPDRGN	NEWORDER+32*
PSGPRF	VWDETAIL+1~, VWDETAIL+3, ENVW+1, ENVW+4!
>> PSGRDTX(	NEWORDER+13
>> PSGS0Y	NEWORDER+32*
PSGSCH	NEWORDER+9~, NEWORDER+11*
PSGSD	NEWORDER+1~, NEWORDER+12, NEWORDER+20, NEWORDER+22, NEWORDER+32*, NEWORDER+33
>> PSGSS	INIT+3
PSGSSAV	INIT+3*, DONE+2!
PSGST	NEWORDER+9~, NEWORDER+12*
PSIVCHG	NEWORDER+38~*
PSIVSYSP	NEWORDER+38~, NEWORDER+42*
PSJ	HDR+4!, HDR+7, HDR+8, HDR+9, HDR+10, HDRO+4, HDRO+5, HDRO+7, HDRO+8, HDRO+11* , HDRO+12*
PSJACNWP	HDR+4!, HDR+5*
PSJAPPT	HDRO+1~, HDRO+3, HDRO+10
>> PSJBEG	HDRDT+1, HDRDT+2, CHGDT+1, CHGDT+2, CHGDT+3, BEGDT+1, BEGDT+4, BEGDT+5
PSJBSA	HDR+13*, HDR+21!
PSJC	INIT+7, INIT+8, INIT+9, INIT+10, INIT+11, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18 , INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, DONE+2!, ON+3, TF+5
PSJCLIN	HDRO+1~, HDRO+2, HDRO+3, INIT+7, INIT+9, INIT+10, INIT+11, INIT+14, INIT+16, INIT+17 , INIT+18, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, ON+3, TF+2, TF+6 , TF+7
PSJCLINN	HDRO+1~, HDRO+3, HDRO+4, HDRO+5, HDRO+10
PSJCLORD	ON+1~*
>> PSJCOM	NEWORDER+6*
>> PSJDB	HDR+21*
PSJDCEXP	DONE+2!, TF+3*, TF+4
PSJDFHDR	TF+1~, TF+4*
PSJDLW	ENVW+6!, ENVW+7, ENVW+8
PSJEDFLD	NEWORDER+9~, NEWORDER+15*
PSJEN	INIT+7, DONE+2!, ON+5
>> PSJEND	HDRDT+1, HDRDT+2, CHGDT+1, CHGDT+3, ENDDT+2, ENDDT+4*
PSJF	INIT+8~, INIT+15~
PSJFSI	NEWORDER+3~*, NEWORDER+54
PSJINIV	NEWORDER+38~
PSJL	DONE+2!, ON+5*, DONEVD+1!
PSJLM	VWDETAIL+1~
PSJLN	INIT+7, INIT+27, DONE+2!, TF+8
>> PSJNOLOK	NEWORDER+1, NEWORDER+2
>> PSJNOO	NEWORDER+23*
PSJO	ON+3, ON+4, ON+5, ENVW+8~
PSJO1	ENVW+8~*
PSJOCL	NEWORDER+21, NEWORDER+24~, NEWORDER+31~*, NEWORDER+32
PSJOE	ENVW+7*, DONEVD+1!
PSJOE1	ENVW+7*, DONEVD+1!
PSJOE2	ENVW+7*, DONEVD+1!
PSJON	DONE+2!, VWDETAIL+3*, ENVW+1, DONEVD+1!
PSJORD	HDRO+1, HDRO+2, ENVW+7, ENVW+8, ENVW+9, GODO~
PSJORDAR	DSPORD~, DSPORD+1
>> PSJORL	NEWORDER+48*
PSJOS	DONE+2!, ON+2
>> PSJPAD	HDR+7
>> PSJPAGE	HDRO+12
>> PSJPDD	HDR+7, HDR+9, HDR+10, HDRO+5, HDRO+9
>> PSJPDOB	HDRO+12
>> PSJPDX	HDR+8
>> PSJPHT	HDRO+11
>> PSJPHTD	HDRO+11
PSJPR	VWDETAIL+3*, DONEVD+1!
>> PSJPRB	HDRO+9
PSJPRF	ENVW+1, DONEVD+1!
PSJPRI	DONE+2!, ON+4*
PSJPROT	INIT~, INIT+4, INIT+5
PSJPRP	VWDETAIL+1~, VWDETAIL+3*
>> PSJPSEX	HDR+7
>> PSJPSSN	HDRO+8
>> PSJPTD	HDR+10
>> PSJPWDN	HDRO+5
>> PSJPWT	HDRO+12
>> PSJPWTD	HDRO+12
>> PSJQMSG	NEWORDER+14*
PSJS	INIT+11, INIT+18, INIT+21, INIT+24, DONE+2!, ON+2, ON+3
PSJSCHT	ON+2*, ON+7!
PSJST	INIT+10, INIT+11, INIT+17, INIT+18, INIT+20, INIT+21, INIT+23, INIT+24, DONE+2!, ON+2 , ON+3
PSJSTPDF	NEWORDER+38~
PSJSTRDF	NEWORDER+38~
PSJSYSL	VWDETAIL+1~
>> PSJSYSP	NEWORDER+3
PSJSYSP0	NEWORDER+42~*
>> PSJSYSU	INIT+3
>> PSJSYSW0	NEWORDER+41*
PSJTF	INIT+7, INIT+9, INIT+14, INIT+16, INIT+19, INIT+22, DONE+2!
>> PSJTMPBG	BEGDT+1*
>> PSJTMPED	HDRDT+1, ENDDT+2*
PSJTMPFD	NEWORDER+29~, NEWORDER+30*, NEWORDER+31
>> PSJTMPON	NEWORDER+10
>> PSJTMPXQ	NEWORDER+39
PSJUDPRF	INIT+2!, INIT+4*
>> PSJVALQ	INIT+3, INIT+6
PSJXDIR	ENVW+2~*, ENVW+3
RMORDT	HDRO+1~, HDRO+9, HDRO+10*, HDRO+11
RSLT	HDR+15*, HDR+17, HDR+18, HDR+19, HDR+20, HDR+21!
>> SD	NEWORDER+20*
SIARRAY	NEWORDER+3~, NEWORDER+4, NEWORDER+5*
TMPBEG	CHGDT+1~*, CHGDT+2
TMPCLIN	INIT+3~, INIT+9, INIT+16, INIT+19, INIT+22*
TMPEND	CHGDT+1~*, CHGDT+3
TMPNEFD	NEWORDER+18~*, NEWORDER+20
TMPOLD	NEWORDER+49~*, NEWORDER+50, NEWORDER+52
TMPORDER	DSPORD~, DSPORD+1
U	HDR+7, HDR+9, HDRO+3, HDRO+8, HDRO+12, NEWORDER+20, NEWORDER+31, NEWORDER+42
UDU	INIT+3~*
VA	HDR+4!
VADM	HDR+4!, VWDETAIL+1~
VADM(1	HDRO+4, HDRO+5
VAERR	HDR+4!
VAIN	HDR+4!, VWDETAIL+1~
VAIN(4	NEWORDER+48
>> VALMBCK	CHGDT+4*
>> VALMCNT	INIT+27*
VALMHDR	HDRO+4!
VALMHDR(1	HDRO+7*
VALMHDR(2	HDRO+11*
VALMHDR(3	HDRO+12*
VALMHDR(4	HDR+7*
VALMHDR(5	HDR+9, HDR+10
VALMHDR(6	HDR+21, HDRDT+2
>> VALMQUIT	INIT+6*
X	HDR+4!, HDRO+6, HDRO+7, TF+5~, TF+6, TF+7, TF+8, TEST+1~, TEST+2, ENVW+2 , ENVW+5
XQORNOD	NEWORDER+39~*
XQORNOD(0	ENVW+2, NEWORDER+40*
Y	TF+5~, TF+8, TEST+1~, TEST+2, BEGDT+5, ENDDT+4
ZDSPL	HDR+17, HDR+18, HDR+19, HDR+20, HDR+21!

Customize PDF page

Package: Inpatient Medications

Routine: PSJCLOR2

Information

Source Information

Call Graph

Call Graph Total: 36

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: