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

Package: Hospital Based Home Care

Routine: HBHCRP1B


Information

HBHCRP1B ;LR VAMC(IRMS)/MJT - HBHC report on files 634.1, 634.2, & 634.3, (Form 3/4/5 (A/V/D respectively) Error(s)), called by HBHCRP1A, entry points: START, SETUP, PRTLOOP, EXIT ;April 2000

Source Information

Source file <HBHCRP1B.m>

Entry Points

Name Comments DBIA/ICR reference
START ; Entry point
SETUP ; Setup variables
PRTLOOP ; Print loop
SETTXT ; Set text
LOOP2 ; Continuation of PRTLOOP
PRINT ; Print report
CPT ; Write CPT info
MOD ; Write Modifier info
EXIT ; Exit module

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,$J($P(HBHCINFO,U),8),?10,HBHCNAME,?27,HBHCSSN,?34,HBHCCLN,?55,$P(HBHCINFO,U,2)," ",?75,HBHCTXT
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"Error: ",$P(HBHCINFO,U,3)
  • Condition for execution: $P(HBHCINFO,U,3)]""
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"Provider: ",$P(HBHCINFO,"$"),?54,"Encounter Prov #:",?72,$J($P(HBHCINFO,"$",2),8)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"ICD: ",HBHCINFO
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !?1,"CPT: ",$P(HBHCINFO,"$"),?45,"QTY: ",$J($P(HBHCINFO,"$",2),3),?55,"CPT Code Prov #:",?72,$J($P(HBHCINFO,"$",3),8)
  • Line Location: CPT+1
Function Call: WRITE
  • Prompt: !,HBHCTEXT,HBHCINFO
  • Line Location: MOD+1
Info |  Source |  Entry Points |  Interaction Calls