Routine: ACHSDN2

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Contract Health Management Information System	4	($$DN,$$LOCK,$$ZEROTH,ERPT,RTRN)^ACHS ^ACHSDLK $$DIE^ACHSDN (TYPOTH,TYPPRI)^ACHSDN2A
VA Fileman	4	^DIC ^DIE EN^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Contract Health Management Information System	8	ACHS DEN APPEAL ACHS DEN DOCNTL ACHS DEN DOCUMENT ACHSDENDOCUMENT ACHSDENEDIT ACHSDENMENU ACHSDN1 ACHSDN4

Package

Total

Caller Graph

Contract Health Management Information System

ACHS DEN APPEAL ACHS DEN DOCNTL ACHS DEN DOCUMENT ACHSDENDOCUMENT ACHSDENEDIT ACHSDENMENU ACHSDN1 ACHSDN4

Entry Points

Name	Comments	DBIA/ICR reference
Q1	;
OTHREA1	; --- Other Denial Reason : Comment
REASLST	; --- Display the other Denials entered.
OTHREAS	;EP-ACHSDN4
REAS1	;
DUMP	;EP - From Option.
DICOPT(X,R)	; --- Select Denial reason Option.
DICREA(R)	; --- Select Denial Reason.
K	;
OPTCK(T)	; CHECK FOR OPTIONS ALREADY SELECTED ;ACHS3.119 NEW SECTION
DEV	; --- Select print device
PRIORCK	;EP - Enter Priority Category.
REASON	;EP - Enter Denial Reasons.
DEL	; DELETE REASON IF NO ^ OUT OF OPTION
START	;EP - TaskMan.
APPEAL	;EP - From Option.
DOCNTL	;EP - From Option.
REASERR	;
REASCK()	; --- Check if the Denial reason has already been entered.
REAOPT	;EP-ACHSDN4 ;ACHS3.118
OTHREAO	;EP-ACHSDN4 ;ACHS3.118

External References

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+3, DEV+10
^%ZISC	DEV+6, DEV+10, K+2
^%ZTLOAD	DEV+14
$$DN^ACHS	PRIORCK+1, REAS1+3, REASCK+9, REASCK+10
$$LOCK^ACHS	OTHREA1+7, OTHREA1+9, OTHREAO+19, OTHREAO+21
$$ZEROTH^ACHS	OTHREAS+9
ERPT^ACHS	K+2
RTRN^ACHS	APPEAL+10
^ACHSDLK	DUMP+10
$$DIE^ACHSDN	REAS1+13, REAOPT+5, REAOPT+12, DOCNTL+8
TYPOTH^ACHSDN2A	OTHREAO+27
TYPPRI^ACHSDN2A	REAOPT+11
^DIC	DOCNTL+5, APPEAL+5, APPEAL+8
^DIE	OTHREA1+8, OTHREAO+20, APPEAL+12, DEL+7
EN^DIQ	START+4
^DIR	DICREA+14, DICOPT+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"If the PROVIDER (vendor) is in the CHS VENDOR FILE,",!,"answer 'Y'. If not, answer 'N'.",!! Line Location: Q1+1
Function Call: WRITE	Prompt: !!,*7,"A PRIORITY CATEGORY is required - try again." Line Location: PRIORCK+3
Function Call: WRITE	Prompt: !!,"Primary Denial Reason: ",$P($G(^ACHSDENS($$DN^ACHS(250,1),0)),U) Line Location: REAS1+3
Function Call: WRITE	Prompt: !,"Must select an option for this Denial Reason." Line Location: REAOPT+3
Function Call: WRITE	Prompt: !!,"YOUR ENTRY WAS NOT ACCEPTED",!,"PLEASE TRY AGAIN.",!! Line Location: OTHREAS+14
Function Call: WRITE	Prompt: ! Line Location: OTHREA1+1
Function Call: WRITE	Prompt: !,"Must select an option for this Denial Reason." Line Location: OTHREAO+12
Function Call: WRITE	Prompt: !!,7,7,*7,"A Primary Denial Reason Must Be Entered",!,"Please Try Again.",! Line Location: REASERR+1
Function Call: WRITE	Prompt: !!?3,"Denial Reason List:" Line Location: DICREA+4
Function Call: WRITE	Prompt: !?5,CT,". ",$P(^ACHSDENS(X,0),U) Line Location: DICREA+7
Function Call: WRITE	Prompt: !,"No active Denial Reasons" Line Location: DICREA+9
Function Call: WRITE	Prompt: ! Line Location: DICREA+10
Function Call: WRITE	Prompt: !!?3,"Denial Reason Option list:" Line Location: DICOPT+3
Function Call: WRITE	Prompt: !?5,CT,". ",$P(^ACHSDENS(X,20,X1,0),U) Line Location: DICOPT+7
Function Call: WRITE	Prompt: !,"No active Denial Reasons Options" Line Location: DICOPT+9
Function Call: WRITE	Prompt: ! Line Location: DICOPT+10
Function Call: WRITE	Prompt: !!?5,"SELECTED Primary Denial Reason: " Line Location: REASLST+3
Function Call: WRITE	Prompt: !?5,"SELECTED Other Denial Reasons: " Line Location: REASLST+15
Function Call: WRITE	Prompt: !!,7,7,"DENIAL REASON/OPTIONS ALREADY SELECTED.",!! Line Location: REASCK+9
Function Call: WRITE	Prompt: !!?5,"ALL DENIAL REASON/OPTIONS ALREADY SELECTED. Need to select another.",!! Line Location: REASCK+14
Function Call: WRITE	Prompt: !!,7,7,"DENIAL REASON OPTION ALREADY SELECTED.",!! Line Location: OPTCK+2
Function Call: WRITE	Prompt: !!,7,7,"DENIAL REASON OPTION ALREADY SELECTED.....",!! Line Location: OPTCK+6
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+6
Function Call: WRITE	Prompt: @IOF Line Location: START+5
Function Call: WRITE	Prompt: !! Line Location: APPEAL+1
Function Call: WRITE	Prompt: !!,?5,"No alternate resource info found.",! Line Location: APPEAL+10
Routine Call	%ZIS Line Location: DEV+3 DEV+10
Routine Call	DIE Line Location: OTHREA1+8 OTHREAO+20 APPEAL+12 DEL+7
Routine Call	DIC Line Location: DOCNTL+5 APPEAL+5 APPEAL+8
Routine Call	DIR Line Location: DICREA+14 DICOPT+13
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	OTHREAS+1, OTHREAS+9, OTHREAS+10, OTHREAS+11, OTHREAS+12, OTHREAS+13, OTHREAS+14, OTHREA1+10!, OTHREAO+9, OTHREAO+11 , OTHREAO+22, REASLST+4, REASLST+5, REASLST+11, REASLST+12, REASLST+13, REASLST+17, REASLST+18, REASLST+24, REASLST+25 , REASLST+26, REASCK+11, REASCK+12, OPTCK+2, OPTCK+3, OPTCK+5, OPTCK+6, DEV+12
^ACHSDENS - [#9002073]	REAS1+3, REAS1+12, OTHREAS+7, OTHREAS+18, OTHREAO+11, DICREA+5, DICREA+6, DICREA+7, DICREA+8, DICOPT+1 , DICOPT+5, DICOPT+6, DICOPT+7, DICOPT+8, REASLST+7, REASLST+8, REASLST+10, REASLST+11, REASLST+14, REASLST+20 , REASLST+21, REASLST+23, REASLST+24, REASLST+27, REASCK+5, REASCK+6

Label References

Name	Line Occurrences
$$DICOPT	REAOPT+1, OTHREAO+2
$$DICREA	REAS1+4, OTHREAS+2
$$OPTCK	REAOPT+2, OTHREAO+3
$$REASCK	REAS1+6, OTHREAS+8
DEL	OTHREAO+5, OTHREAO+10, OTHREAO+11
DEV	DEV+6, DEV+15
K	DUMP+11, DEV+3, DEV+17
OTHREA1	OTHREAO+13
OTHREAO	OTHREAS+18, OTHREAO+3, OTHREAO+12
OTHREAS	REASON+2, REAS1+3, OTHREAS+8, OTHREAS+14, OTHREA1+12, OTHREAO+5
REAOPT	REAOPT+2, REAOPT+3
REAS1	REASON+2, REAS1+6
REASERR	REAS1+8
REASLST	OTHREAS+1
REASON	REAS1+8
START	DEV+4

Name	Field # of Occurrence
^(0	DICOPT+6, REASCK+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+13*
>> %ZIS	DEV+1*
>> ACHD("DA"	DUMP+12*, DEV+12, START+3, K+1!
>> ACHDENO(	DICOPT+8*, DICOPT+14
>> ACHDENR	REAS1+9*, REAS1+11, REAS1+12, REAS1+13, REAOPT+1
>> ACHDENS(	DICREA+8*, DICREA+15
>> ACHDIO	START+5
>> ACHDLKER	DUMP+11
>> ACHDOCT	DUMP+9*
>> ACHDOPTR	REASON+1*, REAS1+3, REAS1+6, REAOPT+2, OTHREA1+10, OTHREA1+11, OTHREAO+5, OTHREAO+6, REASCK+9, OPTCK+4
>> ACHDOREO	OTHREAS+7*, OTHREAO+8, OTHREAO+11, OTHREAO+12, OTHREAO+27
ACHDORNM	REASON+1~, OTHREAS+10*, OTHREAS+11, OTHREAS+12, OTHREAS+13, OTHREAS+14, OTHREA1+5, OTHREAO+9, OTHREAO+11, OTHREAO+17 , OTHREAO+22, OPTCK+4, DEL+5
ACHDOTR	REASON+1~, OTHREAS+6*, OTHREAS+7, OTHREAS+11, OTHREAS+12, OTHREAS+18, OTHREAO+2, OTHREAO+11, REASCK+5, REASCK+6 , REASCK+9, REASCK+10, REASCK+12, OPTCK+2, OPTCK+5
>> ACHDROPT	REAS1+2, REAOPT+4, OTHREAO+9, OTHREAO+10, OTHREAO+11, OTHREAO+22
ACHSA	OTHREAS+1, OTHREAS+9, OTHREAS+10, OTHREAS+11, OTHREAS+12, OTHREAS+13, OTHREAS+14, OTHREA1+2, OTHREA1+4, OTHREA1+10 , OTHREAO+9, OTHREAO+11, OTHREAO+14, OTHREAO+16, OTHREAO+22, REASLST+4, REASLST+5, REASLST+11, REASLST+12, REASLST+13 , REASLST+17, REASLST+18, REASLST+24, REASLST+25, REASLST+26, REASCK+11, REASCK+12, OPTCK+2, OPTCK+3, OPTCK+5 , OPTCK+6, DUMP+12, DOCNTL+1~, DOCNTL+7*, DEL+2, DEL+4
ACHSDENO	DICOPT+16!
>> ACHSDREA	REAS1+12*, REAOPT+3, REAOPT+11
>> ACHSERR	REAS1+7*
>> ACHSQUIT	OTHREAO+27
>> ACHSREF	REAS1+11
>> ACHSREF(1114	REAS1+11*
>> CT	DICREA+3, DICREA+7, DICREA+8, DICREA+9, DICREA+12, DICOPT+4, DICOPT+7, DICOPT+8, DICOPT+9, DICOPT+11
DA	OTHREA1+5, OTHREAO+17, START+3, DOCNTL+1~, APPEAL+11, DEL+5*
DA(1	OTHREA1+4, OTHREAO+16, DOCNTL+3, APPEAL+3, DEL+4*
DA(2	OTHREA1+3, OTHREAO+15, DEL+3*
DIC	START+3, DOCNTL+1~, DOCNTL+2, APPEAL+2, APPEAL+7, APPEAL+11
DIC(0	DOCNTL+4, APPEAL+4
DIE	OTHREA1+2, OTHREAO+14, DOCNTL+1~, APPEAL+11, DEL+2
DIR	DICREA+11!
DIR("A"	DICREA+13, DICOPT+12
DIR(0	DICREA+12, DICOPT+11
>> DR	OTHREA1+6, OTHREAO+18, APPEAL+11, DEL+6
>> DR(1	APPEAL+11*
DT	DICREA+6, DICOPT+6, REASCK+6
>> DTOUT	REAOPT+11, OTHREAO+27
>> DUOUT	REASON+2, REAS1+7, REAS1+14, REAOPT+11, OTHREAS+3, OTHREAO+5, OTHREAO+6, OTHREAO+27
DUZ(2	OTHREAS+1, OTHREAS+9, OTHREAS+10, OTHREAS+11, OTHREAS+12, OTHREAS+13, OTHREAS+14, OTHREA1+2, OTHREA1+3, OTHREA1+10 , OTHREAO+9, OTHREAO+11, OTHREAO+14, OTHREAO+15, OTHREAO+22, REASLST+4, REASLST+5, REASLST+11, REASLST+12, REASLST+13 , REASLST+17, REASLST+18, REASLST+24, REASLST+25, REASLST+26, REASCK+11, REASCK+12, OPTCK+2, OPTCK+3, OPTCK+5 , OPTCK+6, DEV+12, START+3, DOCNTL+2, DOCNTL+3, APPEAL+2, APPEAL+3, DEL+2, DEL+3
IO	START+2, START+5
IO("Q"	DEV+4, DEV+5!
IO("S"	DEV+6, START+1
IOF	START+5
ION	DEV+9
IOSL	START+1*
IOST	DEV+6
>> L	REASCK+11*, REASCK+12
>> POP	DEV+3
R	DICREA~, DICREA+13, DICOPT~, DICOPT+12
>> R1	REASLST+12, REASLST+13, REASLST+25, REASLST+26
>> R2	REASLST+13, REASLST+14, REASLST+26, REASLST+27
T	OPTCK~, OPTCK+2
U	REAS1+3, REAS1+12, OTHREAS+3, OTHREAS+7, OTHREAS+10, OTHREAS+13, OTHREAO+9, OTHREAO+11, OTHREAO+22, DICREA+6 , DICREA+7, DICREA+8, DICOPT+6, DICOPT+7, DICOPT+8, REASLST+5, REASLST+8, REASLST+10, REASLST+11, REASLST+13 , REASLST+14, REASLST+18, REASLST+21, REASLST+23, REASLST+24, REASLST+26, REASLST+27, REASCK+6, REASCK+12, OPTCK+2 , OPTCK+5, OPTCK+6, DEV+12
X	OTHREAS+3, DICREA+2~, DICREA+3, DICREA+5, DICREA+6, DICREA+7, DICREA+8, DICOPT~, DICOPT+1, DICOPT+5 , DICOPT+6, DICOPT+7, DICOPT+8, REASLST+2~, REASLST+16, REASLST+17, REASLST+18, REASLST+24, REASLST+25, REASLST+26 , REASCK+2~, REASCK+3, REASCK+5, REASCK+6, REASCK+10, REASCK+12, REASCK+13, OPTCK+1, OPTCK+3, OPTCK+4 , OPTCK+5, OPTCK+6
X1	DICOPT+4, DICOPT+5, DICOPT+6, DICOPT+7, DICOPT+8, REASCK+2~, REASCK+3, REASCK+7, REASCK+9, REASCK+13 , OPTCK+1, OPTCK+2, OPTCK+3, OPTCK+6*, OPTCK+7
Y	PRIORCK+1, PRIORCK+2, REAS1+4, REAS1+8, REAS1+9, REAS1+14, REAOPT+1, REAOPT+2, REAOPT+3, REAOPT+4 , REAOPT+5, OTHREAS+2, OTHREAS+4, OTHREAS+6, OTHREAO+2, OTHREAO+12, OTHREAO+13, OTHREAO+18, DICREA+9, DICREA+15 , DICREA+16, DICREA+17, DICOPT+9, DICOPT+14, DICOPT+15, DICOPT+17, REASLST+2~, REASLST+5, REASLST+6, REASLST+7 , REASLST+8, REASLST+10, REASLST+11, REASLST+14, REASLST+18, REASLST+19, REASLST+20, REASLST+21, REASLST+23, REASLST+24 , REASLST+27, REASCK+2~, REASCK+3*, REASCK+13, OPTCK+2, OPTCK+6, DOCNTL+6, DOCNTL+7, APPEAL+6, APPEAL+7 , APPEAL+10, APPEAL+11
Y1	REASLST+2~, REASLST+5, REASLST+9, REASLST+10, REASLST+11, REASLST+18, REASLST+22, REASLST+23, REASLST+24
>> ZTDESC	DEV+12*
>> ZTIO	DEV+9*
>> ZTRTN	DEV+12*
>> ZTSAVE(	DEV+13*
ZTSK	DEV+15, DEV+16!, K+2

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDN2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: