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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: DG53P893

Package: Registration

Routine: DG53P893


Information

DG53P893 ;ALB/LLS - Rebuild AEAR index ; 7/18/14 8:24am

Source Information

Source file <DG53P893.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$HTE,$$HTFM,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
MailMan 1 ^XMD  
VA FileMan 1 EN1^DIK  

Entry Points

Name Comments DBIA/ICR reference
GBLDOC ;-----------------------------------------------------------------
; The report uses the ^XTMP("DG53P893") global to store the results.
; The format of the ^XTMP global is described below.
EP
EP2
PROCESS ; Look at all entries in the PATIENT file (#2).
REIND(DG) ;re-index "AEAR" cross-reference.
ASKPRINT ; Prompt user to print detail report.
EXIT ;
PRINT(DGDESC) ; Print detail report.
SNDMSG ; send MailMan message
MSGADD(DGLINE)
TASK ;Task the job using TaskMan
PRNHEAD ; Print report heading
USERDESC ;Write description to the screen for the user

External References

Name Field # of Occurrence
^%ZIS ASKPRINT+25
HOME^%ZIS ASKPRINT+30, EXIT+1
^%ZISC ASKPRINT+30, EXIT+1
^%ZTLOAD ASKPRINT+29, TASK+4
EN1^DIK REIND+3
$$FMADD^XLFDT PROCESS+11
$$FMTE^XLFDT EP2+13, ASKPRINT+2, ASKPRINT+8, ASKPRINT+13, PRINT+13, SNDMSG+11, SNDMSG+12, SNDMSG+16
$$HTE^XLFDT PRNHEAD+3
$$HTFM^XLFDT ASKPRINT+8
$$NOW^XLFDT PROCESS+6, PROCESS+22, TASK+3
$$REPEAT^XLFSTR EP+9, EP2+8
^XMD SNDMSG+27

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EP+7
Function Call: WRITE
  • Prompt: !!," ",DGDESC
  • Line Location: EP+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",65)
  • Line Location: EP+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EP2+6
Function Call: WRITE
  • Prompt: !!," ",DGDESC
  • Line Location: EP2+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",65)
  • Line Location: EP2+8
Function Call: WRITE
  • Prompt: !,"AEAR index was previously rebuilt on ",$$FMTE^XLFDT($P(DGNODE,U,3))
  • Line Location: EP2+13
Function Call: WRITE
  • Prompt: !,"You can run D EP^DG53P893 from a programmer prompt to see the report.",!!
  • Line Location: EP2+14
Function Call: WRITE
  • Prompt: !!,"Process Start Date/Time: ",$$FMTE^XLFDT($P(DGNODE,U,3))
  • Line Location: ASKPRINT+2
Function Call: WRITE
  • Prompt: !!,"Task ",DGTSK," has stopped and logged error #",DGII
  • Line Location: ASKPRINT+7
Function Call: WRITE
  • Prompt: " on ",$$FMTE^XLFDT($$HTFM^XLFDT(DGH))
  • Line Location: ASKPRINT+8
Function Call: WRITE
  • Prompt: !!,"The process [task #",DGTSK,"] is currently running!"
  • Line Location: ASKPRINT+10
Function Call: WRITE
  • Prompt: !,"A MailMan message will be sent when the process is complete."
  • Line Location: ASKPRINT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRINT+12
Function Call: WRITE
  • Prompt: !," Process Stop Date/Time: ",$$FMTE^XLFDT($P(DGNODE,U,4))
  • Line Location: ASKPRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRINT+14
Function Call: WRITE
  • Prompt: !,"Number of patient records processed: ",$P(DGNODE,U,5)
  • Line Location: ASKPRINT+15
Function Call: WRITE
  • Prompt: !,"Number of AEAR indexes rebuilt: "
  • Line Location: ASKPRINT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRINT+18
Function Call: WRITE
  • Prompt: !,"Please choose a device for the printing of"
  • Line Location: ASKPRINT+20
Function Call: WRITE
  • Prompt: !,"the detailed report or enter '^' to quit:"
  • Line Location: ASKPRINT+21
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK: "_$G(ZTSK),1:"REQUEST CANCELLED!")
  • Line Location: ASKPRINT+31
Function Call: WRITE
  • Prompt: !,DGIEN
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?15,$E($P(DGNODE,U),1,30)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,"Process was run from ",$$FMTE^XLFDT($P(DGNODE,U,3))," to ",$$FMTE^XLFDT($P(DGNODE,U,4))
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,"Number of patient records processed: ",$P(DGNODE,U,5)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"Number of AEAR indexes rebuilt: "
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,"*** END OF REPORT ***"
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: TASK+4
Function Call: WRITE
  • Prompt: @IOF,!!!,?(80-$L(DGDESC)/2),DGDESC
  • Line Location: PRNHEAD+2
Function Call: WRITE
  • Prompt: !!,"Run Date: ",$$HTE^XLFDT($H),?68,"Page: ",DGPGNUM
  • Line Location: PRNHEAD+3
Function Call: WRITE
  • Prompt: !!,"Patient IEN",?15,"Patient Name"
  • Line Location: PRNHEAD+4
Function Call: WRITE
  • Prompt: !,"===========",?15,"============"
  • Line Location: PRNHEAD+5
Function Call: WRITE
  • Prompt: !!,"This process will find all entries in the PATIENT file (#2) that"
  • Line Location: USERDESC+1
Function Call: WRITE
  • Prompt: !,"have field APPOINTMENT REQUEST ON 1010EZ (#1010.159) set to Y"
  • Line Location: USERDESC+2
Function Call: WRITE
  • Prompt: !,"and do not have an AEAR index for that field. The process will"
  • Line Location: USERDESC+3
Function Call: WRITE
  • Prompt: !,"set the index."
  • Line Location: USERDESC+4
Function Call: WRITE
  • Prompt: !!,"The clean up process will perform the following steps in order:"
  • Line Location: USERDESC+5
Function Call: WRITE
  • Prompt: !," 1) Search/update the patient data. (This step looks at "
  • Line Location: USERDESC+6
Function Call: WRITE
  • Prompt: !," every patient in the PATIENT (#2) file.) A summary"
  • Line Location: USERDESC+7
Function Call: WRITE
  • Prompt: !," MailMan message will be sent to the user when the"
  • Line Location: USERDESC+8
Function Call: WRITE
  • Prompt: !," search/update is complete."
  • Line Location: USERDESC+9
Function Call: WRITE
  • Prompt: !," 2) The user will need run D EP^DG53P893 from the programmer"
  • Line Location: USERDESC+10
Function Call: WRITE
  • Prompt: !," prompt to view the detailed report within 90 days."
  • Line Location: USERDESC+11
Function Call: WRITE
  • Prompt: !," NOTE: The system will purge the process log after 90"
  • Line Location: USERDESC+12
Function Call: WRITE
  • Prompt: !," days!"
  • Line Location: USERDESC+13
Function Call: WRITE
  • Prompt: !!,"Log data will be stored in the ^XTMP(""DG53P893"") global.",!
  • Line Location: USERDESC+14
Routine Call
  • %ZIS
  • Line Location:
    • ASKPRINT+25
Routine Call
  • %ZIS
  • Line Location:
    • ASKPRINT+30
    • EXIT+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTER(1 - [#3.075] ASKPRINT+6
^DPT - [#2] PROCESS+14, PROCESS+16, PRINT+6
^DPT("AEAR" PROCESS+17
^TMP("DG53P893" SNDMSG+8!, SNDMSG+28!, MSGADD+1, MSGADD+2*
^XTMP("DG53P893" EP+4, EP2+3, PROCESS+3!, PROCESS+8*, PROCESS+11*, PROCESS+19*, PROCESS+21*, PROCESS+22*, PROCESS+23*, PRINT+5
, PRINT+11, SNDMSG+11, SNDMSG+12, SNDMSG+16, SNDMSG+20, SNDMSG+23, SNDMSG+24

Label References

Name Line Occurrences
ASKPRINT EP+13
EXIT ASKPRINT+25, ASKPRINT+32
MSGADD SNDMSG+9, SNDMSG+10, SNDMSG+11, SNDMSG+12, SNDMSG+13, SNDMSG+14, SNDMSG+15, SNDMSG+16, SNDMSG+17, SNDMSG+18
, SNDMSG+19, SNDMSG+20, SNDMSG+21, SNDMSG+22, SNDMSG+23, SNDMSG+24, SNDMSG+25, SNDMSG+26
PRINT ASKPRINT+32
PRNHEAD PRINT+3, PRINT+9, PRINT+10
REIND PROCESS+18
SNDMSG EP2+12, PROCESS+25
TASK EP+11, EP2+10
USERDESC EP+11, EP2+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKPRINT+24!, ASKPRINT+25*
DA REIND+1~, REIND+2*
DG REIND~, REIND+2
DGCTR PROCESS+1~, PROCESS+13*, PROCESS+15*, PROCESS+21
DGCTR2 PROCESS+1~, PROCESS+13*, PROCESS+18*, PROCESS+21
DGDESC EP~, EP+3*, EP+8, EP2~, EP2+2*, EP2+7, PRINT~, TASK+2, PRNHEAD+2
DGH ASKPRINT+1~, ASKPRINT+4*, ASKPRINT+6*, ASKPRINT+8, ASKPRINT+9
DGIEN PROCESS+1~, PROCESS+13*, PROCESS+14*, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19, PRINT+1~, PRINT+5*, PRINT+6
, PRINT+7
DGII ASKPRINT+1~, ASKPRINT+6*, ASKPRINT+7
DGLINE MSGADD~, MSGADD+2
DGLN SNDMSG+1~
DGLNCNT PRINT+1~, PRINT+9*, PRINT+10, PRNHEAD+1*
DGNODE EP~, EP+4*, EP+5, EP2~, EP2+3*, EP2+4, EP2+13, PROCESS+4*, PROCESS+5*, PROCESS+6*
, PROCESS+7*, PROCESS+8, ASKPRINT+2, ASKPRINT+4, ASKPRINT+5, ASKPRINT+13, ASKPRINT+15, ASKPRINT+17, PRINT+1~, PRINT+6*
, PRINT+8, PRINT+11*, PRINT+12, PRINT+13, PRINT+14, PRINT+16
DGPFAC PROCESS+1~, PRINT+1~
DGPGNUM PRINT+1~, PRINT+2*, PRNHEAD+1*, PRNHEAD+3
DGSTAT EP~, EP+5*, EP+11, EP+13, EP2~, EP2+4*, EP2+10, EP2+12, ASKPRINT+3
DGTSK ASKPRINT+1~, ASKPRINT+5*, ASKPRINT+6, ASKPRINT+7, ASKPRINT+10
DGTXT SNDMSG+1~
DIFROM EP~, EP2~
DIK REIND+1~, REIND+2*
DIK(1 REIND+2*
DIR ASKPRINT+1~
DIROUT ASKPRINT+1~
DIRUT ASKPRINT+1~
DT PROCESS+11
DTOUT ASKPRINT+1~
DUOUT ASKPRINT+1~
DUZ SNDMSG+6
IO ASKPRINT+32
IO("Q" ASKPRINT+26
IOF EP+7, EP2+6, PRNHEAD+2
IOP ASKPRINT+24!
MSGLINE MSGADD~, MSGADD+1*, MSGADD+2
POP ASKPRINT+1~, ASKPRINT+25
U EP+5, EP2+4, EP2+13, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+11, PROCESS+16, PROCESS+21
, PROCESS+22, PROCESS+23, ASKPRINT+2, ASKPRINT+4, ASKPRINT+5, ASKPRINT+13, ASKPRINT+15, ASKPRINT+17, PRINT+8, PRINT+13
, PRINT+14, PRINT+16, SNDMSG+11, SNDMSG+12, SNDMSG+20, SNDMSG+23, SNDMSG+24
XMDUZ SNDMSG+1~, SNDMSG+5*
XMSUB SNDMSG+1~, SNDMSG+4*, SNDMSG+9
XMTEXT SNDMSG+1~, SNDMSG+3*
XMY SNDMSG+1~
XMY( SNDMSG+6*
Y ASKPRINT+1~
ZTDESC PROCESS+11, ASKPRINT+27~, ASKPRINT+28*, TASK+1~, TASK+2*
ZTDTH ASKPRINT+27~, ASKPRINT+28*, TASK+3*
ZTIO TASK+1~, TASK+2*
ZTREQ EP~, EP2~
ZTRTN ASKPRINT+27~, ASKPRINT+28*, TASK+1~, TASK+2*
ZTSK PROCESS+5, ASKPRINT+1~, ASKPRINT+31, TASK+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All