Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DG53742

Package: Registration

Routine: DG53742


Information

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

Source Information

Source file <DG53742.m>

Entry Points

Name Comments DBIA/ICR reference
POST ; This routine was previously part of patch DG*5.3*742, 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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls