Routine: PXRMCCHT

Information

PXRMCCHT ;BP/WAT; Report patients with Previous Enroll health factor ;06/03/16 08:14

Name	Comments	DBIA/ICR reference
EN
PRINT	; output
HEADER(PG)	;header
FINDPAT	;find patients with HT ENROLLMENT-START DATE (PREV ENROLL) health factor ; find health factor

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+11
Function Call: WRITE	Prompt: !," No data" Line Location: PRINT+9
Function Call: WRITE	Prompt: !!,^TMP("PXRMPATS",$J,HFNAME,PATNAME,0) Line Location: PRINT+25
Function Call: WRITE	Prompt: !,^TMP("PXRMPATS",$J,HFNAME,PATNAME,HFCOUNT) Line Location: PRINT+35
Function Call: WRITE	Prompt: !!,PXRMTOT Line Location: PRINT+37
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("END OF REPORT",$S(+$G(IOM)>0:(IOM-1),1:79)," "),! Line Location: PRINT+38
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+1
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM-2),! Line Location: HEADER+2
Function Call: WRITE	Prompt: "Patients with (CC)HT ENROLLMENT-START DATE (PREV ENROLL) Health Factor" Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"DATE RANGE - FROM: "_$$FMTE^XLFDT($G(BDT))_" TO: "_$$FMTE^XLFDT(DT) Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$G(RUNDATE) Line Location: HEADER+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM-2) Line Location: HEADER+6
Function Call: WRITE	Prompt: !," NAME AND LAST 4 SSN"_$$REPEAT^XLFSTR(" ",28)_"ENCOUNTER DATE" Line Location: HEADER+7
Function Call: WRITE	Prompt: !," PAGE: "_$G(PG) Line Location: HEADER+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM-2),! Line Location: HEADER+9