Routine: DGYMF31A

Package	Total	Caller Graph
Registration	1	DGYMF31

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
HEAD1	;
LTDQ
DRIVE	;
LTD(DFN)	; Find Last Treatment Date ; Input: DFN - pointer to the patient in file #2 ; Output: LTD - Last Treatment Date (really last date seen at facility)
KILL	;Delete pointer from Patient file
REPORT	;Display information gathered.
FOUND	;
DATA2	;
DATA	;
LOOP	;looping through patient file
DIS	;include 'good' disabilities in report

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No bad pointers." Line Location: DRIVE+4
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS WITH DANGLING POINTER(S) = ",NXT Line Location: DRIVE+7
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+1
Function Call: WRITE	Prompt: !!,"Patients with bad pointers in the Rated Disability field ",?100,"PAGE ",PAGE,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,?5,"Patient Name",?35,"SSN",?50,"Date of Birth",?70,"Last Date of Contact" Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?100,"Date of Death" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,?10,"Valid Disabilities on file" Line Location: HEAD1+5
Function Call: WRITE	Prompt: ! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,$P(NODE,"^"),?31,SSN,?50,$$FMTE^XLFDT($P(NODE,"^",3)),?70,LAST,?100,DEAD Line Location: DATA+5
Routine Call	DIR Line Location: HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("ATID3"	LTD+8
^DIC(31 - [#31]	LOOP+7, DIS+4
^DPT - [#2]	LOOP+2, LOOP+5, LOOP+6, FOUND+2, FOUND+3, FOUND+4, FOUND+5, DIS+2, DIS+3, LTD+6 , LTD+10, LTD+12
^SDV("ADT"	LTD+14
^TMP($J	DRIVE+3, DRIVE+4, DRIVE+6, LOOP+1!, FOUND+3, FOUND+4, FOUND+5, DIS+4, REPORT+2, REPORT+3 , DATA+1, DATA2+2, DATA2+6

Name	Field # of Occurrence
^(	LTD+12
^(0	LTD+12

Name	Field # of Occurrence
>> ANY	LOOP+3, LOOP+7, LOOP+8
>> BADDEL	LOOP+7
>> CNT	LOOP+3, LOOP+5, LOOP+6, KILL+1
>> CPT	LOOP+1, LOOP+3, LOOP+4
DA	KILL+1*!
DA(1	KILL+1*
>> DEAD	FOUND+2, FOUND+3, FOUND+4, FOUND+5, DATA+3, DATA+5
DFN	LOOP+1, LOOP+2, LOOP+5, LOOP+6, FOUND+1, FOUND+2, FOUND+3, FOUND+4, FOUND+5, DIS+2 , DIS+3, LTD~, LTD+6, LTD+8, LTD+10, LTD+12, LTD+14, KILL+1
DIK	KILL+1*!
>> DIR(0	HEAD+2*
DIRUT	HEAD+2!
DT	LTD+6, LTD+8, LTD+12
DTOUT	HEAD+2!
DUOUT	HEAD+2!
>> END	DRIVE+5, DRIVE+6, DRIVE+7, HEAD+1, HEAD+2, REPORT+1*, REPORT+2, REPORT+3, REPORT+4, DATA2+2 , DATA2+3, DATA2+4
>> INDEX	DRIVE+3, DRIVE+6, HEAD1+4, REPORT+2, REPORT+3
>> INVALID	LOOP+8, HEAD1+5, REPORT+6
IO	DRIVE+1
IOF	HEAD1+1
IOSL	REPORT+4, DATA2+3
IOST	LOOP+4, HEAD+2
>> LAST	FOUND+1, FOUND+4, DATA+4, DATA+5
>> LP	REPORT+1, REPORT+3, DATA+1, DATA2+2, DATA2+6
LTD	LTD+4~, LTD+6, LTD+8, LTD+10, LTD+12, LTD+14*, LTDQ
NM	REPORT+1~, REPORT+2, REPORT+3
NODE	DATA+1~*, DATA+2, DATA+3, DATA+4, DATA+5
NX	DATA2+3*, DATA2+5!
>> NXT	DRIVE+3, DRIVE+7, LOOP+1, FOUND+4, FOUND+5, DIS+4
>> PAGE	DRIVE+1, HEAD1+2, HEAD1+7
PTR	LOOP+6, LOOP+7, DIS+1~, DIS+3, DIS+4
>> SSN	DATA+2*, DATA+5
TCT	DIS+1~, DIS+4, DATA2+1~, DATA2+2, DATA2+6
TLP	DIS+1~, DIS+2, DIS+3
X	HEAD+2!, LTD+4~, LTD+10, LTD+12, LTD+14*
Y	HEAD+2!
>> ZTSK	DRIVE+8