PSDRLOG1 ;BIR/JPW-CS Inspector's Log By Date (cont'd) ; 24 Aug 94
Source file <PSDRLOG1.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SET | ;sets ^tmp | |
| END | ||
| START | ;compile data | |
| PRTQUE | ;queues print after compile | |
| LOOP1 | ;sets inv typ ^tmp | |
| LOOP0 | ;sets sort for inventory type sort | |
| LOOP | ;starts drug loop | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD("DD" | LOOP+11, LOOP+12 | 
| ^PSD(58.8 - [#58.8] | START+2, START+3, LOOP+6, LOOP+7, LOOP0+1, LOOP0+3 | 
| ^PSD(58.81 - [#58.81] | START+4, START+5, START+6, START+7, LOOP+1, LOOP+3 | 
| ^PSDRUG - [#50] | LOOP+9 | 
| ^PSI(58.16 - [#58.16] | LOOP0+3 | 
| ^PSI(58.2 - [#58.2] | START+2 | 
| ^TMP("PSDLOG" | LOOP1+4* | 
| ^TMP("PSDRLOG" | START+1!, PRTQUE+3!, END+3!, SET+1*, SET+2*, LOOP1+4*, LOOP1+5*, LOOP1+6*, LOOP1+7*, LOOP1+10* , LOOP1+11*, LOOP1+12* | 
| Name | Line Occurrences | 
|---|---|
| LOOP | START+4, START+6, START+7 | 
| LOOP0 | LOOP+14 | 
| LOOP1 | LOOP0+1, LOOP0+3 | 
| PRTQUE | START+8 | 
| Name | Field # of Occurrence | 
|---|---|
| ^(0 | START+2, START+3, LOOP+6, LOOP+7, LOOP+9, LOOP0+3 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | END! | 
| %H | END! | 
| %I | END! | 
| %ZIS | END! | 
| ALL | START+3, END! | 
| ASK | END!, SET+1, SET+2, LOOP1+3, LOOP1+9 | 
| ASKN | START+9, PRTQUE+1, END!, LOOP+14 | 
| CNT | START+2*, END! | 
| DA | END! | 
| DIC | END! | 
| DIE | END! | 
| DIR | END! | 
| DIROUT | END! | 
| DIRUT | END! | 
| DR | END! | 
| DTOUT | END! | 
| DUOUT | END! | 
| EXP | END!, LOOP+11* | 
| EXPD | END!, LOOP+11*, SET+1, SET+2, LOOP1+6, LOOP1+12 | 
| FLAG | START+1*, START+6*, START+7*, END!, LOOP+4*, LOOP+5, LOOP+6, LOOP+8, LOOP+10, LOOP+13* | 
| JJ | START+5*, START+6, END! | 
| KK | START+6*, END! | 
| LNUM | END! | 
| NAOU | END! | 
| NAOU( | START+2*, START+3*, START+4, LOOP+5 | 
| NODE | END!, LOOP+1*, LOOP+2, LOOP+5, LOOP+11 | 
| NODE1 | END!, LOOP+3*, LOOP+10 | 
| NODE3 | END!, LOOP+3*, LOOP+10 | 
| NODE7 | END!, LOOP+3*, LOOP+6, LOOP+10 | 
| NUM | END!, LOOP+11*, SET+1, SET+2, LOOP1+6, LOOP1+12 | 
| OK | END+1! | 
| PSD | START+2*, START+3*, START+4*, END+1!, LOOP+5*, LOOP+7, LOOP0+1, LOOP0+3, LOOP1+4, LOOP1+5 , LOOP1+6, LOOP1+7, LOOP1+10, LOOP1+11, LOOP1+12 | 
| PSDA | START+4*, START+6*, START+7*, END+1!, LOOP+1, LOOP+3 | 
| PSDATE | END+1! | 
| PSDCNT | START+1*, END+1!, LOOP+13*, SET+1, SET+2, LOOP1+6, LOOP1+12 | 
| PSDDT | END+1!, LOOP+12*, SET+1, SET+2, LOOP1+6, LOOP1+12 | 
| PSDG | START+2, END+1! | 
| PSDG( | START+2 | 
| PSDIO | PRTQUE+1, END+1! | 
| PSDN | START+2*, START+4*, START+5*, START+6, START+7*, END+1!, LOOP+12 | 
| PSDNA | END+1!, LOOP+7*, SET+1, SET+2, LOOP1+4, LOOP1+10 | 
| PSDOK | END+1!, LOOP+8*, SET+1, SET+2, LOOP1+6, LOOP1+12 | 
| PSDOUT | START+1*, START+4, START+5, START+6, START+7, END+1! | 
| PSDR | END+1!, LOOP+2*, LOOP+9, LOOP0+1, LOOP0+3, LOOP1+6, LOOP1+7, LOOP1+12 | 
| PSDRD | START+5, END+1! | 
| PSDRET | START+5, END+1! | 
| PSDRN | END+1!, LOOP+9*, SET+1, SET+2, LOOP1+7, LOOP1+12 | 
| PSDSD | START+4, START+7, END+1! | 
| >> PSDSITE | START+2, START+3 | 
| PSDST | END+1! | 
| PSDTR | START+1*, END+1!, LOOP+6*, SET+1, SET+2, LOOP1+12 | 
| PSDTYP | END+1!, LOOP+2*, LOOP+4 | 
| QTY | END+2!, LOOP+10*, SET+1, SET+2, LOOP1+6, LOOP1+12 | 
| SEL | END+2! | 
| STAT | END+2!, LOOP+2* | 
| TYP | END+2!, LOOP0+3*, LOOP1+2*, LOOP1+4, LOOP1+5, LOOP1+6, LOOP1+7, LOOP1+10, LOOP1+11, LOOP1+12 | 
| TYPN | END+2!, LOOP0+1*, LOOP0+3*, LOOP1+5, LOOP1+11 | 
| U | LOOP1+6, LOOP1+12 | 
| X | END+2! | 
| Y | END+2!, LOOP+11*, LOOP+12* | 
| ZTDESC | PRTQUE+1*, END+2! | 
| ZTDTH | PRTQUE+1*, END+2! | 
| ZTIO | PRTQUE+1!*, END+2! | 
| >> ZTQUEUED | START+8, 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("PSDRET" | PRTQUE+2* | 
| ZTSAVE("^TMP(""PSDRLOG"",$J," | PRTQUE+2* | 
| ZTSK | PRTQUE+3!, END+2! |