Routine: ACHSEOB

Call Graph Total: 18

Package	Total	Call Graph
Contract Health Management Information System	10	($$AOP,$$ASF,$$IM,$$LOCK,$$PARM,CLOSEALL,RTRN)^ACHS REPORT^ACHSEOB0 ^ACHSEOB1 START^ACHSEOB6 ^ACHSEOB8 (AREA,FAC,FACSRCH,KILL)^ACHSEOBB REPORT^ACHSEOBC ^ACHSEOBS $$E^ACHSJCHK ERROR^ACHSTCK1
Kernel	3	(,HOME)^%ZIS $$OPEN^%ZISH ^%ZTLOAD
VA Fileman	3	^%DT $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$DIR^XBDIR $$C^XBFUNC

Package

Total

Call Graph

Contract Health Management Information System

($$AOP,$$ASF,$$IM,$$LOCK,$$PARM,CLOSEALL,RTRN)^ACHS REPORT^ACHSEOB0 ^ACHSEOB1 START^ACHSEOB6 ^ACHSEOB8 (AREA,FAC,FACSRCH,KILL)^ACHSEOBB REPORT^ACHSEOBC ^ACHSEOBS
$$E^ACHSJCHK ERROR^ACHSTCK1

Kernel

(,HOME)^%ZIS $$OPEN^%ZISH ^%ZTLOAD

VA Fileman

^%DT $$GET1^DIQ ^DIR

IHS VA Utilities

$$DIR^XBDIR $$C^XBFUNC

Package	Total	Caller Graph
Contract Health Management Information System	5	ACHSAREAEOBRIN ACHSEOB0 ACHSEOBB ACHSEOBM ACHSFEOBR

Package

Total

Caller Graph

Contract Health Management Information System

ACHSAREAEOBRIN ACHSEOB0 ACHSEOBB ACHSEOBM ACHSFEOBR

Entry Points

Name	Comments	DBIA/ICR reference
SUF	;
CONT	;
S2	;
S1	;
S0	;
A3A	;
SEQOK	;
RDHDR	;EP
A3	;
CONT1	;
ABEND	;EP
SEQOK1	;
ENDX	;EP
XIT	;
SAVDCR(S)	;EP - Save DCR amounts for EOB Summary Report ; S = "B" for begin values, "E" for end values.

External References

