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

Package: Hospital Based Home Care

Routine: HBHCRP4


Information

HBHCRP4 ; LR VAMC(IRMS)/MJT-HBHC report on file 632, visit data by date range, sorted alphabetically by provider, then by visit date, includes all fields, & total ; Jan 2000

Source Information

Source file <HBHCRP4.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ; De-queue
LOOP ; Loop thru ^HBHC(632) "C" (visit date) cross-ref to build report
EXIT ; Exit module
PROCESS ; Process record & create ^TMP("HBHC",$J global
SETMOD ; Set TMP global with CPT Modifier info
PRTLOOP ; Print loop
PRINT ; Print report
HDR ; Report header setup
TOT ; Print total
CPTPRT ; CPT print
NEWPAGE ; Check if new page needed

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Visits found for Date Range selected."
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,"Visit Date: ",$E(HBHCDATE,4,5)_"-"_$E(HBHCDATE,6,7)_"-"_(1700+$E(HBHCDATE,1,3)),?26,"Patient Name: ",$P(HBHCTMP(1),U),?67,"Last 4: ",$P(HBHCTMP(1),U,2)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "Diagnosis: "
  • Condition for execution: HBHCI=1
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?13,^TMP("HBHC",$J,HBHCPRV,HBHCDATE,HBHCDFN,"DX",HBHCI)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,HBHCTEXT,^TMP("HBHC",$J,HBHCPRV,HBHCDATE,HBHCDFN,HBHCI,HBHCJ)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CPTPRT+2
Function Call: WRITE
  • Prompt: "CPT Code: "
  • Condition for execution: HBHCI=2
  • Line Location: CPTPRT+2
Function Call: WRITE
  • Prompt: ?13,^TMP("HBHC",$J,HBHCPRV,HBHCDATE,HBHCDFN,HBHCI)
  • Line Location: CPTPRT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPAGE+1
Function Call: WRITE
  • Prompt: !,HBHCMSG,!
  • Line Location: NEWPAGE+1
Info |  Source |  Entry Points |  Interaction Calls