Routine: ACHSDAR1

Information

ACHSDAR1 ; IHS/ITSC/TPF/PMF - PATIENT ALTERNATE RESOURCE LETTER (2/2) ;

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDAR

Entry Points

Name	Comments	DBIA/ICR reference
OPT	; --- Alternate Resource Options
END1	;EP from ACHSDAR
OPTXT	;
BOTTXT	;
END	;EP
NDOC	;
DOC	;
DOC1	;
START	;EP
SUD	; --- SUD Signature Block
PG	; --- Pagination for the Alternate Resource Letter.
CMT	; --- Office Comments
CMT1	;

External References

Name	Field # of Occurrence
^%ZISC	END1+4
$$DN^ACHS	DOC+2, DOC+3, DOC+7, DOC+10, DOC+12, DOC1+3, CMT+2, CMT+7, CMT+9, CMT+10 , CMT+11, CMT+12, CMT+14, CMT+15, CMT+16, CMT+17
$$SUD^ACHS	SUD+3, SUD+4, SUD+5
BM^ACHS	START+4
RTRN^ACHS	END1+1, PG+2
ALTR^ACHSDAR5	DOC1+9
IHSRES^ACHSDAR5	DOC1+12
PROV^ACHSDAR5	DOC1+6
HEADER^ACHSDNL2	DOC+1
^DIWP	DOC1+19, NDOC+6, BOTTXT+14, CMT1+6
^DIWW	DOC1+20, NDOC+1, BOTTXT+15, CMT1+7
$$FMTE^XLFDT	DOC+2, DOC1+3, CMT+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "* OFFICE COPY * " Line Location: START+7
Function Call: WRITE	Prompt: !!! Line Location: START+8
Function Call: WRITE	Prompt: !!!?DIWL-1,$$FMTE^XLFDT($$DN^ACHS(0,2)) Line Location: DOC+2
Function Call: WRITE	Prompt: ?(DIWR-$L(ACHDOC)),ACHDOC,!! Line Location: DOC+4
Function Call: WRITE	Prompt: !!?DIWL-1,ACHDNAMP,!?DIWL-1,$P(ACHDPAT,U,2),!?DIWL-1,$P(ACHDPAT,U,3)_", "_$P($G(^DIC(5,$P(ACHDPAT,U,4),0)),U,2)_" "_$P(ACHDPAT,U,5),! Line Location: DOC1+1
Function Call: WRITE	Prompt: !!?DIWL-1,"Re: Patient: ",$P($P(ACHDPAT,U),",",2)_" "_$P($P(ACHDPAT,U),",") Line Location: DOC1+2
Function Call: WRITE	Prompt: !?DIWL+8,"Date of service: ",$$FMTE^XLFDT($$DN^ACHS(0,4)) Line Location: DOC1+3
Function Call: WRITE	Prompt: !!?DIWL-1,"Dear ",$P($P(ACHDPAT,U),",",2)_" "_$P($P(ACHDPAT,U),",")_",",!! Line Location: DOC1+14
Function Call: WRITE	Prompt: !!?9,"Documentation Needed For Appeal:",!! Line Location: NDOC+2
Function Call: WRITE	Prompt: !! Line Location: BOTTXT+3
Function Call: WRITE	Prompt: !!?30,"Sincerely yours,",!!!!?30,$$SUD^ACHS(1) Line Location: SUD+3
Function Call: WRITE	Prompt: !?30,$$SUD^ACHS(7) Line Location: SUD+4
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+5
Function Call: WRITE	Prompt: !!!," Denial Number: ",$$DN^ACHS(0,1) Line Location: CMT+2
Function Call: WRITE	Prompt: !," Chart Number: " Line Location: CMT+4
Function Call: WRITE	Prompt: $S($L($$DN^ACHS(10,6)):$$DN^ACHS(10,6),1:"No Chart Number Available") Line Location: CMT+12
Function Call: WRITE	Prompt: !,"No Receipt Information Available",! Line Location: CMT+14
Function Call: WRITE	Prompt: !,"Method of receipt: ",$$DN^ACHS(850,2) Line Location: CMT+15
Function Call: WRITE	Prompt: !," Date of receipt: ",$$FMTE^XLFDT($$DN^ACHS(850,3)) Line Location: CMT+16
Function Call: WRITE	Prompt: !," Received by: ",$$DN^ACHS(850,4) Line Location: CMT+17
Function Call: WRITE	Prompt: !,"CHS Office 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: END1+2
Function Call: WRITE	Prompt: @IOF,!!!?DIWL-1,ACHDNAMP,?($S($G(IOM):IOM,1:75)-$L(ACHDOC)),ACHDOC,!?($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+7, NDOC+4, NDOC+5, CMT1+1, CMT1+4, CMT1+5
^ACHSDENR - [#9002072]	DOC1+17, DOC1+18, BOTTXT+7, BOTTXT+9, BOTTXT+11
^AUPNPAT - [#9000001]	CMT+11
^DIC(5 - [#5]	DOC1+1, SUD+5
^DPT - [#2]	DOC+10, DOC+12

Label References

Name	Line Occurrences
CMT1	CMT+14
DOC	END+2
DOC1	DOC+7
END	CMT+1, CMT1+1
PG	DOC1+19, NDOC+6, BOTTXT+1, BOTTXT+14, SUD+1, CMT1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACHD	NDOC+3, NDOC+4, NDOC+5, CMT1+3, CMT1+4, CMT1+5, END1+3!
ACHDA	END1+3!
ACHDALRS	NDOC+4, NDOC+5, CMT1+1, CMT1+4, CMT1+5, END1+3!
ACHDI	END1+3!
ACHDLKER	END1+3!
>> ACHDNAMP	DOC+7, DOC+13, DOC1+1, PG+4
ACHDNDOC	NDOC+1, END1+3!
>> ACHDOC	DOC+3*, DOC+4, PG+4
ACHDOCT	END1+3!
ACHDONE	START+6*, CMT+1, END+2, END+4!
ACHDOP	END1+3!
ACHDPAT	DOC+7, DOC+10, DOC+11, DOC+12, DOC+13, DOC1+1, DOC1+2, DOC1+14, END1+3!
ACHDQ	END1+3!
ACHDX	DOC1+16, DOC1+17, DOC1+18, BOTTXT+8, BOTTXT+9, BOTTXT+11, END1+3!
ACHSA	DOC+7, NDOC+4, NDOC+5, CMT+9, CMT1+1, CMT1+4, CMT1+5, END1+3!
>> ACHSBM	START+5*, DOC1+19, NDOC+6, BOTTXT+1, BOTTXT+14, SUD+1, CMT1+6
>> ACHSDBCN	BOTTXT+7*, BOTTXT+12
>> ACHSDBCP	BOTTXT+7*, BOTTXT+13
>> ACHSPG	START+9, END+6, PG+3*, PG+4
>> ACHSQUIT	START+2*, DOC1+6, DOC1+9, DOC1+12, DOC1+17, DOC1+19, NDOC+1, NDOC+4, NDOC+6, BOTTXT+2 , BOTTXT+9, BOTTXT+14, SUD+2, CMT1+4, CMT1+6, PG+1
DIR	END1+3!
DIWF	START+12, BOTTXT+4!, END+6
>> DIWL	START+10, DOC+2, DOC1+1, DOC1+2, DOC1+3, DOC1+14, NDOC+1, NDOC+3, BOTTXT+5, END+6* , PG+4
>> DIWR	START+11, DOC+4, NDOC+1, NDOC+3, BOTTXT+5, END+6*
>> DTOUT	PG+1
>> DUOUT	PG+1
DUZ(2	DOC+7, DOC1+17, DOC1+18, NDOC+4, NDOC+5, BOTTXT+7, BOTTXT+9, BOTTXT+11, CMT+11, CMT1+1 , CMT1+4, CMT1+5
>> I	START+7, END+3
IO	START+3, END1+1
IO(0	END1+1
IOF	END+5, END1+2, PG+4
IOM	START+11, NDOC+1, NDOC+3, BOTTXT+5, END+6, PG+4
U	DOC+7, DOC+11, DOC+12, DOC+13, DOC1+1, DOC1+2, DOC1+14, BOTTXT+7, SUD+5, CMT+11
>> X	DOC1+18, NDOC+5, BOTTXT+7, BOTTXT+11, BOTTXT+12, BOTTXT+13, CMT1+5*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDAR1

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

Local Variables

Legend: