PSUCS17 ;BIR/DJE,DJM - GENERATE PSU CS RECORDS (TYPE 17) ;25 AUG 1998
Source file <PSUCS17.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| ^( | DRUG+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | EN+4*, EN+5*, DRUG+2, DRUG+3, SSN+3*, QTY17+8 |
| >> PSUCSJB | EN+3, EN+5, DRUG+2, QTY17+8 |
| >> PSUDRG | DRUG+4*, QTY17+8 |
| >> PSUDRG(4 | DUNIT+2, UNITC+2 |
| >> PSUDTM(3 | DRUG+5* |
| >> PSUDUN( | DUNIT+2*, DUNIT+3 |
| >> PSUIENDA | DRUG+4*, DRUG+5 |
| >> PSULOC | EN+2*, EN+3*, EN+5, DRUG+2, QTY17+8 |
| >> PSULTP(1 | TYP17+13 |
| >> PSUMCHK | EN+2* |
| >> PSUPDU(16 | UNITC+2* |
| >> PSUPIEN(73 | DRUG+3*, SSN+2, SSN+3 |
| PSUPLC | DRUG+11! |
| >> PSUSNDR | DRUG+5 |
| PSUSSN | DRUG+11! |
| PSUSSN( | SSN+4* |
| >> PSUTQY(5 | DRUG+9, QTY17+8* |
| >> PSUTYP | EN+2* |
| >> SENDER | DRUG+5* |
| >> UNIT | DUNIT+3* |
| >> VA("PID" | SSN+4 |
| >> X | DRUG+2*, DRUG+4 |
| Z | DRUG+1*, DRUG+2*, DRUG+4, DRUG+7~ |
