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 |