Routine: PSUCS3

Information

PSUCS3 ;BIR/DJE,DJM - GENERATE PSU CS RECORDS (TYPE 17) ;25 AUG 1998

Source file <PSUCS3.m>

Name	Comments	DBIA/ICR reference
TYP17	; Processing the transaction for dispensing type 17
MULTCHK	; ; store in array (quit if already administered)
FACILTY	;
SSN	;Field # 58.81,73 [PATIENT] Points to File # 2
DUNIT	;Dispense Unit
UNITC	;Unit Cost
QTY17	;For transactions with a dispensing type =17, total the number of doses