©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
DGPMTS ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93
Source file <DGPMTS.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
| VA Fileman | 2 | ^%DT YN^DICN |
| Registration | 1 | START^DGPMTSI |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 1 | DGPM TS INPATIENT INFORMATION |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| READ | ||
| ENQ | ||
| QUE() | ; -- que job
; return: did job que [ 1|yes 0|no ] |
|
| EN | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| $$QUE | EN+11 |
| ENQ | EN+3, EN+8, EN+9, EN+10 |
| READ | EN+5, EN+6, EN+7, READ+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | READ* |
| %DT | EN+1*, EN+3! |
| %DT("A" | EN+2* |
| >> %ZIS | EN+9* |
| DGTSDT | EN+4*, ENQ+1! |
| E | EN+5, EN+6, EN+7, ENQ+1!, READ* |
| IO("Q" | EN+10, QUE+3! |
| >> POP | EN+9 |
| PTCTS | EN+7*, EN+8, ENQ+1! |
| PTLTS | EN+6*, EN+8, ENQ+1! |
| PTLWD | EN+5*, EN+8, ENQ+1! |
| >> X | EN+5*, EN+6*, EN+7*, READ, READ+1 |
| >> X1 | EN+5, EN+6, EN+7, READ* |
| >> Y | EN+3, EN+4, EN+11* |
| >> ZTDESC | QUE+4* |
| >> ZTQUEUED | ENQ |
| >> ZTRTN | QUE+9* |
| >> ZTSAVE("DGTSDT" | QUE+5* |
| >> ZTSAVE("PTCTS" | QUE+8* |
| >> ZTSAVE("PTLTS" | QUE+7* |
| >> ZTSAVE("PTLWD" | QUE+6* |
| ZTSK | QUE+3!, QUE+10, QUE+11 |