DGNTQ ;ALB/RPM - NOSE/THROAT RADIUM TREATMENT QUESTIONS ; 8/24/01 12:59pm
Source file <DGNTQ.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASKSTAT(DGDIRA,DGDIRB,DGDIR0) | ;
|
|
| REG(DGDFN) | ;Entry point from REGISTRATION
|
|
| REGQ | ||
| VERIFY(DGDFN,DGVUPD) | ;Ask verification questions
|
|
| DATOK(DGDFN,DGDATE) | ;Validate dates before asking questions
|
|
| SVCCHK(DGDFN,DGDATE) | ;Did veteran serve prior to DGDATE?
|
|
| DOBCHK(DGDFN,DGDATE) | ;Was veteran too young to have served at DGDATE?
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XUSEC("DGNT VERIFY" | REG+50 |
| Name | Line Occurrences |
|---|---|
| $$ASKSTAT | REG+32, REG+35, REG+37, VERIFY+14, VERIFY+15, VERIFY+22 |
| $$DATOK | REG+35, REG+37 |
| $$DOBCHK | DATOK+17 |
| $$SVCCHK | DATOK+16 |
| VERIFY | REG+50 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | SVCCHK+16~, SVCCHK+22*, DOBCHK+13~, DOBCHK+19* |
| DGDATE | DATOK~, DATOK+14*, DATOK+16, DATOK+17, SVCCHK~, SVCCHK+20*, SVCCHK+26, DOBCHK~, DOBCHK+17*, DOBCHK+22 |
| DGDFLT | REG+17~, VERIFY+9~ |
| DGDFLT( | REG+29* |
| DGDFLT("AVI" | REG+35 |
| DGDFLT("HNC" | VERIFY+13*, VERIFY+22, VERIFY+23, VERIFY+25 |
| DGDFLT("NTR" | REG+32 |
| DGDFLT("SUB" | REG+37 |
| DGDFLT("VER" | VERIFY+12*, VERIFY+15, VERIFY+16, VERIFY+17 |
| DGDFN | REG~, REG+24, REG+35, REG+37, REG+50, REG+55, REG+60, VERIFY~, DATOK~, DATOK+13* , DATOK+16, DATOK+17, SVCCHK~, SVCCHK+19*, SVCCHK+22, DOBCHK~, DOBCHK+16*, DOBCHK+19 |
| DGDIR0 | ASKSTAT~, ASKSTAT+13 |
| DGDIRA | ASKSTAT~, ASKSTAT+14 |
| DGDIRB | ASKSTAT~, ASKSTAT+15 |
| DGDOB | DOBCHK+14~, DOBCHK+21*, DOBCHK+22 |
| DGNT | REG+16~, REG+27 |
| DGNT( | REG+42 |
| DGNTIEN | REG+15~, REG+24*, REG+25, REG+27 |
| DGRSLT | ASKSTAT+18*, ASKSTAT+19*, ASKSTAT+21, REG+19~, REG+60*, DATOK+12~, DATOK+15*, DATOK+16*, DATOK+17*, DATOK+18 , SVCCHK+18~, SVCCHK+21*, SVCCHK+25*, SVCCHK+26*, SVCCHK+27, DOBCHK+15~, DOBCHK+18*, DOBCHK+22*, DOBCHK+23 |
| DGSVCE | SVCCHK+17~ |
| DGUPD | REG+18~, REG+27*, REG+50, REG+55, REG+60 |
| DGUPD( | REG+26*, REG+29, REG+42, REG+46*, REG+48*, REG+54* |
| DGUPD("AVI" | REG+35*, REG+36, REG+39 |
| DGUPD("EDT" | REG+43* |
| DGUPD("EUSR" | REG+44* |
| DGUPD("HDT" | REG+47 |
| DGUPD("NTR" | REG+32*, REG+33, REG+34, REG+39, REG+50, REG+52*, REG+56 |
| DGUPD("SUB" | REG+37*, REG+39 |
| DGUPD("VDT" | REG+45, REG+57*, REG+59 |
| DGUPD("VER" | REG+52 |
| DGUPD("VSIT" | REG+58* |
| DGVUPD | VERIFY~ |
| DGVUPD("HDT" | VERIFY+26* |
| DGVUPD("HNC" | VERIFY+13, VERIFY+22*, VERIFY+23*, VERIFY+24*, VERIFY+25 |
| DGVUPD("HSIT" | VERIFY+28* |
| DGVUPD("HUSR" | VERIFY+27* |
| DGVUPD("VDT" | VERIFY+18* |
| DGVUPD("VER" | VERIFY+12, VERIFY+15*, VERIFY+16*, VERIFY+17, VERIFY+21 |
| DGVUPD("VSIT" | VERIFY+20* |
| DGVUPD("VUSR" | VERIFY+19* |
| DGX | REG+20~, REG+26*, REG+28*, REG+29, REG+42*, REG+46*, REG+48*, REG+54*, VERIFY+8~, SVCCHK+24* , SVCCHK+26 |
| DGXMT | REG+21~, REG+59*, REG+60 |
| DIR | ASKSTAT+17! |
| DIR("A" | ASKSTAT+14* |
| DIR("B" | ASKSTAT+15* |
| DIR(0 | ASKSTAT+13* |
| DIRUT | ASKSTAT+12!, ASKSTAT+18 |
| DUZ | REG+44, REG+50, VERIFY+19, VERIFY+27 |
| I | REG+14~ |
| VA | DOBCHK+13~ |
| VADM | DOBCHK+13~ |
| VADM(3 | DOBCHK+21 |
| VAERR | SVCCHK+16~, DOBCHK+13~ |
| VASV | SVCCHK+16~ |
| VASV( | SVCCHK+24, SVCCHK+26 |
| X | REG+14~ |
| Y | ASKSTAT+19, REG+14~ |
