Routine: ACHSDADP

Package	Total	Call Graph
Contract Health Management Information System	3	($$DIR,$$DN,$$LOCK,RTRN,VIDEO)^ACHS ($$LINK,APPEAL)^ACHSBMC ^ACHSDLK
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	^DIE $$GET1^DIQ

Package

Total

Call Graph

Contract Health Management Information System

($$DIR,$$DN,$$LOCK,RTRN,VIDEO)^ACHS ($$LINK,APPEAL)^ACHSBMC ^ACHSDLK

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

VA Fileman

^DIE $$GET1^DIQ

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS DEN APPEAL EDIT

Package

Total

Caller Graph

Contract Health Management Information System

ACHS DEN APPEAL EDIT

Entry Points

Name	Comments	DBIA/ICR reference
11	;
10	;
P1	; --- Display Page 1
END	;
HDR	;
REF	;UPDATE REFERRAL IF DENIAL EXIST AND LINK IS ON
DSP	; --- Display
12	;
DIE(DR)	; --- Edit appropriate fields in Denial
9	;
8	; --- Other Resources
APPEAL	;--ENTER OR EDIT APPEAL TRANSACTIONS--
TOF	;

External References

Name	Field # of Occurrence
$$DIR^ACHS	P1+45
$$DN^ACHS	HDR+1, HDR+3, P1+2, P1+3, P1+4, P1+5, P1+6, P1+7, P1+9, P1+11 , P1+12, P1+16, P1+31, P1+37, APPEAL+10
$$LOCK^ACHS	DIE+5, DIE+9
RTRN^ACHS	ACHSDADP+9
VIDEO^ACHS	DSP+1
$$LINK^ACHSBMC	REF+2
APPEAL^ACHSBMC	REF+4
^ACHSDLK	ACHSDADP+8
^DIE	DIE+6
$$GET1^DIQ	APPEAL+12, APPEAL+13, APPEAL+14, APPEAL+15
$$FMTE^XLFDT	P1+4, P1+6, P1+7
$$REPEAT^XLFSTR	HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: TOF+3
Function Call: WRITE	Prompt: IORVON,!?79,!,"CHS DENIAL DISPLAY",?25,"PATIENT: ",$E(ACHDPAT,1,25),?62,"CHART#: " Line Location: HDR+2
Function Call: WRITE	Prompt: $P($G(^AUPNPAT($$DN^ACHS(0,7),41,DUZ(2),0)),U,2) Line Location: HDR+3
Function Call: WRITE	Prompt: "NONE" Line Location: HDR+4
Function Call: WRITE	Prompt: !?79,IORVOFF,!,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+5
Function Call: WRITE	Prompt: IORVOFF Line Location: P1+1
Function Call: WRITE	Prompt: "DENIAL NO: ",$$DN^ACHS(0,1),?45,"DENIAL STATUS: ",$S(STATUS="":"Active",STATUS="Y":"Canceled",STATUS="R":"Reversed"),! Line Location: P1+3
Function Call: WRITE	Prompt: "DATE ISSUED: ",$$FMTE^XLFDT($$DN^ACHS(0,2)) Line Location: P1+4
Function Call: WRITE	Prompt: ?45,"ISSUED BY: ",$E($P($G(^VA(200,$$DN^ACHS(0,3),0)),U),1,25) Line Location: P1+5
Function Call: WRITE	Prompt: !!,"1. DATE MED SVC: ",$$FMTE^XLFDT($$DN^ACHS(0,4)) Line Location: P1+6
Function Call: WRITE	Prompt: ?43,"2. DATE OF REQUEST: ",$$FMTE^XLFDT($$DN^ACHS(0,5)) Line Location: P1+7
Function Call: WRITE	Prompt: !,"4. VISIT TYPE: ",$S(%="O":"OUTPATIENT",%="I":"INPATIENT",%="A":"AMBULANCE",%="P":"PATIENT ESCORT",%="D":"DENTAL",1:"UNKNOWN") Line Location: P1+14
Function Call: WRITE	Prompt: !!,"5. PRIMARY PROVIDER: ",?25,$S($$DN^ACHS(100,1)="Y":$P($G(^AUTTVNDR($$DN^ACHS(100,2),0)),U),1:$$DN^ACHS(100,3)) Line Location: P1+16
Function Call: WRITE	Prompt: !,"6. SECONDARY PROVIDERS: " Line Location: P1+18
Function Call: WRITE	Prompt: ?25,ACHSPROF(ACHSJ),! Line Location: P1+24
Function Call: WRITE	Prompt: ?25,ACHSPRNF(ACHSJ),! Line Location: P1+29
Function Call: WRITE	Prompt: !,"7. PRIMARY DENIAL REASON: " Line Location: P1+31
Function Call: WRITE	Prompt: $P($G(^ACHSDENS(%,0)),U) Line Location: P1+31
Function Call: WRITE	Prompt: !,"8. *OTHER RESOURCES: ",$S($P($G(^ACHSDEN(DUZ(2),"D",ACHSA,800,0)),U,4):"YES",1:"NONE") Line Location: P1+33
Function Call: WRITE	Prompt: ?43,"9. *OTHER IHS RESOURCES: ",$S($P($G(^ACHSDEN(DUZ(2),"D",ACHSA,825,0)),U,4):"YES",1:"NONE") Line Location: P1+35
Function Call: WRITE	Prompt: !,"12. *CHS OFFICE COMMENTS: ",$S($D(^ACHSDEN(DUZ(2),"D",ACHSA,900,0)):"YES",1:"NONE") Line Location: P1+41
Function Call: WRITE	Prompt: !?15,IORVON,"*",IORVOFF," - CHOOSE THESE FIELDS TO SEE FURTHER INFORMATION",! Line Location: P1+43
Function Call: WRITE	Prompt: !! Line Location: 8+1
Function Call: WRITE	Prompt: !! Line Location: 9+1
Function Call: WRITE	Prompt: @IOF Line Location: 10+3
Function Call: WRITE	Prompt: ?20,"APPEAL TRANSACTION MENU",! Line Location: 10+4
Function Call: WRITE	Prompt: @IOF Line Location: 11+1
Function Call: WRITE	Prompt: ?20,"APPEAL TRANSACTION MENU",! Line Location: 11+2
Function Call: WRITE	Prompt: !! Line Location: 12+1
Function Call: WRITE	Prompt: !! Line Location: DIE+1
Routine Call	DIE Line Location: DIE+6

FileNo	Call Tags
^ACHSDENA - [#9002074]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	TOF+2, P1+21, P1+22, P1+27, P1+28, P1+33, P1+35, P1+39, P1+40, P1+41 , APPEAL+2, APPEAL+7, APPEAL+8, APPEAL+9, APPEAL+12, APPEAL+13, APPEAL+14, APPEAL+15*, REF+4
^ACHSDENA - [#9002074]	P1+38
^ACHSDENS - [#9002073]	P1+31
^ACHSMPRI - [#9002073.1]	P1+11
^AUPNPAT - [#9000001]	HDR+3
^AUTTVNDR - [#9999999.11]	P1+16, P1+23
^DPT - [#2]	HDR+1
^VA(200 - [#200]	P1+5

Name	Line Occurrences
$$DIE	8+2, 9+2, 10+5, 11+3, 12+2
@(	P1+49
APPEAL	DIE+8
HDR	DSP+4
P1	DSP+4
REF	DIE+8
TOF	DSP+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	P1+12, P1+14, P1+31, P1+37, P1+38, P1+39, P1+40, P1+45, P1+47, P1+48 , P1+49, APPEAL+10, APPEAL+11, APPEAL+12, APPEAL+13, APPEAL+14, APPEAL+15
>> ACHDLKER	ACHSDADP+9
>> ACHDOCT	ACHSDADP+7*
>> ACHDPAT	HDR+1*, HDR+2
>> ACHSA	ACHSDADP+10, TOF+1, TOF+2, P1+21, P1+22, P1+27, P1+28, P1+33, P1+35, P1+39 , P1+40, P1+41, DIE+2, APPEAL+2, APPEAL+7, APPEAL+8, APPEAL+9, APPEAL+11, APPEAL+12, APPEAL+13 , APPEAL+14, APPEAL+15, REF+4
>> ACHSDEN(	APPEAL+11*
>> ACHSDREC	APPEAL+2*, APPEAL+7, APPEAL+9
ACHSI	END+1!, P1+20, P1+21, P1+22, P1+26, P1+27, P1+28
ACHSJ	END+1!, P1+21, P1+22, P1+23, P1+24, P1+27, P1+28, P1+29
ACHSMPRI	END+1!, P1+9*, P1+11
ACHSPRNF	END+1!
ACHSPRNF(	P1+28*, P1+29
ACHSPROF	END+1!
ACHSPROF(	P1+22, P1+23, P1+24
ACHSREC	REF+3, REF+4, REF+5!
>> ACHSTREC	APPEAL+1*, APPEAL+7, APPEAL+8, APPEAL+9
>> D	APPEAL+1
>> D1	REF+4
>> DA	ACHSDADP+10, DIE+2
>> DA(1	DIE+3*
DFN	ACHSDADP+7!
>> DIE	DIE+4*
DR	DIE~, DIE+8
>> DTOUT	P1+48
>> DUOUT	DSP+5, P1+47, P1+48, 8+2, 9+2, 10+5, 11+3, 12+2
DUZ(2	TOF+2, HDR+3, P1+21, P1+22, P1+27, P1+28, P1+33, P1+35, P1+39, P1+40 , P1+41, DIE+3, DIE+4, APPEAL+2, APPEAL+7, APPEAL+8, APPEAL+9, APPEAL+11, APPEAL+12, APPEAL+13 , APPEAL+14, APPEAL+15, REF+4
IOF	TOF+3, 10+3, 11+1
>> IORVOFF	DSP+3*, HDR+5, P1+1, P1+38, P1+43
>> IORVON	DSP+2*, HDR+2, P1+38, P1+43
>> STATUS	P1+2*, P1+3
U	HDR+1, HDR+3, P1+5, P1+11, P1+16, P1+22, P1+23, P1+28, P1+31, P1+33 , P1+35, P1+38, P1+39, P1+40, APPEAL+1, APPEAL+2, APPEAL+7, APPEAL+8, APPEAL+9, APPEAL+11 , APPEAL+12, APPEAL+13, APPEAL+14, APPEAL+15

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDADP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: