Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls