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 |
