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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: HBHCUTL2

Package: Hospital Based Home Care

Routine: HBHCUTL2


Information

HBHCUTL2 ; LR VAMC(IRMS)/MJT-HBHC Utility module, Entry points: PROV, EN, EN2, TOT, & FTOT (see line labels for called by routines) ; Aug 2000

Source Information

Source file <HBHCUTL2.m>

Entry Points

Name Comments DBIA/ICR reference
PROV ; Provider variable setup, called by ^HBHCRP4, ^HBHCRP9, ^HBHCRP22
EN ; Entry point called by ^HBHCRP4, ^HBHCRP6, ^HBHCRP9, & ^HBHCRP22
ENPRV ; Enter provider prompt
EN2 ; Entry point 2 called by ^HBHCRP6 & ^HBHCRP9
DQ ; De-queue
LOOP ; Loop thru ^HBHC(631) "AD" (Admission Date) cross-ref to build report for case manager report or thru ^HBHC(632) "C" (Visit Date) for provider report
EXIT ; Exit module
PROCESS ; Process record & create ^TMP("HBHC",$J global
PRTLOOP ; Print loop
HDR ; Report header setup
PRT ; Print report
TOT ; Print case manager/provider total, called by ^HBHCRP4 & ^HBHCRP22
FTOT ; Print report final total, called by ^HBHCRP4 & ^HBHCRP22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you wish to include ALL ",HBHCWHOS," on the report"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"A 'Yes' response will include ALL "_HBHCWHOS_". A 'No' response will",!,"prompt for an individual "_HBHCWHO_" name."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"No data found for "_HBHCWHOC_" by Date Range selected."
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,HBHCNM,?28,$P(HBHCTMP,U),?41,$P(HBHCTMP,U,2),?51,$P(HBHCTMP,U,3),?83,$P(HBHCTMP,U,6),?100,$P(HBHCTMP,U,7),?112,$P(HBHCTMP,U,8)
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !!,HBHCZ,!,HBHCWHOC_": "_HBHCNAM_" "_HBHCTXT_" Total: ",HBHCTOT,!,HBHCZ
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FTOT+1
Function Call: WRITE
  • Prompt: !!,HBHCTXT_" Total: ",HBHCFTOT,!!,HBHCZ
  • Line Location: FTOT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HBHC(631.4 - [#631.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call