Routine: ACHSDNDP

Package	Total	Call Graph
Contract Health Management Information System	3	($$DIR,$$DN,$$LOCK,VIDEO)^ACHS ^ACHSDN3 ^ACHSDN4
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
VA Fileman	1	^DIE

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDN

Entry Points

Name	Comments	DBIA/ICR reference
P1	; --- Display Page 1
END	;
HDR	;
DIE(DR)	; --- Edit appropriate fields in Denial
DSP	; --- Display
1	; --- Date of Service
3	; --- Medical priority
2	; --- Date of Request
5	; --- Primary Provider
4	; --- Service Type
7	; --- Denial Reasons
6	; --- Diagnosis
9	;
8	; --- Other Resources
TOF	;

External References

Name	Field # of Occurrence
$$DIR^ACHS	P1+24
$$DN^ACHS	HDR+1, HDR+3, P1+1, P1+2, P1+3, P1+4, P1+5, P1+6, P1+10, P1+16
$$LOCK^ACHS	DIE+5, DIE+7
VIDEO^ACHS	DSP+1
^ACHSDN3	5+1
^ACHSDN4	7+2
^DIE	DIE+6
$$FMTE^XLFDT	P1+1, P1+3, P1+4
$$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: "DATE ISSUED: ",$$FMTE^XLFDT($$DN^ACHS(0,2)) Line Location: P1+1
Function Call: WRITE	Prompt: ?45,"ISSUED BY: ",$E($P($G(^VA(200,$$DN^ACHS(0,3),0)),U),1,25) Line Location: P1+2
Function Call: WRITE	Prompt: !!,"1. DATE MED SVC: ",IORVON,$$FMTE^XLFDT($$DN^ACHS(0,4)),IORVOFF Line Location: P1+3
Function Call: WRITE	Prompt: ?43,"2. DATE OF REQUEST: ",IORVON,$$FMTE^XLFDT($$DN^ACHS(0,5)),IORVOFF Line Location: P1+4
Function Call: WRITE	Prompt: !!,"3. MEDICAL PRIORITY: ",IORVON,$P($G(^ACHSMPRI($$DN^ACHS(400,2),0)),U),IORVOFF Line Location: P1+5
Function Call: WRITE	Prompt: ?43,"4. VISIT TYPE: ",IORVON,$S(%="O":"OUTPATIENT",%="I":"INPATIENT",%="A":"AMBULANCE",%="P":"PATIENT ESCORT",%="D":"DENTAL",1:"UNKNOWN"),IORVOFF Line Location: P1+8
Function Call: WRITE	Prompt: !!,"5.*PRIMARY PROVIDER: ",IORVON,$S($$DN^ACHS(100,1)="Y":$P($G(^AUTTVNDR($$DN^ACHS(100,2),0)),U),1:$$DN^ACHS(100,3)),IORVOFF Line Location: P1+10
Function Call: WRITE	Prompt: !!,"6.*DIAGNOSIS: " Line Location: P1+13
Function Call: WRITE	Prompt: IORVON,$S(($D(^ACHSDEN(DUZ(2),"D",ACHSA,500,0))&$D(^ACHSDEN(DUZ(2),"D",ACHSA,700,0))):"ICD/CPT",$D(^ACHSDEN(DUZ(2),"D",ACHSA,500,0)):"ICD",$D(^ACHSDEN(DUZ(2),"D",ACHSA,700,0)):"CPT",1:"NONE"),IORVOFF Line Location: P1+14
Function Call: WRITE	Prompt: !!,"7.*PRIMARY DENIAL REASON: " Line Location: P1+16
Function Call: WRITE	Prompt: IORVON,$P($G(^ACHSDENS(%,0)),U),IORVOFF Line Location: P1+16
Function Call: WRITE	Prompt: !!,"8.*OTHER RESOURCES: ",IORVON,$S($P($G(^ACHSDEN(DUZ(2),"D",ACHSA,800,0)),U,4):"YES",1:"NONE"),IORVOFF Line Location: P1+18
Function Call: WRITE	Prompt: !!,"9. OTHER IHS RESOURCES: ",IORVON,$S($P($G(^ACHSDEN(DUZ(2),"D",ACHSA,825,0)),U,4):"YES",1:"NONE"),IORVOFF Line Location: P1+20
Function Call: WRITE	Prompt: !!!?15,IORVON,"*",IORVOFF," - CHOOSE THESE FIELDS TO SEE FURTHER INFORMATION",!!,IORVON Line Location: P1+22
Function Call: WRITE	Prompt: IORVOFF Line Location: P1+26
Function Call: WRITE	Prompt: !! Line Location: 7+1
Function Call: WRITE	Prompt: !! Line Location: 8+1
Function Call: WRITE	Prompt: !! Line Location: 9+1
Function Call: WRITE	Prompt: !! Line Location: DIE+1
Routine Call	DIE Line Location: DIE+6

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEN - [#9002071]	TOF+2, P1+14, P1+18, P1+20, 6+5
^ACHSDENS - [#9002073]	P1+16
^ACHSMPRI - [#9002073.1]	P1+5
^AUPNPAT - [#9000001]	HDR+3
^AUTTVNDR - [#9999999.11]	P1+10
^DPT - [#2]	HDR+1
^VA(200 - [#200]	P1+2

Name	Line Occurrences
$$DIE	1+1, 2+1, 3+1, 4+1, 6+5, 8+2, 9+2
@(	P1+29
HDR	DSP+4
P1	DSP+4
TOF	DSP+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	P1+6, P1+8, P1+16, P1+24*, P1+27, P1+28, P1+29
>> ACHDPAT	HDR+1*, HDR+2
>> ACHSA	TOF+1, TOF+2, P1+14, P1+18, P1+20, 6+5, DIE+2
>> DA	DIE+2*
>> DA(1	DIE+3*
>> DIE	DIE+4*
DR	DIE~
>> DTOUT	P1+28
>> DUOUT	DSP+5, P1+27, P1+28, 1+1, 2+1, 3+1, 4+1, 6+5, 8+2, 9+2
DUZ(2	TOF+2, HDR+3, P1+14, P1+18, P1+20, 6+5, DIE+3, DIE+4
IOF	TOF+3
>> IORVOFF	DSP+3*, HDR+5, P1+3, P1+4, P1+5, P1+8, P1+10, P1+14, P1+16, P1+18 , P1+20, P1+22, P1+26
>> IORVON	DSP+2*, HDR+2, P1+3, P1+4, P1+5, P1+8, P1+10, P1+14, P1+16, P1+18 , P1+20, P1+22
U	HDR+1, HDR+3, P1+2, P1+5, P1+10, P1+16, P1+18, P1+20
>> X	6+4*, 6+5

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDNDP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: