Routine: ACHSDNS

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$REPEAT^XLFSTR
Contract Health Management Information System	2	($$C,$$DATE,$$DIR,$$EBB)^ACHS ^ACHSDNS1

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHS DEN STATS ACHSDENSTATS ACHSDNS1

Entry Points

Name	Comments	DBIA/ICR reference
A	; --- START OF Loops
DOI	;SORT BY DATE OF ISSUE
END	;
HDR	;EP
G1	;
QSEL	;
K	;
SET3	;REPORT TYPE WITH COMMUNITY
DEV
ST	;
SET4	;REPORT BY ALTERNATE RESOURCES
START	;EP - TaskMan.
A2	; --- Input date range
GRNDTOT	; --- Compute Grand Total For each Group.
SET	;
DOS	;SORT BY DATE OF SERVICE
B	; --- Loop thru Denial IENs
SEL
SETINS	;SET OTHER PAYMENT TYPES
DOLLARS	;EP - Get Dollar Amount for each Denial.

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
HOME^%ZIS	DEV+2
^%ZISC	DEV+5, K+2
^%ZTLOAD	DEV+12
$$C^ACHS	HDR+3, HDR+5
$$DATE^ACHS	A2+1, A2+3
$$DIR^ACHS	SEL+1
$$EBB^ACHS	A2+5
^ACHSDNS1	END+2
$$REPEAT^XLFSTR	HDR+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+5
Function Call: WRITE	Prompt: @IOF,!!,$$C^ACHS("* CHS DENIAL *",80),!,ACHSUSR,?71,"Page",$J(ACHSPG,3),!,ACHSLOC Line Location: HDR+3
Function Call: WRITE	Prompt: ?79-$L(X),X Line Location: HDR+4
Function Call: WRITE	Prompt: !,$$C^ACHS("DENIAL FACILITY STATISTICS",80),!,ACHSTIME,!!,ACHST1,!! Line Location: HDR+5
Function Call: WRITE	Prompt: "DENIAL REASON",?37,"TYPE",?44,"TOTAL",?53,"%",?63,"DOLLARS",?76,"%" Line Location: HDR+8
Function Call: WRITE	Prompt: ?37,"TYPE",?44,"TOTAL",?53,"%",?63,"DOLLARS",?76,"%" Line Location: HDR+9
Function Call: WRITE	Prompt: "TYPE OF DEFERRED SERVICE",?37,"TYPE",?44,"TOTAL",?53,"%",?63,"DOLLARS",?76,"%" Line Location: HDR+10
Function Call: WRITE	Prompt: "TYPE OF UNMET NEED",?37,"TYPE",?44,"TOTAL",?53,"%",?63,"DOLLARS",?76,"%" Line Location: HDR+11
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+12
Function Call: WRITE	Prompt: !!?20,"1) Print Report by Date of Issue" Line Location: QSEL+1
Function Call: WRITE	Prompt: !?20,"2) Print Report by Date of Service" Line Location: QSEL+2
Function Call: WRITE	Prompt: !?20,"3) Print Report by Community" Line Location: QSEL+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	DOI+2, DOI+4, DOS+2, DOS+4, B+1, B+2, B+3, B+5, B+7, B+12 , B+13, SET3+1, SET3+2, SET3+3, SET3+5, SET3+8, SET3+10, SET3+11, SET4+3, SET4+5 , SET4+6, DOLLARS+1, DOLLARS+3, DOLLARS+4, DOLLARS+5, DOLLARS+7, DOLLARS+8, DOLLARS+9, DOLLARS+11, DOLLARS+12
^ACHSDENS - [#9002073]	B+13
^ACHSMPRI - [#9002073.1]	B+8
^AUPNPAT - [#9000001]	SET3+2, SET3+3, SET3+5
^AUTNINS - [#9999999.18]	SET4+7
^AUTTCOM - [#9999999.05]	SET3+6, SET3+7
^DIC(5 - [#5]	HDR+6
^TMP($J	ST+3!, DOI+6, G1+1, G1+3, G1+5, G1+6, G1+8, G1+10, G1+11, G1+12 , G1+13, SET+1, SET+2, SET+4, SET+5, SET3+13, SET3+14, SET3+15, SET3+16, SET3+17 , SETINS+1, SETINS+2, SETINS+3, SETINS+4, SETINS+5

Label References

Name	Line Occurrences
@(	B+11, B+14
A2	SEL+3, A2+4, A2+5
B	DOI+5, DOS+4
DEV	DEV+5, DEV+13
DOLLARS	B+6
END	G1+1
GRNDTOT	DOS+6
K	SEL+2, A2+2, DEV+2
QSEL	SEL
SETINS	SET4+1, SET4+2, SET4+10
START	DEV+3

Naked Globals

Name	Field # of Occurrence
^(	SET3+17, SETINS+5
^(0	SET4+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+11, SET4+6, SET4+7
>> %ZIS	DEV*
ACHS	K+1!, GRNDTOT+1, G1+1, G1+3, G1+5, G1+6, G1+8, G1+10, G1+11, G1+12 , G1+13, END+1!
ACHS("$"	SET+2, SET+5, SET3+14, SET3+16, SET4+1, SET4+2, SET4+6, SET4+9, SETINS+2, SETINS+4 , DOLLARS+1, DOLLARS+5, DOLLARS+9, DOLLARS+12
ACHS("A"	DOI+6, B+10, B+13, SET+1, SET+2, SET+4, SET+5, SET3+13, SET3+14, SET3+15 , SET3+16, SET3+17, SET4+1, SET4+2, SETINS+1, SETINS+2, SETINS+3, SETINS+4, SETINS+5
ACHS("C"	G1+2, G1+5, G1+11*, G1+13
ACHS("D"	G1+2, G1+6, G1+12*, G1+13
ACHS(1	G1+2, G1+3, G1+5, G1+6, G1+8, G1+10, G1+11, G1+12
ACHS(2	G1+7, G1+8, G1+10, G1+11, G1+12
ACHS(3	G1+9, G1+10, G1+11, G1+12
ACHSBDT	A2+1*, A2+2, A2+5, DEV+7, K+1!, ST+2
>> ACHSCOM	SET3+3, SET3+4, SET3+5, SET3+6, SET3+7, SET3+9, SET3+10, SET3+12, SET3+13, SET3+14 , SET3+15, SET3+16, SET3+17, HDR+6
ACHSEDT	A2+3*, A2+4, A2+5, DEV+7, K+1!, DOI+2, DOS+2
ACHSHAT	A2+6*, K+1!
ACHSINS	END+1!, SET4+1, SET4+2, SET4+7, SET4+8, SET4+9, SETINS+1, SETINS+2, SETINS+3, SETINS+4 , SETINS+5, HDR+7
ACHSINST	DOI+3, END+1!, SET4+1, SET4+2
>> ACHSISDT	ST+2, DOI+2, DOI+4, DOS+2*, DOS+4
>> ACHSLOC	HDR+3
ACHSMPRI	ST+1~, B+7, B+8, B+9*, SET+4, SET+5, SET3+15, SET3+16, SETINS+3, SETINS+4
>> ACHSPART	HDR+8, HDR+9, HDR+11
>> ACHSPG	HDR+1*, HDR+3
ACHSQIO	DEV+7*, K+1!
ACHSREAS	B+13*, END+1!
>> ACHSRPT	SEL+1*, SEL+2, A+1, DOI+1, DOS+1, G1+4, HDR+6, HDR+7
>> ACHSST	SET3+6, SET3+11, SET3+13, SET3+14, SET3+15, SET3+16, SET3+17, HDR+6
>> ACHSSUB	A+1*, B+11, B+14
>> ACHST1	HDR+5
>> ACHSTIME	HDR+5
>> ACHSTYPE	B+3*, B+4, SET+1, SET+2, SET+4, SET+5, SET3+13, SET3+14, SET3+15, SET3+16 , SET3+17, SETINS+1, SETINS+2, SETINS+3, SETINS+4, SETINS+5
>> ACHSUSR	HDR+3
>> DA	DOI+3, DOI+4, DOS+3, DOS+4, B+1, B+2, B+3, B+5, B+7, B+12 , B+13, SET3+1, SET3+2, SET3+3, SET3+5, SET3+8, SET3+10, SET3+11, SET4+3, SET4+5 , SET4+6, DOLLARS+1, DOLLARS+3, DOLLARS+4, DOLLARS+5, DOLLARS+7, DOLLARS+8, DOLLARS+9, DOLLARS+11, DOLLARS+12
>> DA(1	SET4+4, SET4+5, SET4+6, DOLLARS+3, DOLLARS+4, DOLLARS+5, DOLLARS+7, DOLLARS+8, DOLLARS+9, DOLLARS+11* , DOLLARS+12
DTOUT	K+1!
DUOUT	K+1!
DUZ(2	DOI+2, DOI+4, DOS+2, DOS+4, B+1, B+2, B+3, B+5, B+7, B+12 , B+13, SET3+1, SET3+2, SET3+3, SET3+5, SET3+8, SET3+10, SET3+11, SET4+3, SET4+5 , SET4+6, DOLLARS+1, DOLLARS+3, DOLLARS+4, DOLLARS+5, DOLLARS+7, DOLLARS+8, DOLLARS+9, DOLLARS+11, DOLLARS+12
IO("Q"	DEV+3, DEV+4!
IO("S"	DEV+5
IOF	HDR+3
IOM	DEV+7
ION	DEV+7
IOSL	DEV+7
IOST	DEV+5, DEV+7
>> POP	DEV+2
U	DOI+6, B+3, B+5, B+7, B+8, B+13, G1+6, G1+12, G1+13, SET+1 , SET+2, SET+4, SET+5, SET3+1, SET3+2, SET3+3, SET3+5, SET3+6, SET3+7, SET3+8 , SET3+10, SET3+11, SET3+13, SET3+14, SET3+15, SET3+16, SET4+6, SET4+7, SETINS+1, SETINS+2 , SETINS+3, SETINS+4, HDR+6, DOLLARS+1, DOLLARS+5, DOLLARS+9, DOLLARS+12
>> X	HDR+4*
>> ZTDESC	DEV+7*
ZTIO	DEV+7*, K+1!
>> ZTRTN	DEV+7*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, K+1!, HDR+4

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDNS

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: