Routine: DG53742

Information

DG53742 ;ALB/TMK - DG*5.3*764 (formerly 742) Cleanup OEF/OIF site info; 01/10/2007

Source file <DG53742.m>

Name	Comments	DBIA/ICR reference
POST	; This routine was previously part of patch DG5.3742, now in *764
EP	; Queue the conversion
EVC1	; Update the USE FOR Z07 CHECK field #6 ; in the INCONSISTENT DATA ELEMENTS file #38.6 for CC 718
END	; Post-install done
RUN	; 'Live' entry point from taskman
TEST	;entry point for test mode
QUE(NAMSPC,TESTING)	;
SETUPX(NAMSPC,EXPDAYS)	; ; requires EXPDAYS - # days to keep XTMP around
LOOP(NAMSPC,TESTING)	;
OEIF(NAMSPC,TESTING,LASTREC)	;
CHKR(NAMSPC,TESTING,GBL,TOTPAT,TOTREC)	;
UPDATEX(NAMSPC,TOTREC,LASTREC,TOTPAT)	;
STATUS	;display status of current run
STOP(NAMSPC)	; returns stop flag
NAMSPC()	;
MAIL(NAMSPC,TESTING)	; mail stats
HDNG(NAMSPC,HTEXT,LIN,STAT,STIME,ETIME,TESTING)	; build heading lines
SUMRY(LIN,TOTREC,TOTPAT)	; build summary lines
BLDLINE(NAMSPC,TEXT,LIN)	;build a single line in TMP msg global
MAILIT(HTEXT,NAMSPC)	; send the msg

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"TEST TEST TEST TEST TEST TEST",! Line Location: STATUS+6
Function Call: WRITE	Prompt: !!,"Task not started!!!" Line Location: STATUS+8
Function Call: WRITE	Prompt: !!," Current status: ",$P(X,U,6) Line Location: STATUS+9
Function Call: WRITE	Prompt: !," Starting time: ",$$FMTE^XLFDT($P(X,U,7)) Line Location: STATUS+10
Function Call: WRITE	Prompt: !," Ending time: ",$$FMTE^XLFDT($P(X,U,8)) Line Location: STATUS+11
Function Call: WRITE	Prompt: !!," Total patient records read: ",$P(X,U,2) Line Location: STATUS+12
Function Call: WRITE	Prompt: !," Last patient record processed: ",$P(X,U,1) Line Location: STATUS+13
Function Call: WRITE	Prompt: !," Total OEF/OIF records changed: ",$P(X,U,10) Line Location: STATUS+14