HBHCPS24 ; LR VAMC(IRMS)/MJT-HBHC HBH*1*24 Post Install Routine to force 1 last transmission of 150 character transmission records before length of transmit record changes to 200 characters ; Mar 2008
Source file <HBHCPS24.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CLEANUP | ; Cleanup Transmit History (HBHC(634.6)) to maintain maximum of last 12 transmit batches
|
|
| EXIT | ; Exit module
|
|
| ADM | ; Clean up Admission Error file (#634.1)
|
|
| VISIT | ; Clean up Visit Error file (#634.2)
|
|
| DC | ; Clean up Discharge Error file (#634.3)
|
|
| MFH | ; Clean up MFH Error file (#634.7)
|
|
| ; Send mail message
|
||
| LOOP | ; Loop thru ^HBHC(631,"AE") (Form 3 Transmit Flag), ^HBHC(631,"AF") (Form 5 Transmit Flag), & ^HBHC(632,"AC") (Form 4 Transmit Flag) cross-refs to set batch initial MM message number & mailman message date fields in ^HBHC(631/632)
; also loop thru ^HBHC(633.2,"AC") (Form 7 Transmit Flag) |
|
| HISTORY | ; Update HBHC(634.6 Transmit History file
|
| FileNo | Call Tags |
|---|---|
| ^HBHC(631 - [#631] | Classic Fileman Calls |
| ^HBHC(632 - [#632] | Classic Fileman Calls |
| ^HBHC(633.2 - [#633.2] | Classic Fileman Calls |
| ^HBHC(634.6 - [#634.6] | Classic Fileman Calls |
