Routine: DGPTFM0

Package	Total	Call Graph
Registration	3	(,PRO,PRO1)^DGPTFM CHK501^DGPTSCAN (D,EXPL)^DGPTUTL
DRG Grouper	2	($$ICDDX,$$ICDOP)^ICDCODE $$GETDATE^ICDGTDRG
VA Fileman	1	^DIE

Package

Total

Call Graph

Registration

(,PRO,PRO1)^DGPTFM CHK501^DGPTSCAN (D,EXPL)^DGPTUTL

DRG Grouper

($$ICDDX,$$ICDOP)^ICDCODE $$GETDATE^ICDGTDRG

VA Fileman

^DIE

Package	Total	Caller Graph
Registration	2	DGPTFM DGPTFM1

Package

Total

Caller Graph

Registration

DGPTFM DGPTFM1

Name	Field # of Occurrence
^DGPTFM	D+1, D1+1, DEL+4
PRO^DGPTFM	EN+2
PRO1^DGPTFM	EN+1, PRC
CHK501^DGPTSCAN	DEL+3
D^DGPTUTL	PD2
EXPL^DGPTUTL	DEL
^DIE	DEL+2
$$ICDDX^ICDCODE	DX+3
$$ICDOP^ICDCODE	PD1, C+2
$$GETDATE^ICDGTDRG	PD1, C+2, DX+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+1
Function Call: WRITE	Prompt: ! Condition for execution: L3 Line Location: PD1+1
Function Call: WRITE	Prompt: ?L1*40,$J(P2,3)," ",$J(L4,7)," ",$E($P(L2,U,4),1,25) Line Location: PD1+1
Function Call: WRITE	Prompt: ! Condition for execution: NL Line Location: PD2+0
Function Call: WRITE	Prompt: ?L5*40,L6,"-Procedure date: ",Y Line Location: PD2+0
Function Call: WRITE	Prompt: !!,"Enter the item #'s of the operation codes, 1-",S2,", that you wish to delete:" Line Location: C+1
Function Call: WRITE	Prompt: !?5,$J(L,2),": ",$J($P(DGPTTMP,"^",2),7)," - ",$E($P(DGPTTMP,"^",5),1,40) Line Location: C+3
Function Call: WRITE	Prompt: !!,"Enter the item #'s of the diagnoses, 1-",M2,", that you wish to delete:" Line Location: DX+1
Function Call: WRITE	Prompt: !?5,$J(L,2),": ",$J($P(DGPTTMP,"^",2),7)," - ",$E($P(DGPTTMP,"^",4),1,40) Line Location: DX+4
Function Call: WRITE	Prompt: !!,"Type the number of the procedure - not the procedure code -" Line Location: Q+1
Function Call: WRITE	Prompt: !,"for the procedure you wish to delete.",! Line Location: Q+2
Function Call: WRITE	Prompt: !,"However, this deletion function is not applicable" Line Location: Q+3
Function Call: WRITE	Prompt: !,"for procedures listed under 'Procedure date:' displays." Line Location: Q+4
Function Call: WRITE	Prompt: !,"Delete these codes using the 601 screen functionality." Line Location: Q+5
Function Call: WRITE	Prompt: !,"No codes to delete",! Line Location: D+1
Function Call: WRITE	Prompt: !! Line Location: DEL+1
Function Call: WRITE	Prompt: " ",L,"-Deleted, " Line Location: DEL+2
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: DEL+2
Routine Call	DIE Line Location: DEL+2

Name	Line Occurrences (* Changed, ! Killed)
^DGPT - [#45]	EN, C+2, DX+3
^UTILITY($J	DEL+2

Name	Line Occurrences
D1	D1+1
DEL	D
DX	D1+1
EN	PRC+1
PD	EN+1
PD1	PD
PD2	EN+1

Name	Field # of Occurrence
^(	EN, DEL+2
^(0	C+2, DX+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	D1+2*
A1	D1*, D1+1, D1+2, DEL+1!
>> DA	DEL+2*
>> DA(1	DEL+1, DEL+2
>> DGA	DEL+2
>> DGMOV	DEL+3*
>> DGPTF	DEL+3*
>> DGPTTMP	PD1, C+2, C+3, DX+3*, DX+4
DGZDIAG	PRC!
DGZPRO	PRC!
DGZSER	PRC!
>> DGZSUR	PRC*
>> DIE	DEL+1*
>> DP	DEL+2*
DR	DEL+2*!
DTIME	D1
>> I	EN*
>> I1	EN*, EN+1
>> J	EN+1, PD, PD1+1, PRC, DEL+2*
>> J1	PD*, PD1+1
L	PD, PD1, C+2, C+3, DX+3, DX+4, DX+5!, DEL+2
>> L1	PD, PD1+1, DEL+2, DEL+3
>> L2	PD1*, PD1+1
>> L3	PD, PD1+1
>> L4	PD1*, PD1+1
>> L5	EN+1*, PD2
>> L6	EN+1*, PD2
>> M2	DX+1, DX+3, D+1
>> NL	EN+1, PD2
P	EN!, EN+1*
P(	EN*, EN+1, PD, PD2
P1	PRC!
P2	EN+1, PD1, PD1+1, PRC!*
P2(	PD1+1!*
>> PTF	EN, PD1, C+2, DX+3, DEL+1, DEL+2, DEL+3
>> S(	C+2
>> S2	C+1, C+2
>> S2(	C+2
>> ST	EN+1, PRC, PRC+1
U	PD, PD1, PD1+1, DEL+2
UTL	DX+2*, DX+3, DX+5!
X	DEL+1!
>> Y	PD2*
>> Z	D

Customize PDF page

Package: Registration

Routine: DGPTFM0

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
C	; -- help for surgery
EN
DX	; -- help for dx's
PRC
PD2
PD1
Q	; -- help for procedure
DEL
PD
D1
D