Routine: ACHSDNA

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	1	($$C,$$DATE,$$DIR,$$EBB,BRPT,ERPT,FMT,RTRN)^ACHS
VA Fileman	1	COMMA^%DTC

Package

Total

Call Graph

Kernel

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

Contract Health Management Information System

($$C,$$DATE,$$DIR,$$EBB,BRPT,ERPT,FMT,RTRN)^ACHS

VA Fileman

COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHS DEN REP1A ACHSDNL3

Package

Total

Caller Graph

Contract Health Management Information System

ACHS DEN REP1A ACHSDNL3

Entry Points

Name	Comments	DBIA/ICR reference
B	;
EXTR	;
START	;EP - TaskMan.
GETNAME	;
DEV	; --- Select device for report.
AMT	;EP - Write amount of denial on denial letter(s).
BDT	; --- Input date range
A2	;
PRINT	;
DOLLARS	;EP - Get Dollar Amount for each Denial.
HDR	; --- Pagination for report.

External References

Name	Field # of Occurrence
COMMA^%DTC	PRINT+24
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	DEV+6
^%ZTLOAD	DEV+13
$$C^ACHS	START+4, HDR+3
$$DATE^ACHS	BDT+1, BDT+3
$$DIR^ACHS	A2+1
$$EBB^ACHS	BDT+5
BRPT^ACHS	START+5
ERPT^ACHS	START+10, PRINT+13
FMT^ACHS	PRINT+9, AMT+6
RTRN^ACHS	PRINT+12, PRINT+27
$$FMTE^XLFDT	START+4, PRINT+7
$$REPEAT^XLFSTR	PRINT+25, HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+6
Function Call: WRITE	Prompt: ACHDNAME,?38,$$FMTE^XLFDT(ACHDISU),?51,$P(ACHD0,U),?65 Line Location: PRINT+7
Function Call: WRITE	Prompt: ! Line Location: PRINT+10
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79),!,"TOTALS FOR THIS REPORT: ",ACHDTOT," DENIAL",$S(ACHDTOT=1:"",1:"S"),?61,X Line Location: PRINT+25
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+28
Function Call: WRITE	Prompt: @IOF,!!,$$C^ACHS("* CHS DENIAL *",80),!!,ACHSLOC,!?19,"DENIAL DOCUMENTS ALPHABETICALLY BY PATIENT",?71,"Page",$J(ACHSPG,3),! Line Location: HDR+3
Function Call: WRITE	Prompt: ACHSTIME,!!,ACHDT1,!!,"PATIENT",?38,"ISSUE DATE",?51,"DOCUMENT #",?70,"DOLLARS",!,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+4
Function Call: WRITE	Prompt: ?DIWL+3,"Total amount of services denied : " Line Location: AMT+4
Function Call: WRITE	Prompt: ! Line Location: AMT+7
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	EXTR+1, EXTR+2, EXTR+3, PRINT+3, PRINT+6, GETNAME+12, DOLLARS+1, DOLLARS+3, DOLLARS+4, DOLLARS+5 , DOLLARS+6, DOLLARS+8, DOLLARS+9, DOLLARS+10, DOLLARS+11, DOLLARS+13, DOLLARS+14, DOLLARS+15
^DPT - [#2]	GETNAME+19
^TMP($J	START+1!, START+11!, EXTR+9*, PRINT+1, PRINT+2

Name	Line Occurrences
A2	BDT+2, BDT+5
B	A2+3
BDT	BDT+4
DEV	DEV+6, DEV+14
DOLLARS	PRINT+6, AMT+2
EXTR	START+7
GETNAME	EXTR+7
HDR	START+6, PRINT+14
PRINT	START+8
START	DEV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A2+1, A2+3, DEV+12
>> %ZIS	DEV+1*
>> ACHD("$"	PRINT+5, PRINT+8, PRINT+17, DOLLARS+1, DOLLARS+6, DOLLARS+11, DOLLARS+15, AMT+1, AMT+5
>> ACHD0	EXTR+3, EXTR+5, EXTR+6, PRINT+3, PRINT+4, PRINT+7, GETNAME+11, GETNAME+18
>> ACHDBDT	A2+3, BDT+1, BDT+2, BDT+5, DEV+10, START+2, START+4
>> ACHDEDT	A2+3, BDT+3, BDT+4, BDT+5, DEV+10, START+4, EXTR+1
ACHDHAT	B+1*, PRINT+26!
ACHDISU	START+2, START+11!, EXTR+1, EXTR+2, PRINT+4*, PRINT+7
ACHDNAME	START+11!, EXTR+8, EXTR+9, PRINT+1, PRINT+2, PRINT+7, GETNAME+3, GETNAME+12, GETNAME+13, GETNAME+14 , GETNAME+15, GETNAME+18, GETNAME+19
>> ACHDT1	START+4*, HDR+4
ACHDTOT	START+3, START+11!, PRINT+16, PRINT+25
ACHDTOT("$"	START+3, PRINT+17, PRINT+23
>> ACHSBM	PRINT+11
>> ACHSLOC	HDR+3
>> ACHSPG	HDR+1*, HDR+3
>> ACHSQUIT	PRINT+1, PRINT+2, PRINT+11, PRINT+13*, PRINT+21
>> ACHSTIME	HDR+4
DA	START+11!, EXTR+2, EXTR+3, EXTR+9, PRINT+2, PRINT+3, PRINT+6, GETNAME+12, DOLLARS+1, DOLLARS+3 , DOLLARS+4, DOLLARS+5, DOLLARS+6, DOLLARS+8, DOLLARS+9, DOLLARS+10, DOLLARS+11, DOLLARS+13, DOLLARS+14, DOLLARS+15
DA(1	DOLLARS+4, DOLLARS+5, DOLLARS+6, DOLLARS+9, DOLLARS+10, DOLLARS+11, DOLLARS+14*, DOLLARS+15
>> DIWL	AMT+4
>> DTOUT	A2+2, PRINT+13
>> DUOUT	A2+2, PRINT+13
DUZ(2	EXTR+1, EXTR+2, EXTR+3, PRINT+3, PRINT+6, GETNAME+12, DOLLARS+1, DOLLARS+3, DOLLARS+4, DOLLARS+5 , DOLLARS+6, DOLLARS+8, DOLLARS+9, DOLLARS+10, DOLLARS+11, DOLLARS+13, DOLLARS+14, DOLLARS+15
IO	PRINT+27
IO("Q"	DEV+4, DEV+5!
IO("S"	DEV+6
IO(0	PRINT+27
IOF	PRINT+28, HDR+3
IOST	DEV+6
>> LEN	GETNAME+14*, GETNAME+15
>> POP	DEV+3
U	EXTR+5, PRINT+4, PRINT+7, GETNAME+11, GETNAME+12, GETNAME+18, GETNAME+19, DOLLARS+1, DOLLARS+6, DOLLARS+11 , DOLLARS+15
>> X	PRINT+8, PRINT+23, PRINT+25, AMT+5*
X2	ACHSDNA+6!, PRINT+8, PRINT+23
X3	ACHSDNA+6!, PRINT+8, PRINT+23
>> ZTDESC	DEV+10*
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+12*
ZTSK	DEV+14, DEV+15!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDNA

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: