Routine: DGYMF31A

Information

DGYMF31A ;ALB/CMM FIND DANGLING PT IN ^DPT TO ^DIC(31 ;12/30/94

Name	Comments	DBIA/ICR reference
DRIVE	;
LOOP	;looping through patient file
FOUND	;
DIS	;include 'good' disabilities in report
HEAD	;
HEAD1	;
REPORT	;Display information gathered.
DATA	;
DATA2	;
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)
LTDQ
KILL	;Delete pointer from Patient file

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