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

Package: Hospital Based Home Care

Routine: HBHCR15B


Information

HBHCR15B ;LR VAMC(IRMS)/MJT-HBHC rpt using file 634.6, called from HBHCR15A, entry points: PROMPT1 & END, & from HBHCXMT, entry point: PROMPT2 ;9804

Source Information

Source file <HBHCR15B.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Hospital Based Home Care 3 (HDRPAGE,TODAY)^HBHCUTL  ENDRPT^HBHCUTL1  MFHS^HBHCUTL3  
VA FileMan 2 DD^%DT  ^DIR  

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

Entry Points

Name Comments DBIA/ICR reference
PROMPT1 ; Prompt user for which transmit date from last 12 batchs to include, default is Most Recent; uses transmit date cross-ref to obtain batch dates
PROMPT2 ; Prompt user for which forms to include, default is Summary
END ; End of report processing
; Count number of visits
CONT ; Continue count of visits loop
PRTLOOP ; Print loop
PRTLOOP2 ; Print loop continued
PRTLOOP3 ; Print loop continued (again)
PRTLOOP4 ; Print loop continued (again & again)
PRINT ; Print report
HEADER ; Sub-header module
SUB ; Sub-total module

External References

Name Field # of Occurrence
DD^%DT PROMPT1+2, PROMPT2+12
^DIR PROMPT1+6, PROMPT2+10
HDRPAGE^HBHCUTL END+5, END+6, END+8, PRINT+2
TODAY^HBHCUTL PROMPT2+2
ENDRPT^HBHCUTL1 END+19
MFHS^HBHCUTL3 PROMPT2+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(HBHCI,2),".",?6,Y
  • Line Location: PROMPT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT1+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Please select number from list.",!
  • Line Location: PROMPT1+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+8
Function Call: WRITE
  • Prompt: ?38,$E(HBHCDATE,1,2),"-",$E(HBHCDATE,3,4),"-",$E(HBHCDATE,7,8)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?46,"@"_$P(HBHCINFO,U,3)
  • Condition for execution: $P(HBHCINFO,U,3)]""
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?55,$S(HBHCFORM=6:$P(HBHCINFO,U,2),HBHCFORM="A":HBHCACTN,HBHCFORM="V":$P(HBHCINFO,U),1:"")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?60,HBHCPRV
  • Condition for execution: HBHCFORM="V"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$S(HBHCFORM=6:"Correction Form 6",HBHCFORM="A":"Evaluation/Admission Form 3",HBHCFORM="D":"Discharge Form 5",HBHCFORM="Z":"Medical Foster Home Form 7",1:"Visit Form 4")_" Records"
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?55,$S(HBHCFORM=6:"Type",HBHCFORM="A":"Action",HBHCFORM="V":"Provider",1:""),!
  • Line Location: HEADER+2
Routine Call
  • DIR
  • Line Location:
    • PROMPT1+6
    • PROMPT2+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(1 - [#3.5] PROMPT2+4
^HBHC(631.9 - [#631.9] PROMPT2+4
^HBHC(634.6 - [#634.6] PROMPT1+1
^TMP("HBHC" PRTLOOP+1, PRTLOOP2+1, PRTLOOP3+1, PRTLOOP4+1, PRINT+1
^TMP($J END+2, CONT+1

Label References

Name Line Occurrences
CONT END+2
HEADER PRTLOOP+1, PRINT+2
PRINT PRTLOOP4+1
PROMPT1 PROMPT1+7
PRTLOOP END+7
PRTLOOP2 PRTLOOP+1
PRTLOOP3 PRTLOOP2+1
PRTLOOP4 PRTLOOP3+1
SUB PRTLOOP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PROMPT1+4!, PROMPT2+7!
DIR("?" PROMPT1+5*, PROMPT2+10*
DIR("A" PROMPT1+5*, PROMPT2+10*
DIR("B" PROMPT1+5*, PROMPT2+10*
DIR(0 PROMPT1+5*, PROMPT2+8*, PROMPT2+9*
DIRUT PROMPT1+4!, PROMPT1+6, PROMPT2+7!, PROMPT2+10
DT PROMPT2+3
>> HBHC( PROMPT1+1*, PROMPT1+2
>> HBHCACTN PRTLOOP2+1*, PRTLOOP3+1, PRTLOOP4+1, PRINT+1, PRINT+4
>> HBHCCC PROMPT2+1*, END+6*, PRINT+2
>> HBHCCNT END+2*, END+18, CONT+1*, SUB+5
>> HBHCCNT4 END+4, END+12, END+16, END+17, SUB+4
>> HBHCCNT5 END+4, END+13, END+16, END+17, SUB+3
>> HBHCCNT6 END+4, END+14, END+16, END+17, SUB+1
>> HBHCCNT7 END+15, END+17, SUB+6
>> HBHCCNTA END+4, END+10, END+11, END+16, END+17, SUB+2
>> HBHCCNTR END+4, END+10, END+11, END+16, END+17, SUB+2
>> HBHCDATE PROMPT1+1*, PROMPT1+2*, END+2*, CONT+1, PRTLOOP3+1*, PRTLOOP4+1, PRINT+1, PRINT+3
>> HBHCDIR PROMPT2+11*, PROMPT2+12, END+4, END+7, END+8, END+9, END+10, END+11, END+12, END+13
END+14, END+15, END+16, END+17, END+18, SUB+1, SUB+2, SUB+3, SUB+4, SUB+5
SUB+6
>> HBHCFORM PRTLOOP+1*, PRTLOOP2+1, PRTLOOP3+1, PRTLOOP4+1, PRINT+1, PRINT+3, PRINT+4, HEADER+1, HEADER+2, SUB+1
SUB+2, SUB+3, SUB+4, SUB+5, SUB+6
>> HBHCHDR END+4*, END+8*
>> HBHCHEAD PROMPT2+12*
>> HBHCI PROMPT1+2*
>> HBHCIEN PRTLOOP4+1*, PRINT+1
>> HBHCINFO PRINT+1*, PRINT+3, PRINT+4
>> HBHCIOP PROMPT2+4*
>> HBHCLST4 END+2*, CONT+1, PRTLOOP3+1*, PRTLOOP4+1, PRINT+1, PRINT+3
>> HBHCMFHS PROMPT2+8, PROMPT2+9, END+15, END+16, END+17
>> HBHCNAME END+2*, CONT+1, PRTLOOP2+1*, PRTLOOP3+1, PRTLOOP4+1, PRINT+1, PRINT+3
>> HBHCPAGE PRINT+2
>> HBHCPRV CONT+1*, PRTLOOP4+1*, PRINT+1, PRINT+4
>> HBHCXMDT PROMPT1+8*, PROMPT2+3*, PROMPT2+12
>> HBHCY SUB+1, SUB+2, SUB+3, SUB+5, SUB+6
>> HBHCY0 PROMPT2+11*, PROMPT2+12
IO END+5, END+6
IO("S" END+5, END+6
IO(0 END+5, END+6
IOF END+6, END+8, PRINT+2
IOSL PRINT+2
>> TMP( PROMPT1+2*, PROMPT1+7, PROMPT1+8
U PROMPT2+4, PRINT+3, PRINT+4
>> Y PROMPT1+2*, PROMPT1+7, PROMPT1+8, PROMPT2+11, PROMPT2+12*
>> Y(0 PROMPT2+11
>> ZTRTN PRINT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All