Routine: ACHSDLK

Information

ACHSDLK ; IHS/ITSC/PMF - DENIAL LOOKUP ; [ 10/31/2003 11:41 AM ]

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Contract Health Management Information System	1	($$DIR,$$DN)^ACHS
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Contract Health Management Information System	9	ACHSDADP ACHSDAR ACHSDAR3 ACHSDN2 ACHSDNA1 ACHSDNAP ACHSDNC ACHSDND ACHSDNL

Name	Comments	DBIA/ICR reference
P2	;
P3	;
PP	;
P1	;
NAMERR	;
P0	;
GETDEN2(DIC0,X)	;
GETDEN	;get a denial, either by number or by patient

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GETDEN+1
Function Call: WRITE	Prompt: " ","??" Line Location: GETDEN+16
Function Call: WRITE	Prompt: " ","??" Line Location: GETDEN+33
Function Call: WRITE	Prompt: " ","??" Line Location: GETDEN+42
Function Call: WRITE	Prompt: !!,"You have chosen "_ACHDOCT_" document ",$P(Y(0),U),!! Line Location: P1+1
Function Call: WRITE	Prompt: $P($G(^DPT(DFN,0)),U),! Line Location: P1+3
Function Call: WRITE	Prompt: $P(A,U),!,$P(A,U,4) Line Location: P1+5
Function Call: WRITE	Prompt: " ",$P($G(^DIC(5,ACHDST,0)),U,2) Line Location: P1+7
Function Call: WRITE	Prompt: " ",$P(A,U,6),!! Line Location: P1+8
Function Call: WRITE	Prompt: $P(A,U),!,$P(A,U,2),!,$P(A,U,3) Line Location: P2+2
Function Call: WRITE	Prompt: " ",$P($G(^DIC(5,ACHDST,0)),U,2) Line Location: P2+4
Function Call: WRITE	Prompt: " ",$P(A,U,5),!! Line Location: P2+5
Function Call: WRITE	Prompt: "Date of service ",$$FMTE^XLFDT($$DN^ACHS(0,4)),!! Line Location: P3+1
Function Call: WRITE	Prompt: !!,*7,"No valid PATIENT NAME in this file.",!,"No letter may be printed until a valid patient is entered.",!! Line Location: NAMERR+1
Routine Call	DIC Line Location: GETDEN+29 GETDEN2+18
Routine Call	DIR Line Location: GETDEN+5

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	GETDEN+12, P0+1, P0+2, P2+1
^DIC(5 - [#5]	P1+7, P2+4
^DPT - [#2]	GETDEN+39, PP+3, P1+3, P1+4

Name	Line Occurrences
GETDEN	ACHSDLK+21, GETDEN+16, GETDEN+22, GETDEN+33, GETDEN+40, GETDEN+42
GETDEN2	GETDEN+16, GETDEN+21, GETDEN+34, GETDEN+41
NAMERR	P0+1, P0+2
P0	PP+2, PP+3
P1	PP+5
P2	P1+2
P3	P1+9
PP	ACHSDLK+24

Name	Field # of Occurrence
>> %	P3+2*, P3+4
>> A	P1+4, P1+5, P1+6, P1+8, P2+1, P2+2, P2+3, P2+5
ACHDLKER	ACHSDLK+14!, ACHSDLK+22, ACHSDLK+23, P3+3
>> ACHDOCT	P1+1
>> ACHDST	P1+6, P1+7, P2+3, P2+4
>> ACHSA	ACHSDLK+23, GETDEN+2, GETDEN+16, GETDEN+23, GETDEN+33, GETDEN+43, GETDEN2+20*, P0+1, P0+2, P2+1
ACHSTMP	GETDEN+20*, GETDEN+28, GETDEN+45!
>> AUPNLK("ALL"	GETDEN+28*
>> DA(1	GETDEN2+10*
DFN	ACHSDLK+14!, GETDEN+2!, PP+4*, P1+2, P1+3, P1+4
DIC	ACHSDLK+27!, GETDEN+2!, GETDEN+28, GETDEN2+5!, GETDEN2+6
DIC("A"	GETDEN2+8*
DIC("S"	GETDEN2+9*
DIC("W"	GETDEN2+15*
DIC(0	GETDEN+28, GETDEN2+7
DIC0	GETDEN2~, GETDEN2+7
DIR	GETDEN+5!
DIR("?"	GETDEN+4*
DIR("A"	GETDEN+3*
DIR(0	GETDEN+5*
>> DIRUT	GETDEN+8
>> DIWF	ACHSDLK+15*
>> DIWL	ACHSDLK+15*
>> DIWR	ACHSDLK+15*
DONE	ACHSDLK+16~, ACHSDLK+20, ACHSDLK+22, ACHSDLK+23, P3+3, P3+4*
>> DTOUT	GETDEN+22, P3+3
>> DUOUT	GETDEN+22, P3+3
DUZ(2	GETDEN+12, GETDEN2+6, GETDEN2+10, P0+1, P0+2, P2+1
>> PATDAT	GETDEN+39*, GETDEN+40, GETDEN+41
U	GETDEN+41, PP+2, PP+3, PP+4, P0+2, P1+1, P1+3, P1+5, P1+6, P1+7 , P1+8, P2+2, P2+3, P2+4, P2+5
X	GETDEN+12, GETDEN+16, GETDEN+20, GETDEN+21, GETDEN+28, GETDEN+34, GETDEN2~, GETDEN2+4*
Y	GETDEN+2!, GETDEN+12, GETDEN+16, GETDEN+20, GETDEN+33, GETDEN+39, GETDEN+42, GETDEN+43, GETDEN2+19, GETDEN2+20
Y(0	PP+1*, PP+2, PP+3, PP+4, P1+1