Routine: ACHSDNL4

Package	Total	Call Graph
Contract Health Management Information System	3	($$C,$$DN,CPI)^ACHS SETCHT^ACHSDNL2 (,END)^ACHSDNL5
DRG Grouper	2	$$ICDDX^ICDEX $$CPT^ICPTCOD
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR

Package

Total

Call Graph

Contract Health Management Information System

($$C,$$DN,CPI)^ACHS SETCHT^ACHSDNL2 (,END)^ACHSDNL5

DRG Grouper

$$ICDDX^ICDEX $$CPT^ICPTCOD

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDNL1

Package

Total

Caller Graph

Contract Health Management Information System

ACHSDNL1

Name	Comments	DBIA/ICR reference
COMMENT	;
RLINE	;
DATE	;
END	;
R1	;
PRIOR	; --- Medical Priority
START	;
NOT	;
APPEAL	;
TYPE	;
DLINE	;

External References

Name	Field # of Occurrence
$$C^ACHS	START+3, PRIOR+5
$$DN^ACHS	START+3, START+5, START+6, NOT+6, DATE+2, APPEAL+1, TYPE+1, PRIOR+1, PRIOR+2, PRIOR+3 , PRIOR+6, RLINE+2, RLINE+12
CPI^ACHS	START+1
SETCHT^ACHSDNL2	START+16
^ACHSDNL5	DLINE+2
END^ACHSDNL5	END+1
$$ICDDX^ICDEX	RLINE+12
$$CPT^ICPTCOD	RLINE+17
$$FMTE^XLFDT	DATE+2, PRIOR+2
$$REPEAT^XLFSTR	START+3, PRIOR+5, RLINE+3, DLINE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$C^ACHS("CHS DENIAL",80),!,$$C^ACHS("DENIAL FACT SHEET",80),!,$$REPEAT^XLFSTR("=",79),!,$$C^ACHS("Document number: "_$$DN^ACHS(0,1),80),!,$$REPEAT^XLFSTR("-",79),! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: START+14
Function Call: WRITE	Prompt: ?4,ACHDNAME Line Location: START+15
Function Call: WRITE	Prompt: ?35,ACHDCH,! Line Location: START+17
Function Call: WRITE	Prompt: ?4,$P(A,U),!?4,$P(A,U,4) Line Location: START+21
Function Call: WRITE	Prompt: " ",$P($G(^DIC(5,ACHDST,0)),U,2) Line Location: START+23
Function Call: WRITE	Prompt: " ",$P(A,U,6),!! Line Location: START+24
Function Call: WRITE	Prompt: "(No patient on file)" Line Location: NOT+2
Function Call: WRITE	Prompt: "(No patient on file)" Line Location: NOT+3
Function Call: WRITE	Prompt: ?4,$P(Y,",",2,99) Line Location: NOT+7
Function Call: WRITE	Prompt: $P(Y,","),?35,"CHART #: ",$S($P(X,U,6)]"":$P(X,U,6),1:"(No Chart At This Facility)"),!?4,$P(X,U,2),!?4,$P(X,U,3) Line Location: NOT+9
Function Call: WRITE	Prompt: " ",$P($G(^DIC(5,ACHDST,0)),U,2) Line Location: NOT+11
Function Call: WRITE	Prompt: " ",$P(X,U,5),!! Line Location: NOT+12
Function Call: WRITE	Prompt: !,"DATE OF SERVICES: ",$$FMTE^XLFDT($$DN^ACHS(0,4)),".",!," REQUEST MADE TO: ",$P($G(^DIC(4,DUZ(2),0)),U),!,"DATE REQUEST REC: ",$$FMTE^XLFDT($$DN^ACHS(0,5)) Line Location: DATE+2
Function Call: WRITE	Prompt: !," APPEAL STATUS: ",$P($G(^ACHSDENA($$DN^ACHS(400,3),0)),U) Line Location: APPEAL+1
Function Call: WRITE	Prompt: "<unknown>" Line Location: TYPE+3
Function Call: WRITE	Prompt: $P($P(Y,";",%),":",2) Line Location: TYPE+4
Function Call: WRITE	Prompt: !," PRIORITY: ",$P($G(^ACHSMPRI($$DN^ACHS(400,2),0)),U) Line Location: PRIOR+1
Function Call: WRITE	Prompt: !," DATE OF ISSUE: ",$$FMTE^XLFDT($$DN^ACHS(0,2)),!," ISSUED BY: " Line Location: PRIOR+2
Function Call: WRITE	Prompt: $P($G(^VA(200,X,0)),U) Line Location: PRIOR+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),!,$$C^ACHS("DENIAL REASON(S)",80) Line Location: PRIOR+5
Function Call: WRITE	Prompt: !!,"PRIMARY DENIAL REASON: ",$P($G(^ACHSDENS(X,0),"UNDEFINED"),U) Line Location: PRIOR+7
Function Call: WRITE	Prompt: !,$S(ACHSUMET=1:"(No reasons on file)",1:"UN-MET NEED") Line Location: PRIOR+9
Function Call: WRITE	Prompt: !,?23,$P($G(^ACHSDENS(RSNPTR,0)),U) Line Location: R1+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),!," TYPE CODE",?20,"DIAGNOSIS" Line Location: RLINE+3
Function Call: WRITE	Prompt: "(No diagnosis on file)" Line Location: RLINE+5
Function Call: WRITE	Prompt: !,"(ICD9) ",$P($G(^ICD9(Y,0)),U),?20,$P($G(^ICD9(Y,0)),U,3) Line Location: RLINE+9
Function Call: WRITE	Prompt: !,"(ICD) ",$P($$ICDDX^ICDEX(DY,$$DN^ACHS(0,4),,"I"),U,2),?20,$E($P($$ICDDX^ICDEX(DY,$$DN^ACHS(0,4),,"I"),U,4),1,60) Line Location: RLINE+12
Function Call: WRITE	Prompt: !,"(CPT) ",$P($G(^ICPT(Y,0)),U),?20,$P($G(^ICPT(Y,0)),U,2) Line Location: RLINE+16
Function Call: WRITE	Prompt: !,"(CPT) ",$P($$CPT^ICPTCOD(DY),U,2),?20,$P($$CPT^ICPTCOD(DY),U,3) Line Location: RLINE+17
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79),! Line Location: DLINE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	NOT+3, NOT+5, PRIOR+8, R1+3, R1+4, RLINE+5, RLINE+7, RLINE+10, RLINE+14, RLINE+17
^ACHSDENA - [#9002074]	APPEAL+1
^ACHSDENS - [#9002073]	PRIOR+7, R1+6
^ACHSMPRI - [#9002073.1]	PRIOR+1
^DD(9002071.01	TYPE+2
^DIC(4 - [#4]	DATE+2
^DIC(5 - [#5]	START+23, NOT+11
^DPT - [#2]	START+8, START+10, START+20
^ICD9 - [#80]	RLINE+12
^ICPT - [#81]	RLINE+17
^VA(200 - [#200]	PRIOR+4

Name	Line Occurrences
COMMENT	RLINE+5
DATE	START+25
DLINE	RLINE+2
END	START+7, START+8
NOT	START+5
R1	PRIOR+8
RLINE	PRIOR+9

Name	Field # of Occurrence
^(0	PRIOR+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TYPE+2, TYPE+3, TYPE+4*
>> A	START+20*, START+21, START+22, START+24
>> ACHDCH	START+17
>> ACHDNAME	START+10, START+11, START+15
>> ACHDPDR	PRIOR+6, PRIOR+7, PRIOR+9
>> ACHDST	START+22, START+23, NOT+10, NOT+11
>> ACHSA	NOT+3, NOT+5, PRIOR+8, R1+3, R1+4, RLINE+5, RLINE+7, RLINE+10, RLINE+14, RLINE+17
>> ACHSUMET	DATE+1*, PRIOR+9
>> DFN	START+6*, START+7, START+8, START+10, START+20
DUZ(2	NOT+3, NOT+5, DATE+2, PRIOR+8, R1+3, R1+4, RLINE+5, RLINE+7, RLINE+10, RLINE+14 , RLINE+17
>> DX	RLINE+7, RLINE+10, RLINE+14, RLINE+17
>> DY	RLINE+10, RLINE+12, RLINE+17
RSNPTR	R1+2~, R1+4*, R1+5, R1+6
U	START+10, START+21, START+22, START+23, START+24, NOT+9, NOT+10, NOT+11, NOT+12, DATE+2 , APPEAL+1, TYPE+2, PRIOR+1, PRIOR+4, PRIOR+7, PRIOR+8, R1+4, R1+6, RLINE+10, RLINE+12 , RLINE+17
>> X	NOT+5, NOT+9, NOT+10, NOT+12, TYPE+1, TYPE+2, TYPE+4, PRIOR+3, PRIOR+4, PRIOR+6 , PRIOR+7, R1+3*, R1+4
>> Y	NOT+6, NOT+7, NOT+8, NOT+9, TYPE+2, TYPE+3, TYPE+4

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDNL4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: