Routine: MMRSCDI2

Information

MMRSCDI2 ;LEIDOS/TCK - Print CDI report ; 4/12/17 11:57am

Name	Comments	DBIA/ICR reference
MAIN	;
CHECK	; Check if lab tests and etiologies are setup
ERROR	;
MAIN2	; Entry for queuing
GTDIV(MMRSDIV)	;
CLEAN	;
GETPARAM	; Loads lab search/extract parameters from file 104.1
GETDIV(MMRSDIV)	;
SETDATA	;
SETDATA2(DFN)	;
GTDATE(DFN,CDIVT,IND,DCDT)	;
GORDITM(LABTEST,LABORDER,TESTS)	;MIA/LMT - Added with patch MMRS11 - Include panels in search
GETORD(DFN,ORDITM,INDATE)	;
PRT	;
PRTHDRS	; Helper Function for PRT - Prints report headers
ASKDVC	;Prompts user for device of output (allows queuing)
QUIT	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MAIN+10
Function Call: WRITE	Prompt: !!,"END OF REPORT" Line Location: PRT+58
Function Call: WRITE	Prompt: @IOF Line Location: PRTHDRS+1
Function Call: WRITE	Prompt: ?13,"FACILITY CDI CASES REPORT" Line Location: PRTHDRS+2
Function Call: WRITE	Prompt: !,?13,"Division: ",DIVSN Line Location: PRTHDRS+3
Function Call: WRITE	Prompt: !,?13,"Geographical Location: ",WARDNAME Line Location: PRTHDRS+4
Function Call: WRITE	Prompt: !,?13,"Report period: ",$$FMTE^XLFDT(STRTDT)," to ",$$FMTE^XLFDT(ENDDT) Line Location: PRTHDRS+5
Function Call: WRITE	Prompt: !,?13,"Report printed on: ",$$FMTE^XLFDT(MMRSNOW),?75,"PAGE: ",PG Line Location: PRTHDRS+6
Function Call: WRITE	Prompt: !,"PATIENT",?25,"SSN",?30,"DOB",?42,"CDI Event D/T",?70,"ADM D/T",?90,"LOCATION",?105,"DC D/T",?130,"PREV CDI Event D/T" Line Location: PRTHDRS+7
Function Call: WRITE	Prompt: !,LN Line Location: PRTHDRS+8
Function Call: WRITE	Prompt: !! Line Location: ASKDVC+1
Function Call: WRITE	Prompt: !!!,"This report is designed for a 132 column format (compressed).",! Line Location: ASKDVC+3