Routine: PSJLIUTL

Information

PSJLIUTL ;BIR/MV - IV LM utilities modules ;Jul 02, 2018@09:45

Source file <PSJLIUTL.m>

Name	Comments	DBIA/ICR reference
FLDNO(X,COL)
LONG(Y,COL,LEN)	; Display long fields.
WRTDRG(DRGT)	; Print AD/SOL drugs for "backdoor" view.
WTPC	; Write provider comments.
TYPE()	; IV Type
STARTDT()	; Start Date
STARTDT2()	; Start Date with 4 digit year #373
STOPDT()	; Stop Date
STOPDT2()	; Stop Date with 4 digit year #373
PROVIDER()	; Provider
WDTE(Y)	; Format and print date.
ACTIONS()
ACT()	;
REQDT(ORDER)	;