Routine: PSJCLOR

Information

PSJCLOR ;BIR/JCH - FIND ORDERS BY CLINIC, CLINIC GROUP, OR PATIENT ; 2/28/12 9:11am

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Inpatient Medications	8	^PSGPER1 (ENCV,ENKV)^PSGSETU ^PSIVXU ^PSJAC ^PSJCLOR1 LOCKERR^PSJOE CONT^PSJOE0 ^PSJP
VA FileMan	4	^%DT (C,NOW)^%DTC ^DIC ^DIR
Kernel	1	($$FMADD,$$FMTE)^XLFDT

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

Package	Total	Caller Graph
Inpatient Medications	1	PSJ ECO

Entry Points

Name	Comments	DBIA/ICR reference
START	; Lookup patient by clinic or patient, depending on value of PSGSS ;
DONE	; Cleanup
DONE2	; Partial Cleanup
GO	; Find and display matching patients
C	; Select a Clinic
CDIC	; Clinic lookup
DTRANGE()	; Enter Date Range
BEGDT	; begin date
ENDDT(BEG)	; end date
L	; Select a Clinic Group
LDIC	; Clinic Group lookup
P	; Select patient
ARRAY	; put patient(s) with non-verified orders into array
CG	; Find all clinics in selected clinic group
CL	; Find all patients in selected clinic
CL1	; Check each clinic for valid clinic orders
IF	; If called from CL subroutine and the order Doesn't exist for that Clinic, then QUIT.
IFT2	; Loop through active IV orders in ^PS(55
SET	; Set patient specific variables for ^TMP subscripts
SETPN	; If searching for specific priority: ; - set patient into ^TMP("PSGBW" sorted by Clnic, Patient Name^IEN^SSN ; If not searching for specific priority: ; - set patient into ^TMP("PSGVBW2" sorted by 'Patient Name^IEN^SSN', ; - set patient into ^TMP("PSGVBW3" sorted by Patient IEN
SET2	; If not searching for a specific priority,find the highest priority order associated with patient. ; Set the patient into ^TMP("PSGVBW" sorted by highest Priority Name, Priority #, Team, Patient Name^IEN^SSN
EXIT(X)	; Generic user error message
SELECT	; give user choice to select search method
CHK	;
CHK2	;
HELP	; the following are the help text messages for the various options
GENERIC
VBW
ENCD	;edit Clinic Definitions file

External References

Name	Field # of Occurrence
^%DT	BEGDT+4
C^%DTC	ARRAY+2
NOW^%DTC	START+6, P+9, ARRAY+1
^DIC	CDIC+2, LDIC+1, SET+9, ENCD+2, ENCD+4
^DIR	C+2, ENDDT+2, L+2
^PSGPER1	DONE+14
ENCV^PSGSETU	START+3
ENKV^PSGSETU	DONE+14
^PSIVXU	START+4
^PSJAC	P+8, P+15, CL1+2, CL1+5, CL1+8, IF+6
^PSJCLOR1	GO+3
LOCKERR^PSJOE	START+7
CONT^PSJOE0	CL+5
^PSJP	P+2
$$FMADD^XLFDT	P+1, P+13, CL+1, IF+11
$$FMTE^XLFDT	BEGDT+5, ENDDT+2, ENDDT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"...a few moments, please..." Line Location: GO+1
Function Call: WRITE	Prompt: !,$C(7),"NO ",PSGVBWW," ORDERS FOR SELECTED ",$S(PSGSS="P":"PATIENT",PSGSS="L":"CLINIC GROUP",PSGSS="C":"CLINIC",PSGSS="PR":"PRIORITY",1:"WARD"),$S(PSGSS="G":" GROUP",1:"") Line Location: GO+2
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: !!,"Enter the name of the clinic to use to select patients for processing." Line Location: CDIC+7
Function Call: WRITE	Prompt: !!?5,"Search for Active and Non-Verified CLINIC Medication Orders" Line Location: BEGDT+1
Function Call: WRITE	Prompt: !?5,"that fall within the date range selected below: " Line Location: BEGDT+2
Function Call: WRITE	Prompt: ! Line Location: BEGDT+3
Function Call: WRITE	Prompt: " ",FMTX Line Location: BEGDT+5
Function Call: WRITE	Prompt: ! Line Location: ENDDT+2
Function Call: WRITE	Prompt: " ",FMTX Line Location: ENDDT+5
Function Call: WRITE	Prompt: ! Line Location: L+2
Function Call: WRITE	Prompt: !!,"Enter the name of the clinic group to use to select patients for processing." Line Location: LDIC+4
Function Call: WRITE	Prompt: !!,$C(7),"NO ",PSGVBWW," ORDERS FOR ",CLINAME,! Line Location: CL+5
Function Call: WRITE	Prompt: !!,X," not selected, option terminated." Line Location: EXIT+1
Function Call: READ	Variable: PSGSS Timeout: DTIME Line Location: SELECT+5
Function Call: WRITE	Prompt: !!,"Search by CLINIC (C), CLINIC GROUP (G), or PATIENT (P) : " Line Location: SELECT+5
Function Call: WRITE	Prompt: PSGSS="^" Condition for execution: '$T $C(7) S:'$T!(PSGSS="") Line Location: SELECT+5
Function Call: WRITE	Prompt: $P(X,PSGSSA,2,99) Line Location: CHK+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: CHK+4
Function Call: WRITE	Prompt: ! Line Location: CHK+5
Function Call: WRITE	Prompt: !!?2,"To leave this option, press the RETURN key or enter '^'." Line Location: CHK+5
Function Call: WRITE	Prompt: $P(X,PSGSSA,2,99) Line Location: CHK2+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: CHK2+4
Function Call: WRITE	Prompt: ! Line Location: CHK2+5
Function Call: WRITE	Prompt: !!?2,"To leave this option, press the RETURN key or enter '^'." Line Location: CHK2+5
Function Call: WRITE	Prompt: !!,?2,"To run this option for an entire CLINIC, enter 'C'. To run this option for a single PATIENT, enter 'P'." Line Location: GENERIC+0
Function Call: WRITE	Prompt: !!?2,"To process orders in a single CLINIC, enter 'C'." Line Location: VBW+0
Function Call: WRITE	Prompt: !,"To process orders for a single PATIENT, enter 'P'." Line Location: VBW+1
Function Call: WRITE	Prompt: !,"Enter a clinic from the CLINIC DEFINITION file." Line Location: ENCD+1
Function Call: WRITE	Prompt: !,"You may also select a clinic from the HOSPITAL LOCATION file." Line Location: ENCD+3
Routine Call	DIC Line Location: CDIC+2 LDIC+1 SET+9 ENCD+2 ENCD+4
Routine Call	DIR Line Location: C+2 ENDDT+2 L+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls
^PS(53.46 - [#53.46]	Classic Fileman Calls
^PS(57.8 - [#57.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	IF+13
^PS(53.1 - [#53.1]	P+5, P+6, P+7, CL1+2, IF+2, IF+3, IF+5, SET+2, SET+3, SET+5 , SET+7
^PS(53.45 - [#53.45]	START+7, DONE+14
^PS(55 - [#55]	P+10, P+11, P+13, P+14, CL1+3, CL1+4, CL1+5, CL1+6, CL1+7, CL1+8 , IF+8, IF+11, IF+12, IF+14, IFT2+1, IFT2+2, SET+2, SET+3, SET+5, SET+7
^PS(57.7 - [#57.7]	SET+11
^PS(57.8 - [#57.8]	LDIC+2, CG+1
^SC - [#44]	CL+3, CL1+1
^TMP("PSGVBW"	DONE2+1!, GO+1!, GO+2, ARRAY+2, CL+5, SETPN+6, SET2+5*
^TMP("PSGVBW2"	DONE2+1!, GO+1!, SETPN+7*, SET2+2, SET2+3, SET2+4, SET2+6!
^TMP("PSGVBW3"	DONE2+1!, SETPN+7*
^TMP("PSJ"	START+7!
^TMP("PSJLIST"	DONE2+1!
^TMP("PSJON"	DONE2+1!
^TMP("PSJSELECT"	START+11!, DONE2+1!, P+2!, P+4, P+15*, P+17

Label References

Name	Line Occurrences
$$DTRANGE	START+11
@(	START+11, CHK+5, CHK2+5
ARRAY	GO+1
BEGDT	DTRANGE+2
C	CDIC+7
CDIC	C+2
CG	ARRAY+4
CHK	SELECT+5
CL	ARRAY+3, CG+1
CL1	CL+3, CL+6
DONE	START+7
DONE2	DONE+1, GO+3
ENDDT	DTRANGE+3
GO	START+11
IF	ARRAY+2, CL1+2
IFT2	P+14, IF+15
L	LDIC+4
SELECT	START+11
SET	P+15, CL1+5, CL1+8, IF+6, IF+9, IF+15

Naked Globals

Name	Field # of Occurrence
^(	LDIC+2
^(0	CL1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+6, DONE+6!, P+9, ARRAY+1
%DT	BEGDT+3!*
%DT("A"	BEGDT+3*
%DT("B"	BEGDT+3*
%DT(0	BEGDT+4*
%Y	DONE+6!
BEG	ENDDT~, ENDDT+2, ENDDT+3
BEGDTR	P+1~, CL+1~, CL1+5, CL1+8, IF+4, SET+4
CG	PSJCLOR+7~, LDIC+1*, LDIC+2, CG+1
CHK	DONE+3!, GO+1!
CL	PSJCLOR+7~, C+1!, CDIC+2, CDIC+8, P+10, P+12, CG+1, CL+3, CL1+1, CL1+2 , CL1+3, CL1+6, IFT2+1~*, IFT2+4
CLIN	IF+2~*, IF+3
CLINAME	CL+3~*, CL+5
D0	DONE+3!
DFN	DONE2+2!
DIC	C+1!, CDIC+2!, LDIC+1!, SET+1!, SET+9, ENCD+2!, ENCD+4!*
DIC(0	CDIC+2, LDIC+1, SET+9, ENCD+2, ENCD+4*
DIR	C+2!, ENDDT+2!, L+1!
DIR("?"	C+2, L+2
DIR("A"	C+2, ENDDT+2, L+1*
DIR("B"	ENDDT+2*
DIR(0	C+2, ENDDT+2, L+1*
>> DONE	START+5
DRGI	DONE+3!
DTIME	SELECT+5
DTOUT	DONE+6!, CDIC+4, BEGDT+4
DUOUT	DONE+6!, C+2, CDIC+1, CDIC+6, LDIC+3
>> DUTOUT	CDIC+4
ENDTR	P+1~, P+11, CL+1~, CL1+5, CL1+8, IF+4, SET+4
FMTX	BEGDT+5~, ENDDT+1~, ENDDT+5
FQC	DONE+3!
I	CL+4~*
IFPRI	DONE+3!
IOP	DONE+6!
J	DONE+3!, CL+4~*, CL+5
LIDT	DONE+3!
ND	DONE+3!, DONE+14!, P+7~, P+11~, P+12, IF+3*
ND0	DONE+6!, IFT2+2*, IFT2+3
ND14	DONE+13!
ND4	DONE+13!
ND6	DONE+13!
NDP2	DONE+13!
NF	DONE+13!
OCXSEG	DONE+13!
OD	DONE+13!
ON	DONE+3!, GO+1!, P+5~, P+6, P+7, P+12, P+14, CL1+5, CL1+8, IF+6~ , IF+9, IF+15, IFT2+1, IFT2+2, SET+2, SET+3, SET+5, SET+7
ON2	P+1~, P+10, P+11, P+12, CL+1~, CL1+3, CL1+4, CL1+5, CL1+6, CL1+7 , CL1+8, IF+1~, IF+2, IF+3, IF+5, IF+6, IF+8, IF+9, IF+11, IF+12 , IF+14, IF+15
ORDT	DONE+5!
ORO	DONE+13!
P	DONE+13!
PDRG	DONE+13!
PN	DONE+3!, GO+1!, P+15, SETPN+5, SETPN+6, SETPN+7
POP	DONE+6!
PPAGE	PSJCLOR+7~, START+11*
PPN	DONE+5!
PRD	DONE+5!, DONE2+2!
PRDNS	DONE+5!
PRDON	DONE+5!
PRI	DONE+3!
PSBCNT	DONE+13!
PSBFLAG	DONE+13!
PSBSTR	DONE+13!
PSGAL	DONE+13!
PSGCANFL	DONE+13!
PSGCLF	DONE+3!, CL1+2*, CL1+9!
PSGDFN	DONE+13!
PSGDICA	DONE+6!
PSGDT	START+6, DONE+6!, P+1, P+9, P+10, ARRAY+1*, ARRAY+2, CL1+3, CL1+6
PSGDW	DONE+13!
PSGEB	DONE+13!
PSGEBN	DONE+13!
PSGF2	DONE+13!
PSGFDX	DONE+13!
PSGH	DONE+6!
PSGINCL	DONE+5!
PSGINWD	DONE+5!
PSGLI	DONE+13!
PSGLRN	DONE+13!
PSGNEFDO	DONE+12!
PSGOAT	DONE+12!
PSGOC	DONE+12!
PSGODDD	DONE+4!
PSGODO	DONE+12!
PSGODT	DONE+3!, ARRAY+2, IF+7, IF+8
PSGOEA	DONE+3!
PSGOEAV	START+2~, START+10*, DONE+4!
PSGOEE	DONE+12!
PSGOEENO	DONE+12!
PSGOEEWF	DONE+12!
PSGOENOF	DONE+4!
PSGOEORF	DONE+4!
PSGOEPR	DONE+12!
PSGOFDN	DONE+12!
PSGOHSM	DONE+12!
PSGOINST	DONE+12!
PSGOL	DONE+12!
PSGOMR	DONE+12!
PSGOMRN	DONE+12!
PSGONV	DONE+4!
PSGOORD	DONE+12!
PSGOP	DONE+3!
PSGOPD	DONE+12!
PSGOPDN	DONE+12!
PSGOPRN	DONE+12!
PSGORD	DONE+12!
PSGOSCH	DONE+11!
PSGOSDN	DONE+11!
PSGOSI	DONE+11!
PSGOSM	DONE+11!
PSGOST	DONE+11!
PSGOSTN	DONE+11!
PSGP	START+11, DONE2+2!, P+2, P+4, P+5, P+10, P+11, P+13, P+14, P+15 , ARRAY+2, CL1+2, CL1+3, CL1+4, CL1+5, CL1+6, CL1+7, CL1+8, IF+2, IF+8 , IF+11, IF+12, IF+14, IFT2+1, IFT2+2, SET+2, SET+3, SET+5, SET+7, SETPN+5 , SETPN+7
PSGP(0	P+15, ARRAY+2, SETPN+5
PSGPD	DONE+11!
PSGPDN	DONE+11!
PSGPEN	DONE+11!
PSGPENWS	DONE+11!
PSGPR	DONE+11!, DONE+12!
PSGPRD	DONE+5!
PSGPRIF	START+11!, DONE+3!
PSGPRIN	DONE+5!
PSGPRN	DONE+11!
PSGPTMP	PSJCLOR+7~, START+11*
PSGPX	DONE+4!
PSGPXN	START+7, START+8, DONE+14!
PSGS0XT	DONE+11!
PSGSCH	DONE+11!
PSGSDN	DONE+11!
PSGSM	DONE+11!
PSGSS	START+2~, START+11, DONE+3!, GO+1, GO+2, ARRAY+2, ARRAY+3, ARRAY+4, CL+2, CL+6 , IF+3, SET+10, SELECT+5, CHK+2, CHK+3, CHK+4
PSGSS2	DONE+6!, CHK2+2, CHK2+3, CHK2+4
PSGSSA	SELECT+7!, CHK+2, CHK+3, CHK2+2, CHK2+3
PSGSSH	START+8, DONE+3!, SELECT+2, CHK+5, CHK2+5
PSGST	DONE+11!
PSGSTAT	DONE+11!
PSGTOL	DONE+4!
PSGUOW	DONE+4!
PSGVADR	DONE+11!
PSGVALG	DONE+11!
PSGVBPN	DONE+5!
PSGVBTM	DONE+5!
PSGVBWN	DONE+5!
PSGVBWTO	DONE+4!
PSGVBWW	START+9, DONE+4!, GO+2, P+16, ARRAY+2, CL+5
PSGVBY	DONE+5!
PSGWORP1	DONE+5!
PSGWORP2	DONE+5!
PSIVAC	DONE+11!
PSIVACT	DONE+10!
PSIVC	DONE+10!
PSIVITE	DONE+10!
PSIVLIM	DONE+10!
PSIVLN	DONE+10!
PSIVNOW	DONE+10!
PSIVPL	DONE+10!
PSIVPR	DONE+10!
PSIVREA	DONE+10!
PSIVRP	DONE+10!
PSIVRT	DONE+10!
PSIVSN	DONE+5!
PSIVSTRT	DONE+10!
PSIVTYPE	DONE+10!
PSIVUP	DONE+10!
PSJ	DONE+10!
PSJACNWP	DONE+10!
PSJASK	DONE+4!
PSJBCID	DONE+10!
PSJBEG	START+2~, DONE+2!, DTRANGE+1!, DTRANGE+2, DTRANGE+3, BEGDT+4, BEGDT+5, P+1, P+3, P+6 , P+13, P+18*, CL+1, IF+4, IF+7, IF+11, IFT2+2, SET+4
PSJBLN	DONE+10!
PSJBLOOP	DONE+10!
PSJCDONE	C+1!, C+2, CDIC+1, CDIC+3, CDIC+4*
PSJCLIN	DONE+10!
PSJCLNAR	C+1!, L+1!, P+1~*, SELECT+4~
PSJCLNAR(	CDIC+2, LDIC+2, CL+3, CL+4, IF+3, SET+10
PSJCLNAR(0	CDIC+1
PSJCLOR	START+2~*
PSJCNT	DONE+5!, P+2, P+15
PSJCOUNT	DONE+9!
PSJCT	DONE+3!
PSJDAY	DONE+9!
PSJDB	DONE+9!
PSJEND	START+2~, DONE+2!, DTRANGE+1!, DTRANGE+3, ENDDT+3, ENDDT+4, ENDDT+5, P+1, P+3, P+6 , P+18*, CL+1, IF+4, IFT2+2, SET+4
PSJEXTP	DONE+6!
PSJH	DONE+6!
PSJHDATE	DONE+6!
PSJHLMTN	DONE+9!
PSJINDEX	DONE+5!
PSJIVORF	DONE+9!
PSJL	DONE2+2!
PSJLACT	DONE+9!
PSJLM	DONE+4!
PSJLMX	DONE+9!
PSJLOOP	DONE+9!
PSJMSG	DONE+9!
PSJNEW	PSJCLOR+7~*
PSJNOO	DONE+9!
PSJNV	DONE+6!, P+4, P+5, P+7, P+8, P+10, P+12, P+15, IFT2+4
PSJO	DONE+9!
PSJOCL	DONE+9!
PSJOL	DONE+9!
PSJONTMP	DONE+9!
PSJOPC	DONE+4!
PSJORD	DONE+9!
PSJORF	DONE+9!
PSJORIFN	DONE+9!
PSJORL	DONE+4!
PSJORPCL	DONE+4!
PSJORTOU	DONE+4!
PSJORVP	DONE+4!
PSJPAC	START+2~*, DONE+5!, IF+8, IF+11
PSJPAD	DONE+6!
PSJPAGE	DONE+7!
PSJPBID	DONE+6!, DONE+7!, P+15, SETPN+5
PSJPCAF	DONE+7!
PSJPDD	DONE+7!
PSJPDOB	DONE+7!
PSJPDX	DONE+7!
PSJPINIT	DONE+9!
PSJPNV	DONE+3!
PSJPPID	DONE+7!
PSJPRB	DONE+7!, SET+11
PSJPROT	START+8*, DONE+4!
PSJPSEX	DONE+7!
PSJPSSN	DONE+7!
PSJPSTO	DONE+9!
PSJPTD	DONE+7!
PSJPTS	DONE+7!
PSJPTSP	DONE+7!
PSJPWD	DONE+7!
PSJPWDN	DONE+7!
PSJSTAT	P+1~, P+14, IF+1~, IF+5, IF+8, IF+9, IF+14, IF+15, SET+2~, SET+5* , SET+6
>> PSJSYSP	START+7, DONE+14
>> PSJSYSP0	START+10
>> PSJSYSU	START+8, START+10
PSJTEAM	DONE+9!
PSJTMPBG	START+2~, BEGDT+4*, P+3!, P+18!
PSJTMPED	START+2~, ENDDT+3*, P+3!, P+18!
PSJTOO	START+2~*, DONE+4!
PSJVALQ	START+11, DONE+8!, SELECT+1
PSJX	DONE+8!
PSOC	DONE+8!
PTPRI	DONE+2!, SET2+3*, SET2+4
PX	DONE+4!
Q	CHK+1~, CHK+2, CHK2+1~, CHK2+2
QX	DONE+8!
RB	DONE+3!, GO+1!
RNDT	DONE+8!
RSLT	DONE+8!
RTE	DONE+8!
SCH	DONE+8!, IF+12~, IF+13
SD	DONE+3!, GO+1!, P+13, P+14, IF+8, IF+11*
SDW	DONE+8!
SEQ	DONE+8!
SETPN	DONE+2!, SET2+2*, SET2+3, SET2+4, SET2+5
SETTM	DONE+2!, SET2+4*, SET2+5
SETWDN	DONE+2!, SET2+4*, SET2+5
SM	DONE+8!
SORT	DONE+8!
ST	DONE+3!, IF+8*
STAST	DONE+8!
STATUS	DONE+2!
STOP	DONE+8!
STOPD	P+1~, P+10, CL+1~, CL1+3, CL1+6*
STYPE	IF+12~, IF+13, IF+15
SUBS	DONE+2!, SET2+4*
SWD	DONE+8!
TM	DONE+3!, GO+1!, SET+11*, SETPN+6, SETPN+7
TMPAT	DONE+8!
TMPCL	LDIC+2~*
TMPCNT	DONE+8!, LDIC+2~*
TMPDT	DONE+8!
TMPNEWSD	DONE+8!
TMPSEL	DONE+8!
TMPSTOP	CL+1~, CL1+4, CL1+5, CL1+7, CL1+8
TMPSTP	P+6~, IF+3, IF+4, IFT2+1~, IFT2+2, SET+2~, SET+3, SET+4
TMPSTRT	P+1~, P+6~, P+11, CL+1~, CL1+4, CL1+5, CL1+7, CL1+8, CL1+9!, IF+3* , IF+4, IF+16!, IFT2+1~, IFT2+2, SET+2~, SET+4
TMPWD	DONE+2!, SET+1!, SET+9*, SET+10, SET+11, SETPN+6, SETPN+7
TYPE	DONE+8!
U	P+15, IF+3, IF+12, IF+13, SET+2, SET+3, SETPN+5
WD	START+11*, DONE+3!, GO+1!
WDN	DONE+3!, GO+1!, CL1+1, SET+9, SETPN+6, SETPN+7
WDNAME	DONE+3!, SET+1!, SET+9*
WG	START+11*, DONE+3!, GO+1!
WRD	DONE+8!
WS	DONE+8!
X	GO+1!, CDIC+5, CDIC+6, CDIC+7, LDIC+3, LDIC+4, ARRAY+2, SET+1!, SET+7, SET+8 , SET+9, EXIT~, EXIT+1, CHK+3, CHK2+3*, ENCD+1
X1	DONE+2!, ARRAY+2*
X2	DONE+2!, ARRAY+2*
XQORNOD	DONE+8!
XQUIT	START+3!, START+4!
XRT0	DONE+8!
XRTL	DONE+8!
XRTN	DONE+8!
XX	P+5~, IF+2~, IF+3
Y	START+11, GO+1!, C+2, CDIC+1, CDIC+2, CDIC+3, CDIC+6, DTRANGE+2, DTRANGE+3, DTRANGE+4 , BEGDT+4, ENDDT+3, LDIC+1, LDIC+3, P+17, SET+1!, SET+9
YRONLY	BEGDT+5~, ENDDT+1~, ENDDT+4, ENDDT+5
ZTSAVE	DONE+8!

Customize PDF page

Package: Inpatient Medications