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

Package: Hospital Based Home Care

Routine: HBHCR15B


Information

HBHCR15B ;LR VAMC(IRMS)/MJT-HBHC rpt using file 634.6, called from HBHCR15A, entry points: PROMPT1 & END, & from HBHCXMT, entry point: PROMPT2 ;9804

Source Information

Source file <HBHCR15B.m>

Entry Points

Name Comments DBIA/ICR reference
PROMPT1 ; Prompt user for which transmit date from last 12 batchs to include, default is Most Recent; uses transmit date cross-ref to obtain batch dates
PROMPT2 ; Prompt user for which forms to include, default is Summary
END ; End of report processing
; Count number of visits
CONT ; Continue count of visits loop
PRTLOOP ; Print loop
PRTLOOP2 ; Print loop continued
PRTLOOP3 ; Print loop continued (again)
PRTLOOP4 ; Print loop continued (again & again)
PRINT ; Print report
HEADER ; Sub-header module
SUB ; Sub-total module

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(HBHCI,2),".",?6,Y
  • Line Location: PROMPT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT1+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Please select number from list.",!
  • Line Location: PROMPT1+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+8
Function Call: WRITE
  • Prompt: ?38,$E(HBHCDATE,1,2),"-",$E(HBHCDATE,3,4),"-",$E(HBHCDATE,7,8)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?46,"@"_$P(HBHCINFO,U,3)
  • Condition for execution: $P(HBHCINFO,U,3)]""
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?55,$S(HBHCFORM=6:$P(HBHCINFO,U,2),HBHCFORM="A":HBHCACTN,HBHCFORM="V":$P(HBHCINFO,U),1:"")
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?60,HBHCPRV
  • Condition for execution: HBHCFORM="V"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$S(HBHCFORM=6:"Correction Form 6",HBHCFORM="A":"Evaluation/Admission Form 3",HBHCFORM="D":"Discharge Form 5",HBHCFORM="Z":"Medical Foster Home Form 7",1:"Visit Form 4")_" Records"
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: ?55,$S(HBHCFORM=6:"Type",HBHCFORM="A":"Action",HBHCFORM="V":"Provider",1:""),!
  • Line Location: HEADER+2
Info |  Source |  Entry Points |  Interaction Calls