Routine: ACHSDN

Package	Total	Call Graph
Contract Health Management Information System	5	($$DIR,$$DN,$$FY,$$LOCK,$$ZEROTH,PTLK,RTRN)^ACHS ($$LINK,$$VCHK,GETREF,STAT)^ACHSBMC SETCK^ACHSDF1 ^ACHSDN1 ^ACHSDNDP
VA Fileman	4	^%DTC ^DIC ^DIE (,EN)^DIK
Kernel	1	$$REPEAT^XLFSTR

Package	Total	Caller Graph
Contract Health Management Information System	9	ACHS DEN ADD ACHSDENADD ACHSDF1 ACHSDN1 ACHSDN2 ACHSDN2A ACHSDN4 ACHSDNA1 ACHSDNC

Entry Points

Name	Comments	DBIA/ICR reference
P2	; --- Patient is not registered.
P1A	;
P1	; --- Patient is registered.
PAT	; --- Select the patient for this Denial.
DEFER	;
SEQ	;
P3	;
NUMBER	; --- Calculate and assign the Denial Number.
GETFY(X)	;EP - Given date X, return last 2 digits of FY in which it falls.
SITE	;
KILL	; --- User stopped before all data entered. Delete pseudo.
ALTREC	;
START	;EP --- Set the pseudo number of a Denial and begin entering data.
END	;
DOR	; --- Enter Date Request Received.
DOS	; --- Enter Date of Service of Denial.
DIE(DR,Z)	;EP - Edit Denial fields. ACHSA must be the IEN of the Denial.
R(C,N)	;

External References

Name	Field # of Occurrence
^%DTC	DOS+15
$$DIR^ACHS	PAT+6, P1A+9
$$DN^ACHS	P1+5, P3+1, DOS+10, DOS+19, DOR+4, NUMBER+3
$$FY^ACHS	NUMBER+5, GETFY+10
$$LOCK^ACHS	NUMBER+9, SEQ+5, DIE+5, DIE+7
$$ZEROTH^ACHS	START+3
PTLK^ACHS	P1+8
RTRN^ACHS	DOS+18, DOS+19, KILL+4, SEQ+11
$$LINK^ACHSBMC	P1+3
$$VCHK^ACHSBMC	P1+3
GETREF^ACHSBMC	P1+3
STAT^ACHSBMC	SEQ+10
SETCK^ACHSDF1	SITE+4
^ACHSDN1	ALTREC+17
^ACHSDNDP	ALTREC+21
^DIC	START+9
^DIE	DEFER+7, ALTREC+8, ALTREC+15, NUMBER+11, DIE+6
^DIK	KILL+2
EN^DIK	START+1
$$REPEAT^XLFSTR	R+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,7,7,$$R("",13)," THIS PATIENT HAS NO CHART AT THIS FACILITY.",$$R("",12) Line Location: P1A+4
Function Call: WRITE	Prompt: !,$$R("*",13)," THEY ARE REGISTERED AT :" Line Location: P1A+5
Function Call: WRITE	Prompt: !?10,$P($G(^DIC(4,J,0)),U),?35,$P($G(^AUPNPAT(DFN,41,J,0)),U,2) Line Location: P1A+7
Function Call: WRITE	Prompt: !,$$R("",13),!,$$R("",13)," YOU MUST ENTER THEIR CHART NUMBER FOR THIS FACILITY ",$$R("*",9),!!,"CONTINUE? ",! Line Location: P1A+8
Function Call: WRITE	Prompt: !!,$P(Y,",",2)_" "_$P(Y,",",1),!,$P(X,U),!,$P(X,U,4) Line Location: P1A+22
Function Call: WRITE	Prompt: " ",$P($G(^DIC(5,$P(X,U,5),0)),U,2) Line Location: P1A+23
Function Call: WRITE	Prompt: " ",$P(X,U,6) Line Location: P1A+24
Function Call: WRITE	Prompt: !!,*7,"No valid patient has yet been entered - try again.",!! Line Location: P3+3
Function Call: WRITE	Prompt: !! Line Location: DEFER+1
Function Call: WRITE	Prompt: !!,*7,"DATE OF MEDICAL SERVICE must be within 10 years of today!",! Line Location: DOS+17
Function Call: WRITE	Prompt: !!,*7,"A DATE OF MEDICAL SERVICE must be entered - try again." Line Location: DOS+19
Function Call: WRITE	Prompt: ! Line Location: DOS+19
Function Call: WRITE	Prompt: !!,*7,"A DATE REQUEST RECEIVED must be entered - try again." Line Location: DOR+3
Function Call: WRITE	Prompt: ! Line Location: DOR+3
Function Call: WRITE	Prompt: !!,*7,"A DATE REQUEST RECEIVED must be entered - try again." Line Location: DOR+4
Function Call: WRITE	Prompt: ! Line Location: DOR+4
Function Call: WRITE	Prompt: !! Line Location: ALTREC+4
Function Call: WRITE	Prompt: !! Line Location: ALTREC+14
Function Call: WRITE	Prompt: !! Line Location: ALTREC+15
Function Call: WRITE	Prompt: !!,*7,"This denial has been deleted.",!!! Line Location: KILL+3
Function Call: WRITE	Prompt: @IOF,!!,"This denial has been posted. The DENIAL NUMBER is: ",ACHDNUM,!!!! Line Location: SEQ+8
Function Call: WRITE	Prompt: ! Line Location: DIE+1
Routine Call	DIE Line Location: DEFER+7 ALTREC+8 ALTREC+15 NUMBER+11 DIE+6
Routine Call	DIC Line Location: START+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACHSDEN - [#9002071]	Classic Fileman Calls
^ACHSDENR - [#9002072]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	START+1, START+3, P1A+17, P2+2, DOS+4, DOS+9*, SEQ+4
^ACHSDENR - [#9002072]	NUMBER+11, SEQ+1*
^AUPNPAT - [#9000001]	P1A+3, P1A+7
^AUTTLOC - [#9999999.06]	P1A+3
^DD("DD"	DOS+7
^DIC(4 - [#4]	P1A+7
^DIC(5 - [#5]	P1A+23
^DPT - [#2]	P1+6, P1A+20, P1A+21

Label References

Name	Line Occurrences
$$DIE	START+14, P1A+10, P1A+13, P1A+17, P2+1, P2+2, DOS+8, DOR+1, SEQ+7
$$GETFY	NUMBER+4
$$R	P1A+4, P1A+5, P1A+8
ALTREC	ALTREC+15, ALTREC+20
DEFER	P3+1, DOS+9
DOR	DOR+4, ALTREC+10
DOS	DOS+16, DOS+19, DOR+2
END	SITE+6, START+10, START+14, PAT+7, P1A+3, P1A+13, P1A+17, P2+1, P2+2, DOS+8 , DOR+1, KILL+5
KILL	P1+14
NUMBER	ALTREC+22
P1	PAT+2, PAT+8
P1A	P1+3
P2	PAT+1, PAT+9
P3	P1A+25
PAT	P1+4, P1+8, P3+4, DEFER+10, ALTREC+18
SEQ	SEQ+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	P1A+3, P1A+9, P1A+10, DIE+1*
A	END+1!
ACHD	END+1!
ACHD("AREA"	SEQ+2
ACHD("FAC"	SEQ+2
ACHDDOS	DOS+10, NUMBER+1~, NUMBER+3, NUMBER+4, NUMBER+7
ACHDFY	NUMBER+1~, NUMBER+4, NUMBER+5, NUMBER+10, NUMBER+11, SEQ+1, SEQ+2
ACHDMSG	NUMBER+1~, NUMBER+12, SEQ+4
ACHDNUM	NUMBER+1~, SEQ+2*, SEQ+4, SEQ+7, SEQ+8
ACHDPAT	END+3!
ACHDQTR	NUMBER+1~, NUMBER+5, NUMBER+7, NUMBER+8, SEQ+2
ACHDREG	SITE+3*, PAT+1, PAT+2, END+1!
ACHDSEQ	NUMBER+1~, SEQ+1*, SEQ+2
ACHS	END+3!
ACHS("NOTSET"	SITE+6
ACHSA	START+11*, P1A+17, P2+2, DEFER+6, DOS+4, DOS+9, ALTREC+7, ALTREC+15, END+3!, KILL+1 , DIE+2
ACHSDES	END+3!
ACHSEDOS	END+3!
ACHSERR	SITE+3, ALTREC+20, END+3!
ACHSESDO	END+3!
ACHSHRN	END+3!
ACHSPROV	END+3!
ACHSREF	P1+3*, DOS+5, DOS+9!, END+3!, SEQ+10
ACHSREF(1105	DOS+6
ACHSREF(1106	DOS+6
ACHSRMPC	END+3!
ACHSTYP	END+3!
>> AUPNX	P1+7*
C	END+3!, R~, R+1
DA	START+1!, DEFER+6, ALTREC+7, ALTREC+15, END+1!, KILL+1, NUMBER+11, DIE+2*
DA(1	START+6, KILL+1, DIE+3*
DFN	P1+3, P1+5, P1+6, P1+8, P1+14, P1A+3, P1A+7, P1A+13, P1A+20, P1A+21 , END+1!
DIC	START+5!, START+6*, START+9!, END+1!
DIC(0	START+7*
DIE	DEFER+2, ALTREC+6, ALTREC+15, END+1!, NUMBER+11, DIE+4*
DIK	START+1!, END+1!, KILL+1
DIK(1	START+1*
DLAYGO	END+1!
DR	DEFER+5, DOS+4, DOS+7, DOS+8, ALTREC+5, ALTREC+15, END+1!, NUMBER+11, DIE~
DR(2	NUMBER+11*
DT	START+14, DOS+14, SEQ+7, GETFY+3
DTOUT	PAT+7, P1+14, P1A+3, ALTREC+18, END+1!
DUOUT	PAT+7, P1+4, P1+14, P1A+3, ALTREC+18, END+1!, DIE+5, DIE+7
DUZ	START+14, SEQ+7
DUZ(2	START+1, START+3, START+6, P1A+3, P1A+17, P2+2, DEFER+2, DOS+4, DOS+9, ALTREC+6 , ALTREC+15, KILL+1, NUMBER+11, SEQ+1, SEQ+4, DIE+3, DIE+4
INS	END+3!
IOF	SEQ+8
>> J	P1A+6, P1A+7
N	R~, R+1
U	P1A+3, P1A+7, P1A+21, P1A+22, P1A+23, P1A+24, P2+2, DOS+4, DOS+9, NUMBER+5 , SEQ+1, GETFY+10
W	GETFY+1~, GETFY+10*
X	START+8, P1A+20, P1A+22, P1A+23, P1A+24, DOS+14, DOS+16, ALTREC+15, NUMBER+7*, GETFY~ , GETFY+10
>> X1	DOS+14*
>> X2	DOS+14*
Y	START+10, START+11, PAT+6, PAT+8, P1A+21, P1A+22, DEFER+10, DOS+4, DOS+5, DOS+6 , DOS+7, DOS+9!, DOR+2, ALTREC+10, ALTREC+15, END+3!, NUMBER+6, NUMBER+7, NUMBER+8, GETFY+1~ , GETFY+3, GETFY+4, GETFY+10, GETFY+12
Y1	END+3!
Z	DIE~, DIE+1, GETFY+1~, GETFY+10*, GETFY+12, GETFY+13

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDN

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: