Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Hospital Based Home Care 6 ^HBHCAPPT  ^HBHCXMA  ^HBHCXMC  ^HBHCXMD  ^HBHCXMM  ^HBHCXMV  
VA FileMan 6 (,DD)^%DT  (C,NOW)^%DTC  YN^DICN  ^DIE  (,ENALL)^DIK  ^DIR  
Kernel 1 ^%ZTLOAD  
MailMan 1 ^XMD  
Registration 1 $$TESTPAT^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Hospital Based Home Care 1 HBHCFILE  

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
CHKXMIT() ; p36 Return 1 (true) if HBHC transmission process is running.

External References

Name Field # of Occurrence
^%DT MONTH+1, MONTH+6, NUMBER+9
DD^%DT MONTH+9, NUMBER+10
C^%DTC MONTH+1, PLOOP+1
NOW^%DTC MAIL+3
^%ZTLOAD QUEUE+1
YN^DICN EN+11
^DIE NUMBER+7, PLOOP+3
^DIK TPATCHK+8
ENALL^DIK POP+5
^DIR EN+10, MONTH+5, NUMBER+4
^HBHCAPPT POP+1
^HBHCXMA POP+1
^HBHCXMC POP+1
^HBHCXMD POP+1
^HBHCXMM POP+3
^HBHCXMV POP+1
$$TESTPAT^VADPT TPATCHK+5
^XMD MAIL+7

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: $C(7),!,"Austin transmission in progress. Please try again later."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"No parent sites are defined at this facility."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Contact your HBPC Program Manager to define at least one"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"parent site in option ""System Parameters Edit"".",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"This option builds the file for transmission to Austin. Do you wish to",!,"continue"
  • Line Location: EN+11
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+12
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
Function Call: WRITE
  • Prompt: "."
  • Line Location: CHKXMIT+5
Routine Call
  • DIE
  • Line Location:
    • NUMBER+7
    • PLOOP+3
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • MONTH+5
    • NUMBER+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MAIL+2, MAIL+3
^DPT("SSN" TPATCHK+4
^HBHC(631 - [#631] CLEANUP+2
^HBHC(631.9 - [#631.9] HBHCFILE+9, HBHCFILE+10, EN+1, EN+2, EN+4, NUMBER+2, PLOOP+1, POP+3, MAIL+1, CHKXMIT+3
^HBHC(632 - [#632] CLEANUP+2, PLOOP+3, POP+5!
^HBHC(633.2 - [#633.2] CLEANUP+2
^HBHC(634 - [#634] CLEANUP+2!*, TPATCHK+2, TPATCHK+6
^HBHC(634.1 - [#634.1] HBHCFILE+12, POP+7
^HBHC(634.2 - [#634.2] HBHCFILE+12, POP+7
^HBHC(634.3 - [#634.3] HBHCFILE+12, POP+7
^HBHC(634.5 - [#634.5] HBHCFILE+11, HBHCFILE+12, POP+7, EXIT+1
^HBHC(634.7 - [#634.7] HBHCFILE+12, POP+7

Label References

Name Line Occurrences
$$CHKXMIT CLEANUP+1
EN EN+12
EXIT HBHCFILE+11, EN+13, NUMBER+5, QUEUE+3
MAIL POP+7
NUMBER NUMBER+10
TPATCHK POP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+11*, EN+12, EN+13, EXIT+2!, MAIL+3, MAIL+4
%DT NUMBER+9!
DA NUMBER+7*, PLOOP+3*, EXIT+2!, TPATCHK+7~, TPATCHK+8*
DIE NUMBER+7!*, PLOOP+2*, EXIT+2!
DIK POP+5*, TPATCHK+7~, TPATCHK+8*
DIK(1 POP+5*
DIR EN+8~, NUMBER+2!, EXIT+2!
DIR("?" MONTH+4*, NUMBER+3*
DIR("A" EN+9*, MONTH+3*, NUMBER+2*
DIR("B" MONTH+1*, NUMBER+2*, NUMBER+7, NUMBER+9
DIR(0 EN+9*, MONTH+2*, NUMBER+2*
DIRUT MONTH+5, EXIT+2!
DR NUMBER+7*, PLOOP+2*, EXIT+2!
DTOUT NUMBER+5, EXIT+2!
DUOUT NUMBER+5, EXIT+2!
DUZ MAIL+6
HBHCAPDT PLOOP+2*, PLOOP+3*, EXIT+2!
HBHCCKDT MONTH+9*, NUMBER+10, EXIT+2!
HBHCCTR CHKXMIT+1~*, CHKXMIT+2, CHKXMIT+4, CHKXMIT+5*, CHKXMIT+7, CHKXMIT+8
HBHCDAT EXIT+2!, MAIL+1, MAIL+4, MAIL+6
HBHCDAYS NUMBER+7*, EXIT+2!
HBHCDFN TPATCHK+1~, TPATCHK+4*, TPATCHK+5
HBHCDIR MONTH+5*, MONTH+6, MONTH+8, NUMBER+6*, NUMBER+7, NUMBER+9, EXIT+2!
HBHCDTE EXIT+2!, MAIL+2
HBHCFLAG CLEANUP+4*, EXIT+2!
>> HBHCINFO MAIL+2*
HBHCLEAP MONTH+7*, MONTH+8, EXIT+2!
HBHCLSDT MONTH+8*, MONTH+9, NUMBER+10, EXIT+2!
HBHCNOW EXIT+2!, MAIL+4
HBHCSSN TPATCHK+1~, TPATCHK+3*, TPATCHK+4
HBHCSTDT PLOOP+1*, PLOOP+3, EXIT+2!
HBHCTRDAT TPATCHK+1~, TPATCHK+2*, TPATCHK+3, TPATCHK+6
HBHCTRIEN TPATCHK+1~, TPATCHK+6*, TPATCHK+8
HBHCXFLG CHKXMIT+1~*, CHKXMIT+2, CHKXMIT+6*
HBHCYEAR MONTH+6*, MONTH+7, MONTH+8, EXIT+2!
TMP EXIT+2!
TMP(1 MAIL+1*
TMP(2 MAIL+1*
TMP(3 MAIL+1*
TMP(4 MAIL+1*
TMP(5 MAIL+2*
TMP(6 MAIL+2*
TMP(7 MAIL+4*
TMP(8 MAIL+4*
TMP(9 MAIL+5*
U HBHCFILE+9, HBHCFILE+10, EN+1, EN+2, NUMBER+2, PLOOP+1, POP+3, MAIL+1, MAIL+2, CHKXMIT+3
X MONTH+1*, MONTH+6*, NUMBER+9*, PLOOP+1, EXIT+2!
X1 MONTH+1*, PLOOP+1*, EXIT+2!
X2 MONTH+1*, PLOOP+1*, EXIT+2!
>> XMDUZ MAIL+6*
>> XMSUB MAIL+6*
>> XMTEXT MAIL+6*
>> XMY( MAIL+6*
Y MONTH+1, MONTH+5, MONTH+6, MONTH+7*, MONTH+9*, NUMBER+6, NUMBER+7, NUMBER+10, EXIT+2!, MAIL+2*
, MAIL+3*, MAIL+4
>> ZTDESC QUEUE+1*
>> ZTDTH QUEUE+1*
>> ZTIO QUEUE+1*
>> ZTRTN QUEUE+1*
>> ZTSAVE("HBHC*" QUEUE+1*
>> ZTSK QUEUE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All