Routine: ACHSDFLK

Information

ACHSDFLK ; IHS/ITSC/PMF - DEFERRAL LOOKUP ; [ 04/19/2002 9:30 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	1	ACHSDFC

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: GETDEF+1
Function Call: WRITE	Prompt: " ","??" Line Location: GETDEF+18
Function Call: WRITE	Prompt: " ","??" Line Location: GETDEF+26
Function Call: WRITE	Prompt: " ","??" Line Location: GETDEF+35
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: GETDEF+22 GETDEF2+16
Routine Call	DIR Line Location: GETDEF+7

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

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEF - [#9002066]	GETDEF+14, P2+1
^DIC(5 - [#5]	P1+7, P2+4
^DPT - [#2]	GETDEF+32, PP+3, P1+3, P1+4

Name	Line Occurrences
GETDEF	ACHSDFLK+12, GETDEF+18, GETDEF+26, GETDEF+33, GETDEF+35
GETDEF2	GETDEF+18, GETDEF+27, GETDEF+34
NAMERR	P0+1
P0	PP+2, PP+3
P1	PP+5
P2	P1+2
P3	P1+9
PP	ACHSDFLK+15

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	ACHSDFLK+5!, ACHSDFLK+13, ACHSDFLK+14, P3+3
>> ACHDOCT	P1+1
>> ACHDST	P1+6, P1+7, P2+3, P2+4
>> ACHSA	ACHSDFLK+14, GETDEF+2, GETDEF+18, GETDEF+26, GETDEF+36, GETDEF2+18*, P2+1
>> AUPNLK("ALL"	GETDEF+21*
>> DA(1	GETDEF2+11*
DFN	ACHSDFLK+5!, GETDEF+2!, PP+4*, P1+2, P1+3, P1+4
DIC	ACHSDFLK+18!, GETDEF+2!, GETDEF+21, GETDEF2+5!, GETDEF2+6
DIC("A"	GETDEF2+9*
DIC("S"	GETDEF2+10*
DIC("W"	GETDEF2+14*
DIC(0	GETDEF+21, GETDEF2+7
DIC0	GETDEF2~, GETDEF2+7
DIR	GETDEF+7!
DIR("?"	GETDEF+6*
DIR("A"	GETDEF+5*
DIR(0	GETDEF+7*
>> DIRUT	GETDEF+10
>> DIWF	ACHSDFLK+6*
>> DIWL	ACHSDFLK+6*
>> DIWR	ACHSDFLK+6*
DONE	ACHSDFLK+7~, ACHSDFLK+11, ACHSDFLK+13, ACHSDFLK+14, P3+3, P3+4*
>> DTOUT	P3+3
>> DUOUT	P3+3
DUZ(2	GETDEF+14, GETDEF2+6, GETDEF2+11, P2+1
>> PATDAT	GETDEF+32*, GETDEF+33, GETDEF+34
U	GETDEF+34, PP+2, PP+3, PP+4, P0+1, P1+1, P1+3, P1+5, P1+6, P1+7 , P1+8, P2+2, P2+3, P2+4, P2+5
X	GETDEF+14, GETDEF+18, GETDEF+21, GETDEF+27, GETDEF2~, GETDEF2+4
Y	GETDEF+2!, GETDEF+14, GETDEF+18, GETDEF+21, GETDEF+26, GETDEF+32, GETDEF+35, GETDEF+36, GETDEF2+17, GETDEF2+18
Y(0	PP+1*, PP+2, PP+3, PP+4, P0+1, P1+1