Routine: DGPT101

Package	Total	Call Graph
Registration	6	SET^DGPT101P ^DGPT10CB ^DGPT10S1 SET^DGPT701 WRTERR^DGPTAE (AGO,CNTY,CV,CVDATE,DB,INC,IRAD,MST,MT,PSE,SHAD,STATE,ZIP)^DGPTAE01
VA FileMan	2	(,DD)^%DT (,NOW)^%DTC

Package	Total	Caller Graph
Registration	8	DGPT101P DGPT401 DGPT501 DGPT535 DGPT601 DGPT701 DGPT701P DGPTAE03

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
101	;-- process 101+701 data
PARSE	;Set up record string, Call routine to parse record
701	;PROCESS 701
SET	; Start error piece, flags
SSN	; Start edits
PSEU	;check for pseudo ssn
DTE	;admission date
LN	;patient's last name
SRA	;source of admission -- may need to add more edits later
SRP	;source of payment
POW	;prisoner of war
MAR	;marital status
GEN	;gender
DOB	;date of birth
POS	;period of service
EXP	;agent orange and ionizing radiation
HOME	;state, county and zip code
MT	;means test
ERI	;emergency response indicator
INCOM	;income
MST	;military sexual trauma
CV	;combat veteran
CVDATE	;combat veteran date
SHAD	;shipboard hazard and defense
GOOD	;
EXIT	;
ERR	;
FMDT(X)	; change to fm date for y2k

External References

Name	Field # of Occurrence
^%DT	DTE+1, FMDT+2
DD^%DT	DTE+2
^%DTC	DTE+3
NOW^%DTC	PARSE+3
SET^DGPT101P	PARSE+2
^DGPT10CB	POS+2
^DGPT10S1	SRA+1
SET^DGPT701	701+2
WRTERR^DGPTAE	ERR+1
AGO^DGPTAE01	EXP+1
CNTY^DGPTAE01	HOME+2
CV^DGPTAE01	CV+1
CVDATE^DGPTAE01	CVDATE+1
DB^DGPTAE01	DOB+1
INC^DGPTAE01	INCOM+2
IRAD^DGPTAE01	EXP+2
MST^DGPTAE01	MST+1
MT^DGPTAE01	MT+1
PSE^DGPTAE01	PSEU+1
SHAD^DGPTAE01	SHAD+1
STATE^DGPTAE01	HOME+1
ZIP^DGPTAE01	HOME+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("AEDIT"	PARSE+1, 701+1, SET+1

Label References

Name	Line Occurrences
$$FMDT	DTE+3, DTE+4
ERR	SSN+1, SSN+2, PSEU+1, DTE+1, DTE+3, LN+1, LN+2, SRA+1, SRP+3, SRP+5 , POW+1, MAR+1, GEN+1, DOB+1, POS+2, EXP+1, EXP+2, HOME+1, HOME+2, HOME+3 , MT+1, ERI+1, INCOM+2, MST+1, CV+1, CVDATE+1, SHAD+1
EXIT	SSN+1, SSN+2, PSEU+1, DTE+1, DTE+3, LN+1, LN+2, SRA+1, SRP+3, SRP+5 , POW+1, MAR+1, GEN+1, DOB+1, POS+2, EXP+1, EXP+2, HOME+1, HOME+2, HOME+3 , MT+1, ERI+1, INCOM+2, MST+1, CV+1, CVDATE+1, SHAD+1
GOOD	INCOM+1
POW	SRP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DTE+1*
DGPT70DR	EXIT+3!
DGPT70LG	EXIT+3!
DGPT70SU	EXIT+3!
DGPT70X4	EXIT+3!
>> DGPTADT	DTE+2*
>> DGPTAL7	701+1*
DGPTCOMVET	EXIT+3!
DGPTCOMVETDT	EXIT+3!
DGPTCTY	EXIT+1!
DGPTDAGE	EXIT+2!
DGPTDAS	EXIT+2!
DGPTDCP	EXIT+2!
>> DGPTDDS	INCOM+1
DGPTDDXE	EXIT+2!
DGPTDDXO	EXIT+2!
DGPTDLC	EXIT+2!
DGPTDLR	EXIT+2!
DGPTDOP	EXIT+2!
DGPTDPD	EXIT+2!
DGPTDRF	EXIT+2!
DGPTDRG	EXIT+2!
DGPTDSC	EXIT+2!
DGPTDSP	EXIT+2!
DGPTDTD	EXIT+2!
>> DGPTDTS	DTE+1, DTE+4*
DGPTDTY	EXIT+2!
DGPTDVA	EXIT+2!
DGPTDXV1	EXIT+3!
DGPTDXV2	EXIT+3!
>> DGPTEDFL	SET+1*, SSN+1, SSN+2, PSEU+1, DTE+1, DTE+3, LN+1, LN+2, SRA+1, SRP+3 , SRP+5, POW+1, MAR+1, GEN+1, DOB+1, POS+2, EXP+1, EXP+2, HOME+1, HOME+2 , HOME+3, MT+1, ERI+1, INCOM+2, MST+1, CV+1, CVDATE+1, SHAD+1
>> DGPTERC	EN+1, SSN+1, SSN+2, PSEU+1, DTE+1, DTE+3, LN+1, LN+2, SRA+1, SRP+2* , SRP+3, SRP+4, SRP+5, POW+1, MAR+1, GEN+1, DOB+1, POS+2, EXP+1, EXP+2* , HOME+1, HOME+2, HOME+3, MT+1, ERI+1, INCOM+2, MST+1, CV+1, CVDATE+1, SHAD+1 , ERR+1
>> DGPTERI	ERI+1
DGPTEXA	EXIT+2!
DGPTEXI	EXIT+2!
>> DGPTFEF	EN+1, 701+1, 701+2
DGPTFI	LN+2, EXIT+1!
>> DGPTFMT	MST+1, CV+1, CVDATE+1, SHAD+1
>> DGPTGEN	GEN+1, GEN+2
>> DGPTGEN1	GEN+2*
DGPTINC	EXIT+1!
DGPTLN	LN+1, EXIT+1!
DGPTMI	LN+2, EXIT+1!
DGPTMRS	MAR+1, EXIT+1!
DGPTMST	EXIT+3!
DGPTMTC	EXIT+2!
>> DGPTNOW	DTE+3
DGPTORBD	EXIT+1!
DGPTPOS1	EXIT+2!
>> DGPTPOW	POW+1
>> DGPTPS	SSN+1, SSN+2, SSN+3*, PSEU+1
DGPTREC	EXIT+1!
DGPTSHAD	EXIT+3!
DGPTSRA	EXIT+2!
DGPTSRP	SRP+3, SRP+4, EXIT+2!
>> DGPTSSN	SSN+1
DGPTSTE	EXIT+1!
DGPTSTR	PARSE+1, SET+1, DTE+3, DTE+4, EXIT+2!
>> DGPTSTTY	SRP+4
DGPTTF	EXIT+2!
>> DGPTTY	PARSE+3*
DGPTZIP	EXIT+1!
ERROR	101+1~, GOOD+1, ERR+2*
I	SRP+1~, SRP+4*
>> NODE	PARSE+1, SET+1, ERR+1
>> SEQ	PARSE+1, 701+1, SET+1, ERR+1
U	SRP+4, ERI+1
X	PARSE+3, DTE+1*, DTE+3, FMDT~
>> X1	DTE+3*
>> X2	DTE+3*
Y	DTE+1, DTE+2, FMDT+1~, FMDT+3

Customize PDF page

Package: Registration

Routine: DGPT101

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: