Routine: ACHSDFL

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Contract Health Management Information System	2	($$DF,$$DIR,RTRN)^ACHS (DOC,START)^ACHSDFL1
DRG Grouper	2	$$ICDDX^ICDEX $$CPT^ICPTCOD
VA Fileman	1	^DIC

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Contract Health Management Information System

($$DF,$$DIR,RTRN)^ACHS (DOC,START)^ACHSDFL1

DRG Grouper

$$ICDDX^ICDEX $$CPT^ICPTCOD

VA Fileman

^DIC

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHS DEF LETTER ACHSDFL1

Package

Total

Caller Graph

Contract Health Management Information System

ACHS DEF LETTER ACHSDFL1

Name	Comments	DBIA/ICR reference
P2	;
P3	;
P0	;
P1	;
PAT	; --- Select Deferred Service
NAMERR	;
DEV	;
END1	;
END	;EP
TYPE	;EP

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	DEV+7, END1+1
^%ZTLOAD	DEV+10
$$DF^ACHS	END+3
$$DIR^ACHS	P3+1
RTRN^ACHS	END+6, END+7
DOC^ACHSDFL1	END+6
START^ACHSDFL1	DEV+5
^DIC	PAT+10
$$ICDDX^ICDEX	TYPE+5
$$CPT^ICPTCOD	TYPE+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PAT+1
Function Call: WRITE	Prompt: !!,"You wish to print unmet needs letter ",$P(Y(0),U),!! Line Location: P1+2
Function Call: WRITE	Prompt: ?5,$P($G(^DPT(DFN,0)),U) Line Location: P1+4
Function Call: WRITE	Prompt: !?5,$P(X,U),!?5,$P(X,U,4) Line Location: P1+6
Function Call: WRITE	Prompt: ", ",$P($G(^DIC(5,Y,0)),U,2) Line Location: P1+8
Function Call: WRITE	Prompt: " ",$P(X,U,6),!! Line Location: P1+9
Function Call: WRITE	Prompt: ?5,$P(X,U,7),!?5,$P(X,U,8),!?5,$P(X,U,9) Line Location: P2+2
Function Call: WRITE	Prompt: ", ",$P($G(^DIC(5,Y,0)),U,2) Line Location: P2+4
Function Call: WRITE	Prompt: " ",$P(X,U,11),!! Line Location: P2+5
Function Call: WRITE	Prompt: !! Line Location: DEV+1
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+7
Function Call: WRITE	Prompt: !!,*7,"No valid PATIENT NAME in this file.",!,"No letter may be printed until a valid patient is entered.",!! Line Location: NAMERR+1
Function Call: WRITE	Prompt: !!! Line Location: END+1
Function Call: WRITE	Prompt: "* OFFICE COPY * " Line Location: END+2
Function Call: WRITE	Prompt: "DOCUMENT CANCELLED *" Line Location: END+3
Function Call: WRITE	Prompt: @IOF Line Location: END+5
Function Call: WRITE	Prompt: @IOF Line Location: END+6
Function Call: WRITE	Prompt: !,?DIWL+10,$P($G(^ACHSDEF(DUZ(2),"D",ACHSA,200,ACHDX,0)),U,2),! Line Location: TYPE+4
Function Call: WRITE	Prompt: !,?DIWL+10 Line Location: TYPE+5
Function Call: WRITE	Prompt: $P(^ICM($P($$ICDDX^ICDEX(ACHSDDX),U,6),0),U) Line Location: TYPE+5
Function Call: WRITE	Prompt: !,?DIWL+10 Line Location: TYPE+6
Function Call: WRITE	Prompt: $P(^ICM($P($$ICDDX^ICDCODE(ACHSDDX),U,6),0),U) Line Location: TYPE+6
Function Call: WRITE	Prompt: !,?DIWL+10,$P($G(^ICD9($P($G(^ACHSDEF(DUZ(2),"D",ACHSA,200,ACHDX,0)),U),0)),U,3),! Line Location: TYPE+7
Function Call: WRITE	Prompt: !,?DIWL+10,$P($G(^ACHSDEF(DUZ(2),"D",ACHSA,300,ACHDX,0)),U,2) Line Location: TYPE+10
Function Call: WRITE	Prompt: !,?DIWL+10,$P($G(^ICPT($P($G(^ACHSDEF(DUZ(2),"D",ACHSA,300,ACHDX,0)),U),0)),U),! Line Location: TYPE+12
Function Call: WRITE	Prompt: !,?DIWL+10,$P($$CPT^ICPTCOD($P($G(^ACHSDEF(DUZ(2),"D",ACHSA,300,ACHDX,0)),U)),U,2),! Line Location: TYPE+13
Function Call: WRITE	Prompt: ! Line Location: TYPE+15
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIC Line Location: PAT+10
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEF - [#9002066]	P2+1, TYPE+2, TYPE+3, TYPE+4, TYPE+9, TYPE+10, TYPE+13
^DIC(5 - [#5]	P1+8, P2+4
^DPT - [#2]	PAT+17, P1+4, P1+5
^ICM - [#80.3]	TYPE+5

Name	Line Occurrences
DEV	DEV+7, DEV+13
END	P3+2, DEV+4
END1	PAT+12, PAT+13
NAMERR	P0+2
P0	PAT+16, PAT+17
P1	PAT+19
P2	P1+3
P3	P1+10
PAT	P0+2, P3+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	P3+1*, P3+3
>> %ZIS	DEV+2*
A	PAT+2!
ACHDONE	END+2, END+6!
ACHDPAT	END+8!
ACHDST	END+8!
ACHDX	END+8!, TYPE+2, TYPE+3, TYPE+4, TYPE+9, TYPE+10, TYPE+13
ACHSA	PAT+2!, PAT+15*, P2+1, END+8!, TYPE+2, TYPE+3, TYPE+4, TYPE+9, TYPE+10, TYPE+13
ACHSDDX	END+8!, TYPE+3*, TYPE+5
>> ACHSPG	END+6*
>> DA(1	PAT+9*
>> DFN	PAT+18*, P1+3, P1+4, P1+5
DIC	PAT+2!, PAT+5*, PAT+11!
DIC("A"	PAT+8*
DIC("S"	PAT+3*
DIC("W"	PAT+4*
DIC(0	PAT+6*
>> DIWF	ACHSDFL+7, END+6
>> DIWL	ACHSDFL+7, END+6, TYPE+4, TYPE+5, TYPE+10, TYPE+13
>> DIWR	ACHSDFL+7, END+6
>> DTOUT	P3+2
>> DUOUT	P3+2
DUZ(2	PAT+5, PAT+9, P2+1, TYPE+2, TYPE+3, TYPE+4, TYPE+9, TYPE+10, TYPE+13
>> I	END+2, END+3
IO	END+7
IO("Q"	DEV+5, DEV+6!
IO("S"	DEV+7
IO(0	END+7
IOF	END+6
IOST	DEV+7
>> POP	DEV+4
U	PAT+16, PAT+17, PAT+18, P0+1, P1+2, P1+4, P1+6, P1+7, P1+8, P1+9 , P2+2, P2+3, P2+4, P2+5, TYPE+3, TYPE+4, TYPE+5, TYPE+10, TYPE+13
>> X	P0+1, P0+2, P1+5, P1+6, P1+7, P1+9, P2+1*, P2+2, P2+3, P2+5
>> Y	PAT+12, PAT+13, PAT+15, P1+7, P1+8, P2+3, P2+4
>> Y(0	PAT+16, PAT+17, PAT+18, P0+1, P1+2
>> ZTDESC	DEV+9*
>> ZTQUEQUED	DEV+13
>> ZTRTN	DEV+9*
>> ZTSAVE("ACHSA"	DEV+9*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSDFL

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: