Routine: ACHSDAR4

Information

ACHSDAR4 ; IHS/ITSC/TPF/PMF - APPEAL TO ALTERNATE RESOURCE (2/3) ;

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Contract Health Management Information System	4	($$DN,$$SUD,BM,RTRN)^ACHS PROV^ACHSDAR5 (,$$DATE)^ACHSDARR HEADER^ACHSDNL2
Kernel	2	^%ZISC $$FMTE^XLFDT
VA Fileman	2	^DIWP ^DIWW

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSDAR ACHSDAR3

Entry Points

Name	Comments	DBIA/ICR reference
SUD	; --- SUD Signature Block
END	;EP
DOC2	;
DOC	;
DOC1	;
BOTTXT	;
START	;EP
PG	;
CMT	; --- Office Comments
CMT1	; --- Alternate Resources Appeal Comments

External References

Name	Field # of Occurrence
^%ZISC	END+12
$$DN^ACHS	DOC+5, DOC+6, DOC1+1, DOC2+2, CMT+2, CMT+5, CMT+7, CMT+8, CMT+9, CMT+10 , CMT+12, CMT+13, CMT+14, CMT+15
$$SUD^ACHS	SUD+2, SUD+3, SUD+4
BM^ACHS	START+2
RTRN^ACHS	END+9, PG+1
PROV^ACHSDAR5	DOC2+3
^ACHSDARR	END+8
$$DATE^ACHSDARR	DOC1+1, DOC2+2, DOC2+8
HEADER^ACHSDNL2	DOC+1
^DIWP	DOC2+10, DOC2+12, DOC2+14, DOC2+16, DOC2+18, DOC2+26, CMT1+5
^DIWW	DOC2+18, DOC2+27, CMT1+6
$$FMTE^XLFDT	CMT+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "* OFFICE COPY * " Line Location: START+4
Function Call: WRITE	Prompt: !!! Line Location: START+5
Function Call: WRITE	Prompt: !!!,?DIWL-1,$$DATE^ACHSDARR($$DN^ACHS(0,2),"MM",1)," ",$$DATE^ACHSDARR($$DN^ACHS(0,2),"DD"),", ",$$DATE^ACHSDARR($$DN^ACHS(0,2),"YY") Line Location: DOC1+1
Function Call: WRITE	Prompt: !!!!,?DIWL-1,$P($G(^AUTNINS(ACHDALRS,4)),U) Line Location: DOC1+2
Function Call: WRITE	Prompt: !!! Line Location: DOC1+4
Function Call: WRITE	Prompt: !?DIWL-1,$P(ACHDALR,U,2),!?DIWL-1,$P(ACHDALR,U,3)_", "_$P($G(^DIC(5,$P(ACHDALR,U,4),0)),U,2)_" "_$P(ACHDALR,U,5),! Line Location: DOC1+5
Function Call: WRITE	Prompt: !!,?DIWL-1,"Re: Patient: ",ACHDPAT,!,?DIWL+8,"Date of service: ",$$DATE^ACHSDARR($$DN^ACHS(0,4),"MM",1)," ",$$DATE^ACHSDARR($$DN^ACHS(0,4),"DD"),", ",$$DATE^ACHSDARR($$DN^ACHS(0,4),"YY") Line Location: DOC2+2
Function Call: WRITE	Prompt: !!,?DIWL-1,"Dear ",$P(ACHDALR,U),",",!! Line Location: DOC2+6
Function Call: WRITE	Prompt: !! Line Location: DOC2+20
Function Call: WRITE	Prompt: !!!?DIWL-1,"Please keep me informed on the status of this appeal." Line Location: BOTTXT+1
Function Call: WRITE	Prompt: !!?30,"Sincerely yours,",!!!!!!?30,$$SUD^ACHS(1) Line Location: SUD+2
Function Call: WRITE	Prompt: !?30,$$SUD^ACHS(7) Line Location: SUD+3
Function Call: WRITE	Prompt: !?30,$$SUD^ACHS(2),!?30,$$SUD^ACHS(3),", ",$P($G(^DIC(5,$$SUD^ACHS(4),0)),U,2)," ",$$SUD^ACHS(5),!?30,"Telephone: ",$$SUD^ACHS(6) Line Location: SUD+4
Function Call: WRITE	Prompt: !!!,"Denial Number: ",$$DN^ACHS(0,1) Line Location: CMT+2
Function Call: WRITE	Prompt: $S($L($$DN^ACHS(10,6)):$$DN^ACHS(10,6),1:"No Chart Number Available") Line Location: CMT+10
Function Call: WRITE	Prompt: !,"No Receipt Information Available",! Line Location: CMT+12
Function Call: WRITE	Prompt: !,"Method of receipt: ",$$DN^ACHS(850,2) Line Location: CMT+13
Function Call: WRITE	Prompt: !,"Date of receipt: ",$$FMTE^XLFDT($$DN^ACHS(850,3)) Line Location: CMT+14
Function Call: WRITE	Prompt: !,"Received by: ",$$DN^ACHS(850,4) Line Location: CMT+15
Function Call: WRITE	Prompt: !,"Alternate Resources Appeal Comments: ",! Line Location: CMT1+2
Function Call: WRITE	Prompt: !!! Line Location: END+1
Function Call: WRITE	Prompt: "* OFFICE COPY * " Line Location: END+3
Function Call: WRITE	Prompt: @IOF Line Location: END+5
Function Call: WRITE	Prompt: @IOF Line Location: END+10
Function Call: WRITE	Prompt: @IOF,!!!?DIWL-1,ACHDPAT,?($S($G(IOM):IOM,1:75)-$L(ACHDALR)),ACHDALR,!?($S($G(IOM):IOM,1:75)-$L("Page "_ACHSPG)),"Page ",ACHSPG,!! Line Location: PG+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	DOC+5, DOC2+7, DOC2+23, CMT1+1, CMT1+4, CMT1+5
^ACHSDENR - [#9002072]	DOC2+25, DOC2+26
^AUPNPAT - [#9000001]	CMT+9
^AUTNINS - [#9999999.18]	DOC+10, DOC1+2
^DIC(5 - [#5]	DOC1+5, SUD+4
^DPT - [#2]	DOC+6

Label References

Name	Line Occurrences
CMT1	CMT+12
DOC	END+2
DOC2	DOC1+4
END	CMT+1, CMT1+1, CMT1+7
PG	DOC2+10, DOC2+12, DOC2+14, DOC2+16, DOC2+18, DOC2+26, BOTTXT+2, SUD+1, CMT1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACHD	CMT1+3, CMT1+4, CMT1+5, END+11!
ACHDALR	DOC+10, DOC1+4, DOC1+5, DOC2+1, DOC2+6, DOC2+11, END+11!, PG+4
ACHDALRS	DOC+10, DOC1+2, DOC2+7, DOC2+23, CMT1+1, CMT1+4, CMT1+5, END+11!
ACHDDAT	DOC2+7, DOC2+8, DOC2+13, END+11!
ACHDLKER	END+8, END+11!
ACHDOCT	END+11!
ACHDONE	START+3*, CMT+1, END+2, END+4!
ACHDOP	DOC2+22, DOC2+23, DOC2+25, DOC2+26, END+11!
ACHDPAT	DOC+5, DOC+6, DOC+9*, DOC2+2, DOC2+9, END+11!, PG+4
ACHDPROV	END+11!
ACHDX	DOC2+24, DOC2+25, DOC2+26, END+11!
ACHSA	DOC+5, DOC2+7, DOC2+23, CMT+7, CMT1+1, CMT1+4, CMT1+5, END+11!
>> ACHSBM	START+3*, DOC2+10, DOC2+12, DOC2+14, DOC2+16, DOC2+18, DOC2+26, BOTTXT+2, SUD+1, CMT1+5
>> ACHSPG	START+6, END+6, PG+3*, PG+4
>> ACHSQUIT	DOC2+10, DOC2+12, DOC2+14, DOC2+16, DOC2+18, DOC2+23, DOC2+26, BOTTXT+2, SUD+1, CMT1+4 , CMT1+5, PG+2
DIR	END+11!
DIWF	START+6, DOC2+19, DOC2+29!, END+6*
>> DIWL	START+6, DOC1+1, DOC1+2, DOC1+5, DOC2+2, DOC2+6, DOC2+28, BOTTXT+1, END+6*, PG+4
>> DIWR	START+6, DOC2+28, END+6*
DUZ(2	DOC+5, DOC2+7, DOC2+23, DOC2+25, DOC2+26, CMT+9, CMT1+1, CMT1+4, CMT1+5
>> I	START+4, END+3
IO	START+1, END+9
IO(0	END+9
IOF	END+5, END+10, PG+4
IOM	START+6, DOC2+28, END+6, PG+4
U	DOC+6, DOC1+2, DOC1+4, DOC1+5, DOC2+1, DOC2+6, DOC2+7, SUD+4, CMT+9
>> X	DOC2+9, DOC2+11, DOC2+13, DOC2+15, DOC2+17, DOC2+26, CMT1+5*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDAR4

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: