Routine: ACHSDSU

Package	Total	Call Graph
Contract Health Management Information System	7	($$DATE,$$EBB,$$LOC,$$PB,ERPT,RTRN)^ACHS (BRPT,FYCVT)^ACHSFU (HDR1,HDR2)^ACHSODP ^ACHSODP1 (S21,SB2)^ACHSODP2 ^ACHSUF ^ACHSVAR
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS VA Utilities	3	$$C^XBFUNC VIEWR^XBLM EN^XBVK
VA Fileman	1	COMMA^%DTC

Package

Total

Call Graph

Contract Health Management Information System

($$DATE,$$EBB,$$LOC,$$PB,ERPT,RTRN)^ACHS (BRPT,FYCVT)^ACHSFU (HDR1,HDR2)^ACHSODP ^ACHSODP1 (S21,SB2)^ACHSODP2 ^ACHSUF ^ACHSVAR

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

IHS VA Utilities

$$C^XBFUNC VIEWR^XBLM EN^XBVK

VA Fileman

COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDOCQ

Package

Total

Caller Graph

Contract Health Management Information System

ACHSDOCQ

Entry Points

Name	Comments	DBIA/ICR reference
CODE	;
HDR	;
TITLE	;;CHS DOCUMENT SUMMARY
FY	;
SUM	;
DEV	;
SB1	;
KILL	;
A1	;
A3	;
A2	;
A5	;
A4	;
A6	;
END	; Kill routine vars, print.
K	;
START	;EP - TaskMan.
TRANS	;
DOC	;
RGSTRS	;
BDT	;
EDT	;

External References

