Routine: ACHSDN

Call Graph

Call Graph Total: 10

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

Package

Total

Caller Graph

Contract Health Management Information System

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

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: