©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
PSDADJB ;BIR/LTL-Review Adjustment Transactions for a Drug; 2 Nov 94 [ 05/01/95 3:11 PM ]
Source file <PSDADJB.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | BROWSE^DDBR ^DIR |
| Kernel | 1 | ^%ZISC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;compiles and prints output
|
|
| END | ||
| LOOP |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | LOOP+4 |
| ^PSD(58.81 - [#58.81] | LOOP, LOOP+1 |
| ^TMP("PSD" | LOOP+2*, LOOP+3*, LOOP+4*, LOOP+5*, END+3! |
| ^VA(200 - [#200] | LOOP+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CNT | START+2*, LOOP+2*, LOOP+3*, LOOP+4*, LOOP+5* |
| >> DIR("A" | END+1* |
| >> DIR(0 | END+1* |
| IO("Q" | END+2! |
| IOF | END |
| IOST | END, END+1 |
| >> LN | START+2*, LOOP+2 |
| PG | START+2~ |
| >> PSDA( | LOOP, LOOP+3 |
| >> PSDLOC | LOOP, LOOP+1 |
| >> PSDOUT | END+1 |
| PSDR | START+2~ |
| PSDR(2 | LOOP+1*, LOOP+4, LOOP+5 |
| >> PSDT | START+2*, LOOP*, LOOP+1 |
| >> PSDT(1 | LOOP*, LOOP+1, LOOP+3 |
| >> PSDTB | START+2 |
| >> PSDTB(1 | LOOP |
| >> PSDTB(2 | START+1 |
| >> PSDTB(3 | START+1 |
| >> PSDTI | START+1*, LOOP+6 |
| U | LOOP+4, LOOP+5 |
| >> Y | LOOP+4* |
| >> ZTQUEUED | END+2 |
| >> ZTREQ | END+2* |