Name	Field # of Occurrence
^%DT	XIT+12
^%ZIS	A3A+2, S1+7, XIT+9
HOME^%ZIS	A3A+2, S1+9, S1+14, XIT+6, XIT+9
$$OPEN^%ZISH	CONT1+26
^%ZTLOAD	XIT+17
$$AOP^ACHS	A3+5, CONT1+26
$$ASF^ACHS	S2+1
$$IM^ACHS	CONT+3, CONT1+26
$$LOCK^ACHS	CONT1+19, ENDX+4
$$PARM^ACHS	A3A+7, SUF+7, CONT1+10
CLOSEALL^ACHS	SEQOK1+11, ENDX+5
RTRN^ACHS	ACHSEOB+15, SUF+3, ENDX+8
REPORT^ACHSEOB0	S1+4
^ACHSEOB1	RDHDR+1
START^ACHSEOB6	XIT+9
^ACHSEOB8	ENDX+9
AREA^ACHSEOBB	RDHDR+3
FAC^ACHSEOBB	RDHDR+5
FACSRCH^ACHSEOBB	SUF+1
KILL^ACHSEOBB	ENDX+5
REPORT^ACHSEOBC	XIT+6
^ACHSEOBS	S2+4
$$E^ACHSJCHK	CONT1+10
ERROR^ACHSTCK1	CONT1+26
$$GET1^DIQ	S1+12
^DIR	CONT1+16
$$DIR^XBDIR	S0+4, SUF+4, SUF+32, SUF+34, SEQOK1+10, CONT+3
$$C^XBFUNC	CONT1+12, CONT1+13, CONT1+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!?10,"CHS Registers are Closed -- EOBR Posting CANCELLED",! Line Location: ACHSEOB+15
Function Call: WRITE	Prompt: !!,"Your PRINT EOBR parameter is: ",ACHSPAR,"." Line Location: A3A+1
Function Call: WRITE	Prompt: ! Line Location: A3A+2
Function Call: WRITE	Prompt: !!,"Your UPDATE DOCUMENT FROM EOBR parameter is : ",ACHSPAR,".",! Line Location: A3A+8
Function Call: WRITE	Prompt: *7,!!,"The '^ACHSEOBR(' work global is about to be killed.",!!,"Are you sure previously processed EOBRs were sent to your facilities",!,"via the EOBR OUT Area option?" Line Location: S0+3
Function Call: WRITE	Prompt: ! Line Location: S1+1
Function Call: WRITE	Prompt: !!,*7,"No EOBR Files Available for Processing",! Line Location: SUF+3
Function Call: WRITE	Prompt: !!,*7,$G(IORVON),"FILE selected is out of sequence!",$G(IORVOFF) Line Location: SUF+21
Function Call: WRITE	Prompt: !!,"Current EOBR file selected: " Line Location: SUF+23
Function Call: WRITE	Prompt: $P(ACHSUFLS(ACHSK(Y))," ")," file is ",+$P(ACHSUFLS(ACHSK(Y))," ",3) Line Location: SUF+24
Function Call: WRITE	Prompt: !!,"Last sequence number processed in CHS FACILITY file is ",ACHSEOSQ Line Location: SUF+26
Function Call: WRITE	Prompt: !! Line Location: SUF+29
Function Call: WRITE	Prompt: *7,! Line Location: SEQOK1+9
Function Call: WRITE	Prompt: !!!!,*7,$$C^XBFUNC("The compiled menu indicates CHS Users are Active -- EOBR'S CANNOT BE POSTED") Line Location: CONT1+12
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("You can Exercise the"),!,$$C^XBFUNC("'Clean old Job Nodes in XUTL'"),! Line Location: CONT1+13
Function Call: WRITE	Prompt: $$C^XBFUNC("option (usually) on the site mgr's menu and try again."),!! Line Location: CONT1+14
Function Call: WRITE	Prompt: !!,"CHS file lock failed, make sure all CHS user's are logged off." Line Location: CONT1+19
Function Call: WRITE	Prompt: ! Line Location: CONT1+29
Function Call: WRITE	Prompt: !,"Unlock of CHS Global failed, log out of CHS" Line Location: ENDX+4
Function Call: WRITE	Prompt: !! Line Location: ENDX+7
Routine Call	%ZIS Line Location: A3A+2 S1+9 S1+14 XIT+6 XIT+9
Routine Call	DIR Line Location: CONT1+16
Routine Call	%ZIS Line Location: A3A+2 S1+7 XIT+9

