Routine: PSJORMA1

Information

PSJORMA1 ;BIR/MV-COLLECT MAR DATA FOR U/D AND INPATIENT MED PENDINGS. ; 10 Mar 98 / 8:50 AM

Source file <PSJORMA1.m>

Name	Comments	DBIA/ICR reference
BLANK(LEN)	;
TXT(TXT,LEN)
SPLIT	;* Split a word string into individual words.
LEN(X1,OLD)	;* Wrap word around if it doesn't fit the display lenght.
DELIM(BSD)	;* BSD=" ","/","-"
MARLB(LEN)
MARLB2	;Slit array into 2 labels.