©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSUPR3 ;BIR/PDW - EXTRACTION FROM FILE 58.81 ;12 AUG 1999
Source file <PSUPR3.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Benefits Management | 2 | DIV^PSUPR2 ($$VAL,$$VALI,GETS,MOVEI)^PSUTL |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOC | ;EP scan thru locations
|
|
| EN | ;EP from PSUPR0
|
|
| CONT | ;
|
|
| RECORD() | ;EP Assemble record for storage
; 3.2.11.38 |
|
| TYPE | ;EP Scan Thru Types
|
|
| TRAN | ;EP Scan Thru Transactions
|
|
| SCANDT | ; 3.2.6.31 scan Transaction date time
|
|
| TRANDA | ;EP work a transaction
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSD(58.81 - [#58.81] | SCANDT+4, LOC+2, TYPE+2, TRAN+2 |
| ^XTMP( | EN+5, EN+6*, EN+8*, CONT+7, CONT+9* |
| Name | Line Occurrences |
|---|---|
| $$RECORD | CONT+5 |
| LOC | SCANDT+4 |
| TRAN | TYPE+2 |
| TRANDA | TRAN+2 |
| TYPE | LOC+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | EN+7, EN+8 |
| >> I | RECORD+22*, RECORD+23* |
| >> PSUDIV | TRANDA+30*, CONT+1, CONT+2*, CONT+7, CONT+9, RECORD+3 |
| >> PSUDIVI | TRANDA+30*, CONT+1*, RECORD+4 |
| >> PSUDRDA | TRANDA+15*, TRANDA+17, RECORD+11 |
| PSUDRUG | TRANDA+16~ |
| PSUDRUG( | TRANDA+21*, RECORD+8, RECORD+10 |
| PSUDRUG(12 | TRANDA+24* |
| PSUDRUG(13 | RECORD+14, RECORD+15 |
| PSUDRUG(15 | RECORD+12, RECORD+15 |
| PSUDRUG(2 | RECORD+7 |
| PSUDRUG(21 | TRANDA+22*, RECORD+6 |
| PSUDRUG(31 | TRANDA+23*, RECORD+9 |
| >> PSUDT | SCANDT+1*, SCANDT+4*, LOC+2, TYPE+2, TRAN+2 |
| >> PSUDTDA | TRANDA+5*, RECORD+5 |
| >> PSUEDT | EN+1*, SCANDT+4 |
| >> PSUFLSFG | TRANDA+8, TRANDA+10 |
| >> PSUINV | TRANDA+31* |
| >> PSUINV(4 | TRANDA+31* |
| >> PSULC | CONT+7*, CONT+8*, CONT+9 |
| PSULOC | LOC+2*, TYPE+2, TRAN+2, TRANDA+27~, TRANDA+28*, TRANDA+31 |
| >> PSUPRJOB | EN+3*, EN+4 |
| >> PSUPRSUB | EN+4*, EN+5, EN+6, EN+8, CONT+7, CONT+9 |
| PSUR | RECORD+2~, RECORD+23*, RECORD+24*, RECORD+25 |
| PSUR( | RECORD+22*, RECORD+23 |
| PSUR(12 | RECORD+10* |
| PSUR(13 | RECORD+11* |
| PSUR(16 | RECORD+12* |
| PSUR(17 | RECORD+13* |
| PSUR(18 | RECORD+14* |
| PSUR(19 | RECORD+17* |
| PSUR(2 | RECORD+3* |
| PSUR(20 | RECORD+19* |
| PSUR(21 | RECORD+20* |
| PSUR(22 | RECORD+21* |
| PSUR(3 | RECORD+4* |
| PSUR(360 | RECORD+15*, RECORD+16*, RECORD+17, RECORD+18! |
| PSUR(4 | RECORD+5* |
| PSUR(5 | RECORD+6* |
| PSUR(6 | RECORD+7* |
| PSUR(7 | RECORD+8* |
| PSUR(9 | RECORD+9* |
| >> PSUREC | CONT+5*, CONT+9 |
| >> PSUSDT | SCANDT+1 |
| >> PSUSNDR | CONT+2 |
| PSUTR | TRANDA+2~ |
| PSUTR(1 | TRANDA+7 |
| PSUTR(106 | TRANDA+12 |
| PSUTR(107 | TRANDA+11 |
| PSUTR(12 | RECORD+19 |
| PSUTR(2 | TRANDA+28 |
| PSUTR(3 | TRANDA+5 |
| PSUTR(4 | TRANDA+15 |
| PSUTR(5 | RECORD+13, RECORD+15 |
| PSUTR(71 | TRANDA+9, RECORD+20 |
| PSUTR(8 | TRANDA+9 |
| >> PSUTRDA | TRAN+2*, TRANDA+3 |
| >> PSUTYP | TYPE+2*, TRAN+2 |
| >> X | EN+8 |
| >> X1 | EN+7* |
| >> X2 | EN+7* |