FileNo	Call Tags
^%ZIS(1 - [#3.5]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	ACHSEOB+15, SAVDCR+4
^ACHSEOBR	CONT1+22*, CONT1+22!
^ACHSEOBR("0"	S0+2, CONT1+23*
^ACHSEOBR("DCR"	SAVDCR+4*
^ACHSF - [#9002080]	A3A+11, SUF+12*, SEQOK1+6
^ACHSUSE("EOBR"	CONT1+20*
^AUTTLOC - [#9999999.06]	XIT+15

Label References

Name	Line Occurrences
A3	ACHSEOB+13
ABEND	S2+6, RDHDR+2, XIT+6, XIT+18
CONT	SUF+30, SEQOK1+6, SEQOK1+7
CONT1	S2+8
ENDX	ACHSEOB+15, A3A+2, S0+6, S1+4, S1+9, S2+6, SUF+3, SUF+5, SUF+34, CONT+4 , CONT1+10, CONT1+19, CONT1+26, XIT+3, XIT+6, XIT+9, ABEND+1
S1	S0+2
S2	S1+4
SAVDCR	CONT1+27, RDHDR+5
SEQOK	SUF+9, SUF+18
SUF	S2+1, SUF+34, SEQOK1+12
XIT	RDHDR+3

Name	Field # of Occurrence
^(0	ACHSEOB+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	XIT+16*
>> %DT	XIT+11*
>> %ZIS	S1+6*
>> %ZIS("A"	A3A+2, S1+6
>> %ZIS("IOPAR"	XIT+9*
ACHSAEND	S2+2*, S2+6, S2+7!, ENDX+9
>> ACHSCFY	ACHSEOB+15
>> ACHSCTR	CONT1+23*
>> ACHSCTR(1	CONT1+23*
>> ACHSEMSG	CONT1+26*
>> ACHSEOBD	SEQOK+1*, SEQOK1+6
>> ACHSEOIO	A3A+4, S1+10, XIT+9*
>> ACHSEOSQ	SUF+7*, SUF+9, SUF+12, SUF+18, SUF+26, SUF+30
>> ACHSERPT	S1+13*, XIT+3, XIT+6
>> ACHSERR	XIT+6
>> ACHSFCSQ	A3A+11*
>> ACHSFYWK(	ACHSEOB+15, SAVDCR+4
>> ACHSIO("Q"	S1+8*, XIT+9
>> ACHSISAC	S0+6*, ENDX+9
>> ACHSISAO	ACHSEOB+13, A3+5, A3A+2, A3A+7, A3A+8, S0+2, S1+4, S2+1, CONT1+10, CONT1+19 , CONT1+26, CONT1+27, RDHDR+3, RDHDR+5, XIT+2, ENDX+4, ENDX+9
>> ACHSK(	SUF+18, SUF+24, SUF+30, SEQOK+1, SEQOK+2, SEQOK1+7, CONT+2
>> ACHSMEDA	S2+1, CONT+2, CONT+3, CONT1+26
>> ACHSMEDY	S2+1, S2+2
>> ACHSPAR	A3+5, A3A+1, A3A+2, A3A+7, A3A+8
>> ACHSREP	SUF+17, SUF+30, SUF+32, RDHDR+5
>> ACHSRPT	XIT+1, XIT+2
>> ACHSSEQN	SEQOK+2*
>> ACHSTERR	RDHDR+2
>> ACHSUFLS(	SUF+18, SUF+24, SUF+30, SEQOK+1, SEQOK+2, SEQOK1+7, CONT+2
>> ACHSUFLS(0	SUF+3
>> ACHSUFLS(9999	SUF+4
CONT	ENDX+6!
DIR	CONT1+17!, ENDX+6!
DIR("?"	CONT1+15*
DIR("A"	CONT1+15*
DIR("B"	CONT1+15*
DIR(0	CONT1+15*
>> DIRUT	S1+4, SUF+5, CONT+4
>> DTOUT	S0+6, S1+4, CONT+4
>> DUOUT	S0+6, S1+4, SUF+5, CONT+4
DUZ(2	ACHSEOB+15, A3A+11, S2+1, SUF+12, SEQOK1+6, XIT+15, SAVDCR+4
IO	A3A+4, S1+10, S1+15, XIT+6, XIT+9
IO("Q"	S1+8
IO(0	SUF+2, SUF+19, SEQOK1+8, CONT1+11, CONT1+28
IOM	S1+13
ION	S1+13
>> IONOFF	ENDX+2*
>> IOP	XIT+9*
>> IOPAR	S1+12, XIT+14*
>> IORVOFF	SUF+21
>> IORVON	SUF+21
>> IOS	S1+12
IOSL	S1+13
IOST	S1+13
>> POP	A3A+2, S1+9
S	SAVDCR~, SAVDCR+4
U	ACHSEOB+15, A3A+11, SUF+12, XIT+15
>> X	XIT+11*
Y	S0+4, S0+6, SUF+4, SUF+5, SUF+18, SUF+24, SUF+30, SUF+32~, SEQOK+1, SEQOK+2 , SEQOK1+7, CONT+2, CONT+3, CONT+4, CONT1+10, XIT+13, SAVDCR+2~, SAVDCR+3, SAVDCR+4*
>> ZTDESC	XIT+15*
>> ZTDTH	XIT+13*
ZTIO	S1+13*, XIT+9!
ZTIO("IOPAR"	S1+12*, XIT+9, XIT+14
>> ZTRTN	XIT+15*
>> ZTSAVE(	XIT+16*
>> ZTSK	XIT+18

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSEOB

Information

Source Information