©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
PSUAR2 ;BIR/PDW - ASSEMBLE AR/WS RECORDS FOR TRANSMISSION ;10 JUL 1999
Source file <PSUAR2.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | $$VERSION^XPDUTL |
| National Drug File | 1 | ($$FORMI,$$FORMR)^PSNAPIS |
| Pharmacy Benefits Management | 1 | ($$VAL,GETS,MOVEI)^PSUTL |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Benefits Management | 2 | PSUAR0 PSUPR1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DRUGSCAN | ;EP Scan for Drugs within division
|
|
| EN | ;EP Build ("RECORDS") from scan of ^XTMP(PSUARSUB,"DIV_DRUG",Drug,Div)=Total
|
|
| 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
|
|
| RECORD(PSUDRDA,PSUDIV,PSUTOT) | ;EP Return record assembled
|
|
| REC | ;EP Move PSUAR_RECORDS to PSUAREC)
|
|
| STORE | ;Store the processed values into ^TMP
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | EN+2!, EN+3!, EN+4, DRUGSCAN+2, DRUGSCAN+4*, DRUGSCAN+5, DRUGSCAN+6*, RECORD+5, STORE+1*, REC+1* |
| Name | Line Occurrences |
|---|---|
| $$RECORD | DRUGSCAN+4 |
| DRUG | RECORD+5 |
| DRUGSCAN | EN+4 |
| STORE | PROCESS+21 |
| 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 |