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: DG53355A

Package: Registration

Routine: DG53355A


Information

DG53355A ;ALB/TM - NON TREATING PREFERRED FACILITY CLEAN UP ; 1/29/01 2:55pm

Source Information

Source file <DG53355A.m>

Entry Points

Name Comments DBIA/ICR reference
GBLDOC ;-----------------------------------------------------------------
; The report uses the ^XTMP("DG53355A") global to store the results.
; The format of the ^XTMP global is described below.
EP
COMPILE ; Look at all entries in the PATIENT file (#2).
ASKPRINT ; Prompt user to print detail report.
PRINT(XDESC) ; Print detail report.
SNDMSG(STAT) ; send MailMan message
MSGADD(XLINE)
TASK ;Task job using TaskMan
NOWDTTM()
PRNHEAD ; Print report heading
ERROR ; Record error and send MailMan message
USERDESC() ;Write description to the screen for the user

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EP+6
Function Call: WRITE
  • Prompt: !!," ",XDESC
  • Line Location: EP+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",65)
  • Line Location: EP+8
Function Call: WRITE
  • Prompt: !!,"Compile Start Date/Time: ",$$FMTE^XLFDT($P(XNODE,U,3))
  • Line Location: ASKPRINT+2
Function Call: WRITE
  • Prompt: !!,"Report is currently compiling!"
  • Line Location: ASKPRINT+4
Function Call: WRITE
  • Prompt: !,"A MailMan message will be sent when the compile is complete."
  • Line Location: ASKPRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRINT+6
Function Call: WRITE
  • Prompt: !," Compile Stop Date/Time: ",$$FMTE^XLFDT($P(XNODE,U,4))
  • Line Location: ASKPRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKPRINT+14
Function Call: WRITE
  • Prompt: !!,"TaskMan Task: ",$G(ZTSK)
  • Line Location: ASKPRINT+15
Function Call: WRITE
  • Prompt: !,$P(XNODE,U,9)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?15,$E($P(XNODE,U),1,30)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?47,$E((XPFAC_" ("_$P($G(^DIC(4,XPFAC,0)),U)),1,30)_")"
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!,"*** END OF REPORT ***"
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: TASK+3
Function Call: WRITE
  • Prompt: @IOF,!!!,?(80-$L(XDESC)/2),XDESC
  • Line Location: PRNHEAD+3
Function Call: WRITE
  • Prompt: !!,"Run Date: ",$$HTE^XLFDT($H),?68,"Page: ",XPGNUM
  • Line Location: PRNHEAD+4
Function Call: WRITE
  • Prompt: !!,"Veteran SSN",?15,"Veteran Name"
  • Line Location: PRNHEAD+5
Function Call: WRITE
  • Prompt: ?47,"Current Preferred Facility"
  • Line Location: PRNHEAD+6
Function Call: WRITE
  • Prompt: !,"===========",?15,"============"
  • Line Location: PRNHEAD+7
Function Call: WRITE
  • Prompt: ?47,"=========================="
  • Line Location: PRNHEAD+8
Function Call: WRITE
  • Prompt: !!,"This process will find all patients that have a non-treating"
  • Line Location: USERDESC+1
Function Call: WRITE
  • Prompt: !,"Preferred Facility on file. All identified patients will need"
  • Line Location: USERDESC+2
Function Call: WRITE
  • Prompt: !,"to have their Preferred Facility changed to a valid treating"
  • Line Location: USERDESC+3
Function Call: WRITE
  • Prompt: !,"facility.",!
  • 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) Compile 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: !," compile is complete."
  • Line Location: USERDESC+9
Function Call: WRITE
  • Prompt: !," 2) The user will need to return to this option to print"
  • Line Location: USERDESC+10
Function Call: WRITE
  • Prompt: !," the detail report within 30 days to avoid recompiling."
  • Line Location: USERDESC+11
Function Call: WRITE
  • Prompt: !," NOTE: The system will purge the compiled data after 30"
  • Line Location: USERDESC+12
Function Call: WRITE
  • Prompt: !," days!"
  • Line Location: USERDESC+13
Function Call: WRITE
  • Prompt: !!,"All compiled data will be stored in the ^XTMP(""DG53355A"") "
  • Line Location: USERDESC+14
Function Call: WRITE
  • Prompt: "global.",!
  • Line Location: USERDESC+15
Info |  Source |  Entry Points |  Interaction Calls