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

Package: Hospital Based Home Care

Routine: HBHCUTL


Information

HBHCUTL ;LR VAMC(IRMS)/MJT - HBHC Utility module, Entry points: ACTION, STATUS, START, TODAY, HDRPAGE, HDRRANGE, HDR132, HDR132NR, HDRXPAGE ;Mar 2000

Source Information

Source file <HBHCUTL.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 (,DD)^%DT  YN^DICN  

Caller Graph

Caller Graph Total: 36

Package Total Caller Graph
Hospital Based Home Care 36 HBHC UPDATE DISCHARGE  HBHCR15B  HBHCR19A  HBHCR19B  HBHCRP10  HBHCRP11  HBHCRP12  HBHCRP14  
HBHCRP16  HBHCRP17  HBHCRP18  HBHCRP1A  HBHCRP1B  HBHCRP2  HBHCRP20  HBHCRP21  
HBHCRP22  HBHCRP23  HBHCRP24  HBHCRP25  HBHCRP26  HBHCRP27  HBHCRP28  HBHCRP29  
HBHCRP3  HBHCRP30  HBHCRP31  HBHCRP4  HBHCRP5  HBHCRP7  HBHCRP8  HBHCUTL2  
HBHCUTL4  HBHCWORK  HBHXMNT2  HBHXMNT3  

Entry Points

Name Comments DBIA/ICR reference
ACTION ; Set appropriate fields/variables for Admit/Reject Action
PROCADM ; Process 'Delete' & 'Reject' responses
ADMIT ; Set appropriate fields = null
STATUS ; Set appropriate fields/variables for Discharge Status
PROCDIS ; Process 'Delete', '1 or 2', '4', & '3 or 5 or 9' responses
DISCHRG ; Delete discharge data
START ; Prompt for beginning/ending report dates
END ; Ending date prompt
TODAY ; Obtain current date
HDRPAGE ; Print header with Page
HDRRANGE ; Print header with Date Range
HDR132 ; Print 132 column header with Date Range
HDR132NR ; Print 132 column header with No Date Range
HDRXPAGE ; Print header with Page & xtra info

External References

Name Field # of Occurrence
^%DT START+1, END+1, TODAY+2
DD^%DT START+1, END+2, TODAY+2
YN^DICN PROCADM+1, PROCDIS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This record contains ",HBHCWRD1," data. Are you sure you want ",HBHCWRD2," the",!,"Admit/Reject Action field ('Yes' will delete the ",HBHCWRD1," data)"
  • Line Location: PROCADM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCADM+2
Function Call: WRITE
  • Prompt: !!,"Admit/Reject Action field must either contain ",HBHCWRD3," or the ",HBHCWRD1,!,"data MUST be deleted by responding 'Yes'.",!!
  • Condition for execution: %=0
  • Line Location: PROCADM+2
Function Call: WRITE
  • Prompt: $C(7),!!,"This record contains ",HBHCWRD1," data. Are you sure you want ",HBHCWRD2," the",!,"Discharge Status field ('Yes' will delete the ",HBHCWRD1," data)"
  • Line Location: PROCDIS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCDIS+2
Function Call: WRITE
  • Prompt: !!,"Discharge Status field must contain ",HBHCWRD3," or the ",HBHCWRD1,!,"data MUST be deleted by responding 'Yes'.",!!
  • Condition for execution: %=0
  • Line Location: PROCDIS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: START+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Ending Report Date must be closer to today than the Beginning Report Date",!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !?HBHCCOLM,">>> HBPC ",HBHCHEAD," Report <<<",?71,"Page: ",HBHCPAGE,!!,"Run Date: ",HBHCTDY,!!
  • Line Location: HDRPAGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRPAGE+2
Function Call: WRITE
  • Prompt: HBHCZ
  • Line Location: HDRPAGE+3
Function Call: WRITE
  • Prompt: !?HBHCCOLM,">>> HBPC ",HBHCHEAD," Report <<<",?71,"Page: ",HBHCPAGE,!
  • Line Location: HDRRANGE+2
Function Call: WRITE
  • Prompt: ?HBHCCLM1,$S($D(HBHCONE):"Provider: ",1:"HBPC Team: "),HBHCNAM,!
  • Condition for execution: $D(HBHCNAM)
  • Line Location: HDRRANGE+2
Function Call: WRITE
  • Prompt: !,"Run Date: ",HBHCTDY,?53,"Date Range: ",HBHCBEG2," to",!?65,HBHCEND2,!
  • Line Location: HDRRANGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRRANGE+3
Function Call: WRITE
  • Prompt: HBHCZ
  • Line Location: HDRRANGE+4
Function Call: WRITE
  • Prompt: !?HBHCCOLM,">>> HBPC ",HBHCHEAD," Report <<<",?123,"Page: ",HBHCPAGE,!
  • Line Location: HDR132+2
Function Call: WRITE
  • Prompt: ?HBHCCLM1,HBHCWHOC_": ",HBHCNAM,!
  • Condition for execution: $D(HBHCNAM)
  • Line Location: HDR132+2
Function Call: WRITE
  • Prompt: !,"Run Date: ",HBHCTDY,?105,"Date Range: ",HBHCBEG2," to",!?117,HBHCEND2,!
  • Line Location: HDR132+2
Function Call: WRITE
  • Prompt: !,"Run Date: ",HBHCTDY,?105,"Date Range: ",HBHCBEG2," to",!?117,HBHCEND2,!
  • Line Location: HDR132+2
Function Call: WRITE
  • Prompt: HBHCZ
  • Line Location: HDR132+3
Function Call: WRITE
  • Prompt: !?HBHCCOLM,">>> HBPC ",HBHCHEAD," Report <<<",?123,"Page: ",HBHCPAGE,!
  • Line Location: HDR132NR+2
Function Call: WRITE
  • Prompt: !,"Run Date: ",HBHCTDY
  • Line Location: HDR132NR+2
Function Call: WRITE
  • Prompt: !,"Run Date: ",HBHCTDY
  • Line Location: HDR132NR+2
Function Call: WRITE
  • Prompt: HBHCZ
  • Line Location: HDR132NR+3
Function Call: WRITE
  • Prompt: !?HBHCCOLM,">>> HBPC ",HBHCHEAD," Report <<<",?71,"Page: ",HBHCPAGE,!!
  • Line Location: HDRXPAGE+2
Function Call: WRITE
  • Prompt: !!,"Run Date: ",HBHCTDY,!
  • Line Location: HDRXPAGE+2
Function Call: WRITE
  • Prompt: !!,"Run Date: ",HBHCTDY,!
  • Line Location: HDRXPAGE+2
Function Call: WRITE
  • Prompt: HBHCZ
  • Line Location: HDRXPAGE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HBHC(631 - [#631] ACTION+2, ACTION+12*, ADMIT+1*, ADMIT+2*, STATUS+2, STATUS+5, STATUS+16*, STATUS+18*, DISCHRG+1*, DISCHRG+2*
, DISCHRG+3*

Label References

Name Line Occurrences
ADMIT ACTION+12
DISCHRG STATUS+17
END END+1
PROCADM ACTION+12
PROCDIS STATUS+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ACTION+12, PROCADM+1*, PROCADM+2, PROCADM+3, STATUS+15, PROCDIS+1*, PROCDIS+2, PROCDIS+3
%DT START+1!*, TODAY+2!
%DT("A" START+1*, END+1*
>> HBHC12 STATUS+2*, STATUS+3, STATUS+9, STATUS+13
>> HBHC359 STATUS+2*, STATUS+3, STATUS+11
>> HBHCAFLG ACTION+4*, ACTION+6, ACTION+8, ACTION+9, ACTION+11, ACTION+12
>> HBHCBEG1 START+1*, END+1
>> HBHCBEG2 START+1*, HDRRANGE+2, HDR132+2
>> HBHCCLM1 HDRRANGE+2, HDR132+2
>> HBHCCOLM HDRPAGE+2, HDRRANGE+2, HDR132+2, HDR132NR+2, HDRXPAGE+2
>> HBHCDFLG STATUS+6*, STATUS+7*, STATUS+8, STATUS+10, STATUS+17
>> HBHCDFN ACTION+2, ACTION+12, ADMIT+1, ADMIT+2, STATUS+2, STATUS+5, STATUS+16, STATUS+18, DISCHRG+1, DISCHRG+2
, DISCHRG+3
>> HBHCDIED STATUS+5*, STATUS+8, STATUS+9, STATUS+11, STATUS+12, STATUS+14, STATUS+18
>> HBHCEND1 START+1*, END+2*
>> HBHCEND2 END+2*, HDRRANGE+2, HDR132+2
>> HBHCHDR HDRPAGE+2, HDRRANGE+3, HDR132+2, HDR132NR+2, HDRXPAGE+2
>> HBHCHDRX HDRXPAGE+2
>> HBHCHEAD HDRPAGE+2, HDRRANGE+2, HDR132+2, HDR132NR+2, HDRXPAGE+2
>> HBHCI ACTION+4*, DISCHRG+1*
>> HBHCJ ADMIT+1*, DISCHRG+2*
HBHCKEEP ACTION+1!, PROCADM+3*, STATUS+1!, PROCDIS+3*
>> HBHCL STATUS+6*
>> HBHCM STATUS+7*
>> HBHCNAM HDRRANGE+2, HDR132+2
>> HBHCNOD1 STATUS+2*, STATUS+7
>> HBHCONE HDRRANGE+2
>> HBHCPAGE START+1*, HDRPAGE+1*, HDRPAGE+2, HDRRANGE+1*, HDRRANGE+2, HDR132+1*, HDR132+2, HDR132NR+1*, HDR132NR+2, HDRXPAGE+1*
, HDRXPAGE+2
HBHCQ ACTION+1!, ACTION+3*, STATUS+1!, STATUS+3*
HBHCQ1 STATUS+1!, STATUS+3*
>> HBHCRFLG ACTION+5*, ACTION+6, ACTION+7, ACTION+12
>> HBHCTDY TODAY+2*, HDRPAGE+2, HDRRANGE+2, HDR132+2, HDR132NR+2, HDRXPAGE+2
>> HBHCTFLG STATUS+4*, STATUS+8, STATUS+10, STATUS+11, STATUS+12, STATUS+14, STATUS+16
>> HBHCUPD ACTION+3, PROCADM+3, STATUS+3, PROCDIS+3
>> HBHCWHOC HDR132+2
>> HBHCWRD1 ACTION+9*, PROCADM+1, PROCADM+2, STATUS+12*, PROCDIS+1, PROCDIS+2
>> HBHCWRD2 ACTION+10*, PROCADM+1, STATUS+13*, PROCDIS+1
>> HBHCWRD3 ACTION+11*, PROCADM+2, STATUS+14*, PROCDIS+2
>> HBHCY0 ACTION+2*, ACTION+4, ACTION+5, STATUS+2*, STATUS+4, STATUS+6
>> HBHCZ TODAY+1*, HDRPAGE+3, HDRRANGE+4, HDR132+3, HDR132NR+3, HDRXPAGE+3
U ACTION+4, ACTION+5, ACTION+12, ADMIT+1, ADMIT+2, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+7
, STATUS+9, STATUS+11, STATUS+13, STATUS+16, STATUS+18, DISCHRG+1, DISCHRG+2, DISCHRG+3
>> X ACTION+3, ACTION+7, ACTION+8, ACTION+10, STATUS+3, STATUS+9, STATUS+10, STATUS+11, STATUS+13, STATUS+17
, TODAY+2*
>> Y ACTION+3*, PROCADM+3*, STATUS+3*, PROCDIS+3*, START+1, END+1, END+2, TODAY+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All