©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
PSDRPGS1 ;BIR/JPW-Reprint Green Sheet (VA FORM 10-2638) cont'd ; 3 Mar 98
Source file <PSDRPGS1.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ^%ZIS ^%ZISC |
| Controlled Substances | 1 | A7BAR^PSDPGS1 |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;set data for printing
|
|
| END | ||
| SETT | ;set trans naous
|
|
| START | ;loop through transactions
|
|
| ;print green sheet
|
||
| LOOP |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | SET+10, PRINT+3 |
| ^PSD(58.8 - [#58.8] | SET+6, SET+19, SETT+3 |
| ^PSD(58.81 - [#58.81] | LOOP+1, SET+2, SET+4, SET+9, SET+12, SET+15, SET+18, SETT+1, SETT+2, SETT+4 |
| ^PSDRUG - [#50] | SET+7 |
| ^VA(200 - [#200] | SET+13, SET+14 |
| Name | Line Occurrences |
|---|---|
| LOOP | START+4, LOOP+2 |
| SET+15 | |
| SET | LOOP+1 |
| SETT | SET+17, SETT+4 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SET+6, SET+7, SET+13, SET+14, SET+19, SETT+3 |
| ^(1 | SET+12 |
| ^(4 | SET+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | END! |
| >> A7BAR0 | PRINT+7 |
| >> A7BAR1 | PRINT+7 |
| >> A7PRT | PRINT+7 |
| ANS | END! |
| ASK | END!, PRINT+10 |
| C | END! |
| CNT | END!, SET+15*, SET+18, SET+19, PRINT+6, SETT+1, SETT+3, SETT+4* |
| D | END! |
| DA | END!, PRINT+12!* |
| DIC | END! |
| DIE | END!, PRINT+12!* |
| DIR | END! |
| DIROUT | END! |
| DIRUT | END! |
| DR | END!, PRINT+12!* |
| DTOUT | END! |
| DUOUT | END! |
| EXP | END!, SET+10* |
| EXPD | END!, SET+10*, PRINT+8 |
| IO | START+2 |
| IOF | PRINT+5 |
| ION | START+2 |
| >> IOP | START+2* |
| LINE | END!, PRINT+9* |
| LOT | END!, SET+10*, PRINT+8 |
| NAOU | END!, SET+18*, SET+19, SETT+2*, SETT+3 |
| NAOUN | END!, SET+6*, PRINT+5, PRINT+8 |
| NODE | END!, SET+2*, SET+3, SET+5, SET+7, SET+8, SET+9, SET+10 |
| NODE1 | END!, SET+12* |
| OK | END+1! |
| ORD | END+1!, SET+11*, SET+12*, SET+13 |
| ORDN | END+1!, SET+11*, SET+13*, PRINT+1*, PRINT+8 |
| POP | END+1! |
| PRT | END+1! |
| PSD | START+3*, END+1!, SET+5*, SET+6 |
| PSD1 | START+4*, END+1!, LOOP |
| PSD1( | START+4, LOOP |
| PSDA | END+1!, LOOP+1*, SET+2, SET+4, SET+9, SET+12, SET+15, PRINT+12 |
| PSDBY | END+1!, SET+11*, SET+12*, SET+14 |
| PSDBYN | END+1!, SET+11*, SET+14*, PRINT+2*, PRINT+8 |
| PSDCNT | START+3*, END+1!, LOOP* |
| PSDCPI | END+1! |
| PSDDT | END+1!, PRINT+3*, PRINT+4*, PRINT+8 |
| PSDEV | END+1! |
| PSDOUT | END+1!, SET+1*, SET+15, SET+17, SETT+2* |
| PSDPN | END+1!, LOOP*, LOOP+1, PRINT+7, PRINT+8, PRINT+11 |
| PSDR | END+1!, SET+7* |
| PSDRN | END+1!, SET+7*, PRINT+8, PRINT+11 |
| PSDS | START+3, END+1!, SET+3 |
| PSDSN | END+1! |
| PSDT | END+1!, SET+8*, PRINT+3, PRINT+4 |
| PSDTR | END+1!, SET+1! |
| PSDTR( | SET+15*, SET+18, SET+19*, PRINT+6, SETT+1, SETT+3*, SETT+4* |
| PSDTRN | END+1!, SETT+1*, SETT+2, SETT+4 |
| PSDYR | END+1!, PRINT+4* |
| QTY | END+1!, SET+9*, PRINT+8 |
| REPRINT | END+1!, SET+4*, PRINT+5 |
| SITE | END+1! |
| STAT | END+1! |
| TRANS | END+1!, SET+1!, SET+16*, PRINT+5, PRINT+6 |
| U | SET+3 |
| Y | END+1!, SET+10*, PRINT+3*, PRINT+4 |
| ZTDESC | END+1! |
| ZTDTH | END+1! |
| >> ZTQUEUED | START+2, END+2 |
| >> ZTREQ | END+2* |
| ZTRTN | END+1! |
| ZTSAVE | END+1! |
| ZTSK | END+1! |