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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call