PSUCS3 ;BIR/DJE,DJM - GENERATE PSU CS RECORDS (TYPE 17) ;25 AUG 1998
Source file <PSUCS3.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 |
Package | Total | Caller Graph |
---|---|---|
Pharmacy Benefits Management | 1 | PSUCS1 |
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
|
Name | Field # of Occurrence |
---|---|
^("QT" | MULTCHK+7* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DFN | SSN+3* |
>> OLDXTMP | QTY17+9*, QTY17+10 |
>> PSUCSJB | MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, QTY17+9, QTY17+10 |
>> PSUDIV( | FACILTY+13*, FACILTY+16 |
>> PSUDRG(4 | MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, DUNIT+2, UNITC+2, QTY17+9, QTY17+10 |
>> PSUDUN( | DUNIT+2*, DUNIT+3 |
>> PSUFCN(1 | FACILTY+16*, FACILTY+17 |
>> PSUIENDA | MULTCHK+3, MULTCHK+11, QTY17+8 |
>> PSULOC | MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, QTY17+9, QTY17+10 |
>> PSULTP(1 | TYP17+13 |
>> PSUMCHK | MULTCHK+2* |
>> PSUPDU(16 | UNITC+2* |
>> PSUPIEN(73 | MULTCHK+5, MULTCHK+6, MULTCHK+11, MULTCHK+12, FACILTY+2, SSN+2, SSN+3, QTY17+9, QTY17+10 |
>> PSUQT(5 | MULTCHK+3*, MULTCHK+7, MULTCHK+12 |
>> PSURI | FACILTY+18* |
>> PSUSSN( | SSN+4* |
>> PSUTQ(5 | QTY17+8*, QTY17+10 |
>> PSUWARD(1 | FACILTY+8*, FACILTY+13 |
>> PSUWLC( | FACILTY+2*, FACILTY+3, FACILTY+4*, FACILTY+5, FACILTY+8 |
>> SENDER | FACILTY+17* |
>> UNIT | DUNIT+3* |
>> VA("PID" | SSN+4 |
>> X | MULTCHK+6*, MULTCHK+7 |