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
|
