Routine: ACHSDFDP

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE $$GET1^DIQ
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	1	($$DF,$$DIR,VIDEO)^ACHS
IHS VA Utilities	1	$$EXTSET^XBFUNC

Package

Total

Call Graph

VA Fileman

^DIC ^DIE $$GET1^DIQ

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

Contract Health Management Information System

($$DF,$$DIR,VIDEO)^ACHS

IHS VA Utilities

$$EXTSET^XBFUNC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSDF

Package

Total

Caller Graph

Contract Health Management Information System

ACHSDF

Entry Points

Name	Comments	DBIA/ICR reference
END	;
HDR	; --- Screen Header.
DIE(DR)	; --- Edit items in Deferred Service
1	; --- Request Date.
3	; --- Deferred Service Category.
2	; --- Type of Service.
5	; --- Units of Service.
PG	; --- Page Display
7	; --- Deferred Service Comment.
6	; --- Diagnosis / Procedure.
4	; --- Deferred Service Sub Category.

Name	Field # of Occurrence
$$DF^ACHS	HDR+2, HDR+6, PG+2, PG+4, PG+5
$$DIR^ACHS	PG+14
VIDEO^ACHS	ACHSDFDP+7
^DIC	4+5
^DIE	4+11, DIE+5
$$GET1^DIQ	PG+4
$$EXTSET^XBFUNC	PG+6
$$FMTE^XLFDT	PG+2, PG+5
$$REPEAT^XLFSTR	HDR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: IORVON,!?79,! Line Location: HDR+3
Function Call: WRITE	Prompt: "CHS UNMET NEED",?28,"PATIENT: ",$E(ACHDPAT,1,25) Line Location: HDR+5
Function Call: WRITE	Prompt: ?62,"CHART# ",$S($$DF^ACHS(0,5)="Y":$P($G(^AUPNPAT($$DF^ACHS(0,6),41,DUZ(2),0)),U,2),$$DF^ACHS(0,5)="N":$$DF^ACHS(0,12),1:"NONE") Line Location: HDR+6
Function Call: WRITE	Prompt: $J("",79-$X),!?79,IORVOFF,!,$$REPEAT^XLFSTR("=",79),! Line Location: HDR+7
Function Call: WRITE	Prompt: "DATE ISSUED: ",$$FMTE^XLFDT($$DF^ACHS(0,2)) Line Location: PG+2
Function Call: WRITE	Prompt: ?45,"ISSUED BY: ",$E($$GET1^DIQ(200,$$DF^ACHS(0,3),.01),1,25),! Line Location: PG+4
Function Call: WRITE	Prompt: !,"1. DATE OF REQUEST: ",IORVON,$$FMTE^XLFDT($$DF^ACHS(0,4)),IORVOFF Line Location: PG+5
Function Call: WRITE	Prompt: ?45,"2. TYPE: ",IORVON,$$EXTSET^XBFUNC(9002066.01,110,$P(ACHDFDP,U,2)),IORVOFF Line Location: PG+6
Function Call: WRITE	Prompt: !!,"3. CATEGORY: ",IORVON," ",$P($G(^ACHSDFC($P(ACHDFDP,U),0)),U)," ",IORVOFF Line Location: PG+7
Function Call: WRITE	Prompt: !!,"4. SUB-CATEGORY: ",IORVON,$P($G(^ACHSDFC($P(ACHDFDP,U),1,$P(ACHDFDP,U,4),0)),U)," ",IORVOFF Line Location: PG+8
Function Call: WRITE	Prompt: !!,"5. UNITS OF SERVICE: ",IORVON," ",$P(ACHDFDP,U,3)," ",IORVOFF Line Location: PG+9
Function Call: WRITE	Prompt: !!,"6.*DIAGNOSIS / PROCEDURE: ",IORVON,$S($O(^ACHSDEF(DUZ(2),"D",ACHSA,200,0)):" ICD9",1:""),$S($O(^ACHSDEF(DUZ(2),"D",ACHSA,300,0)):" CPT",1:""),IORVOFF Line Location: PG+10
Function Call: WRITE	Prompt: !!,"7.*UNMET NEED COMMENT: ",IORVON,$S($D(^ACHSDEF(DUZ(2),"D",ACHSA,400,0)):"YES",1:"NONE"),IORVOFF Line Location: PG+12
Function Call: WRITE	Prompt: !!,IORVON," * ",IORVOFF," - CHOOSE THESE TO SEE FURTHER INFORMATION" Line Location: PG+13
Function Call: WRITE	Prompt: !! Line Location: DIE+1
Routine Call	DIE Line Location: 4+11 DIE+5
Routine Call	DIC Line Location: 4+5

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEF - [#9002066]	ACHSDFDP+5, ACHSDFDP+6, PG+1, PG+10, PG+12, 6+1, 6+2
^ACHSDFC - [#9002066.5]	PG+7, PG+8
^AUPNPAT - [#9000001]	HDR+6
^DPT - [#2]	HDR+2

Name	Line Occurrences
@(	PG+17
DIE	1+1, 2+1, 3+1, 5+1, 6+1, 6+2, 7+1
HDR	ACHSDFDP+12
PG	ACHSDFDP+12

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PG+14*, PG+15
ACHDFDP	ACHSDFDP+11~, PG+1*, PG+6, PG+7, PG+8, PG+9, 4+2, 4+4, 6+1, 6+2
>> ACHDONE	ACHSDFDP+12, PG+15*
>> ACHDPAT	HDR+2*, HDR+5
>> ACHSA	ACHSDFDP+4, ACHSDFDP+6, PG+1, PG+10, PG+12, 4+9, 6+1, 6+2, DIE+4
DA	4+9, 4+12!, DIE+4, DIE+6!
DA(1	4+8, DIE+3
DIC	4+1~, 4+2*, 4+12!
DIC("B"	4+4*
DIC(0	4+3*
DIE	4+7, 4+12!, DIE+2, DIE+6!
DR	4+10*, DIE~
>> DTOUT	ACHSDFDP+12, PG+16
>> DUOUT	ACHSDFDP+12, PG+16
DUZ(2	ACHSDFDP+5, ACHSDFDP+6, HDR+6, PG+1, PG+10, PG+12, 4+7, 4+8, 6+1, 6+2 , DIE+2, DIE+3
IOF	HDR+1
>> IORVOFF	ACHSDFDP+9*, HDR+7, PG+5, PG+6, PG+7, PG+8, PG+9, PG+10, PG+12, PG+13
>> IORVON	ACHSDFDP+8*, HDR+3, PG+5, PG+6, PG+7, PG+8, PG+9, PG+10, PG+12, PG+13
U	HDR+2, HDR+6, PG+6, PG+7, PG+8, PG+9, 4+2, 4+4, 6+1, 6+2
>> Y	PG+17, 4+6, 4+10

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDFDP

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: