©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
PSUUD2 ;BIR/TJH - PBM UNIT DOSE SUBROUTINES & FUNCTIONS ;24 DEC 2003
Source file <PSUUD2.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Benefits Management | 4 | (GETS,MOVEI)^PSUTL SECTN^PSUTL1 ICN^PSUV1 GETDIV^PSUV3 |
| VA Fileman | 2 | C^%DTC DT^DILF |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DISAMT | ; precompute dispensed amounts by drug
|
|
| TMPDD | ; create Dispense Drug record and store in ^XTMP
|
|
| TMPUDQ | ||
| SETUP | ; set up some variables required later
|
|
| DISAMTQ | ||
| TMPUD | ; store Unit Dose data in first half of record, pieces 2-7
|
|
| SETUPQ | ||
| DAL134 | ||
| TMPDDQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(55 - [#55] | DAL134, DAL134+4 |
| ^TMP($J | DISAMTQ! |
| ^XTMP( | SETUP+11!, SETUP+14*, TMPDD+16*, TMPDD+18*, TMPDD+23*, TMPDD+25, TMPDD+26*, TMPDD+27*, TMPDD+28, TMPDD+29* , TMPDD+30*, TMPDD+35, TMPDD+36*, TMPDD+37*, TMPDD+39*, TMPDD+40* |
| ^XTMP("PSU_" | TMPDD+10, TMPDD+32*, TMPDD+33* |
| Name | Line Occurrences |
|---|---|
| DAL134 | DAL134+9, DAL134+20 |
| DISAMTQ | DAL134+1, DAL134+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | SETUP+7! |
| %H | SETUP+7! |
| %T | SETUP+7! |
| DADATE | DISAMT+1~, DAL134+8* |
| DADRUG | DISAMT+1~, DAL134+9*, DAL134+12, DAL134+14, DAL134+16, DAL134+17 |
| DAHOW | DISAMT+1~, DAL134+11*, DAL134+12, DAL134+13, DAL134+15 |
| DAMT | DISAMT+1~, DAL134+10*, DAL134+12, DAL134+14, DAL134+16 |
| >> DISPDA | DAL134+3*, DAL134+4* |
| DISPI | DAL134+5!, DAL134+19! |
| DISPI( | DAL134+8, DAL134+9, DAL134+10, DAL134+11 |
| >> DLM | TMPUD+1*, TMPUD+2, TMPUD+3, TMPDD+3*, TMPDD+4, TMPDD+5, TMPDD+6, TMPDD+7, TMPDD+8, TMPDD+11 , TMPDD+20 |
| DT | SETUP+13, SETUP+14 |
| >> EXTD | SETUP+2, SETUP+4 |
| >> EXTD(0 | SETUP+3, SETUP+5 |
| >> PSDATE | SETUP+8* |
| >> PSDOSE | DAL134, DAL134+4 |
| >> PSPAT | DAL134, DAL134+4 |
| PSUDAMT | TMPDD+1~*, TMPDD+2, TMPDD+8, TMPDD+37, TMPDD+39, TMPDD+40 |
| PSUDAS | DISAMT+2! |
| PSUDAS( | DAL134+12*, TMPDD+1 |
| PSUDAS("DISP" | DAL134+14*, DAL134+17, TMPDD+15 |
| PSUDAS("NET" | DAL134+17* |
| PSUDAS("RET" | DAL134+16*, DAL134+17, TMPDD+17 |
| >> PSUDISD( | TMPDD+1, TMPDD+7, TMPDD+15, TMPDD+17 |
| >> PSUDIV | TMPDD+31*, TMPDD+33 |
| >> PSUDIVNM | TMPDD+31, TMPDD+32, TMPDD+33 |
| >> PSUDNFI | TMPDD+6, TMPDD+36 |
| >> PSUDNFR | TMPDD+6 |
| >> PSUDOSE( | TMPUD+2, TMPDD+25, TMPDD+26 |
| >> PSUDOSE(1 | TMPDD+11 |
| >> PSUDOSE(10 | TMPUD+2 |
| >> PSUDOSE(26 | TMPUD+3 |
| >> PSUDRUG( | TMPDD+5, TMPDD+7, TMPDD+35, TMPDD+36, TMPDD+37 |
| >> PSUDRUG(16 | TMPDD+8, TMPDD+36, TMPDD+40 |
| >> PSUDRUG(2 | TMPDD+4 |
| >> PSUDRUG(21 | TMPDD+4 |
| >> PSUDRUG(3 | TMPDD+8 |
| >> PSUDRUG(31 | TMPDD+5 |
| >> PSUDRUG(51 | TMPDD+6, TMPDD+36 |
| >> PSUDRUG(52 | TMPDD+8 |
| PSUDSP | TMPDD+14~, TMPDD+15*, TMPDD+16, TMPDD+20 |
| PSUDTLRN | SETUP+12! |
| PSUDTLRN( | TMPDD+3*, TMPDD+23 |
| >> PSUEDT | SETUP+4, SETUP+9 |
| >> PSUEDTIM | SETUP+9* |
| >> PSUFACN | TMPUD+2, TMPDD+3, TMPDD+16, TMPDD+18, TMPDD+23, TMPDD+25, TMPDD+26, TMPDD+27, TMPDD+28, TMPDD+29 , TMPDD+30, TMPDD+31, TMPDD+35, TMPDD+36, TMPDD+37, TMPDD+39, TMPDD+40 |
| >> PSUJOB | SETUP+10*, TMPDD+10, TMPDD+32, TMPDD+33 |
| >> PSUPICN | TMPDD+10*, TMPDD+11 |
| PSURET | TMPDD+14~, TMPDD+17*, TMPDD+18, TMPDD+19*, TMPDD+20 |
| >> PSURP("END" | SETUP+5* |
| >> PSURP("START" | SETUP+3* |
| >> PSUSDT | DISAMT+4, SETUP+2, SETUP+6 |
| >> PSUSSN | TMPUD+3, TMPDD+28, TMPDD+29, TMPDD+32, TMPDD+33 |
| >> PSUTEDT | DAL134+2 |
| >> PSUUDST | TMPDD+11 |
| >> PSUUDSUB | SETUP+10*, SETUP+11, SETUP+14, TMPDD+16, TMPDD+18, TMPDD+23, TMPDD+25, TMPDD+26, TMPDD+27, TMPDD+28 , TMPDD+29, TMPDD+30, TMPDD+35, TMPDD+36, TMPDD+37, TMPDD+39, TMPDD+40 |
| >> PSUVSSN | TMPUD+3 |
| >> PSUXX | DISAMT+4*, DAL134*, DAL134+1, DAL134+2, DAL134+4 |
| >> REC1 | TMPUD+1*, TMPUD+2*, TMPUD+3*, TMPDD+4 |
| >> REC2 | TMPDD+3*, TMPDD+4*, TMPDD+5*, TMPDD+6*, TMPDD+7*, TMPDD+8*, TMPDD+11*, TMPDD+20*, TMPDD+23 |
| U | SETUP+14, TMPDD+36, TMPDD+37 |
| >> X | SETUP+8, SETUP+14 |
| >> X1 | SETUP+6*, SETUP+13* |
| >> X2 | SETUP+6*, SETUP+13* |