Routine: DG53735P

Information

DG53735P ;EG,TMK - Re-transmit OEF-OIF Data to HEC ; 10/24/2006

Name	Comments	DBIA/ICR reference
EP	; Queue the conversion
POST
END	; Post-install done
QUE
RUN	;entry point from taskman
TEST	; test entry point
TESTID(MESS)	;
DEQUE(NAMSPC)	;
SETUPX(EXPDAYS,NAMSPC)	; ; requires EXPDAYS - # of days to keep XTMP
LOOP(NAMSPC,TESTING)	;
ALOEIF(NAMSPC,TESTING,ZTSTOP)	;
CHKR(DFN,IEN)	;
TRANSMIT(DFN)	;
CHPAT(DFN,CEN,CALC)	; Function returns: ; 0 if no CV End date or CV End date not correct ; 1 if CV End Date correct ; Also returns CEN=CV END DATE ON FILE CALC=CALCULATED CV END DATE
UPDCVED(NAMSPC,DFN,CEN,CALC)	; Update CV end date
SET(DFN,CEN,CALC,REASON)	;
UPDATEX(NAMSPC,TOTREC,LASTREC,TOTPAT)	;
STATUS	; current run status
STOP(NAMSPC)	; returns stop flag
MAIL(NAMSPC,TESTING,DUZ)	; stats
HDNG(NAMSPC,LIN,STAT,STIME,ETIME,TESTING)	; hdr lines
SUMRY(LIN,TOTREC,TOTPAT,NAMSPC)	; summary lines
BLDLINE(NAMSPC,TEXT,LIN)	;bld line in TMP
MAILIT(HTEXT,DUZ,NAMSPC)	; send mail msg
CHKSTAT(POST,NAMSPC)	;check if job is running, stopped, or complete
KILIT(POST,NAMSPC)	;
NAMSPC()	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,"Ending To Date can't be less than starting To Date" Line Location: TEST+10
Function Call: WRITE	Prompt: !! Line Location: TESTID+3
Function Call: WRITE	Prompt: !!,"Task not started!!!" Line Location: STATUS+4
Function Call: WRITE	Prompt: !!," Current status: ",$P(X,U,6) Line Location: STATUS+5
Function Call: WRITE	Prompt: !," Starting time: ",$$FMTE^XLFDT($P(X,U,7)) Line Location: STATUS+6
Function Call: WRITE	Prompt: !," Ending time: ",$$FMTE^XLFDT($P(X,U,8)) Line Location: STATUS+8
Function Call: WRITE	Prompt: !!," Total patient records read: ",$P(X,U,2) Line Location: STATUS+9
Function Call: WRITE	Prompt: !," Last ALOEIF xref processed: ",$P(X,U,1) Line Location: STATUS+10
Function Call: WRITE	Prompt: !," Total patient records set for re-transmit: ",$P(X,U,10) Line Location: STATUS+11

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls