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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSEOB8

Package: Contract Health Management Information System

Routine: ACHSEOB8


Information

ACHSEOB8 ; IHS/ITSC/TPF/PMF - AREA WRITE EOBR FILES FOR FACILITIES (1/2) ;

Source Information

Source file <ACHSEOB8.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 HOME^%ZIS  ^%ZISC  ($$MV,$$OPEN,$$SEND)^%ZISH  $$HTFM^XLFDT  
Contract Health Management Information System 3 ($$AOP,$$ASF,$$EX,$$IM,$$OS,$$ZEROTH,RTRN)^ACHS  ADD^ACHSAOPO  ERROR^ACHSTCK1  
IHS VA Utilities 2 $$DIR^XBDIR  $$C^XBFUNC  
VA Fileman 2 WAIT^DICD  ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSAREAEOBROUT  ACHSEOB  

Entry Points

Name Comments DBIA/ICR reference
A ;
DCHK ;Check Destinations of EOBRs.
EXPEND ;
END ;
SEQ ; Load Seq Numbers for facility & file suffix name.
EXP2 ;
K ;
EXP1 ;
SEND ;ACHS*3.1*21 ADDED FOR TUC LEGACY SYS
START ;
EXPMSG ;
CDATA ; Check if there is data to send to the facility.
CLOSE ;EP.
SAVE ;EP.
HFS ;

External References

Name Field # of Occurrence
HOME^%ZIS A+1
^%ZISC CLOSE+1
$$MV^%ZISH HFS+18
$$OPEN^%ZISH HFS+8
$$SEND^%ZISH SEND+11
$$AOP^ACHS HFS+6
$$ASF^ACHS HFS+12, HFS+18, HFS+19
$$EX^ACHS HFS+7, HFS+18
$$IM^ACHS HFS+12, HFS+18
$$OS^ACHS HFS+22, SEND+11
$$ZEROTH^ACHS ACHSEOB8+6
RTRN^ACHS ACHSEOB8+3, ACHSEOB8+4, K+3, HFS+30, CLOSE+2
ADD^ACHSAOPO SAVE+12
ERROR^ACHSTCK1 HFS+8
WAIT^DICD ACHSEOB8+10, SAVE+1
^DIE HFS+27
$$DIR^XBDIR ACHSEOB8+13
$$C^XBFUNC ACHSEOB8+12
$$HTFM^XLFDT CLOSE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"NO DATA EXISTS TO EXPORT TO FACILITIES.",!!
  • Line Location: ACHSEOB8+3
Function Call: WRITE
  • Prompt: !!?5,*7,"FACILITY FILES HAVE ALREADY BEEN EXPORTED -- JOB CANCELLED"
  • Line Location: ACHSEOB8+4
Function Call: WRITE
  • Prompt: !,"Checking EOBR destinations...",!
  • Line Location: ACHSEOB8+7
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("You can use the 'Area Office Parameters' option to add a destination to"),!,$$C^XBFUNC("FACILITIES RECEIVING EOBR DATA.")
  • Line Location: ACHSEOB8+12
Function Call: WRITE
  • Prompt: !!,"Copying EOBR data for ",$P(^DIC(4,ACHSPFAC,0),U,1),!," to host file.",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"Host File Being Created",*7
  • Line Location: HFS+2
Function Call: WRITE
  • Prompt: !,"Please Standby - Copying Data to Host File ",$$IM^ACHS,ACHSZFN,!
  • Line Location: HFS+12
Function Call: WRITE
  • Prompt: !,"Please Standby - Copying Data to Host File ",ACHSEPTH,ACHSZFN,!
  • Line Location: HFS+13
Function Call: WRITE
  • Prompt: !,"Moved files to import directory"
  • Line Location: HFS+18
Function Call: WRITE
  • Prompt: *7,!!?10,"System-ID Missing from Location File for ",$P(^DIC(4,ACHSPFAC,0),U)
  • Line Location: HFS+24
Function Call: WRITE
  • Prompt: !?10,"So the file can be sent, please enter the system ID, now:"
  • Line Location: HFS+25
Function Call: WRITE
  • Prompt: !?10,"Thank you."
  • Line Location: HFS+28
Function Call: WRITE
  • Prompt: !?10,"Well....you can STILL send it, manually."
  • Line Location: HFS+29
Function Call: WRITE
  • Prompt: *7,!!?10,"$$SEND^%ZISH() of ",ACHSEPTH,ACHSZFN," to ",ACHSSYS," failed -- Notify Supervisor",!
  • Line Location: SEND+10
Function Call: WRITE
  • Prompt: *7,!!?10,"$$SEND^%ZISH() of ",ACHSEPTH,ACHSZFN," to ",ACHSSYS," failed -- Notify Supervisor",!
  • Line Location: SEND+11
Function Call: WRITE
  • Prompt: !!,"Export file ",ACHSZFN," queued up to be sent to ",$P($G(^AUTTLOC(ACHSPFAC,1)),U),"...",!
  • Line Location: SEND+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SAVE+3
Function Call: WRITE
  • Prompt: ^(ACHSCTR),!
  • Line Location: SAVE+11
Function Call: WRITE
  • Prompt: $J(ACHSZRCT,8)
  • Line Location: SAVE+14
Function Call: WRITE
  • Prompt: ACHSEOBX
  • Line Location: EXP2+5
Function Call: WRITE
  • Prompt: "$$"
  • Line Location: EXPEND+2
Function Call: WRITE
  • Prompt: !?10,"EOBR Messages Copied to Output Media",!
  • Line Location: EXPEND+5
Function Call: WRITE
  • Prompt: *7,!,"Destination not on file for ",$P(^DIC(4,ACHS,0),U,1)
  • Line Location: DCHK+4
