©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
PSDLSTK2 ;BIR/JPW-Print Stock Drugs Alphabetically ; 2 Aug 94
Source file <PSDLSTK2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ;prints data for stock drugs
|
||
| START | ;entry point for report
|
|
| HEADER | ;lists header information
|
|
| DONE | ||
| END | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | PRINT+1 |
| ^PSD(58.8 - [#58.8] | START+2, START+3, START+5 |
| ^PSDRUG - [#50] | START+4 |
| ^TMP("PSDLSTK" | START+1!, START+6*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, END+1! |
| Name | Line Occurrences |
|---|---|
| DONE | PRINT+2 |
| HEADER | PRINT+1, PRINT+3, PRINT+6 |
| START+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | START+2, START+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | END+1! |
| %DT | PRINT+1*, END+1! |
| %H | END+1! |
| %I | END+1! |
| %ZIS | END+1! |
| ANS | END+1! |
| DA | END+1!, HEADER+1! |
| DIR | DONE+1!, END+1!, HEADER+1! |
| DIR("A" | DONE+1* |
| DIR(0 | DONE+1*, HEADER+1* |
| DIROUT | END+1! |
| DIRUT | DONE+1!, END+1! |
| DRUG | START+2*, START+3, START+4, START+5, PRINT+4*, PRINT+5, PRINT+7, END+1! |
| DRUGN | START+4*, START+6, END+1! |
| DTOUT | END+1! |
| DUOUT | END+1! |
| IO("Q" | END+1! |
| IOF | DONE, HEADER+2 |
| IOSL | PRINT+3, PRINT+6 |
| IOST | DONE, DONE+1, HEADER+1 |
| LN | PRINT+1!*, END+1!, HEADER+3 |
| LOC | START+5*, START+6, PRINT+5*, PRINT+7, END+1! |
| NAOU | PRINT+3*, PRINT+4, PRINT+5, PRINT+6, END+1! |
| NAOU( | START+2 |
| NAOUN | START+2*, START+6, END+1! |
| NODE | START+5*, PRINT+5*, END+1! |
| PG | PRINT+1*, END+1!, HEADER+1, HEADER+2* |
| POP | END+1! |
| PSD | START+2*, START+3, START+5, END+1! |
| PSDOUT | PRINT+1*, PRINT+3, PRINT+4, PRINT+6, DONE+1, END+1!, HEADER+1* |
| PSDT | END+1! |
| RPDT | PRINT+1*, END+1!, HEADER+2 |
| RSTK | START+5*, START+6, PRINT+5*, PRINT+7, END+1! |
| STK | START+5*, START+6, PRINT+5*, PRINT+7, END+1! |
| TYP | END+1! |
| TYPE | END+1! |
| X | START+3, PRINT+1*, END+1! |
| Y | PRINT+1, END+1!, HEADER+1 |
| ZTDESC | END+2! |
| ZTDTH | END+2! |
| ZTIO | END+2! |
| >> ZTQUEUED | END+3 |
| >> ZTREQ | END+3* |
| ZTRTN | END+2! |
| ZTSAVE | END+2! |
| ZTSK | END+2! |