Routine: RGMTDPSC

Information

RGMTDPSC ;GAI/TMG-COUNT DUPLICATE RECORD ENTRIES BY CMOR SCORE RANGE ;5/30/98

Name	Comments	DBIA/ICR reference
EN	; que or select device for output
SCAN	; search and count duplicate pairs by score ranges
EXIT
PRINT	; print duplicate pair counts by score range
HDR
MSG	;create the message
MSG1	;call XMD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The option, Start/Restart CMOR Score Calculation" Line Location: EN+2
Function Call: WRITE	Prompt: !,"[RG CMOR START], needs to be run before this option." Line Location: EN+3
Function Call: WRITE	Prompt: !?10,PRANGE,?40,$J(SCRARR("RANGE","ZERO"),6,0) Line Location: PRINT+4
Function Call: WRITE	Prompt: !?10,PRANGE,?39,$J(SCRARR("RANGE",SCRANGE),6,0) Line Location: PRINT+12
Function Call: WRITE	Prompt: !!,"TOTAL Potential Duplicates (15): ",?39,$J(COUNT,6,0) Line Location: PRINT+14
Function Call: WRITE	Prompt: !,"TOTAL Patients (2): ",?39,$J(DPTCNT,6,0) Line Location: PRINT+15
Function Call: WRITE	Prompt: # Line Location: HDR+3
Function Call: WRITE	Prompt: "Duplicate Record Count by CMOR Score",?(IOM-23),"Page: ",PAGE Line Location: HDR+4
Function Call: WRITE	Prompt: !?(IOM-23),"Date: ",PRDT,! Line Location: HDR+5
Function Call: WRITE	Prompt: "-" Line Location: HDR+6
Function Call: WRITE	Prompt: !!,?10,"Score Range",?40,"Count",!?10,"-----------",?40,"-----",! Line Location: HDR+16