Name	Field # of Occurrence
COMMA^%DTC	SUM+5, SUM+8
^%ZIS	DEV+5
HOME^%ZIS	DEV+6
^%ZISC	DEV+9, K+1
^%ZTLOAD	DEV+12
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+4
$$LOC^ACHS	END+5
$$PB^ACHS	DEV+1
ERPT^ACHS	KILL+3
RTRN^ACHS	CODE+2, TRANS+2, SUM+11, RGSTRS+12
BRPT^ACHSFU	END+2
FYCVT^ACHSFU	A3+10
HDR1^ACHSODP	FY+3, TRANS+2
HDR2^ACHSODP	SUM+1
^ACHSODP1	TRANS+3
S21^ACHSODP2	RGSTRS+6
SB2^ACHSODP2	RGSTRS+1
^ACHSUF	START+3, END+4
^ACHSVAR	K+3, KILL+5
$$C^XBFUNC	END+5
VIEWR^XBLM	DEV+3
EN^XBVK	DEV+3, K+3, KILL+5
$$FMTE^XLFDT	DEV+10, END+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+9
Function Call: WRITE	Prompt: @IOF Line Location: KILL+1
Function Call: WRITE	Prompt: @IOF,!,ACHSLOC,!?26,"CHS DOCUMENT SUMMARY REPORT",?71,"Page",$J(ACHSPG,4),!,ACHSTIME,!,ACHST1,!! Line Location: HDR+2
Function Call: WRITE	Prompt: !?5,ACHSTYPE," DOCUMENTS" Line Location: SUM+4
Function Call: WRITE	Prompt: ?43,$J($P(^TMP($J,"ACHSDSU",ACHSTYPE),U),6),?60,X Line Location: SUM+5
Function Call: WRITE	Prompt: !?43,"________",?62,"_____________",!!?5,"TOTALS",?44,$J(^TMP($J,"ACHSDSU","TRAN"),5),?60,X Line Location: SUM+9
Function Call: WRITE	Prompt: !!!?5,"FISCAL AGENT DOCUMENTS:",$S($D(^TMP($J,"ACHSDSU","FISCAL AGENT")):$J(^("FISCAL AGENT"),5),1:" 0"),!?14,"IHS DOCUMENTS:",$S($D(^TMP($J,"ACHSDSU","IHS")):$J(^("IHS"),5),1:" 0"),! Line Location: SUM+10
Function Call: WRITE	Prompt: !,$E($P(ACHSACTN,U,ACHSX1),1,20),?30 Line Location: RGSTRS+4
Function Call: WRITE	Prompt: ! Condition for execution: ACHSX1<7 Line Location: RGSTRS+4
Function Call: WRITE	Prompt: ! Line Location: RGSTRS+5
Function Call: WRITE	Prompt: !,"TOTAL",?30 Line Location: RGSTRS+7
Function Call: WRITE	Prompt: $J($FN(X,",",2),12) Line Location: RGSTRS+9
Function Call: WRITE	Prompt: $J($FN(ACHSACTO,",",2),12),!!!?1,"Obligated Balance For Period: ",$J("$"_$FN(ACHSACTO,",",2),14) Line Location: RGSTRS+10
Function Call: WRITE	Prompt: $J($FN($P(ACHSSUM(ACHSX1),U,ACHSX),",",2),12) Line Location: SB1+1
Routine Call	%ZIS Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	RGSTRS+2
^ACHSF - [#9002080]	A1+1, A2+1, A3+1, A3+3, A3+4, A3+7, A4+1, A4+3, A4+4, A4+5 , A4+9
^TMP($J	START+1!, START+4, A6+1, A6+2, A6+7, A6+8, A6+9, FY+1, CODE+1, DOC+1 , TRANS+1, SUM+5, SUM+9, SUM+10

Label References

Name	Line Occurrences
A1	A2+2
A2	A3+2
A3	A3+3, A4+2
A4	A4+3, A6+10
A5	A4+8
A6	A4+9, A4+10
BDT	EDT+3, EDT+4
CODE	DOC+2
DEV	DEV+9, DEV+13
DOC	TRANS+1
END	A1+2, A1+3
FY	CODE+2
HDR	FY+2, FY+3, TRANS+2, RGSTRS+1
K	BDT+2, EDT+2, DEV+2, DEV+3, DEV+6
KILL	FY+2, CODE+2, TRANS+2
RGSTRS	FY+2
SB1	RGSTRS+4
START	DEV+7
SUM	FY+2
TITLE	BDT+1, EDT+1, DEV+10
TRANS	TRANS+4

Name	Field # of Occurrence
^(	SUM+5
^("FISCAL AGENT"	SUM+10
^("IHS"	SUM+10
^("RN"	RGSTRS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+1*, DEV+2, DEV+3
>> %ZIS	DEV+4*
>> A	A4+6, A4+8, A4+9*, A5+1
>> ACHS	DEV+11, END+3, END+7, RGSTRS+3, RGSTRS+9*
>> ACHSACD	A4+5, A6+1, FY+4, CODE+1*, CODE+2, DOC+1, TRANS+1
>> ACHSACFY	A3+11, A6+1, END+3, END+8, FY+1, FY+2, FY+4, CODE+1, DOC+1, TRANS+1
>> ACHSACN	A3+4, A4+1, A4+2, A4+3, A4+4, A6+1
>> ACHSACS	TRANS+1*
>> ACHSACT	A1+4, A2+1, A2+2, A3+1, A4+1, A6+1
>> ACHSACTN	RGSTRS+2*, RGSTRS+4
>> ACHSACTO	RGSTRS+9*, RGSTRS+10
>> ACHSADS	A3+8*, A6+1
>> ACHSBDT	BDT+1*, BDT+2, EDT+4, DEV+10, START+4, END+5
ACHSBLKF	A3+6!, A3+7*
>> ACHSBM	TRANS+2
>> ACHSCHS	START+2*
>> ACHSCT	SUM+2, SUM+5, SUM+7
ACHSDEST	A3+5*, A6+8, A6+9, END+1!
>> ACHSDIEN	A2+3, A3+1, A3+2, A3+3, A3+4, A3+7, A3+8, A4+1, A4+3, A4+4 , A4+5, A4+9, A6+1, FY+4, CODE+3, DOC+1*, DOC+2, TRANS+1
ACHSDOCR	A3+4*, A3+5, A3+8, A3+9, END+1!
>> ACHSDPFX	FY+4*
>> ACHSEDT	EDT+1*, EDT+2, EDT+4, DEV+10, A1+2, END+5
>> ACHSFC	FY+4
>> ACHSIO	EDT+5*
>> ACHSLOC	END+5*, HDR+2
>> ACHSPG	END+3, HDR+1, HDR+2
>> ACHSQIO	DEV+10*
>> ACHSSET	A4+6, A5+1, A6+1, A6+2, A6+7
ACHSSUM	END+6!
ACHSSUM(	END+7, RGSTRS+3, RGSTRS+9, SB1+1
>> ACHST1	END+5*, HDR+2
>> ACHSTIME	HDR+2
>> ACHSTN	DOC+3, TRANS+1
ACHSTRAN	A4+4*, A4+6, A5+1, END+1!
ACHSTRDT	START+4, A1+1, A1+2, A1+3, A2+1, A3+1, A3+8, A4+1, END+1!
ACHSTS	A5+1*, A6+1, END+1!
>> ACHSTY	START+4, A6+1, A6+5*, A6+7
>> ACHSTYPE	SUM+3*, SUM+4, SUM+5
ACHSX	A3+9, END+1!, RGSTRS+9, SB1+1*
ACHSX1	RGSTRS+4*, RGSTRS+11!, SB1+1
ACHSY	A3+11, END+1!
B	KILL+4!
C	KILL+4!
DFN	A4+6*, A5+1, KILL+4!
DTOUT	BDT+2, EDT+2, DEV+2, K+2!, CODE+2, TRANS+2
DUOUT	BDT+2, EDT+3, DEV+2, K+2!, CODE+2, TRANS+2
DUZ(2	A1+1, A2+1, A3+1, A3+3, A3+4, A3+7, A4+1, A4+3, A4+4, A4+5 , A4+9, RGSTRS+2
IO	EDT+5, END+9
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOF	KILL+1, HDR+2
IOM	DEV+10
ION	DEV+10
IOSL	DEV+10
IOST	DEV+9, DEV+10
L	KILL+4!
N	A3+5*, KILL+4!
O	A3+5, A4+6, A4+9, A4+10, A5+1, A6+1, A6+2, A6+7, KILL+4!
>> POP	DEV+6
>> R	A3+8*
S	KILL+4!
T	A4+6, A4+7, A4+8, A5+1, KILL+4!
U	DEV+2, A3+5, A3+8, A3+9, A4+5, A4+6, A4+9, A5+1, A6+7, SUM+5 , RGSTRS+3, RGSTRS+4, RGSTRS+9, SB1+1
>> X	A4+6, A4+7, A6+7, SUM+5, SUM+7, SUM+9, RGSTRS+8, RGSTRS+9
X2	SUM+2, RGSTRS+2, RGSTRS+11!
>> X3	SUM+2, RGSTRS+2
>> Y	A4+6*, A4+7
>> ZTDESC	DEV+10*
ZTIO	DEV+10*, K+2!
>> ZTQUEUED	KILL+5
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, K+2!, KILL+2!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDSU

Information

Source Information

Call Graph

Call Graph Total: 15