HBHCXMT ; LR VAMC(IRMS)/MJT-HBHC create mail msgs (100 recs/125 char ea, max) from HBHC(634 file, transmit/Austin, set batch initial MM msg # & MM msg date in HBHC(631/632/633.2, set Last MM Date in HBHC(631.9, optionally prt rpt ;9803
Source file <HBHCXMT.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
DQ | ; De-queue
; Set Transmission in Progress Flag |
|
CLEANUP | ; Cleanup Transmit History (HBHC(634.6)) to maintain maximum of last 12 transmit batches
|
|
; Print Transmit Report if default printer exists in 631.9
; HBHCIOP set in PROMPT2^HBHCR15B |
||
EXIT | ; Exit module
|
|
; 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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
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) |
---|---|
^%ZIS(1 - [#3.5] | HBHCXMT+7 |
^HBHC(631 - [#631] | HBHCXMT+6, LOOP+4, LOOP+5 |
^HBHC(631.9 - [#631.9] | HBHCXMT+3, HBHCXMT+6, HBHCXMT+7, DQ+2*, CLEANUP+4*, MAIL+1, LOOP+8, LOOP+10* |
^HBHC(632 - [#632] | HBHCXMT+6, LOOP+6 |
^HBHC(633.2 - [#633.2] | HBHCXMT+6, LOOP+8 |
^HBHC(634 - [#634] | HBHCXMT+5, DQ+7 |
^HBHC(634.1 - [#634.1] | HBHCXMT+4 |
^HBHC(634.2 - [#634.2] | HBHCXMT+4 |
^HBHC(634.3 - [#634.3] | HBHCXMT+4 |
^HBHC(634.5 - [#634.5] | HBHCXMT+4 |
^HBHC(634.6 - [#634.6] | CLEANUP+1, CLEANUP+2 |
^HBHC(634.7 - [#634.7] | HBHCXMT+4 |
^TMP("HBHC" | DQ+3!, DQ+7*, EXIT+1! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EXIT+1! |
%DT | DQ+3!, EXIT+1! |
%ZIS | PRINT+2~ |
DA | CLEANUP+2*, EXIT+1!, LOOP+4*, LOOP+5*, LOOP+6*, LOOP+8* |
DD | HISTORY+1! |
DIC | EXIT+1!, HISTORY+1* |
DIC("DR" | HISTORY+1* |
DIC(0 | HISTORY+1* |
DIE | EXIT+1!, LOOP+3*, LOOP+6*, LOOP+8* |
DIK | CLEANUP+2*, EXIT+1! |
DO | HISTORY+1! |
DR | EXIT+1!, LOOP+4*, LOOP+5*, LOOP+6*, LOOP+8* |
HBHCCNT | DQ+6*, DQ+7*, EXIT+1!, MAIL+3* |
HBHCDAT | CLEANUP+1*, CLEANUP+2, EXIT+1! |
HBHCDATE | DQ+5*, CLEANUP+1*, EXIT+1!, MAIL+1 |
HBHCDT | DQ+5*, EXIT+1!, LOOP+10 |
HBHCFLG | DQ+6*, EXIT+1!, LOOP+2, LOOP+11* |
>> HBHCHEAD | PRINT+2 |
HBHCHOSP | EXIT+1!, MAIL+1 |
HBHCINFO | DQ+7*, EXIT+1!, HISTORY+1 |
>> HBHCIOP | PRINT+2 |
HBHCMSG | DQ+6*, DQ+7, EXIT+1!, MAIL+1, MAIL+3* |
HBHCNODE | DQ+6*, DQ+7*, EXIT+1! |
HBHCPRTR | HBHCXMT+7*, EXIT+1! |
HBHCTOT | CLEANUP+1*, CLEANUP+2, EXIT+1! |
HBHCZ | EXIT+1! |
IOP | PRINT+2~ |
U | HBHCXMT+3, HBHCXMT+6, HBHCXMT+7, DQ+2, CLEANUP+4, MAIL+1, LOOP+8, LOOP+10 |
X | DQ+5*, EXIT+1!, HISTORY+1* |
XMSUB | EXIT+1!, MAIL+1* |
XMTEXT | EXIT+1!, MAIL+1* |
XMY | EXIT+1! |
XMY("XXX@Q-HBH.DOMAIN.EXT" | MAIL+1* |
XMZ | DQ+3!, EXIT+1! |
Y | DQ+5, EXIT+1! |
ZTASK | PRINT+2~ |
ZTDESC | HBHCXMT+8*, PRINT+2~* |
ZTDTH | HBHCXMT+8*, PRINT+2~* |
ZTIO | HBHCXMT+8*, PRINT+2~* |
ZTQUEUED | PRINT+2~ |
ZTRTN | HBHCXMT+8*, PRINT+2~* |
ZTSAVE | PRINT+2~ |
ZTSAVE("HBHC*" | HBHCXMT+8*, PRINT+2* |
>> ZTSK | HBHCXMT+9 |