DVBANDCU ;ALB/GTS - Clean-up routine 7131 ASIH notice of discharges; 12 Mar 96 @ 14:00pm [3/12/96 1:45pm]
Source file <DVBANDCU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TEXT | ;;
|
|
| STARTPT | ;
|
|
| CLN7131 | ;** Init process, call correction tag and send mail msg
|
|
| CORRECT | ;** Walk 7131s, correct ASIH admit dts and gen 7132s
|
|
| SETXRO | ;* Set up regional office station numbers array
|
|
| GEN7132(DFN,DVBADA,ADMDT,DGPMDA,TDIS) | ;* Gen Notice of Discharge (file 396.2)
|
|
| ;** Mail Cleanup msg
|
||
| LINE(TEXT) | ; add line to array for e-mail
|
| FileNo | Call Tags |
|---|---|
| ^DVB(396 - [#396] | Classic Fileman Calls |
| ^DVB(396.2 - [#396.2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | CORRECT+27 |
| ^DIC(4 - [#4] | SETXRO+2, GEN7132+4 |
| ^DPT - [#2] | CORRECT+11, GEN7132+3, GEN7132+10 |
| ^DVB(396 - [#396] | CORRECT+5, CORRECT+6, CORRECT+7, CORRECT+9, CORRECT+10, GEN7132+9 |
| ^DVB(396.1 - [#396.1] | SETXRO+2 |
| ^DVB(396.2 - [#396.2] | GEN7132+8 |
| ^TMP("DVBA ASIH CLEANUP" | MAIL+10!, LINE+1* |
| Name | Line Occurrences |
|---|---|
| CLN7131 | STARTPT+6 |
| CORRECT | CLN7131+21 |
| GEN7132 | CORRECT+30 |
| LINE | CLN7131+2, CLN7131+3, CLN7131+4, CLN7131+5, CLN7131+6, CLN7131+7, CLN7131+8, CLN7131+9, CLN7131+10, CLN7131+11 , CLN7131+12, CLN7131+13, CLN7131+14, CLN7131+15, CLN7131+16, CLN7131+17, CLN7131+18, CLN7131+19, CLN7131+20, CLN7131+22 , CLN7131+23, CORRECT+28, CORRECT+32, CORRECT+33, CORRECT+34, CORRECT+35, CORRECT+36, CORRECT+37, GEN7132+18, GEN7132+19 |
| CLN7131+24 | |
| SETXRO | CORRECT+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMDT | GEN7132~, GEN7132+8, GEN7132+12 |
| CFLOC | GEN7132+2~, GEN7132+3*, GEN7132+4*, GEN7132+5, GEN7132+6, GEN7132+7*, GEN7132+12 |
| CT | CORRECT+1~, CORRECT+3*, CORRECT+31*, CORRECT+32, CORRECT+34, CORRECT+36, CORRECT+37 |
| DA | CORRECT+23*, CORRECT+25!, GEN7132+16* |
| DFN | CORRECT+13*, CORRECT+21!, GEN7132~, GEN7132+3, GEN7132+8, GEN7132+10 |
| DGDT | CORRECT+1~, CORRECT+18*, CORRECT+19*, CORRECT+30 |
| DGPMDA | CORRECT+1~, CORRECT+17*, CORRECT+30, GEN7132~, GEN7132+12 |
| DIC | GEN7132+11*, GEN7132+20! |
| DIC(0 | GEN7132+13* |
| DIE | CORRECT+23*, CORRECT+25!, GEN7132+11*, GEN7132+20! |
| DIFROM | MAIL+1~ |
| DLAYGO | GEN7132+13*, GEN7132+20! |
| DR | CORRECT+23*, CORRECT+25!, GEN7132+12*, GEN7132+20! |
| DUZ | MAIL+6 |
| DVBAASIH | CORRECT+1~, CORRECT+8*, CORRECT+9 |
| DVBADA | GEN7132~, GEN7132+9 |
| DVBADFN | CORRECT+1~, CORRECT+10*, CORRECT+11, CORRECT+12, CORRECT+13, CORRECT+30 |
| DVBAPAT | CORRECT+1~, CORRECT+11*, CORRECT+12*, CORRECT+28 |
| DVBARQDT | CORRECT+1~, CORRECT+4*, CORRECT+5*, CORRECT+6, CORRECT+8, CORRECT+14, CORRECT+22*, CORRECT+26, CORRECT+30 |
| I | SETXRO+1~, SETXRO+2* |
| J | CORRECT+1~, CORRECT+4*, CORRECT+6*, CORRECT+7, CORRECT+9, CORRECT+10, CORRECT+23, CORRECT+30, SETXRO+1~, SETXRO+2* |
| LNI | STARTPT+1*, STARTPT+3*, STARTPT+7! |
| LNX | STARTPT+1*, STARTPT+3*, STARTPT+4*, STARTPT+5, STARTPT+7! |
| SSN | GEN7132+10*, GEN7132+13, GEN7132+20! |
| TDIS | CORRECT+1~, CORRECT+20*, CORRECT+30, GEN7132~, GEN7132+7 |
| TEXT | LINE~, LINE+1 |
| U | SETXRO+2, GEN7132+9 |
| VAFEDXCT | CLN7131+1*, MAIL+10!, LINE+1* |
| VAIP | CORRECT+21! |
| VAIP("D" | CORRECT+14* |
| VAIP("M" | CORRECT+15* |
| VAIP(1 | CORRECT+17 |
| VAIP(17 | CORRECT+19, CORRECT+20 |
| X | CORRECT+25!, GEN7132+13*, GEN7132+20! |
| XMDUZ | MAIL+6*, MAIL+10! |
| XMN | MAIL+4*, MAIL+10! |
| XMSUB | MAIL+3*, MAIL+10! |
| XMTEXT | MAIL+5*, MAIL+10! |
| XMY | MAIL+2!, MAIL+10! |
| XMY( | MAIL+6* |
| XRO | CORRECT+38! |
| XRO( | SETXRO+2*, GEN7132+6 |
| XRO(0 | GEN7132+7 |
| Y | CORRECT+26*, CORRECT+28, CORRECT+29!, GEN7132+15, GEN7132+16, GEN7132+20! |
| Name | Field # of Occurrence |
|---|---|
| $T(TEXT+LNI | STARTPT+3 |
