Routine: DGPT501

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

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
PARSE	; Set up record string, parse record
DATE	;date/time of movement
ELAPS	;elapsed days between movement & leave days & pass days
TSPEC	;treating specialty
LEAV	;
SPINL	;spinal cord injury
LOCCDR	;physical location cdr
LOCTRS	;physical location
DIAG	;diagnosis
BSTAT	;bed status
FY92	;
LEG	; Legionnaires disease
SUI	; Suicide indicator
DRUG	; Drug indicator
AXES	;Axis 4 and 5
SERVC	; Service connected indicator
APSSN	;attending physician ssn
GOOD	;
EXIT	;
ERR	;

External References

Name	Field # of Occurrence
^%DT	DATE+1
DD^%DT	DATE+2
$$ACTIVE^DGACT	TSPEC+12
$$FMDT^DGPT101	DATE+1
SET^DGPT501P	PARSE+2
^DGPT50DI	DIAG+1
APSSN^DGPT50MS	APSSN+2
AXIV^DGPT50MS	AXES+4
AXV1^DGPT50MS	AXES+5
AXV2^DGPT50MS	AXES+6
SRVC^DGPT50MS	SERVC+2
SUI^DGPT50MS	SUI+2
WRTERR^DGPTAE	ERR+1
CHECK^DGPTAE02	TSPEC+4, LOCTRS+4
501^DGPTAE03	ELAPS+1
SP^DGPTAE03	SPINL+1

Global Variables Directly Accessed

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

Label References

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+3, SUI+2, DRUG+4, AXES+4, AXES+5, AXES+6 , SERVC+2, APSSN+2
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, SUI+2, DRUG+4, AXES+4, AXES+5, AXES+6 , SERVC+2, APSSN+2
GOOD	FY92+1
LEAV	TSPEC+2, TSPEC+4
LOCTRS	LOCCDR+1
TSPEC	DATE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1*!
DGPT50SR	EXIT+4!
DGPTAPSSN	EXIT+4!
>> 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, SUI+2, DRUG+4, AXES+4, AXES+5 , AXES+6, SERVC+2, APSSN+2
>> 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+3, SUI+2, DRUG+4, AXES+4* , AXES+5, AXES+6, SERVC+2*, APSSN+2, ERR+1
>> DGPTFMT	LEG+2, SUI+2, DRUG+4, AXES+2, SERVC+2, APSSN+2
DGPTMBS	BSTAT+1, EXIT+4!
DGPTMD1	EXIT+1!
DGPTMD10	EXIT+1!
DGPTMD11	EXIT+1!
DGPTMD12	EXIT+1!
DGPTMD13	EXIT+1!
DGPTMD14	EXIT+1!
DGPTMD15	EXIT+1!
DGPTMD16	EXIT+2!
DGPTMD17	EXIT+2!
DGPTMD18	EXIT+2!
DGPTMD19	EXIT+2!
DGPTMD2	EXIT+1!
DGPTMD20	EXIT+2!
DGPTMD21	EXIT+2!
DGPTMD22	EXIT+2!
DGPTMD23	EXIT+2!
DGPTMD24	EXIT+2!
DGPTMD25	EXIT+2!
DGPTMD3	EXIT+1!
DGPTMD4	EXIT+1!
DGPTMD5	EXIT+1!
DGPTMD6	EXIT+1!
DGPTMD7	EXIT+1!
DGPTMD8	EXIT+1!
DGPTMD9	EXIT+1!
DGPTMDG	DRUG+4, EXIT+4!
DGPTMDT	DATE+1, DATE+2, DATE+3, EXIT+3!
DGPTMDTS	DATE+1*, DATE+4, DATE+5, ELAPS+1, TSPEC+12, EXIT+3!
DGPTMLC	LOCTRS+1, LOCTRS+2, LOCTRS+3, EXIT+3!
DGPTMLD	EXIT+3!
DGPTMLG	LEG+3, EXIT+4!
DGPTMLR	LOCCDR+1, LOCTRS+2, EXIT+3!
DGPTMPD	LEAV+1, EXIT+3!
DGPTMSC	TSPEC+2, TSPEC+3, TSPEC+6*, TSPEC+9, EXIT+3!
DGPTMSC1	TSPEC+1~, TSPEC+9*, TSPEC+12, AXES+3
DGPTMSI	EXIT+3!
DGPTMSR	EXIT+3!
DGPTMSU	EXIT+4!
DGPTMXIV	AXES+3*, EXIT+4!
DGPTMXV1	AXES+3*, EXIT+4!
DGPTMXV2	AXES+3*, EXIT+4!
DGPTMXX	EXIT+3!
DGPTS	EXIT+3!
>> DGPTSER(	TSPEC+12*
DGPTSP1	TSPEC+3, LOCTRS+3, EXIT+3!
DGPTSP2	TSPEC+3, LOCTRS+3, EXIT+3!
DGPTSTR	PARSE+1*, DATE+1, EXIT+3!
ERROR	EN+1~, GOOD+1, ERR+2*
>> NODE	PARSE+1, ERR+1
>> SEQ	PARSE+1, ERR+1
U	AXES+3
>> X	DATE+1*
>> X1	ELAPS+1*
>> Y	DATE+1, DATE+2

Customize PDF page

Package: Registration

Routine: DGPT501

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: