Routine: PSJDDUT

Information

PSJDDUT ;BIR/LDT-INPATIENT MEDICATIONS DD UTILITY ; 3/23/11 7:55am

Source file <PSJDDUT.m>

Name	Comments	DBIA/ICR reference
SPCIN	;Called from Non-Verified Orders File (53.1), Special Instructions
CHKSI	;Called from Non-Verified Orders File (53.1), Special Instructions
CHK1	;
CHK
TS
STRDT	;Called from Non-Verified Orders File (53.1),Start Date/Time field 10
POUT	;
UNPD	;Called from Non-Verified Orders File (53.1), Units Per Dose field 13
SCH	;Called from Non-Verified Orders File (53.1), Schedule field 26
ENOS	; order set entry
NS
Q	;
SCH3	;Called from Non-Verified Orders File (53.1), Schedule field 26
HT	;
ADTM2	;Called from Non-Verified Orders File (53.1), Admin Times field 39
WRDGP	;Called from Ward Group File (57.5), Ward Group field .01
LBLS	;Called from Inpatient Ward Parameters file (59.6), field .11
SCHTP	;Called from the Unit Dose Multiple of file 55, Schedule Type field 7
EN	;Called from Non-Verified Orders file 53.1, Start/Date Time field 10
ENGO	;
MWF	; if schedule is similar to monday-wednesday-friday
SCHK
DONE	;
ADD	;
WRITE	;Calls EN^DDIOL to write text

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "(Press RETURN to continue.) " Variable: Q Timeout: DTIME Line Location: SCH3+6
Function Call: WRITE	Prompt: !,"There is no schedule and/or administration time that falls between the Start Date/Time" Line Location: ENGO+11
Function Call: WRITE	Prompt: !,"and Stop Date/Time. For the order to be valid the schedule and/or administration time" Line Location: ENGO+12
Function Call: WRITE	Prompt: !,"must fall between the order's Start Date/Time and Stop Date/Time.",! Line Location: ENGO+13

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