Routine: HBHCXMT

Information

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 Information

Source file <HBHCXMT.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	4	^%DT FILE^DICN ^DIE ^DIK
Hospital Based Home Care	2	PROMPT2^HBHCR15B HOSP^HBHCUTL1
Kernel	2	^%ZISC ^%ZTLOAD
MailMan	1	^XMD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Hospital Based Home Care	1	HBHCXMT

Entry Points

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	; Print Transmit Report if default printer exists in 631.9 ; HBHCIOP set in PROMPT2^HBHCR15B
EXIT	; Exit module
MAIL	; 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

External References

Name	Field # of Occurrence
^%DT	DQ+5
^%ZISC	HBHCXMT+8, PRINT+2
^%ZTLOAD	HBHCXMT+8, PRINT+2
FILE^DICN	HISTORY+1
^DIE	LOOP+4, LOOP+5, LOOP+6, LOOP+8
^DIK	CLEANUP+2
PROMPT2^HBHCR15B	HBHCXMT+7
HOSP^HBHCUTL1	DQ+4
^XMD	MAIL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"File Update in progress. Please try again later." Line Location: HBHCXMT+3
Function Call: WRITE	Prompt: $C(7),!!,"Records containing errors exist and must be corrected before file can",!,"be transmitted.",!! Line Location: HBHCXMT+4
Function Call: WRITE	Prompt: $C(7),!!,"No data on file to transmit." Line Location: HBHCXMT+5
Function Call: WRITE	Prompt: $C(7),!!,"Data on file has been transmitted to Austin; duplicate transmission not allowed." Line Location: HBHCXMT+6
Function Call: WRITE	Prompt: !,"Transmit Report will be printed on device: ",HBHCPRTR Line Location: HBHCXMT+7
Function Call: WRITE	Prompt: "." Line Location: HBHCXMT+7
Function Call: WRITE	Prompt: $C(7),!!,"Transmission request has been queued. Task number: ",ZTSK,!! Line Location: HBHCXMT+9
Routine Call	DIE Line Location: LOOP+4 LOOP+5 LOOP+6 LOOP+8

FileMan Files Accessed Via FileMan Db 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

Global Variables Directly Accessed

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!

Label References

Name	Line Occurrences
EXIT	HBHCXMT+10
HISTORY	DQ+7
MAIL	DQ+7

Local Variables

Legend:

>>	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

Customize PDF page

Package: Hospital Based Home Care