©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
DGMTO ;ALB/CAW - AGREE TO PAY DEDUCTABLE PRINT ; 8/12/92
Source file <DGMTO.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ^%ZIS ^%ZISC ^%ZTLOAD |
| Registration | 1 | START^DGMTO1 |
| VA Fileman | 1 | ^%DT |
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 2 | DG MEANS TEST DEDUCTIBLE DGMTM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ||
| QUE() | ; -- que job
; return: did job que [ 1|yes 0|no ] |
|
| ENQ | ||
| RANGEQ | ||
| RANGE(DGYRAGO,DGTODAY) | ; select date range
; input: none ; output: DGYRAGO := begin date ; DGTODAY := end date ; return: was selection made [ 1|yes 0|no] |
|
| DATE |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences |
|---|---|
| $$QUE | EN+3 |
| $$RANGE | EN |
| DATE | DATE+3, DATE+6, DATE+7 |
| ENQ | EN, EN+1, EN+2 |
| RANGEQ | DATE+2, DATE+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DATE+1*, DATE+2!, DATE+4*, DATE+5! |
| %DT("A" | DATE+1*, DATE+4* |
| >> %ZIS | EN+1* |
| DGBEG | DATE+3!, DATE+6! |
| DGCAT | ENQ+1! |
| DGLINE | ENQ+1! |
| DGP | ENQ+1! |
| DGPAGE | ENQ+1! |
| DGSTOP | ENQ+1! |
| DGTODAY | EN, ENQ+1!, RANGE~, DATE*, DATE+5*, DATE+6, DATE+7, RANGEQ |
| DGX | ENQ+1! |
| DGYRAGO | EN, ENQ+1!, RANGE~, DATE*, DATE+2*, DATE+3, DATE+7 |
| DT | DATE+3, DATE+6 |
| IO("Q" | EN+2, QUE+3! |
| >> POP | EN+1 |
| VAERR | ENQ+1! |
| >> X | QUE+5* |
| >> Y | EN+3*, DATE+2, DATE+5 |
| >> ZTDESC | QUE+4* |
| >> ZTQUEUED | ENQ |
| >> ZTRTN | QUE+4* |
| >> ZTSAVE( | QUE+5* |
| ZTSK | QUE+3!, QUE+6, QUE+7 |