Routine: DGPTFVC1

Package	Total	Call Graph
Registration	9	$$GETSTAT^DGMSTAPI $$SC^DGMTR $$LST^DGMTU $$PA^DGMTUTL $$GETCUR^DGNTAPI $$ANYSC^DGPTSCAN NUMACT^DGPTSUF ($$INACTIVE,$$PTR2CODE)^DGUTL4 DEM^VADPT
DRG Grouper	2	$$ICDDX^ICDCODE $$GETDATE^ICDGTDRG
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Registration	1	DGPTFTR

Entry Points

External References

Name	Field # of Occurrence
$$GETSTAT^DGMSTAPI	AS+3
$$SC^DGMTR	MT+11
$$LST^DGMTU	MT+3
$$PA^DGMTUTL	MT+9
$$GETCUR^DGNTAPI	AS+2
$$ANYSC^DGPTSCAN	MT+11
NUMACT^DGPTSUF	DGPTFVC1+22, DGPTFVC1+25
$$INACTIVE^DGUTL4	RACETHNC+29
$$PTR2CODE^DGUTL4	RACETHNC+31, RACETHNC+38
$$ICDDX^ICDCODE	SCI
$$GETDATE^ICDGTDRG	SCI
DEM^VADPT	RACETHNC+9
$$FMTE^XLFDT	SCI+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"101 MEANS TEST",?23," value 'U' - not valid for discharges as of 7/1/1989",!?42,"per MAS VACO policy" Line Location: DGPTFVC1+14
Function Call: WRITE	Prompt: !,"701 VA AUSPICES",?23," value inconsistent for discharge" Line Location: DGPTFVC1+28
Function Call: WRITE	Prompt: %," (invalid code)" Line Location: DGPTFVC1+30
Function Call: WRITE	Prompt: !,"501 ",X," SCI of ",S0,?23," requires an ICD Diagnosis code beginning with",!?12," or equal to ",DGDX Line Location: SCI+1
Function Call: WRITE	Prompt: !,"701 ",$E("TYPE OF DISPOSITION",1,18),?23," value inconsistent for discharge" Line Location: DP+0
Function Call: WRITE	Prompt: !,"701 ",$E("OUTPATIENT TREATMENT",1,18),?23," value inconsistent for discharge" Line Location: OP+0
Function Call: WRITE	Prompt: !,"701 VA AUSPICES",?23," value inconsistent for discharge" Line Location: OP+1
Function Call: WRITE	Prompt: !,"101 AGENT ORANGE LOCATION",?23,"value required if exposure to Agent Orange claimed" Line Location: AO+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	MT+3
^DGPT - [#45]	DGPTFVC1+7, DGPTFVC1+16, MT+2, AO+1
^DIC(45.82 - [#45.82]	AO+2
^DIC(8 - [#8]	MT+2
^DPT - [#2]	DGPTFVC1+16, MT+13, AS, AS+1, AO+3, AO+8

Label References

Name	Line Occurrences
AO	DGPTFVC1+9
AS	MT+3, MT+14
DGX	MT, MT+2, MT+7, MT+11, MT+13, MT+14, AS, AS+1, AS+2, AS+3 , AS+4
DP	DGPTFVC1+24, DGPTFVC1+25
MT	DGPTFVC1+11
OP	DGPTFVC1+28
RACETHNC	DGPTFVC1+39
SCI	DGPTFVC1+16

Naked Globals

Name	Field # of Occurrence
^(	DGPTFVC1+16, AS, AS+1, AO+3
^(0	DGPTFVC1+7, MT+2, AO+2
^(101	AO+1
^(57	DGPTFVC1+16
^(70	DGPTFVC1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DGPTFVC1+28, DGPTFVC1+40!, SCI+1, AO+1, AO+2, AO+4
AO	AO+7~, AO+9*, AO+11
AOL	AO+7~, AO+10*, AO+12
>> DFN	DGPTFVC1+7*, DGPTFVC1+16, MT+3, MT+11, MT+13, AS, AS+1, AS+2, AS+3, AO+3 , AO+8
DGANUM	DGPTFVC1+23, DGPTFVC1+24, DGPTFVC1+25~, DGPTFVC1+26!
DGDISPO	DGPTFVC1+18*, DGPTFVC1+20, DGPTFVC1+24, DGPTFVC1+25, DGPTFVC1+40!
DGDP	DGPTFVC1+18, DGPTFVC1+24, DGPTFVC1+25, DGPTFVC1+28, DGPTFVC1+40!, OP
DGDX	DGPTFVC1+16*, DGPTFVC1+40!, SCI, SCI+1
>> DGERR	DGPTFVC1+7, DGPTFVC1+28, DGPTFVC1+36, DGPTFVC1+41, SCI+1, DGX+1, DP, OP, OP+1, AO+4* , AO+13, RACETHNC+34, RACETHNC+37, RACETHNC+41
DGNODE	DGPTFVC1+16*, DGPTFVC1+40!, SCI, SCI+1
DGNTARR	AS+2~
DGNTARR("NTR"	AS+2
>> DGPTFMT	AO
>> DGPTTMP	SCI*
DGRECSUF	DGPTFVC1+18*, DGPTFVC1+24, DGPTFVC1+25, DGPTFVC1+40!
>> DGRTY	DGPTFVC1+11, DGPTFVC1+19, DGPTFVC1+28
DGSCI	DGPTFVC1+16, DGPTFVC1+40!, SCI, SCI+1
DGSTATYP	DGPTFVC1+20*, DGPTFVC1+21, DGPTFVC1+22, DGPTFVC1+26!
DGSUFFIX	DGPTFVC1+7*, DGPTFVC1+23, DGPTFVC1+35, DGPTFVC1+40!, MT
DGSUFNAM	DGPTFVC1+25~, DGPTFVC1+26!
DGSUFNAM(	DGPTFVC1+23, DGPTFVC1+24, DGPTFVC1+25
DGT	MT+3*, DGX+2!
DGV	DGPTFVC1+40!
DGV("E"	AO+4, AO+5, AO+13
DGV("FEE"	DGPTFVC1+7*, DGPTFVC1+11, DGPTFVC1+34
DGV(101	DGPTFVC1+7*, DGPTFVC1+9, MT
DGV(701	DGPTFVC1+7*, DGPTFVC1+18, DGPTFVC1+28, DGPTFVC1+34, MT+3, DP, OP, OP+1
DGVMT	MT*, MT+4!, DGX+1, DGX+2!
DGX	DGPTFVC1+16, DGPTFVC1+40!, MT, MT+2, MT+4!, MT+5, MT+7, MT+8, MT+9, MT+11* , MT+13, MT+14, AS, AS+1, AS+2, AS+3, AS+4, AS+5, DGX+1, DGX+2!
DGZ	AS, AS+1, AS+2, AS+3, DGX+2!
DGZ1	MT+3*!, MT+5, MT+8, MT+9, DGX+2!
DGZEC	MT+2*, MT+11, MT+13, AS+4, DGX+2!
I	DGPTFVC1+23, DGPTFVC1+26!, DGPTFVC1+40!, AO+3, AO+4
IEN	RACETHNC+7~, RACETHNC+24, RACETHNC+25, RACETHNC+26, RACETHNC+27
MAX	RACETHNC+7~, RACETHNC+12, RACETHNC+18, RACETHNC+25
NUM	RACETHNC+7~, RACETHNC+23, RACETHNC+25, RACETHNC+30
>> PTF	DGPTFVC1+6, DGPTFVC1+7, DGPTFVC1+16, SCI, MT+2, MT+11, AO+1
PTRMTHD	RACETHNC+7~, RACETHNC+27*, RACETHNC+35, RACETHNC+38
PTRVAL	RACETHNC+7~, RACETHNC+26*, RACETHNC+28, RACETHNC+29, RACETHNC+31
REF	RACETHNC+7~, RACETHNC+10*, RACETHNC+11, RACETHNC+17, RACETHNC+25, RACETHNC+26, RACETHNC+27
S0	DGPTFVC1+16*, DGPTFVC1+40!, SCI+1
TEXT	RACETHNC+7~, RACETHNC+16, RACETHNC+20, RACETHNC+33, RACETHNC+36, RACETHNC+40
TMP	AO+7~, AO+8*, AO+9, AO+10
TYPE	RACETHNC+7~, RACETHNC+13, RACETHNC+19, RACETHNC+29, RACETHNC+31
U	DGPTFVC1+34, SCI, MT+2, MT+5, MT+8, MT+9, MT+11, MT+13, AS, AS+1 , AS+2, AS+3, AS+4
VADM	RACETHNC+8~
VADM(	RACETHNC+25, RACETHNC+26, RACETHNC+27
VALIDMTH	RACETHNC+8~, RACETHNC+15, RACETHNC+22, RACETHNC+39
VALIDVAL	RACETHNC+8~, RACETHNC+14, RACETHNC+21, RACETHNC+32
VALUE	RACETHNC+8~, RACETHNC+31, RACETHNC+32, RACETHNC+38, RACETHNC+39
X	DGPTFVC1+40!, SCI, SCI+1

Customize PDF page

Package: Registration

Routine: DGPTFVC1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SCI
AO
MT
AS
RACETHNC
DGX	;DG5.3817/Remove 101-Means Test indicator = 'U' xmit block for FEE BASIS PTF
DP
OP