PSUAR2 ;BIR/PDW - ASSEMBLE AR/WS RECORDS FOR TRANSMISSION ;10 JUL 1999
Source file <PSUAR2.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 | 2 | PSUAR0 PSUPR1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;EP Build ("RECORDS") from scan of ^XTMP(PSUARSUB,"DIV_DRUG",Drug,Div)=Total
|
|
DRUGSCAN | ;EP Scan for Drugs within division
|
|
RECORD(PSUDRDA,PSUDIV,PSUTOT) | ;EP Return record assembled
|
|
DRUG(PSUDRDA) | ;EP assemble from file 50+ needed fields
; PSUDRDA is da for the DRUG in file 50 from (58.52,.01) ; Store the fields in ^XTMP(PSUARSUB,"PSUDRUG_DET",PSUDDA,Field)=value |
|
PROCESS | ;Further process field values into their final values
|
|
STORE | ;Store the processed values into ^TMP
|
|
REC | ;EP Move PSUAR_RECORDS to PSUAREC)
|
Name | Field # of Occurrence |
---|---|
^( | DRUGSCAN+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
PSU | RECORD+4~, RECORD+33*, RECORD+34*, RECORD+35 |
PSU( | RECORD+31*, RECORD+33 |
PSU(10 | RECORD+19* |
PSU(11 | RECORD+20* |
PSU(12 | RECORD+21* |
PSU(13 | RECORD+22* |
PSU(14 | RECORD+23* |
PSU(15 | RECORD+24* |
PSU(16 | RECORD+25* |
PSU(17 | RECORD+26* |
PSU(18 | RECORD+27* |
PSU(19 | RECORD+28* |
PSU(2 | RECORD+11* |
PSU(20 | RECORD+29* |
PSU(3 | RECORD+12* |
PSU(4 | RECORD+13* |
PSU(5 | RECORD+14* |
PSU(6 | RECORD+15* |
PSU(7 | RECORD+16* |
PSU(8 | RECORD+17* |
PSU(9 | RECORD+18* |
>> PSUARSUB | EN+2, EN+3, EN+4, DRUGSCAN+2, DRUGSCAN+4, DRUGSCAN+5, DRUGSCAN+6, RECORD+5, STORE+1, REC+1 |
>> PSUDDRDA | DRUGSCAN+1* |
PSUDIV | RECORD~, RECORD+9, RECORD+10 |
>> PSUDIVDA | EN+1*, EN+4*, DRUGSCAN+2, DRUGSCAN+4, RECORD+28, RECORD+29 |
PSUDIVH | RECORD+4~, RECORD+9*, RECORD+10*, RECORD+12 |
PSUDRDA | EN+1*, DRUGSCAN+2*, DRUGSCAN+4, DRUGSCAN+5, DRUGSCAN+6, RECORD~, RECORD+5, RECORD+28, RECORD+29, DRUG~ , DRUG+4, PROCESS+2, STORE+1 |
PSUDRUG | DRUG+3~, STORE+1 |
PSUDRUG( | PROCESS+5*, PROCESS+19*, PROCESS+20*, PROCESS+24*, PROCESS+26* |
PSUDRUG(20 | PROCESS+24, PROCESS+26 |
PSUDRUG(21 | PROCESS+4* |
PSUDRUG(22 | PROCESS+23, PROCESS+24, PROCESS+26 |
PSUDRUG(301 | PROCESS+6, PROCESS+7* |
PSUDRUG(31 | PROCESS+3* |
PSUDRUG(51 | PROCESS+2* |
PSUDRUG(52 | PROCESS+8* |
>> PSULC | EN+1*, DRUGSCAN+1*, DRUGSCAN+3*, DRUGSCAN+4 |
>> PSUMON | RECORD+13 |
PSUNDF | DRUG+3~, PROCESS+12*, PROCESS+13*, PROCESS+21, PROCESS+24, PROCESS+26 |
PSUNFR | PROCESS+27! |
PSUP | RECORD+4~, RECORD+30*, RECORD+31*, RECORD+32*, RECORD+33* |
PSUSEND | RECORD+4~, RECORD+9*, RECORD+10*, RECORD+11 |
>> PSUSNDR | RECORD+10 |
>> PSUTDSP( | RECORD+28 |
PSUTOT | DRUGSCAN+2*, DRUGSCAN+4, DRUGSCAN+6, RECORD~, RECORD+25 |
>> PSUTRET( | RECORD+29 |
>> PSUVPNDA | PROCESS+23* |
>> X | DRUGSCAN+5*, DRUGSCAN+6, RECORD+6*, RECORD+14, RECORD+15, RECORD+16, RECORD+17, RECORD+18, RECORD+19, RECORD+20 , RECORD+21, RECORD+22, RECORD+23, RECORD+24, RECORD+26, RECORD+27, PROCESS+6*, PROCESS+7 |