Routine: ACHSACO

Package	Total	Call Graph
Contract Health Management Information System	6	($$AOP,$$ASF,$$EX,$$IM,$$JDT,$$JTF)^ACHS ^ACHSACO1 (ABEND,REPORT,XIT)^ACHSACOA SLV^ACHSFU ^ACHSPCC1 ERROR^ACHSTCK1
Kernel	4	^%ZIS ^%ZISC ($$LIST,$$OPEN)^%ZISH $$FMTE^XLFDT
IHS VA %Utilities	1	($$ERR,$$KILLOK)^ZIBGCHAR
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	(,IX)^DIC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSAREACON

Entry Points

Name	Comments	DBIA/ICR reference
FIL2	;
FIL1	;
S2A	;
RSLT(X)	;
S15F
FD2	;
S2	;
S1	;
RDHDR
FACLKUP	;
FDISP	;
S15X	;
FSEL	;
SEL	;

External References

Name	Field # of Occurrence
^%ZIS	S1+2
^%ZISC	S1+5, FSEL+46, RDHDR+32, S15F+19
$$LIST^%ZISH	FSEL+15
$$OPEN^%ZISH	FSEL+27, FIL2+7
$$AOP^ACHS	ACHSACO+23, ACHSACO+24, FSEL+13
$$ASF^ACHS	FSEL+14
$$EX^ACHS	FSEL+14
$$IM^ACHS	FSEL+14
$$JDT^ACHS	ACHSACO+55
$$JTF^ACHS	FDISP+9
^ACHSACO1	S15X+5
ABEND^ACHSACOA	RDHDR+18, RDHDR+32, S15X+9
REPORT^ACHSACOA	S15F+21
XIT^ACHSACOA	ACHSACO+10, ACHSACO+14, ACHSACO+21, S1+3, FSEL+15, FSEL+48, FSEL+55, SEL+3, SEL+8, SEL+20 , FIL2+7
SLV^ACHSFU	S1+5
^ACHSPCC1	ACHSACO+31, S15F+22
ERROR^ACHSTCK1	FSEL+15, FSEL+27, FIL2+7
^DIC	FACLKUP+5, FACLKUP+6
IX^DIC	RDHDR+25
$$DIR^XBDIR	ACHSACO+12, ACHSACO+16, ACHSACO+31, ACHSACO+32, SEL+1, SEL+18, S15F+13, S15F+22, S15X+18
$$FMTE^XLFDT	RDHDR+42, RDHDR+43, RDHDR+44, S15F+9, S15X+2
$$ERR^ZIBGCHAR	ACHSACO+38
$$KILLOK^ZIBGCHAR	ACHSACO+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Mail Bulletin 'ACHS AREA BALANCES' does not exist." Line Location: ACHSACO+11
Function Call: WRITE	Prompt: *7,!,"Mail Bulletin 'ACHS AREA BALANCES' does not have a MAIL GROUP." Line Location: ACHSACO+15
Function Call: WRITE	Prompt: *7,!,"ACCOUNTING POINT NUMBER is missing from RPMS SITE file...",! Line Location: ACHSACO+20
Function Call: WRITE	Prompt: !!," PROCESS FI DATA parameter = '",$$AOP^ACHS(2,3),"'" Line Location: ACHSACO+23
Function Call: WRITE	Prompt: !,"PROCESS AREA OFFICE DATA parameter = '",$$AOP^ACHS(2,4),"'" Line Location: ACHSACO+24
Function Call: WRITE	Prompt: !,"KILL'ing work global ",ACHS Line Location: ACHSACO+37
Function Call: WRITE	Prompt: !,$$ERR^ZIBGCHAR($$KILLOK^ZIBGCHAR($P(ACHS,U,2))) Line Location: ACHSACO+38
Function Call: WRITE	Prompt: !?10,"Previously Consolidated CHS Facility Data has been Deleted",! Line Location: ACHSACO+43
Function Call: WRITE	Prompt: !,"Printer Not Available - JOB CANCELLED",! Line Location: S1+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: FSEL+33
Function Call: WRITE	Prompt: *7,!!?5,"No Facility Files Available for Processing",!! Line Location: FSEL+54
Function Call: WRITE	Prompt: 7,!!?5,"No Facility Files (ACHS) Available for Processing in the ",ACHSPTH," directory.",!! Line Location: FSEL+55
Function Call: WRITE	Prompt: !!,"No Files Selected for Consolidation - Job Terminated",! Line Location: SEL+3
Function Call: WRITE	Prompt: !!,"File(s) with a version of unknown are not compatiable with current CHS version",!,?35,"Job Terminiated",! Line Location: SEL+8
Function Call: WRITE	Prompt: !,"Job Cancelled",! Line Location: SEL+20
Function Call: WRITE	Prompt: @IOF,"Files available for CHS Consolidation are listed Below:" Line Location: FDISP+2
Function Call: WRITE	Prompt: !,"Seq",?7,"File Name",?32,"Facility Name",?53,"# Rcds",?61,"Export Date Process",! Line Location: FDISP+3
Function Call: WRITE	Prompt: *7,!,"==>FACILITY CODE LOOK-UP ERROR ON CODE '",X,"'" Line Location: FDISP+13
Function Call: WRITE	Prompt: ?75,$P(ACHSLIST(ACHSI),U,5) Line Location: FD2+1
Routine Call	DIC Line Location: FACLKUP+5 FACLKUP+6
Routine Call	%ZIS Line Location: S1+2
Routine Call	DIC Line Location: RDHDR+25

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)
^ACHSAOLG - [#9002077]	S15F+6, FDISP+16, FDISP+17
^ACHSPCC("COUNT"	ACHSACO+52*
^ACHSPCC("PROC"	ACHSACO+29, S15X+1*
^ACHSUFMS("COUNT"	ACHSACO+53*
^ACHSUFMS(0	ACHSACO+53*
^AUTTSITE(1	ACHSACO+18
^DIC(4 - [#4]	S15F+9
^TMP("ACHSACO"	ACHSACO+45!, RSLT+1
^XMB(3.6 - [#3.6]	ACHSACO+9, ACHSACO+14

Label References

Name	Line Occurrences
FACLKUP	FDISP+12
FD2	FDISP+16
FDISP	S2A+7, SEL+15
RSLT	ACHSACO+47, ACHSACO+48, ACHSACO+49, S15X+2
S15X	S15F+14
S2A	SEL+19

Naked Globals

Name	Field # of Occurrence
^(	RSLT+1*
^(0	RSLT+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	S2+1*
>> %ZIS	S1+1*
>> %ZIS("A"	S1+1*
>> ACHS	ACHSACO+36*, ACHSACO+37, ACHSACO+38, ACHSACO+39, ACHSACO+40
>> ACHSAPN	ACHSACO+18*, ACHSACO+19
>> ACHSCNT	FSEL+19, FSEL+20, FSEL+24, FSEL+27, FSEL+34, FSEL+42, FSEL+43, FSEL+45, FSEL+51*, FSEL+55 , SEL+1, SEL+6, SEL+13
>> ACHSDRUN	RDHDR+35*, RDHDR+42, S15F+6, S15F+9, S15X+2, S15X+12, S15X+13, S15X+14, S15X+15
>> ACHSDTJL	ACHSACO+55*
>> ACHSFACD	RDHDR+10*, RDHDR+16, S15X+2
>> ACHSFCPT	RDHDR+34*, S15F+6, S15F+9, S15X+12, S15X+13, S15X+14, S15X+15
>> ACHSFN	ACHSACO+51, RDHDR+9
>> ACHSFREC	RDHDR+36*, RDHDR+43, S15X+13
>> ACHSGBL	RDHDR+11*, RDHDR+14, RDHDR+17, RDHDR+20
>> ACHSI	SEL+13, FDISP+4, FDISP+5*, FDISP+6, FDISP+8, FDISP+19, FD2+1, FACLKUP+6
>> ACHSJ	SEL+12, SEL+13
>> ACHSJFLG	FSEL+20, FSEL+48
ACHSKJRX	FDISP+9*, FDISP+14, FDISP+15!
>> ACHSKJRY	FDISP+9*, FDISP+11
ACHSLIST	FSEL+2!, FSEL+15
ACHSLIST(	FSEL+20, FSEL+24!, FSEL+27, FSEL+34, FSEL+42, FSEL+43, FSEL+45, FSEL+60!, S2+1, S2A+4* , SEL+6, SEL+8, SEL+13, FDISP+5, FDISP+6, FDISP+19, FD2+1, FACLKUP+6
>> ACHSLREC	RDHDR+37*, RDHDR+44, S15X+14
ACHSNCNT	FSEL+19, FSEL+28, FSEL+51, FSEL+52!
>> ACHSNRCD	RDHDR+38*, RDHDR+45, S15X+15
>> ACHSOK	ACHSACO+52*, S15X+9
ACHSPLST	S2A+2!, SEL+11!
ACHSPLST(	SEL+13*, FIL2+1, FIL2+7, RDHDR+9
>> ACHSPTH	FSEL+13, FSEL+14, FSEL+15, FSEL+27, FSEL+55, FIL2+7
>> ACHSPTR	S1+4*
>> ACHSSTV	RDHDR+39*
>> ACHSX	FDISP+11*, FACLKUP+1
>> ACHSXD1	RDHDR+4*, RDHDR+11
>> ACHSXD2	RDHDR+5*, RDHDR+10, RDHDR+21, RDHDR+29, RDHDR+35, RDHDR+36, RDHDR+37, RDHDR+38, RDHDR+39, RDHDR+41 , S15X+2
>> ACHSZ	S2A+3, S2A+4, SEL+6, FIL1+1, FIL2+1*, FIL2+7, RDHDR+9
ACHSZFAC	ACHSACO+54!
ACHSZFAC(	S15X+12, S15X+13, S15X+14, S15X+15
ACHSZFIF	RDHDR+46!
D	RDHDR+24, RDHDR+26!, FACLKUP+4, FACLKUP+6!
DIC	RDHDR+22, RDHDR+26!, FACLKUP+3
DIC(0	RDHDR+23, FACLKUP+2
DT	ACHSACO+55
DTIME	FSEL+33, FSEL+38, FSEL+39, FSEL+40, RDHDR+2, RDHDR+3, RDHDR+4, RDHDR+5
>> DTOUT	SEL+3, SEL+20
>> DUOUT	SEL+3, SEL+20
DUZ(2	FSEL+14
IO	S1+4, FSEL+32, RDHDR+1
IO("S"	S1+5
IO(0	S1+3, FSEL+55, SEL+3, SEL+8, SEL+17, SEL+20, RDHDR+7, RDHDR+28, S15F+7, S15X+17 , FDISP+1, FDISP+7, FDISP+13
IOF	FDISP+2
>> IONOFF	RDHDR+32*
>> POP	S1+3
U	ACHSACO+18, ACHSACO+38, FSEL+34, FSEL+42, FSEL+43, FSEL+45, S2+1, S2A+4, SEL+6, SEL+8 , SEL+13, FIL2+7, RDHDR+9, RDHDR+10, RDHDR+11, RDHDR+20, RDHDR+21, RDHDR+29, RDHDR+35, RDHDR+36 , RDHDR+37, RDHDR+38, RDHDR+39, RDHDR+41, S15F+9, S15X+2, S15X+12, S15X+13, S15X+14, S15X+15 , FDISP+8, FDISP+9, FDISP+17, FDISP+19, FD2+1, FACLKUP+6
X	ACHSACO+9, ACHSACO+10, ACHSACO+12, ACHSACO+14, ACHSACO+16, FSEL+14, FSEL+33, FSEL+34, FSEL+38, FSEL+39* , FSEL+40, FSEL+42, FSEL+43, FSEL+45, FSEL+59, FSEL+60, RDHDR+2, RDHDR+3, RDHDR+21, RDHDR+30 , FDISP+6, FDISP+8, FDISP+9, FDISP+13, FDISP+14, FDISP+16, FDISP+17, FACLKUP+1, FACLKUP+6, RSLT~ , RSLT+1
>> Y	ACHSACO+28, ACHSACO+34, FSEL+59, FSEL+60, SEL+1, SEL+6, SEL+18, SEL+19, RDHDR+28, RDHDR+34 , S15F+5, S15F+14, FDISP+13, FDISP+16, FDISP+17, FACLKUP+6
>> Z	FSEL+60, SEL+6, SEL+8, FDISP+17, FDISP+18, FDISP+19, FDISP+20

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSACO

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: