Routine: ACHSACO2

Package	Total	Call Graph
Kernel	3	^%ZISC $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	2	($$LOC,$$ZEROTH,RTRN)^ACHS $$REC^ACHSACO1
IHS VA Utilities	1	$$C^XBFUNC
VA Fileman	1	^DIC

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSACO1 ACHSACOA

Entry Points

Name	Comments	DBIA/ICR reference
END1	;EP.
FACSUMND	;
END	;EP.
REPORT1A	;
REPORTNX	;
K	; Close device, kill vars, quit.
REPORT1B	;
REPORT1	;
S16	;
FACSUM	;
REPORTND	;
FACSUM2	;
FACSUM1	;
REPORT	;EP
DASHDATE(X)	; Return FM date in mm-dd-yy format
REPORTA	;ACHS3.113 IHS/OIT/FCJ MODIFIED REPORT PAGE
TERR	;EP.

External References

Name	Field # of Occurrence
^%ZISC	K+1
$$LOC^ACHS	REPORT+5
$$ZEROTH^ACHS	END+28
RTRN^ACHS	TERR+3, END1+4
$$REC^ACHSACO1	END+6, END+7
^DIC	END+12, END+31
$$C^XBFUNC	REPORT+5
$$FMTE^XLFDT	REPORT+5
$$REPEAT^XLFSTR	REPORT+5, REPORTA+1, REPORTA+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"T Y P E O F D A T A",?45,"# TRANSFERRED",!! Line Location: END+2
Function Call: WRITE	Prompt: ?7,"8.",?10,$$REC^ACHSACO1(8),?50,$J(ACHSTOTL(ACHSY),6),! Line Location: END+6
Function Call: WRITE	Prompt: !?20,"TOTAL ALL TYPES",?50,$J(ACHSTOTL,6),! Line Location: END+9
Function Call: WRITE	Prompt: *7,"Unable to log Facility name in '",$P($G(^ACHSAOLG(0)),U),"' file",! Line Location: END+17
Function Call: WRITE	Prompt: *7,"Facility Lookup error in '",$P($G(^ACHSAOLG(0)),U),"' file",! Line Location: END+23
Function Call: WRITE	Prompt: *7,"Unable to log Facility Export date in '",$P($G(^ACHSAOLG(0)),U),"' file",! Line Location: END+35
Function Call: WRITE	Prompt: *7,!!,"An Error has been detected while transferring CHS data.",!!,"Please notify your supervisor.",! Line Location: TERR+2
Function Call: WRITE	Prompt: !!,"No CHS Data Transferred" Line Location: END1+3
Function Call: WRITE	Prompt: @IOF,!?22,"AREA OFFICE CHS CONSOLIDATION REPORT",!,$$C^XBFUNC("FOR "_$$LOC^ACHS,80),!,$$C^XBFUNC($$FMTE^XLFDT(DT),80),!,$$REPEAT^XLFSTR("-",79) Line Location: REPORT+5
Function Call: WRITE	Prompt: !,"FACILITY FAC-CD \|------R E C O R D T Y P E S------\|",?53,"TOTAL",?63,"EXP-DATE",!,$$REPEAT^XLFSTR("-",79),!?15 Line Location: REPORTA+1
Function Call: WRITE	Prompt: $J(%,5) Line Location: REPORTA+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: REPORTA+3
Function Call: WRITE	Prompt: $E($P($G(^DIC(4,ACHSI,0)),U),1,8),?9,$P($G(^AUTTLOC(ACHSI,0)),U,10) Line Location: REPORT1+6
Function Call: WRITE	Prompt: ?15 Line Location: REPORT1A+3
Function Call: WRITE	Prompt: ?53,$J(ACHSZTOT,4),?63,$$DASHDATE($P(ACHSZFAC(ACHSI,ACHSII,0),U,2)) Line Location: REPORT1A+8
Function Call: WRITE	Prompt: !," BEG-REC DATE:",$$DASHDATE($P(ACHSZFAC(ACHSI,ACHSII,0),U,3))," END-REC DATE:",$$DASHDATE($P(ACHSZFAC(ACHSI,ACHSII,0),U,4)),! Line Location: REPORT1A+9
Function Call: WRITE	Prompt: !?5,"TOTALS",?15 Line Location: REPORTND+1
Function Call: WRITE	Prompt: $S($D(ACHSZFAC("TOTAL",ACHSJ)):$J(ACHSZFAC("TOTAL",ACHSJ),5),1:$J("",5)) Line Location: REPORTND+3
Function Call: WRITE	Prompt: ?53,$J(ACHSZFAC("TOTAL"),5),!?5 Line Location: REPORTND+4
Function Call: WRITE	Prompt: @IOF Line Location: REPORTNX+1
Function Call: WRITE	Prompt: $J("",5) Line Location: REPORT1B+3
Function Call: WRITE	Prompt: $J($G(ACHSZFAC(ACHSI,ACHSII,ACHSJ)),5) Line Location: REPORT1B+4
Routine Call	DIC Line Location: END+12 END+31

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACHSAOLG - [#9002077]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSAOLG - [#9002077]	END+28, END+40, END+41, END+42, END+43, END+44
^ACHSAOLG(0	END+17, END+23, END+35
^ACHSAOVU(0	S16+3, S16+4
^ACHSBCBS(	END+52*
^ACHSPG2(0	S16+7*
^ACHSPIG(0	S16+6*
^ACHSUFMS("COUNT"	S16+9*
^ACHSUFMS(0	S16+8*
^ACHSZOCT("AOPD"	S16+2*
^ACHSZOCT("BCBS"	S16+1*
^ACHSZOCT("PIG"	S16+5*
^AUTTLOC - [#9999999.06]	REPORT1+6
^DIC(4 - [#4]	REPORT1+6

Label References

Name	Line Occurrences
$$DASHDATE	REPORT1A+8, REPORT1A+9
FACSUM1	FACSUM2+2
FACSUM2	FACSUM2+4
FACSUMND	FACSUM1+2
K	TERR+4, END1+5
REPORT1	REPORT1A+2
REPORT1A	REPORT1A+11
REPORT1B	REPORT1A+4
REPORTND	REPORT1+2
S16	END+47, END+48

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	REPORTA+2*
>> ACHSCTFI	END+50, END+51, END+52, S16+1
>> ACHSCTP2	S16+7
>> ACHSCTPD	S16+2
>> ACHSCTPG	S16+5, S16+6
>> ACHSCTUA	S16+8
>> ACHSCTUF	S16+9
>> ACHSCTV	S16+3
>> ACHSCTVS	S16+4
>> ACHSDRUN	END+28, END+30, END+52
>> ACHSFCPT	END+21, END+28, END+40, END+41, END+42, END+43, END+44
>> ACHSFN	END+44
>> ACHSFREC	END+40, END+52
>> ACHSI	REPORTA+4, REPORT1+1, REPORT1+2, REPORT1+6, REPORT1A+1, REPORT1A+7, REPORT1A+8, REPORT1A+9, REPORT1B+3, REPORT1B+4 , REPORT1B+5
>> ACHSII	REPORTA+4, REPORT1+3, REPORT1A+1*, REPORT1A+2, REPORT1A+7, REPORT1A+8, REPORT1A+9, REPORT1B+3, REPORT1B+4, REPORT1B+5
>> ACHSIO	REPORT+1
>> ACHSJ	REPORT1A+7, REPORTND+3, REPORT1B+2*, REPORT1B+3, REPORT1B+4, REPORT1B+5
>> ACHSK	FACSUM+1, FACSUM1+1, FACSUM1+2, FACSUM2+1, FACSUM2+3
>> ACHSKK	FACSUM+1, FACSUM2+1, FACSUM2+2, FACSUM2+3
>> ACHSLREC	END+41, END+52
>> ACHSNRCD	END+42
>> ACHSOK	END+3, END+18, END+24, END+36, END1+1*
>> ACHSPPC	REPORTNX+1
>> ACHSPPO	REPORT+2
>> ACHSTOTL	END+3, END+5, END+9
>> ACHSTOTL(	END+5, END+6, END+7
>> ACHSTOTL(5	END+47, END+48
>> ACHSXD2	END+10, END+52
>> ACHSY	END+4*, END+5, END+6, END+7
>> ACHSZFAC(	REPORT1+1, REPORT1A+1, REPORT1A+7, REPORT1A+8, REPORT1A+9, FACSUM1+1, FACSUM2+1, FACSUM2+3, REPORT1B+3, REPORT1B+4 , REPORT1B+5
>> ACHSZFAC("TOTAL"	REPORT+3!, REPORT+4, REPORT1A+10, REPORTND+3, REPORTND+4, FACSUM+1, FACSUM2+3, REPORT1B+5*
>> ACHSZTOT	REPORT1A+5, REPORT1A+7, REPORT1A+8, REPORT1A+10
>> DA	END+30*
>> DA(1	END+27*, END+29
>> DIC	END+10, END+29
>> DIC(0	END+11*
>> DINUM	END+10, END+30
DLAYGO	END+11*, END+13!
DT	END+43, REPORT+5
IO(0	END+1, END+16, END+22, END+34, TERR+1, END1+2
IOF	REPORT+5, REPORTNX+1
U	END+10, END+17, END+23, END+35, END+39, END+40, END+41, END+42, END+43, END+44 , END+52, S16+3, S16+4, REPORT1+6, REPORT1A+8, REPORT1A+9, FACSUM2+3
X	END+10, END+30, DASHDATE~, DASHDATE+1
>> Y	END+15, END+21, END+27, END+33, END+39
>> Z	END+39*, END+40, END+41, END+42, END+43, END+44

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSACO2

Information

Source Information

Call Graph

Call Graph Total: 7

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

Local Variables

Legend: