©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
PSDPLOG1 ;BIR/JPW,LTL-CS Inspector's Log (cont'd) ; 31 May 95
Source file <PSDPLOG1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;sets ^tmp
|
|
| END | ||
| START | ;compile data
|
|
| PRTQUE | ;queues print after compile
|
|
| LOOP1 | ;S:ASK="D" ^TMP("PSDLOG",$J,PSDNA,TYPN,PSDRN,NUM,PSDCNT)=QTY_"^"_PSDDT_"^"_EXPD_"^"_PSDOK
|
|
| LOOP0 | ;sets sort for inventory type sort
|
|
| LOOP | ;starts drug loop
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | START+14, START+15, LOOP+12, LOOP+13 |
| ^PSD(58.8 - [#58.8] | START+2, START+3, START+4, START+5, START+7, START+13, LOOP+1, LOOP+2, LOOP+9, LOOP0+1 , LOOP0+3 |
| ^PSD(58.81 - [#58.81] | START+8, START+9, START+10, LOOP+10 |
| ^PSD(58.82 - [#58.82] | LOOP+11 |
| ^PSDRUG - [#50] | START+11, LOOP+11 |
| ^PSI(58.16 - [#58.16] | LOOP0+3 |
| ^PSI(58.2 - [#58.2] | START+2 |
| ^TMP("PSDLOG" | START+1!, PRTQUE+3!, END+3!, SET+3*, SET+4*, LOOP1+3*, LOOP1+4*, LOOP1+5*, LOOP1+6*, LOOP1+9* , LOOP1+10*, LOOP1+11* |
| Name | Line Occurrences |
|---|---|
| LOOP | START+4, START+5, START+7 |
| LOOP0 | SET+2 |
| LOOP1 | LOOP0+1, LOOP0+3 |
| PRTQUE | START+17 |
| SET | START+16, LOOP+14 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | START+2, START+3, START+11, START+13, LOOP+9, LOOP+11, LOOP0+3 |
| ^(3 | START+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | END! |
| %DT | END! |
| %H | END! |
| %I | END! |
| %ZIS | END! |
| ALL | START+3, END! |
| ASK | END!, SET+3, SET+4, LOOP1+2, LOOP1+8 |
| ASKN | START+18, PRTQUE+1, END!, SET+2 |
| CNT | START+2*, END! |
| DA | END! |
| DIC | END! |
| DIE | END! |
| DIR | END! |
| DIROUT | END! |
| DIRUT | END! |
| DR | END! |
| DTOUT | END! |
| DUOUT | END! |
| EXP | START+14*, END!, LOOP+12* |
| EXPD | START+14*, END!, LOOP+12*, SET+3, SET+4, LOOP1+5, LOOP1+11 |
| JJ | START+8*, START+9, END! |
| NAOU | END! |
| NAOU( | START+2*, START+3*, START+12, LOOP+9 |
| NODE | START+10*, START+12, START+14, END!, LOOP+2*, LOOP+5, LOOP+10, LOOP+11, LOOP+12, LOOP+13 |
| NODE3 | START+10*, START+14, END! |
| NUM | START+14*, END!, LOOP+12*, SET+3, SET+4, LOOP1+5, LOOP1+11 |
| OK | END+1! |
| PSD | START+2*, START+3*, START+4*, START+5*, START+7*, START+12*, START+13, END+1!, LOOP+1, LOOP+2 , LOOP+9, LOOP0+1, LOOP0+3, LOOP1+3, LOOP1+4, LOOP1+5, LOOP1+6, LOOP1+9, LOOP1+10, LOOP1+11 |
| PSDA | START+9*, START+10, END+1!, LOOP+2* |
| PSDCNT | START+1*, END+1!, SET+1*, SET+3, SET+4, LOOP1+5, LOOP1+11 |
| PSDDT | START+15*, END+1!, LOOP+13*, SET+3, SET+4, LOOP1+5, LOOP1+11 |
| PSDG | START+2, END+1! |
| PSDG( | START+2 |
| PSDIO | PRTQUE+1, END+1! |
| PSDN | START+2*, START+8*, START+9, START+15, END+1! |
| PSDNA | START+13*, END+1!, LOOP+9*, SET+3, SET+4, LOOP1+3, LOOP1+9 |
| PSDOK | START+9*, END+1!, LOOP+10*, SET+3, SET+4, LOOP1+5, LOOP1+11 |
| PSDOUT | START+1*, START+8, START+9, END+1! |
| PSDPT | END+1! |
| PSDR | START+9*, START+11, END+1!, LOOP+1*, LOOP+2, LOOP+11, LOOP0+1, LOOP0+3, LOOP1+5, LOOP1+6 , LOOP1+11 |
| PSDRD | END+1! |
| PSDRDT | END+1! |
| PSDRET | START+8, END+1! |
| PSDRN | START+11*, END+1!, LOOP+11*, SET+3, SET+4, LOOP1+6, LOOP1+11 |
| PSDSD | START+8, END+1! |
| >> PSDSITE | START+2, START+3 |
| PSDST | END+1!, LOOP+13* |
| PSDT | END+1! |
| PSDTR | END+1!, LOOP+10* |
| QTY | START+14*, END+2!, LOOP+12*, SET+3, SET+4, LOOP1+5, LOOP1+11 |
| SEL | END+2! |
| STAT | START+4*, START+5*, START+7*, END+2!, LOOP+1, LOOP+2, LOOP+10 |
| >> STAT1 | LOOP+5*, LOOP+6, LOOP+11* |
| >> STAT2 | LOOP+5*, LOOP+7 |
| STATN | END+2!, LOOP+11* |
| TYP | END+2!, LOOP0+3*, LOOP1+1*, LOOP1+3, LOOP1+4, LOOP1+5, LOOP1+6, LOOP1+9, LOOP1+10, LOOP1+11 |
| TYPN | END+2!, LOOP0+1*, LOOP0+3*, LOOP1+4, LOOP1+10 |
| U | LOOP1+5, LOOP1+11 |
| X | END+2! |
| Y | START+14*, START+15*, END+2!, LOOP+12*, LOOP+13* |
| ZTDESC | PRTQUE+1*, END+2! |
| ZTDTH | PRTQUE+1*, END+2! |
| ZTIO | PRTQUE+1!*, END+2! |
| >> ZTQUEUED | START+17, END+4 |
| >> ZTREQ | END+4* |
| ZTRTN | PRTQUE+1*, END+2! |
| ZTSAVE | PRTQUE+1!, END+2! |
| ZTSAVE("ASK" | PRTQUE+2* |
| ZTSAVE("ASKN" | PRTQUE+2* |
| ZTSAVE("CNT" | PRTQUE+2* |
| ZTSAVE("^TMP(""PSDLOG"",$J," | PRTQUE+2* |
| ZTSK | PRTQUE+3!, END+2! |