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

Package: Hospital Based Home Care

Routine: HBHCRP27


Information

HBHCRP27 ; LR VAMC(IRMS)/MJT-HBHC Inspection &/or Training e-mail reminders & report, includes inspection/training due w/most recent inspection/training date; e-mail is due in 3 months; report is due in 6 months, based on month only ; Aug 2007

Source Information

Source file <HBHCRP27.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Hospital Based Home Care 3 (HDRPAGE,TODAY)^HBHCUTL  ENDRPT^HBHCUTL1  (DATE3,DATE6)^HBHCUTL3  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  ^DIR  
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-QUEUED REMINDERS  HBHCRP27  

Entry Points

Name Comments DBIA/ICR reference
EN ; Prompt for whether Inspection or Training report
DQ ; De-queue
ELOOP ; Loop thru ^HBHC(633.2 Inspection mult: 1=Nurse, 2=Social Work, 3=Dietitian, 4=Fire/Safety then Training mult: 5=Home Operation, 6=Fire/Safety, 7=Medication Management, 8=Personal Care, 9=Infection Control, 10=End of Life, 11=Other
LOOP ; Loop thru ^HBHC(633.2 Inspection multiples; 1 = Nurse, 2 = Social Work, 3 = Dietitian, 4 = Fire/Safety
LOOP2 ; Loop thru ^HBHC(633.2 Training multiples; 5 = Home Operation, 6 = Fire/Safety, 7 = Medication Management, 8 = Personal Care, 9 = Infection Control, 10 = End of Life, 11 = Other
EXIT ; Exit module
SET ; Set ^TMP node for valid record
; quit if MFH closed
PRTLOOP1 ; Print loop 1; Inspection multiples: 1 = Nurse, 2 = Social Work, 3 = Dietitian, 4 = Fire/Safety
PRTLOOP2 ; Print loop 2; Training multiples: 5=Home Operation, 6=Fire/Safety, 7=Medication Management, 8=Personal Care, 9=Infection Control, 10=End of Life, 11=Other
IHDR ; Write inspection header
THDR ; Write Training header
WRITE1 ; Write Inspection report header
WRITE2 ; Write Training report 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
DD^%DT SET+9
^%ZIS EN+6
^%ZISC EXIT+1
^%ZTLOAD EN+7
^DIR EN+1
HDRPAGE^HBHCUTL DQ+11, PRINT+1
TODAY^HBHCUTL DQ+8
ENDRPT^HBHCUTL1 LOOP2+4
DATE3^HBHCUTL3 DQ+5
DATE6^HBHCUTL3 DQ+7
^XMD SEND+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No MFH "_$S(HBHCTYP="I":"inspections",1:"training")_" currently due."
  • Line Location: LOOP2+3
Function Call: WRITE
  • Prompt: !,$S(HBHCI=1:"Nurse",HBHCI=2:"Social Work",HBHCI=3:"Dietitian",1:"Fire/Safety")_" Inspection(s) Due in next 6 months:"
  • Line Location: WRITE1+2
Function Call: WRITE
  • Prompt: !,"Medical Foster Home Name",?37,"Most Recent "_$S(HBHCI=1:"Nurse",HBHCI=2:"Social Work",HBHCI=3:"Dietitian",1:"Fire/Safety")_" "_HBHCTYPE_" Date",!
  • Line Location: WRITE1+3
Function Call: WRITE
  • Prompt: !,$S(HBHCI=5:"Home Operation",HBHCI=6:"Fire/Safety",HBHCI=7:"Medication Management",HBHCI=8:"Personal Care",HBHCI=9:"Infection Control",HBHCI=10:"End of Life",1:"Other")_" "_HBHCTYPE_" Due in next 6 months:"
  • Line Location: WRITE2+2
Function Call: WRITE
  • Prompt: !,"Medical Foster Home Name",?37,"Most Recent "_$S(HBHCI=5:"Home Operation",HBHCI=6:"Fire/Safety",HBHCI=7:"Medication Management",HBHCI=8:"Personal Care",HBHCI=9:"Infection Control",HBHCI=10:"End of Life",1:"Other")_" "_HBHCTYPE_" Date",!
  • Line Location: WRITE2+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?3,HBHCMFHN,?39,$P(^TMP("HBHC",$J,HBHCI,HBHCDATE,HBHCMFHN),U)
  • Line Location: PRINT+2
Routine Call
  • DIR
  • Line Location:
    • EN+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HBHC(633.2 - [#633.2] ELOOP+1, LOOP+1, LOOP2+1, SET+2, SET+8, SET+11
^TMP("HBHC" DQ+3!, LOOP2+2, LOOP2+3, EXIT+2!, SET+11*, PRTLOOP1+2, PRTLOOP2+2, MAIL+1, PRINT+2
^TMP("HBHCMFH" DQ+3!, EXIT+2!, PRTLOOP1+3!, IHDR+3*, IHDR+4*, THDR+3*, THDR+6*, BLANK+1*, MAIL+1*, SEND+1*

Label References

Name Line Occurrences
BLANK IHDR+2, IHDR+5, THDR+2, THDR+8, SEND+1
COUNT IHDR+3, IHDR+4, THDR+3, THDR+7, BLANK+1, MAIL+1
EXIT EN+2, EN+6, EN+7
IHDR PRTLOOP1+2
MAIL PRTLOOP1+2, PRTLOOP2+2
PRINT PRTLOOP1+2, PRTLOOP2+2
PRTLOOP1 LOOP2+2
PRTLOOP2 LOOP2+2
SEND PRTLOOP1+3, PRTLOOP2+3
SET ELOOP+1, LOOP+1, LOOP2+1
THDR PRTLOOP2+2
WRITE1 IHDR+1
WRITE2 THDR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS EN+6*
DIR EN+1!, EXIT+2!
DIR("?" EN+1*
DIR("A" EN+1*
DIR(0 EN+1*
>> DIRUT EN+2
HBHCCC EN+6*, DQ+11*, EXIT+2!, PRINT+1
HBHCCNT DQ+9*, EXIT+2!, IHDR+3, IHDR+4, THDR+3, THDR+5, THDR+6, BLANK+1, MAIL+1, COUNT+1*
, SEND+1
HBHCCOLM DQ+10*, EXIT+2!
HBHCDATE EXIT+2!, SET+6, PRTLOOP1+2*, PRTLOOP2+2*, MAIL+1, PRINT+2
HBHCHEAD DQ+10*, EXIT+2!
HBHCI ELOOP+1*, LOOP+1*, LOOP2+1*, EXIT+2!, SET+2, SET+8, SET+11, PRTLOOP1+2*, PRTLOOP2+2*, IHDR+2
, IHDR+3, IHDR+4, THDR+2, THDR+3, THDR+5, WRITE1+1, WRITE1+2, WRITE1+3, WRITE2+1, WRITE2+2
, WRITE2+3, MAIL+1, PRINT+2
HBHCJ ELOOP+1*, LOOP+1*, LOOP2+1*, EXIT+2!, SET+8, SET+11
HBHCK ELOOP+1*, LOOP+1*, LOOP2+1*, EXIT+2!
HBHCMFHN EXIT+2!, PRTLOOP1+2*, PRTLOOP2+2*, MAIL+1, PRINT+2
HBHCMFHR EN+5*, DQ+1, DQ+5, DQ+7, DQ+10, DQ+11, ELOOP+1, LOOP+1, LOOP2+1, LOOP2+3
, LOOP2+4, EXIT+2!, PRTLOOP1+2, PRTLOOP1+3, PRTLOOP2+2, PRTLOOP2+3, IHDR+1, THDR+1
HBHCMO EXIT+2!
HBHCMRDT ELOOP+1*, LOOP+1*, LOOP2+1*, EXIT+2!, SET+4, SET+6, SET+9, SET+11, SET+12!
HBHCPAGE DQ+10*, EXIT+2!
HBHCSP15 DQ+9*, EXIT+2!, IHDR+4, THDR+5
HBHCSP39 DQ+9*, EXIT+2!, MAIL+1
HBHCTDY EXIT+2!, SEND+2
HBHCTYP EN+3*, DQ+2*, DQ+10, LOOP+1, LOOP2+1, LOOP2+2, LOOP2+3, EXIT+2!
HBHCTYPE EXIT+2!, PRTLOOP1+1*, PRTLOOP2+1*, IHDR+3, IHDR+4, THDR+3, THDR+6, WRITE1+3, WRITE2+2, WRITE2+3
, SEND+1, SEND+2
HBHCZ EXIT+2!
IO DQ+1, DQ+11
IO("Q" EN+7
IO("S" DQ+11
IO(0 DQ+11
IOF PRINT+1
IOP EN+6!
IOSL PRINT+1
>> POP EN+6
>> TMP("HBHCMFH" THDR+5*, THDR+6!
U SET+2, SET+11, 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 EN+3, EXIT+2!, SET+9*, SET+11
>> ZTDESC EN+7*
ZTIO EN+6!
>> ZTRTN EN+7*, PRINT+1
ZTSAVE EN+6!
ZTSAVE("HBHC*" EN+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All