Routine: EASXRPT1

Information

EASXRPT1 ;ALB/AEG - Duplicate Pt. Relation Report ; 7-12-02

Name	Comments	DBIA/ICR reference
PRINT	; Output to selected I/O device.
HDR	; Report Header
LOOP	; Loop thru data and provide output for report.

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,DAL Line Location: HDR+4
Function Call: WRITE	Prompt: !,RUN,! Line Location: HDR+5
Function Call: WRITE	Prompt: !?((IOM-$L(HDR(IX)))\2),HDR(IX) Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: !,?((IOM-3)-$L(HDR(5)))\2,HDR(5),?((IOM-1)-$L(HDR(6))),HDR(6) Line Location: HDR+8
Function Call: WRITE	Prompt: !,EQL Line Location: HDR+9
Function Call: WRITE	Prompt: !,"* - Represents entries without an SSN in the INCOME PERSON file (#408.13)" Line Location: HDR+10
Function Call: WRITE	Prompt: !,?4,"These entries must be corrected using the Edit an Existing Means Test",!,?4,"Option before merging or deleting." Line Location: HDR+11
Function Call: WRITE	Prompt: !!,"NOTE: Corrective action does not apply to deceased duplicates." Line Location: HDR+12
Function Call: WRITE	Prompt: !!?(COL3),"408.12" Line Location: HDR+13
Function Call: WRITE	Prompt: !,"SSN",?COL2,"NAME",?(COL3+2),"IEN",?COL4,"DOB",?COL5,"ACT",?COL6,"EFF DATE",?COL7,"TYPE" Line Location: HDR+14
Function Call: WRITE	Prompt: !,$E(DAL,1,9),?COL2,$E(DAL,1,25),?COL3,$E(DAL,1,7),?COL4,$E(DAL,1,8),?COL5,$E(DAL,1,3),?COL6,$E(DAL,1,8),?COL7,$E(DAL,1,5) Line Location: HDR+15
Function Call: WRITE	Prompt: ! Line Location: LOOP+31