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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HBHC(631 - [#631] | LOOP+4, LOOP+5 |
| ^HBHC(631.9 - [#631.9] | HBHCPS24+11*, CLEANUP+4*, MAIL+1, LOOP+8, LOOP+10* |
| ^HBHC(632 - [#632] | LOOP+6 |
| ^HBHC(633.2 - [#633.2] | LOOP+8 |
| ^HBHC(634 - [#634] | HBHCPS24+17 |
| ^HBHC(634.1 - [#634.1] | ADM+1!* |
| ^HBHC(634.2 - [#634.2] | VISIT+1!* |
| ^HBHC(634.3 - [#634.3] | DC+1!* |
| ^HBHC(634.6 - [#634.6] | CLEANUP+1, CLEANUP+2 |
| ^HBHC(634.7 - [#634.7] | MFH+1!* |
| ^TMP("HBHC" | HBHCPS24+12!, HBHCPS24+17*, EXIT+3! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EXIT+3! |
| %DT | HBHCPS24+12!, EXIT+3! |
| DA | CLEANUP+2*, EXIT+3!, LOOP+4*, LOOP+5*, LOOP+6*, LOOP+8* |
| DD | HISTORY+1! |
| DIC | EXIT+3!, HISTORY+1* |
| DIC("DR" | HISTORY+1* |
| DIC(0 | HISTORY+1* |
| DIE | EXIT+3!, LOOP+3*, LOOP+6*, LOOP+8* |
| DIFROM | HBHCPS24+13~ |
| DIK | CLEANUP+2*, EXIT+3! |
| DO | HISTORY+1! |
| DR | EXIT+3!, LOOP+4*, LOOP+5*, LOOP+6*, LOOP+8* |
| DT | HBHCPS24+6 |
| HBHC | HBHCPS24+3*, HBHCPS24+4, EXIT+2! |
| HBHCCNT | HBHCPS24+16*, HBHCPS24+17*, EXIT+3!, MAIL+3* |
| HBHCDAT | CLEANUP+1*, CLEANUP+2, EXIT+3! |
| HBHCDATE | HBHCPS24+15*, CLEANUP+1*, EXIT+3!, MAIL+1 |
| HBHCDIR | EXIT+2! |
| HBHCDT | HBHCPS24+15*, EXIT+3!, LOOP+10 |
| HBHCFLG | HBHCPS24+16*, EXIT+3!, LOOP+2, LOOP+11* |
| HBHCHOSP | EXIT+3!, MAIL+1 |
| HBHCINFO | HBHCPS24+17*, EXIT+3!, HISTORY+1 |
| HBHCLSDT | HBHCPS24+6*, EXIT+2! |
| HBHCMSG | HBHCPS24+16*, HBHCPS24+17, EXIT+3!, MAIL+1, MAIL+3* |
| HBHCNODE | HBHCPS24+16*, HBHCPS24+17*, EXIT+3! |
| HBHCPRTR | EXIT+3! |
| HBHCTOT | CLEANUP+1*, CLEANUP+2, EXIT+3! |
| HBHCZ | EXIT+3! |
| U | HBHCPS24+11, CLEANUP+4, MAIL+1, LOOP+8, LOOP+10 |
| X | HBHCPS24+15*, EXIT+3!, HISTORY+1* |
| XMDUZ | HBHCPS24+12! |
| XMSUB | EXIT+3!, MAIL+1* |
| XMTEXT | EXIT+3!, MAIL+1* |
| XMY | HBHCPS24+12!, EXIT+3! |
| XMY("XXX@Q-HBH.DOMAIN.EXT" | MAIL+1* |
| XMZ | HBHCPS24+12!, EXIT+3! |
| Y | HBHCPS24+15, EXIT+3! |
