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 |