Routine: ACHSEOB8

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

Package

Total

Call Graph

Kernel

HOME^%ZIS ^%ZISC ($$MV,$$OPEN,$$SEND)^%ZISH $$HTFM^XLFDT

Contract Health Management Information System

($$AOP,$$ASF,$$EX,$$IM,$$OS,$$ZEROTH,RTRN)^ACHS ADD^ACHSAOPO ERROR^ACHSTCK1

IHS VA Utilities

$$DIR^XBDIR $$C^XBFUNC

VA Fileman

WAIT^DICD ^DIE

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

Package

Total

Caller Graph

Contract Health Management Information System

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	;ACHS3.121 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

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

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

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSEOB8

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: