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

Package: Hospital Based Home Care

Routine: HBHCFILE


Information

HBHCFILE ; LR VAMC(IRMS)/MJT- HBHC Build/Verify Transmission File; May 05, 2021@14:33

Source Information

Source file <HBHCFILE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
MONTH ; Calculate default month value & last date to be included for transmission
NUMBER ; Edit Number of Visit Days to Scan system parameter
CLEANUP ; Cleanup ^HBHC(634) if new transmit cycle => all records flagged as transmitted
QUEUE ; Queue
PLOOP ; Loop thru ^HBHC(632,"C" Appointment Date cross-ref & flag as 'P' (Record Prior to Package Startup Date) in Form 4 Transmit Status field if date < Package Startup Date
POP ; Populate ^HBHC(634) or ^HBHC(634.1/634.2/634.3/634.5/634.7 Error files
EXIT ; Exit module
TPATCHK ; HBH*1.0*27 ; Identify and remove test patients from the HBHC TRANSMIT file
MAIL ; Send completed mail message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** NOTICE: Hospital Number is missing from System Parameter file (#631.9).",!,"Transmission file building CANNOT proceed without this information. Contact"
  • Line Location: HBHCFILE+9
Function Call: WRITE
  • Prompt: !,"IRM to enter this information using FileMan.",!
  • Line Location: HBHCFILE+10
Function Call: WRITE
  • Prompt: $C(7),!!,"Another user has the pseudo SSN file locked."
  • Line Location: HBHCFILE+11
Function Call: WRITE
  • Prompt: $C(7),!!,"Records containing errors exist and must be corrected before transmit",!,"file can be created or updated.",!!
  • Line Location: HBHCFILE+12
Function Call: WRITE
  • Prompt: $C(7),!,"File Update in progress. Please try again later."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"No parent sites are defined at this facility."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"Contact your HBPC Program Manager to define at least one"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"parent site in option ""System Parameters Edit"".",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"This option builds the file for transmission to Austin. Do you wish to",!,"continue"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,"A 'Yes' response will add records to the file. A 'No' response will return",!,"to the menu without updating the file."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NUMBER+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Date Range is invalid. Transmit Month Ending Date of: ",HBHCCKDT," must",!,"be closer to today than the Number of Days to Scan Date: ",Y,".",!
  • Line Location: NUMBER+10
Function Call: WRITE
  • Prompt: $C(7),!!,"Build Transmit File processing has been queued. Task number: ",ZTSK
  • Line Location: QUEUE+2

FileMan Files Accessed Via FileMan Db Call

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