Routine: ACHSDFL1

Information

ACHSDFL1 ; IHS/ITSC/PMF - DEFERRED SERVICES LETTER (2/2) ; [ 10/31/2003 11:40 AM ]

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Contract Health Management Information System	4	($$AD,$$DF,$$SUD,BM,RTRN)^ACHS $$DATE^ACHSDARR (END,TYPE)^ACHSDFL HEADER^ACHSDNL2
VA Fileman	2	^DIWP ^DIWW
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDFL

Entry Points

Name	Comments	DBIA/ICR reference
SUD	; --- SUD Signature Block
AD	;
DOC	;EP --- Document info
BOTTXT	;
CMT1	;
START	;EP
PG	; --- Paginate, write header
CMT	; --- Office Comments
DOC1	;

External References

Name	Field # of Occurrence
$$AD^ACHS	AD+1, AD+2, AD+4
$$DF^ACHS	DOC+1, DOC+4, DOC+6, DOC+8, DOC+10, DOC1+10, DOC1+11, CMT+4, CMT+5, CMT+6 , CMT+7, CMT+8, CMT+9, PG+3
$$SUD^ACHS	BOTTXT+3, SUD+2, SUD+3, SUD+4
BM^ACHS	START+2
RTRN^ACHS	PG+1
$$DATE^ACHSDARR	DOC+4, DOC1+10
END^ACHSDFL	CMT+1, CMT1+1, CMT1+8
TYPE^ACHSDFL	DOC1+9
HEADER^ACHSDNL2	DOC+2
^DIWP	DOC1+15, AD+7, BOTTXT+4, CMT1+6
^DIWW	DOC1+16, AD+7, BOTTXT+4, CMT1+7
$$FMTE^XLFDT	CMT+8

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: "DOCUMENT CANCELLED *" Line Location: DOC+1
Function Call: WRITE	Prompt: !!!?DIWL-1,$$DATE^ACHSDARR($$DF^ACHS(0,2),"MM",1)," ",$$DATE^ACHSDARR($$DF^ACHS(0,2),"DD"),", ",$$DATE^ACHSDARR($$DF^ACHS(0,2),"YY"),!! Line Location: DOC+4
Function Call: WRITE	Prompt: !?DIWL-1,X," ",Y,!?DIWL-1,$P(ACHDPAT,U,2),!?DIWL-1,$P(ACHDPAT,U,3),", ",$S($P(ACHDPAT,U,4):$P($G(^DIC(5,$P(ACHDPAT,U,4),0)),U,2),1:"")," ",$P(ACHDPAT,U,5),! Line Location: DOC1+5
Function Call: WRITE	Prompt: !!?DIWL-1,"Re: Patient: ",$P($P(ACHDPAT,U,1),",",2)," ",$P($P(ACHDPAT,U),",",1) Line Location: DOC1+6
Function Call: WRITE	Prompt: !?DIWL+3,"Contract Health Services Unmet Need Medical/Dental request for: ",! Line Location: DOC1+8
Function Call: WRITE	Prompt: !?DIWL+3,"Date request received: ",$$DATE^ACHSDARR($$DF^ACHS(0,4),"MM",1)," ",$$DATE^ACHSDARR($$DF^ACHS(0,4),"DD"),", ",$$DATE^ACHSDARR($$DF^ACHS(0,4),"YY") Line Location: DOC1+10
Function Call: WRITE	Prompt: !?DIWL+10,"Estimated Cost: $" Line Location: DOC1+11
Function Call: WRITE	Prompt: $$DF^ACHS(100,5) Line Location: DOC1+11
Function Call: WRITE	Prompt: !!!?DIWL-1,"Dear ",$P($P(ACHDPAT,U),",",2)," ",$P($P(ACHDPAT,U),",",1)," :",!! Line Location: DOC1+12
Function Call: WRITE	Prompt: !!?DIWL+10,$$AD^ACHS(1) Line Location: AD+1
Function Call: WRITE	Prompt: !?DIWL+10,$$AD^ACHS(7) Line Location: AD+2
Function Call: WRITE	Prompt: !?DIWL+10,"ATTN: CONTRACT HEALTH SERVICES" Line Location: AD+3
Function Call: WRITE	Prompt: !?DIWL+10,$$AD^ACHS(2),!?DIWL+10,$$AD^ACHS(3),", ",$P($G(^DIC(5,$$AD^ACHS(4),0)),U,2)," ",$$AD^ACHS(5),!?DIWL+10,"Telephone: ",$$AD^ACHS(6) Line Location: AD+4
Function Call: WRITE	Prompt: !! Line Location: AD+5
Function Call: WRITE	Prompt: ! Line Location: BOTTXT+1
Function Call: WRITE	Prompt: !!!?DIWL+30,"Sincerely yours,",!!!!?DIWL+30,$$SUD^ACHS(1) Line Location: SUD+2
Function Call: WRITE	Prompt: !?DIWL+30,$$SUD^ACHS(7) Line Location: SUD+3
Function Call: WRITE	Prompt: !?DIWL+30,$$SUD^ACHS(2),!?DIWL+30,$$SUD^ACHS(3),", ",$P($G(^DIC(5,$$SUD^ACHS(4),0)),U,2)," ",$$SUD^ACHS(5),!?DIWL+30,"Telephone: ",$$SUD^ACHS(6) Line Location: SUD+4
Function Call: WRITE	Prompt: !!!,"Unmet Needs Number: ",$$DF^ACHS(0,1) Line Location: CMT+4
Function Call: WRITE	Prompt: !," Chart Number: ",$S($$DF^ACHS(0,5)="Y":$P($G(^AUPNPAT($$DF^ACHS(0,6),41,DUZ(2),0)),U,2),$L($$DF^ACHS(0,12)):$$DF^ACHS(0,12),1:"No Chart Number Available") Line Location: CMT+5
Function Call: WRITE	Prompt: !,"No Receipt Information Available",! Line Location: CMT+6
Function Call: WRITE	Prompt: !," Method of receipt: ",$$DF^ACHS(500,2) Line Location: CMT+7
Function Call: WRITE	Prompt: !," Date of receipt: ",$$FMTE^XLFDT($$DF^ACHS(500,3)) Line Location: CMT+8
Function Call: WRITE	Prompt: !," Received by: ",$$DF^ACHS(500,4) Line Location: CMT+9
Function Call: WRITE	Prompt: !,"Unmet Needs Comment:" Line Location: CMT1+3
Function Call: WRITE	Prompt: @IOF,!!!?DIWL-1,$P(ACHDPAT,U),?($S($G(IOM):IOM,1:75)-$L($$DF^ACHS(0,1))),$$DF^ACHS(0,1),!?($S($G(IOM):IOM,1:75)-$L("Page "_ACHSPG)),"Page ",ACHSPG,!! Line Location: PG+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEF - [#9002066]	DOC1+14, DOC1+15, CMT1+1, CMT1+5, CMT1+6
^AUPNPAT - [#9000001]	CMT+5
^DIC(5 - [#5]	DOC1+5, AD+4, SUD+4
^DPT - [#2]	DOC+8, DOC+10

Label References

Name	Line Occurrences
CMT1	CMT+6
DOC1	DOC+6
PG	DOC1+15, AD+7, BOTTXT+4, SUD+1, CMT+2, CMT1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHDONE	START+3*, START+4, CMT+1
>> ACHDPAT	DOC+6, DOC+8, DOC+10*, DOC1+1, DOC1+3, DOC1+5, DOC1+6, DOC1+12, PG+3
>> ACHDX	DOC1+13, DOC1+14, DOC1+15, CMT1+4, CMT1+5, CMT1+6
>> ACHSA	CMT1+1, CMT1+5, CMT1+6
>> ACHSBM	START+3*, DOC1+15, AD+7, BOTTXT+4, SUD+1, CMT+2, CMT1+6
>> ACHSPG	START+8, PG+2, PG+3
>> ACHSQUIT	DOC1+14, DOC1+15, AD+7, BOTTXT+4, SUD+1, CMT+2, CMT1+6
>> DIWF	START+8*
>> DIWL	START+8*, DOC+4, DOC1+5, DOC1+6, DOC1+8, DOC1+10, DOC1+11, DOC1+12, AD+1, AD+2 , AD+3, AD+4, SUD+2, SUD+3, SUD+4, PG+3
>> DIWR	START+8*
DUZ(2	DOC1+14, DOC1+15, CMT+5, CMT1+1, CMT1+5, CMT1+6
>> I	START+4, DOC+1
IO	START+1
IOF	PG+3
IOM	PG+3
U	DOC+6, DOC+8, DOC+10, DOC1+1, DOC1+3, DOC1+5, DOC1+6, DOC1+12, AD+4, SUD+4 , CMT+5, PG+3
>> X	DOC+8, DOC1+1, DOC1+2, DOC1+5, DOC1+15, AD+6, BOTTXT+3, CMT1+6*
>> Y	DOC1+3*, DOC1+5

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDFL1

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: