©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
PSDPDR1 ;BIR/BJW-Narc Disp/Rec Report (VA FORM 10-2321) (cont'd) ; 03 Mar 98
Source file <PSDPDR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;compile data
|
|
| PRTQUE | ;queues print after compile
|
|
| END |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | START+17, START+18 |
| ^PSD(58.8 - [#58.8] | START+2, START+3, START+6 |
| ^PSD(58.81 - [#58.81] | START+4, START+5, START+7, START+9, START+10, START+12, START+13, START+16, START+17 |
| ^PSD(58.82 - [#58.82] | START+8 |
| ^PSDRUG - [#50] | START+7 |
| ^PSI(58.2 - [#58.2] | START+2 |
| ^TMP("PSDRPT" | START+1!, START+21*, PRTQUE+3!, END+2! |
| ^VA(200 - [#200] | START+16 |
| Name | Line Occurrences |
|---|---|
| PRTQUE | START+4 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | START+2, START+3, START+6, START+7, START+8, START+16 |
| ^(4 | START+9, START+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | END! |
| %H | END! |
| %I | END! |
| %ZIS | END! |
| ALL | START+3, END! |
| C | END! |
| CNT | START+2*, END! |
| COMM | START+10*, START+21, END! |
| COPY | END! |
| DA | END! |
| DIC | END! |
| DIE | END! |
| DIR | END! |
| DIROUT | END! |
| DIRUT | END! |
| DR | END! |
| DTOUT | END! |
| DUOUT | END! |
| EXP | START+10*, START+14*, END! |
| EXP1 | START+14*, END! |
| EXPD | START+10*, START+14*, START+21, END! |
| FLAG | END! |
| FNOTE | START+12*, START+13*, START+21, END+1! |
| LOT | START+10*, START+21, END! |
| MFG | START+10*, START+21, END! |
| NAOU | END! |
| NAOU( | START+2*, START+3*, START+6 |
| NEWBAL | START+12*, START+13*, START+21, END! |
| NODE | START+5*, START+7, START+9, START+10, START+13, START+15, START+18, END! |
| NUM | START+15*, START+21, END! |
| OK | END+1! |
| ORD | START+16*, END+1! |
| ORDN | START+16*, START+21, END+1! |
| POP | END+1! |
| PSD | START+2*, START+3*, START+4*, END+1! |
| PSDA | START+4*, START+5, START+7, START+9, START+10, START+12, START+13, START+16, START+17, START+21 , END+1! |
| PSDCPY | END+1! |
| PSDDT | START+18*, START+19*, START+21, END+1! |
| PSDEV | END+1! |
| PSDG | START+2, END+1! |
| PSDG( | START+2 |
| PSDIO | PRTQUE+1, END+1! |
| PSDN | START+2*, START+5*, START+6, END+1! |
| PSDNA | START+6*, START+21, END+1! |
| PSDPT | END+1! |
| PSDR | START+7*, END+1! |
| PSDRN | START+7*, START+21, END+1! |
| PSDS | START+2, START+3, END+1! |
| PSDSN | END+1! |
| PSDST | START+18*, START+19, END+1! |
| PSDT | END+1! |
| PSDYR | START+17*, START+18*, START+19, END+1! |
| QTY | START+9*, START+13, START+21, END+1! |
| REQD | START+17*, END+1! |
| REQDT | START+17*, START+21, END+1! |
| SEL | END+1! |
| STAT | START+7*, START+8, END+1! |
| STATN | START+8*, END+1! |
| X | END+1! |
| Y | START+17*, START+18*, END+1! |
| ZTDESC | PRTQUE+1*, END+1! |
| ZTDTH | PRTQUE+1*, END+1! |
| ZTIO | PRTQUE+1!*, END+1! |
| >> ZTQUEUED | START+4, END+3 |
| >> ZTREQ | END+3* |
| ZTRTN | PRTQUE+1*, END+1! |
| ZTSAVE | PRTQUE+1!, END+1! |
| ZTSAVE("CNT" | PRTQUE+2* |
| ZTSAVE("PSDCPY" | PRTQUE+2* |
| ZTSAVE("PSDPT" | PRTQUE+2* |
| ZTSAVE("PSDS" | PRTQUE+2* |
| ZTSAVE("^TMP(""PSDRPT"",$J," | PRTQUE+2* |
| ZTSK | PRTQUE+3!, END+1! |