Routine Call
  • %ZIS
  • Line Location:
    • A+1
Routine Call
  • DIE
  • Line Location:
    • HFS+27

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIB(9888888.93 - [#9888888.93] SEND+6, SEND+7, SEND+8
^%ZOSF("OS" ACHSEOB8+5
^ACHSAOP - [#9002079] ACHSEOB8+6*, A+2, A+4, SEQ+3, CDATA+4, HFS+15*, HFS+16*, HFS+21, SAVE+7, SAVE+10
, EXPEND+6*, DCHK+3
^ACHSEOBM - [#9002076] EXP1+1, EXP2+1, EXP2+3
^ACHSEOBR CDATA+4, SAVE+11, SAVE+12, DCHK+1
^ACHSEOBR("RUN" ACHSEOB8+4, CLOSE+3*
^ACHSEOBR(0 ACHSEOB8+3
^AUTTLOC - [#9999999.06] CDATA+2, HFS+22, HFS+28, SEND+1, SEND+2, SEND+15
^DIC(4 - [#4] START+2, HFS+24, DCHK+4

Label References

Name Line Occurrences
A ACHSEOB8+11, ACHSEOB8+14
CDATA A+4
CLOSE HFS+8, HFS+19, HFS+21, HFS+22, SEND+11
DCHK ACHSEOB8+10, DCHK+3, DCHK+6
END ACHSEOB8+3, ACHSEOB8+4, ACHSEOB8+15
EXP1 EXP2+2
EXP2 EXP2+7
EXPEND EXP1+2
EXPMSG SAVE+7
HFS START+3
K ACHSEOB8+15
SAVE HFS+14
SEQ A+4
START A+4

Naked Globals

Name Field # of Occurrence
^( SAVE+11, SAVE+12
^(0 HFS+15*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%MT END+1!
ACHS ACHSEOB8+8*, END+1!, DCHK+1*, DCHK+2, DCHK+3, DCHK+4
>> ACHSAOSQ SEQ+3*, HFS+3*, HFS+4, HFS+16
>> ACHSCTR SAVE+11*, SAVE+12
>> ACHSEBSQ SEQ+3*, HFS+15, SAVE+6
>> ACHSEMSG HFS+8*
>> ACHSEOBD A+2*, SAVE+6
ACHSEOBX K+1!, EXP2+3*, EXP2+5
>> ACHSEPTH HFS+6*, HFS+7*, HFS+8, HFS+13, SEND+11
ACHSFAC A+4, K+1!, CDATA+3*, CDATA+4*, END+1!, SAVE+4*, SAVE+10*, SAVE+11, SAVE+12
ACHSFACN K+1!, CDATA+1*, CDATA+2*, HFS+4
ACHSFLG ACHSEOB8+5*, A+4, K+1!, CLOSE+2
>> ACHSIO ACHSEOB8+3*, K+2*, CLOSE+2*
ACHSMCNT K+1!, EXPMSG+1*, EXP2+3*
ACHSMDIA A+3*, K+1!, CLOSE+2
ACHSMSG K+1!
ACHSMSM ACHSEOB8+5*, K+1!
ACHSPFAC A+3*, A+4*, K+1!, SEQ+3, CDATA+2, CDATA+4, START+2, HFS+15, HFS+16, HFS+21
, HFS+22, HFS+24, HFS+26, HFS+28, SEND+1, SEND+2, SEND+15, SAVE+7, SAVE+10, EXPEND+6
ACHSR K+1!, EXPMSG+1*, EXP1+1*, EXP1+2, EXP2+1, EXP2+3
ACHSRCTR END+1!
ACHSRR K+1!, EXPMSG+1*, EXP1+3*, EXP2+1*, EXP2+2, EXP2+3
>> ACHSSYS SEND+1*, SEND+2*, SEND+6, SEND+7, SEND+11
>> ACHSZFN HFS+4*, HFS+8, HFS+12, HFS+13, HFS+18, SEND+11, SEND+15
ACHSZPAR SEND+5*, SEND+8*, SEND+11, END+1!
ACHSZRCT K+1!, SAVE+4*, SAVE+13*, SAVE+14
DA HFS+23~, HFS+26*
DIE HFS+23~, HFS+26*
DR HFS+23~, HFS+26*
DT HFS+15, SAVE+17, EXPEND+6
DUOUT ACHSEOB8+9!, ACHSEOB8+11, ACHSEOB8+15, DCHK+5*
DUZ CLOSE+3
DUZ(2 ACHSEOB8+6, A+2, A+4, SEQ+3, CDATA+4, HFS+12, HFS+15, HFS+16, HFS+18, HFS+19
, HFS+21, SAVE+7, SAVE+10, EXPEND+6, DCHK+3
IO ACHSEOB8+3, K+2, CLOSE+2, SAVE+5, SAVE+9, SAVE+14, EXP2+4, EXPEND+1
IO(0 ACHSEOB8+4, START+1, HFS+1, HFS+10, SAVE+2, SAVE+14, SAVE+18, EXPEND+4
>> IOPAR EXP2+6, EXPEND+3
R END+1!
U A+2, SEQ+3, CDATA+2, START+2, HFS+15, HFS+16, HFS+21, HFS+22, HFS+24, HFS+28
, SEND+1, SEND+2, SEND+8, SEND+15, SAVE+7, EXP2+3, EXPEND+6, DCHK+4
>> X SEND+1*, SEND+2, SEND+7*, SEND+8
X1 END+1!
X2 END+1!
>> Y ACHSEOB8+13*, ACHSEOB8+14, ACHSEOB8+15
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 |  Naked Globals |  Local Variables |  All