Routine: ACHSDSTL

Package	Total	Call Graph
Contract Health Management Information System	3	($$DATE,$$EBB,BM,ERPT,NOW,RTRN)^ACHS (LINES,READ)^ACHSFU ^ACHSVAR
Kernel	3	^%ZIS ^%ZTLOAD $$FMTE^XLFDT
IHS VA Utilities	1	$$C^XBFUNC
VA Fileman	1	COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDOCSTATUSSPLOC

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
STAT	;
ENDQ	;
FY	;
HEAD	;HEADING FOR TOTAL ONLY REPORT
TOT	;
P1	;
TOTONLY	;ENTRY POINT TO ONLY CALCULATE TOTALS FOR TOTAL ONLY PRINT
PRINT	;
END	;
TOTAL	;
E1	;
A	; Main loop.
C	;
B	;
E	;
D	;
BDT	; Enter beginning date.
TOTTYP	;PRINT DOCUMENT TOTALS BY TYPE
DEVICE	;
ENDMOPT	;PRINT OUT EACH MONTH TOTALS
MONEY	;
ST	;
EDT	; Enter the ending date.
TOTDOC	;
TYPE	;

External References

Name	Field # of Occurrence
COMMA^%DTC	MONEY+1
^%ZIS	DEVICE+1, DEVICE+6
^%ZTLOAD	DEVICE+4
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+2
BM^ACHS	ST+5
ERPT^ACHS	END+1
NOW^ACHS	ST+5
RTRN^ACHS	PRINT+2, TOTDOC+6
LINES^ACHSFU	ACHSDSTL+8, ST+1
READ^ACHSFU	TOT+2, FY+1
^ACHSVAR	ACHSDSTL+8, ST+1
$$C^XBFUNC	ACHSDSTL+5, ACHSDSTL+6, ST+3, ST+4
$$FMTE^XLFDT	PRINT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("* DOCUMENT STATUS REPORT FOR SPECIAL LOCAL PO'S *",80) Line Location: ACHSDSTL+5
Function Call: WRITE	Prompt: !!,$$C^XBFUNC("for "_$P(^DIC(4,DUZ(2),0),"^"),80) Line Location: ACHSDSTL+6
Function Call: WRITE	Prompt: !!,"TYPE OF DATA ON REPORT: ",!!," 1. TOTALS ONLY",!," 2. DETAILED DOCUMENTS & TOTALS",!!," ENTER 1 or 2: 1//" Line Location: TOT+2
Function Call: WRITE	Prompt: *7," ??" Line Location: TOT+4
Function Call: WRITE	Prompt: !!,"Enter Fiscal Year (e.g. 2016): " Line Location: FY+1
Function Call: WRITE	Prompt: *7," ??" Line Location: FY+3
Function Call: WRITE	Prompt: !!,*7,"NO DATA ON FILE FOR FY!!" Line Location: FY+4
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,*7,"No device specified." Line Location: DEVICE+1
Function Call: WRITE	Prompt: *7,!,"Please queue to printers only." Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,*7,"Device ",IO," busy." Line Location: DEVICE+7
Function Call: WRITE	Prompt: !,$E(ACHSNAME,1,24),?25,$E(A("VENDOR"),1,26),?52,$$FMTE^XLFDT(ACHSBDT,"2D"),?63,ACHSSTA Line Location: PRINT+3
Function Call: WRITE	Prompt: $S(ACHSSTS="P":"PAID",1:"CANCEL") Line Location: PRINT+4
Function Call: WRITE	Prompt: ?79-$L(X),X Line Location: PRINT+5
Function Call: WRITE	Prompt: ?79-$L(X),X Line Location: P1+1
Function Call: WRITE	Prompt: !,A("DOC"),?25,EIN Line Location: P2+1
Function Call: WRITE	Prompt: ?52,$S(+TOS=1:"HOSPITAL",+TOS=2:"DENTAL",+TOS=3:"OUTPATIENT",1:"") Line Location: P2+1
Function Call: WRITE	Prompt: !!,?10,"Month Issued",?30,"# of Documents",?65,"Total Amount",!,ACHS("-") Line Location: TOTAL+3
Function Call: WRITE	Prompt: !!,ACHS("-"),! Line Location: TOTAL+5
Function Call: WRITE	Prompt: ?79-$L(X),X,! Line Location: TOTTYP+2
Function Call: WRITE	Prompt: ?79-$L(X),X,! Line Location: TOTTYP+4
Function Call: WRITE	Prompt: ?79-$L(X),X,! Line Location: TOTTYP+6
Function Call: WRITE	Prompt: !,ACHS("-"),! Line Location: TOTDOC+1
Function Call: WRITE	Prompt: "TOTAL DOCUMENTS: ",?32-$L(TOTDOC),TOTDOC,?40,"TOTAL DOLLARS: " Line Location: TOTDOC+4
Function Call: WRITE	Prompt: ?79-$L(X),X Line Location: TOTDOC+4
Function Call: WRITE	Prompt: ! Line Location: TOTDOC+5
Function Call: WRITE	Prompt: @IOF Line Location: TOTDOC+6
Function Call: WRITE	Prompt: @IOF,!!?20,"* CONTRACT HEALTH CARE SYSTEM *",!!,ACHSTIME,?80-$L(ACHSLOC)\2,ACHSLOC,?73,"page ",ACHSPG,!?29,"DOCUMENT STATUS REPORT" Line Location: HEAD+1
Function Call: WRITE	Prompt: ?77-$L(ZTSK),"(",ZTSK,")" Line Location: HEAD+2
Function Call: WRITE	Prompt: !!,ACHST1,!,ACHST2 Line Location: HEAD+3
Function Call: WRITE	Prompt: !,ACHS("-"),! Line Location: HEAD+6
Function Call: WRITE	Prompt: !?13,Y Line Location: ENDMOPT+1
Function Call: WRITE	Prompt: ?35,TOPEN(YRMO,"DOC") Line Location: ENDMOPT+2
Function Call: WRITE	Prompt: ?79-$L(X),X Line Location: ENDMOPT+3
Routine Call	%ZIS Line Location: DEVICE+1 DEVICE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(9 - [#9002069]	FY+4
^ACHSF - [#9002080]	A+1, B+1, C+1, C+2, C+3, C+4, STAT+1, STAT+8, STAT+9, D+1 , E1+1
^AUTTAREA - [#9999999.21]	STAT+7
^AUTTLOC - [#9999999.06]	STAT+7
^AUTTVNDR - [#9999999.11]	STAT+6
^DD("DD"	ST+2, ENDMOPT+1
^DIC(4 - [#4]	ACHSDSTL+6, ST+2

Label References

Name	Line Occurrences
A	B+2, STAT+6
B	B+3, C+2
BDT	EDT+2
C	C+2, C+3, C+4, D+1, TOTONLY+8
DEVICE	DEVICE+2, DEVICE+7
E1	E1+1
EDT	EDT+2, TOT+3
END	PRINT+2
ENDMOPT	TOTAL+4
ENDQ	BDT+2, TOT+3, FY+2, DEVICE+4
FY	FY+3, FY+4
HEAD	ST+5, PRINT+2
MONEY	PRINT+5, P1+1, TOTTYP+2, TOTTYP+4, TOTTYP+6, TOTDOC+4, ENDMOPT+3
P1	PRINT+4
P2	PRINT+5
PRINT	E+1, E1+1
ST	DEVICE+5, DEVICE+6
TOT	TOT+4, FY+2
TOTAL	A+2
TOTONLY	STAT+5

Naked Globals

Name	Field # of Occurrence
^(	E1+1
^("PA"	D+1
^("ZA"	D+1
^(0	STAT+6, STAT+7
^(11	STAT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+1*!
%ZIS("B"	DEVICE+1!
A	STAT+7, STAT+8, STAT+9, END+2!
A("$"	STAT+3, D+1, E+1, E1+1, PRINT+5, P1+1, TOTONLY+1, TOTONLY+2, TOTONLY+3, TOTONLY+6
A("DOC"	STAT+7*, P2+1
A("DOC1"	STAT+3*, STAT+7
A("DOC2"	STAT+3*, STAT+7
A("FC"	STAT+7*
A("PFX"	STAT+7*
A("VENDOR"	STAT+6*, PRINT+3
A("VPTR"	STAT+3*, STAT+6
A(1	E+1, E1+1
ACHS	END+2!
ACHS("-"	TOTAL+3, TOTAL+5, TOTDOC+1, HEAD+6
ACHS("LINE"	HEAD+1*
ACHSBDT	BDT+1, BDT+2, EDT+2, DEVICE+3, ST+2, ST+5, A+1*, A+2, B+1, C+1 , STAT+8, PRINT+3, TOTONLY+4, END+2!, ENDQ+1!
>> ACHSBM	PRINT+2
>> ACHSDIEN	B+4, C+1, C+2, C+3, C+4, STAT+1, STAT+8, STAT+9, D+1, E1+1
>> ACHSDOC1	STAT+1*, STAT+2, STAT+3, STAT+10
ACHSEDT	EDT+1*, EDT+2, DEVICE+3, ST+2, A+2, END+2!, ENDQ+1!
ACHSIO	ACHSDSTL+7*, ENDQ+1!
ACHSLOC	ST+2*, END+2!, HEAD+1
ACHSNAME	STAT+10*, D+1, PRINT+3, END+2!
>> ACHSPG	ST+2, HEAD+1
ACHSQUIT	PRINT+2, END+2!
ACHSSSN	END+2!
ACHSSTA	PRINT+1*, PRINT+3, END+3!
>> ACHSSTS	STAT+2*, E+1, PRINT+1, PRINT+4, TOTONLY+1, TOTONLY+2, TOTONLY+3
>> ACHST1	ST+4*, HEAD+3
>> ACHST2	ST+4*, HEAD+3
>> ACHSTIME	HEAD+1
ACHSTYPE	A+3, B+1, B+2, B+3, C+1, STAT+8, END+2!
AG	END+2!
AGT	END+2!
BDT	ST+2*, ST+4!
BLANKET	STAT+3*, END+3!
CNX	ST+2, TOTONLY+2, TOTTYP+3, TOTTYP+4, TOTDOC+3, END+2!
CNX("$"	ST+2, TOTONLY+2, TOTTYP+4, TOTDOC+3
DFOUT	TOT+3, FY+2, ENDQ+1!
DLOUT	TOT+2, FY+2, ENDQ+1!
DQOUT	ENDQ+1!
DTOUT	BDT+2, TOT+3, FY+2, ENDQ+1!
DUOUT	BDT+2, EDT+2, TOT+3, FY+2, ENDQ+1!
DUZ(2	ACHSDSTL+6, FY+4, ST+2, A+1, B+1, C+1, C+2, C+3, C+4, STAT+1 , STAT+7, STAT+8, STAT+9, D+1, E1+1
EDT	ST+2*, ST+4!
EIN	STAT+6*, P2+1, END+2!
>> G	DEVICE+3*
IO	ACHSDSTL+7, DEVICE+1, DEVICE+5, DEVICE+6, DEVICE+7, ST+5
IO("Q"	DEVICE+2!, DEVICE+3!
IOF	TOTDOC+6, HEAD+1
IOP	DEVICE+1!, DEVICE+6
IOST	DEVICE+2
>> ISSUE("YM"	TOTONLY+4*, TOTONLY+5, TOTONLY+6, TOTONLY+7
K	END+3!
OPEN	ST+2, TOTONLY+3, TOTTYP+5, TOTTYP+6, TOTDOC+3, END+2!
OPEN("$"	ST+2, TOTONLY+3, TOTTYP+6, TOTDOC+3
>> POP	DEVICE+6
TOPEN	END+3!
TOPEN(	TOTONLY+5, TOTONLY+6, TOTONLY+7*, TOTAL+4, ENDMOPT+2, ENDMOPT+3
TOS	STAT+3*, P2+1, END+3!
TOT	END+3!
TOT("$"	TOTDOC+2, TOTDOC+3, TOTDOC+4
TOTDOC	TOTDOC+2, TOTDOC+3, TOTDOC+4, END+3!
TOTFY	FY+5*, ST+3, END+3!
TOTFYN	FY+5*, C+4, END+3!
TOTONLY	TOT+1, TOT+3, TOT+4, STAT+5, END+3!, HEAD+4
TOTP	ST+2, TOTONLY+1, TOTTYP+1, TOTTYP+2, TOTDOC+3, END+3!
TOTP("$"	ST+2, TOTONLY+1, TOTTYP+2, TOTDOC+3
TYPE	TYPE+1*, TOTTYP+1, TOTTYP+3, TOTTYP+5, END+3!
U	ST+2, C+4, STAT+2, STAT+3, STAT+6, STAT+7, STAT+10, E1+1
X	ST+3, ST+4, PRINT+5, P1+1, TOTTYP+2, TOTTYP+4, TOTTYP+6, TOTDOC+4, END+3!, ENDQ+1! , ENDMOPT+3, MONEY+1, MONEY+2*
X2	END+3!, MONEY+1*
Y	TOT+2, TOT+3, FY+3, FY+4, FY+5, ST+2, END+3!, ENDQ+1!, ENDMOPT+1*
YRMO	TOTAL+2, TOTAL+4, END+3!, ENDMOPT+1, ENDMOPT+2, ENDMOPT+3
Z	END+3!, MONEY+1, MONEY+2
>> ZTDESC	DEVICE+3*
>> ZTRTN	DEVICE+3*
>> ZTSAVE(	DEVICE+3*
ZTSK	PRINT+2, END+2!, HEAD+2

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDSTL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: