Routine: DGPT501

Package	Total	Call Graph
Registration	8	$$ACTIVE^DGACT $$FMDT^DGPT101 SET^DGPT501P ^DGPT50DI (AXIV,AXV1,AXV2,DRUG,LEG,SRVC,SUI)^DGPT50MS WRTERR^DGPTAE CHECK^DGPTAE02 (501,SP)^DGPTAE03
VA Fileman	1	(,DD)^%DT

Entry Points

Name	Comments	DBIA/ICR reference
DRUG	; Drug indicator
TSPEC	;
SUI	; Suicide indicator
EN	;
ERR	;
SPINL	;
DIAG	;
SERVC	; Service connected indicator
LEG	; Legionnaires disease
EXIT	;
ELAPS	;
PARSE	; Set up record string, parse record
BSTAT	;
GOOD	;
LEAV	;
LOCCDR	;
DATE	;
LOCTRS	;
AXES	;Axis 4 and 5
FY92	;

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42.4 - [#42.4]	TSPEC+9, AXES+1
^TMP("AEDIT"	PARSE+1

Name	Line Occurrences
DIAG	LOCTRS+1, LOCTRS+2
ELAPS	DATE+1
ERR	DATE+1, DATE+3, DATE+4, DATE+5, ELAPS+1, TSPEC+2, TSPEC+4, TSPEC+12, LEAV+1, SPINL+1 , LOCCDR+1, LOCTRS+1, LOCTRS+4, BSTAT+1, LEG+1, SUI+1, DRUG+1, AXES+2, AXES+3, AXES+4 , SERVC+1
EXIT	DATE+1, DATE+3, DATE+4, DATE+5, ELAPS+1, TSPEC+2, TSPEC+4, TSPEC+12, LEAV+1, SPINL+1 , LOCCDR+1, LOCTRS+1, LOCTRS+4, DIAG+1, BSTAT+1, LEG+1, SUI+1, DRUG+1, AXES+2, AXES+3 , AXES+4, SERVC+1
GOOD	FY92+1
LEAV	TSPEC+2, TSPEC+4
LOCTRS	LOCCDR+1
SERVC	AXES+1
TSPEC	DATE+3

Name	Field # of Occurrence
%DT	DATE+1*!
DGPT50SR	EXIT+2!
>> DGPTDDS	DATE+5, FY92+1
>> DGPTDTS	DATE+4
>> DGPTEDFL	EN+2*, DATE+1, DATE+3, DATE+4, DATE+5, ELAPS+1, TSPEC+2, TSPEC+4, TSPEC+12, LEAV+1 , SPINL+1, LOCCDR+1, LOCTRS+1, LOCTRS+4, DIAG+1, BSTAT+1, LEG+1, SUI+1, DRUG+1, AXES+2 , AXES+3, AXES+4, SERVC+1
>> DGPTERC	DATE+1, DATE+3, DATE+4, DATE+5, ELAPS+1, TSPEC+2, TSPEC+3, TSPEC+4, TSPEC+12, LEAV+1 , SPINL+1, LOCCDR+1, LOCTRS+1, LOCTRS+3, LOCTRS+4, BSTAT+1, LEG+1, SUI+1, DRUG+1, AXES+2* , AXES+3, AXES+4, SERVC+1*, ERR+1
DGPTMBS	BSTAT+1, EXIT+2!
DGPTMD1	EXIT+1!
DGPTMD2	EXIT+1!
DGPTMD3	EXIT+1!
DGPTMD4	EXIT+1!
DGPTMD5	EXIT+1!
DGPTMDG	EXIT+2!
DGPTMDT	DATE+1, DATE+2, DATE+3, EXIT+1!
DGPTMDTS	DATE+1*, DATE+4, DATE+5, ELAPS+1, TSPEC+12, EXIT+1!
DGPTMLC	LOCTRS+1, LOCTRS+2, LOCTRS+3, EXIT+1!
DGPTMLD	EXIT+1!
DGPTMLG	EXIT+2!
DGPTMLR	LOCCDR+1, LOCTRS+2, EXIT+1!
DGPTMPD	LEAV+1, EXIT+1!
DGPTMSC	TSPEC+2, TSPEC+3, TSPEC+6*, TSPEC+9, EXIT+1!
DGPTMSC1	TSPEC+1~, TSPEC+9*, TSPEC+12, AXES+1
DGPTMSI	EXIT+1!
DGPTMSR	EXIT+1!
DGPTMSU	EXIT+2!
DGPTMXIV	AXES+1*, EXIT+2!
DGPTMXV1	AXES+1*, EXIT+2!
DGPTMXV2	AXES+1*, EXIT+2!
DGPTMXX	EXIT+1!
DGPTS	EXIT+1!
>> DGPTSER(	TSPEC+12*
DGPTSP1	TSPEC+3, LOCTRS+3, EXIT+1!
DGPTSP2	TSPEC+3, LOCTRS+3, EXIT+1!
DGPTSTR	PARSE+1*, DATE+1, EXIT+1!
ERROR	EN+1~, GOOD+1, ERR+2*
>> NODE	PARSE+1, ERR+1
>> SEQ	PARSE+1, ERR+1
U	AXES+1
>> X	DATE+1*
>> X1	ELAPS+1*
>> Y	DATE+1, DATE+2