Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HBHCXMT

Package: Hospital Based Home Care

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

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All