©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
PSDPSTK ;BIR/JPW-Print Data for CS Stock Drugs ; 7 Sept 92
Source file <PSDPSTK.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
| Controlled Substances | 2 | PRINT^PSDPSTK1 ^PSDSET |
| VA Fileman | 1 | NOW^%DTC |
| Package | Total | Caller Graph |
|---|---|---|
| Controlled Substances | 1 | PSD STOCK PRINT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ;compile data for stock drug report
|
|
| PRTQUE | ;queues print after data is compiled
|
|
| END | ;
|
|
| DEV | ;ask device and queueing information
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSD(58.8 - [#58.8] | PSDPSTK+4, START+2, START+3, START+5, START+6, START+7, START+8 |
| ^PSDRUG - [#50] | START+4 |
| ^TMP("PSDPSTK" | START+1!, START+5*, START+9*, START+10*, END+2!, PRTQUE+2! |
| Name | Line Occurrences |
|---|---|
| END | DEV+1, DEV+2, PRTQUE+2 |
| PRTQUE | START+2 |
| Name | Field # of Occurrence |
|---|---|
| ^("I" | START+5 |
| ^(0 | START+2, START+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | END+1! |
| %H | END+1! |
| %I | END+1! |
| %ZIS | DEV+1!*, END+1! |
| %ZIS("B" | DEV+1* |
| DA | END+1! |
| DATEI | END+1! |
| DIK | END+1! |
| DRUG | START+2*, START+3, START+4, START+6, START+7, START+8, END+1! |
| DRUGN | START+4*, START+5, START+9, START+10, END+1! |
| IO | DEV+3 |
| IO("Q" | DEV+1!, DEV+2!, END+1! |
| ION | DEV+2 |
| IOP | DEV+1! |
| LOC | START+6*, START+9, END+1! |
| NAOU | START+2*, START+3, START+5, START+6, START+7, START+8, START+9, START+10, END+1! |
| NODE | START+6*, END+1! |
| POP | DEV+1!, END+1! |
| PSDIO | DEV+2*, END+1!, PRTQUE+1 |
| >> PSDSITE | PSDPSTK+2, START+2 |
| PSDT | PSDPSTK+5*, START+5, END+1! |
| STK | START+6*, START+9, END+1! |
| TYP | START+7*, END+1! |
| TYPE | START+7*, START+9*, END+1! |
| WARD | START+8*, START+9*, START+10, END+1! |
| WRD | START+8*, END+1! |
| X | PSDPSTK+5, START+3, END+2! |
| Y | END+2! |
| ZTDESC | DEV+2*, END+2!, PRTQUE+1* |
| ZTDTH | DEV+2!, END+2!, PRTQUE+1* |
| ZTIO | DEV+2*, END+2!, PRTQUE+1!* |
| >> ZTQUEUED | START+2, END+3 |
| >> ZTREQ | END+3* |
| ZTRTN | DEV+2*, END+2!, PRTQUE+1* |
| ZTSAVE | DEV+2!, END+2!, PRTQUE+1! |
| ZTSAVE("PSDIO" | DEV+2* |
| ZTSAVE("PSDSITE" | DEV+2* |
| ZTSAVE("PSDT" | DEV+2* |
| ZTSAVE("^TMP(""PSDPSTK"",$J," | PRTQUE+1* |
| ZTSK | DEV+2!, PRTQUE+2! |