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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HBHCRP29

Package: Hospital Based Home Care

Routine: HBHCRP29


Information

HBHCRP29 ; LR VAMC(IRMS)/MJT-HBHC Medical Foster Home (MFH) license expiration e-mail reminder or report; e-mail due in 3 months, report due in 6 months, based on month only ; Jan 2008

Source Information

Source file <HBHCRP29.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Hospital Based Home Care 3 (HDRPAGE,TODAY)^HBHCUTL  ENDRPT^HBHCUTL1  (DATE3L,DATE6L)^HBHCUTL3  
Kernel 3 ^%ZIS  ^%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: 2

Package Total Caller Graph
Hospital Based Home Care 2 HBHC MFH AUTO-Q LICENSE DUE  HBHCRP29  

Entry Points

Name Comments DBIA/ICR reference
DQ ; De-queue
LOOP ; Loop thru HBHC Medical Foster Home file: ^HBHC(633.2; License = Y & Expiration Date in 3 months for e-mail, 6 months for report; based on month only
; DATE3L^HBHCUTL3 & DATE6L^HBHCUTL3 calls return HBHCDATE
EXIT ; Exit module
SET ; Set ^TMP node for valid record
PRTLOOP ; Print loop
LHDR ; Write License header
BLANK ; Set blank line
MAIL ; Write mail message
COUNT ; Update count variable
SEND ; Send Mail
PRINT ; Print report

External References

Name Field # of Occurrence
^%ZIS HBHCRP29+5
^%ZISC EXIT+1
^%ZTLOAD HBHCRP29+6
HDRPAGE^HBHCUTL LOOP+3, PRINT+1
TODAY^HBHCUTL DQ+2
ENDRPT^HBHCUTL1 LOOP+6
DATE3L^HBHCUTL3 LOOP+2
DATE6L^HBHCUTL3 LOOP+2
^XMD SEND+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,HBHCTXT
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,HBHCMFHN,?40,$P(^TMP("HBHC",$J,HBHCMFHN,HBHCI),U)
  • Line Location: PRINT+2
Routine Call
  • %ZIS
  • Line Location:
    • HBHCRP29+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HBHC(633.2 - [#633.2] LOOP+2
^TMP("HBHC" LOOP+4, LOOP+5, EXIT+3!, SET+3*, PRTLOOP+2, MAIL+1, PRINT+2
^TMP("HBHCMFH" EXIT+3!, PRTLOOP+3!, LHDR+1*, BLANK+1*, MAIL+1*, SEND+1*

Label References

Name Line Occurrences
BLANK LHDR+2, SEND+1
COUNT LHDR+1, BLANK+1, MAIL+1
EXIT HBHCRP29+5, HBHCRP29+6
LHDR PRTLOOP+1
MAIL PRTLOOP+2
PRINT PRTLOOP+2
PRTLOOP LOOP+4
SEND PRTLOOP+3
SET LOOP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS HBHCRP29+5*
DIR EXIT+2!
HBHCCC DQ+3*, LOOP+3*, EXIT+2!, PRINT+1
HBHCCNT DQ+3*, EXIT+2!, LHDR+1, BLANK+1, MAIL+1, COUNT+1*, SEND+1
HBHCCOLM DQ+4*, EXIT+2!
HBHCDAT EXIT+2!, SET+2*
HBHCDATE EXIT+2!, SET+1
HBHCHDR DQ+4*, EXIT+2!
HBHCHEAD DQ+4*, EXIT+2!
HBHCI LOOP+2*, EXIT+2!, SET+3, PRTLOOP+2*, MAIL+1, PRINT+2
HBHCMFHN EXIT+2!, PRTLOOP+2*, MAIL+1, PRINT+2
HBHCMFHR HBHCRP29+4*, DQ+1, DQ+4, LOOP+2, LOOP+3, LOOP+5, LOOP+6, EXIT+2!, PRTLOOP+1, PRTLOOP+2
, PRTLOOP+3
HBHCMO EXIT+2!
HBHCMRDT EXIT+2!, SET+2*, SET+3
HBHCNOD0 LOOP+2*, EXIT+2!, SET+1, SET+2, SET+3
HBHCPAGE DQ+4*, EXIT+2!
HBHCSP15 DQ+3*, EXIT+2!, LHDR+1
HBHCSP39 DQ+3*, EXIT+2!, MAIL+1
HBHCTDY EXIT+2!, SEND+2
HBHCTXT DQ+3*, LOOP+5, EXIT+2!, SEND+1
HBHCTYPE DQ+3*, EXIT+2!, SEND+2
HBHCZ EXIT+2!
IO DQ+1, LOOP+3
IO("Q" HBHCRP29+6
IO("S" LOOP+3
IO(0 LOOP+3
IOF PRINT+1
IOP HBHCRP29+5!
IOSL PRINT+1
>> POP HBHCRP29+5
U LOOP+2, SET+1, SET+2, SET+3, MAIL+1, PRINT+2
X EXIT+2!
XMDUZ EXIT+2!, SEND+2*
XMSUB EXIT+2!, SEND+2*
XMTEXT EXIT+2!, SEND+2*
XMY EXIT+2!
XMY("G.HBHC M EDICAL FOSTER HOME" , SEND+2*
XMZ EXIT+2!
Y EXIT+2!
>> ZTDESC HBHCRP29+6*
ZTIO HBHCRP29+5!
>> ZTRTN HBHCRP29+6*, PRINT+1
ZTSAVE HBHCRP29+5!
ZTSAVE("HBHC*" HBHCRP29+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All