PSUCS17 ;BIR/DJE,DJM - GENERATE PSU CS RECORDS (TYPE 17) ;25 AUG 1998
Source file <PSUCS17.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;EP scan the ^XTMP(job,"MC",loc,pat,drug,qt)=PSUIENDA
; where type 17 were stored combining multiples for a patient |
|
DRUG | ;EP loop drugs within patient
|
|
TYP17 | ; Processing the transaction for dispensing type 17
|
|
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
|