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
|