©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
DGODUTL ;ALB/EG - INITIALIZE ARRAYS FOR DGODNP1/DGODOP1 & TOTAL ; JAN-13-1989 @ 0854
Source file <DGODUTL.m>
| Package | Total | Caller Graph |
|---|---|---|
| Registration | 3 | DGODNP1 DGODNP2 DGODOP2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ET1 | ;H1-start time,H2-end time,DGTOUT-difference in seconds
|
|
| G1 | ;zero each cell
|
|
| G0 | ;initializes array
|
|
| T0 | ;totals the array
|
|
| T1 | ;row subtotal for vet/non-vet
|
|
| ET | ;elapsed time for run
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | G0+1 |
| ^UTILITY("DGOD" | G0+1*, G1+1*, G1+3*, G1+5*, G1+7*, G1+9*, G1+11*, G1+13*, T1+1*, T1+3* , T1+5*, T1+7*, T1+9*, T1+11*, T1+13* |
| Name | Line Occurrences |
|---|---|
| ET1 | ET+1 |
| G1 | G0+1 |
| T1 | T0+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> A( | G0+1*, T0+1 |
| >> A1 | G0+1* |
| >> A2 | G0+1*, T0+1 |
| >> DGDV | G0+1*, G1+1, G1+3, G1+5, G1+7, G1+9, G1+11, T0+1*, T1+1, T1+3 , T1+5, T1+7, T1+9, T1+11, T1+13 |
| >> DGEL | G1+1*, G1+3*, T1+1*, T1+3*, T1+5* |
| >> DGJB | G1+1, G1+3, G1+5, G1+7, G1+9, G1+11, G1+13, T1+1, T1+3, T1+5 , T1+7, T1+9, T1+11, T1+13 |
| DGK | T1+1*, T1+3*, T1+5*, T1+14! |
| >> DGMT | G1+1*, G1+5*, G1+9*, T1+1*, T1+3*, T1+7*, T1+11* |
| >> DGTN | G0+1, T0+1 |
| >> DGTOUT | ET+2*, ET1+2*, ET1+3* |
| >> DGV | G1+1*, G1+3*, G1+5*, G1+7*, T1+1*, T1+3*, T1+5*, T1+7*, T1+9* |
| >> H1 | ET+1, ET1+1 |
| >> H1(1 | ET1+1*, ET1+2, ET1+3 |
| >> H1(2 | ET1+1*, ET1+2, ET1+3 |
| >> H2 | ET+1*, ET1+1 |
| >> H2(1 | ET1+1*, ET1+2, ET1+3 |
| >> H2(2 | ET1+1*, ET1+2, ET1+3 |
| >> I | G0+1*, T0+1* |
| >> K1 | G0+1*, G1+1, G1+3, G1+5, G1+7, G1+9, G1+11, G1+13, T0+1*, T1+1 , T1+3, T1+5, T1+7, T1+9, T1+11, T1+13 |
| U | G0+1, T0+1 |