Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  ($$NEWCP,BMES,MES)^XPDUTL  
VA FileMan 3 $$FIND1^DIC  ^DIE  ^DIR  
MailMan 1 ^XMD  

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

External References

Name Field # of Occurrence
^%ZTLOAD POST+5
$$S^%ZTLOAD STOP+3
$$FIND1^DIC EVC1+5
^DIE EVC1+8, OEIF+9
^DIR STATUS+3
$$FMADD^XLFDT SETUPX+5
$$FMTE^XLFDT STATUS+10, STATUS+11, HDNG+5
$$NOW^XLFDT POST+5, QUE+7, QUE+13, SETUPX+4, STOP+7
^XMD MAILIT+6
$$NEWCP^XPDUTL EP+2, EP+3, EP+4
BMES^XPDUTL POST+2, POST+6, POST+7, POST+8, EVC1+4, EVC1+10, END+1
MES^XPDUTL EVC1+7, EVC1+9

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
Routine Call
  • DIC
  • Line Location:
    • EVC1+5
Routine Call
  • DIE
  • Line Location:
    • EVC1+8
    • OEIF+9
Routine Call
  • DIR
  • Line Location:
    • STATUS+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] OEIF+8
^DPT - [#2] OEIF+8
^TMP( MAIL+11!, HDNG+2!, BLDLINE+2*
^XTMP( POST+3!, QUE+4, QUE+8*, QUE+11, QUE+14*, SETUPX+6*, SETUPX+7*, LOOP+5, LOOP+6, UPDATEX+2
, UPDATEX+5*, STATUS+7, STOP+4!, STOP+6, STOP+8*, MAIL+2

Label References

Name Line Occurrences
$$CHKR OEIF+10
$$LOOP QUE+10
$$NAMSPC POST+3, RUN+2, TEST+2, SETUPX+3, STATUS+5
$$STOP CHKR+6
BLDLINE HDNG+6, HDNG+7, HDNG+10, HDNG+11, SUMRY+3, SUMRY+5
HDNG MAIL+8
MAIL QUE+5, QUE+16
MAILIT MAIL+10
OEIF LOOP+14
QUE RUN+3, TEST+3
SETUPX QUE+3
SUMRY MAIL+9
UPDATEX CHKR+5

Naked Globals

Name Field # of Occurrence
^( OEIF+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EP+1~, EP+2*, EP+3*, EP+4*
BEGTIME SETUPX+2~, SETUPX+4*, SETUPX+5, SETUPX+6
DA EVC1+2~, EVC1+5*, EVC1+6, OEIF+1~, OEIF+9*
DA(1 OEIF+9*
DFN OEIF+1~, OEIF+7*, OEIF+8, OEIF+9
DGX QUE+1~, QUE+4*, QUE+5, QUE+6*, QUE+7*, QUE+8
DIE EVC1+2~, EVC1+5*, OEIF+1~, OEIF+9*
DIR STATUS+1~, STATUS+3!
DIR("A" STATUS+2*
DIR("B" STATUS+2*
DIR(0 STATUS+2*
DR EVC1+2~, EVC1+8*, OEIF+1~, OEIF+9*
DTOUT STATUS+1~, STATUS+4
DUOUT STATUS+1~, STATUS+4
DUZ MAILIT+2
ETIME MAIL+1~, MAIL+5*, MAIL+8, HDNG~, HDNG+5
EXPDAYS SETUPX~, SETUPX+5
GBL OEIF+1~, OEIF+3*, OEIF+5*, OEIF+6*, OEIF+7*, OEIF+10, CHKR~, CHKR+3
HTEXT MAIL+1~, MAIL+8, MAIL+10, HDNG~, HDNG+4*, HDNG+5*, HDNG+6, MAILIT~, MAILIT+4
LASTREC LOOP+2~, LOOP+3*, LOOP+8*, LOOP+14, OEIF~, OEIF+4, OEIF+5, CHKR+3*, CHKR+5, UPDATEX~
, UPDATEX+3
LIN MAIL+1~, MAIL+8, MAIL+9, HDNG~, HDNG+3*, HDNG+6, HDNG+7, HDNG+10, HDNG+11, SUMRY~
, SUMRY+3, SUMRY+5, BLDLINE~, BLDLINE+1*, BLDLINE+2
MSGNO MAIL+1~
NAMSPC RUN+1~, RUN+2*, RUN+3, TEST+1~, TEST+2*, TEST+3, QUE~, QUE+3, QUE+4, QUE+5
, QUE+8, QUE+10, QUE+11, QUE+14, QUE+16, SETUPX~, SETUPX+3*, SETUPX+6, SETUPX+7, LOOP~
, LOOP+5, LOOP+6, LOOP+14, OEIF~, OEIF+10, CHKR~, CHKR+5, CHKR+6, UPDATEX~, UPDATEX+2
, UPDATEX+5, STATUS+1~, STATUS+5*, STATUS+7, STOP~, STOP+4, STOP+6, STOP+8, MAIL~, MAIL+2
, MAIL+8, MAIL+10, MAIL+11, HDNG~, HDNG+2, HDNG+6, HDNG+7, HDNG+10, HDNG+11, SUMRY+3
, SUMRY+5, BLDLINE~, BLDLINE+2, MAILIT~
OEIF OEIF+1~, OEIF+8*, OEIF+9
PURGDT SETUPX+2~, SETUPX+5*, SETUPX+6
RULE EVC1+2~, EVC1+3*, EVC1+4, EVC1+5
SITE OEIF+1~, OEIF+8*, OEIF+9
STAT MAIL+1~, MAIL+4*, MAIL+8, HDNG~, HDNG+4
STIME MAIL+1~, MAIL+4*, MAIL+8, HDNG~
TESTING QUE~, QUE+2*, QUE+5, QUE+10, QUE+16, LOOP~, LOOP+14, OEIF~, OEIF+9, OEIF+10
, CHKR~, MAIL~, MAIL+8, HDNG~, HDNG+8
TEXT HDNG+1~, HDNG+9*, HDNG+10, SUMRY+1~, SUMRY+2*, SUMRY+3, SUMRY+4*, SUMRY+5, BLDLINE~, BLDLINE+2
TOTPAT LOOP+2~, LOOP+12*, OEIF+9*, OEIF+10, CHKR~, CHKR+5, UPDATEX~, UPDATEX+4, MAIL+1~, MAIL+6*
, MAIL+9, SUMRY~, SUMRY+4
TOTREC LOOP+2~, LOOP+4*, LOOP+10*, OEIF+10, CHKR~, CHKR+4*, CHKR+5, CHKR+6, UPDATEX~, UPDATEX+3
, MAIL+1~, MAIL+3*, MAIL+9, SUMRY~, SUMRY+2
U QUE+5, QUE+6, QUE+7, QUE+10, QUE+12, QUE+13, SETUPX+6, SETUPX+7, LOOP+8, LOOP+10
, LOOP+12, OEIF+8, UPDATEX+3, UPDATEX+4, STATUS+9, STATUS+10, STATUS+11, STATUS+12, STATUS+13, STATUS+14
, STOP+7, MAIL+3, MAIL+4, MAIL+5, MAIL+6
X EVC1+2~, QUE+1~, QUE+10*, QUE+11*, QUE+12*, QUE+13*, QUE+14, LOOP+2~, OEIF+1~, CHKR+1~
, UPDATEX+1~, UPDATEX+2*, UPDATEX+3*, UPDATEX+4*, UPDATEX+5, STATUS+1~, STATUS+7*, STATUS+8, STATUS+9, STATUS+10
, STATUS+11, STATUS+12, STATUS+13, STATUS+14, STOP+1~, STOP+6*, STOP+7*, STOP+8, MAIL+1~, MAIL+2*
, MAIL+3, MAIL+4, MAIL+5, MAIL+6, HDNG+1~
XMDUZ MAILIT+1~, MAILIT+2*
XMSUB MAILIT+1~, MAILIT+4*
XMTEXT MAILIT+1~, MAILIT+5*
XMY MAILIT+1~
XMY( MAILIT+2*
XMY("G.DGEN E LIGIBILITY ALERT" , MAILIT+3*
XREC LOOP+2~, LOOP+6*, LOOP+8, LOOP+10, LOOP+12
Y EVC1+2~, QUE+1~, OEIF+1~, STATUS+1~, STATUS+5, STATUS+6, HDNG+1~
Z OEIF+1~, OEIF+5*, CHKR+1~, CHKR+3*
ZTDESC POST+1~, POST+4*
ZTDTH POST+1~, POST+5*
ZTIO POST+1~, POST+5*
ZTRTN POST+1~, POST+4*
ZTSAVE POST+1~
ZTSK POST+1~, POST+6
ZTSTOP QUE+1~, QUE+10*, QUE+12, LOOP+3*, LOOP+15, OEIF+2*, OEIF+7, OEIF+10*, CHKR+1~, CHKR+2*
, CHKR+6*, CHKR+7, STOP+1~, STOP+2*, STOP+3*, STOP+4*, STOP+5, STOP+10

Marked Items

Name Field # of Occurrence
$T( NAMSPC+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All