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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 6 ^%ZTER  (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$HTE)^XLFDT  $$REPEAT^XLFSTR  $$TF^XUAF4  EN^XUTMDEVQ  
VA Fileman 2 NOW^%DTC  ^DIR  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGEN NON-TREATING PF CLEAN UP  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC NOWDTTM
^%ZTER ERROR+5
^%ZTLOAD TASK+3
$$S^%ZTLOAD COMPILE+15
^DIR ASKPRINT+11, USERDESC+18
$$FMADD^XLFDT COMPILE+10
$$FMTE^XLFDT ASKPRINT+2, ASKPRINT+7
$$HTE^XLFDT SNDMSG+4, PRNHEAD+4
$$REPEAT^XLFSTR EP+8
^XMD SNDMSG+28
$$TF^XUAF4 COMPILE+17
EN^XUTMDEVQ ASKPRINT+14

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
Routine Call
  • DIR
  • Line Location:
    • ASKPRINT+11
    • USERDESC+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("ERRTN" COMPILE+29, ERROR+3
^%ZOSF("TRAP" COMPILE+30, ERROR+4
^DIC(4 - [#4] PRINT+11, SNDMSG+25
^DPT - [#2] COMPILE+13, COMPILE+16, PRINT+8
^TMP("DG53355A" SNDMSG+10!, SNDMSG+29!, MSGADD+1, MSGADD+2*
^XTMP("DG53355A" EP+3, COMPILE+3!, COMPILE+7*, COMPILE+10*, COMPILE+14*, COMPILE+18*, COMPILE+19*, COMPILE+20*, COMPILE+22*, COMPILE+23*
, PRINT+5, PRINT+6, PRINT+7, SNDMSG+23, SNDMSG+24, SNDMSG+25

Label References

Name Line Occurrences
$$NOWDTTM COMPILE+6, COMPILE+22
$$USERDESC EP+12
ASKPRINT EP+15
MSGADD SNDMSG+11, SNDMSG+12, SNDMSG+13, SNDMSG+15, SNDMSG+16, SNDMSG+17, SNDMSG+18, SNDMSG+19, SNDMSG+20, SNDMSG+21
, SNDMSG+22, SNDMSG+23, SNDMSG+25, SNDMSG+26, SNDMSG+27
PRNHEAD PRINT+3, PRINT+12
SNDMSG COMPILE+25, ERROR+2
TASK EP+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOWDTTM~
%H NOWDTTM~
%I NOWDTTM~
DIFROM EP~
DIR ASKPRINT+1~, USERDESC+17!
DIR("A" ASKPRINT+10*, USERDESC+17*
DIR("B" ASKPRINT+10*, USERDESC+17*
DIR(0 ASKPRINT+10*, USERDESC+17*
DIROUT ASKPRINT+1~, ASKPRINT+11, USERDESC+18
DIRUT ASKPRINT+1~, ASKPRINT+11, USERDESC+18
DT COMPILE+10
DTOUT ASKPRINT+1~, ASKPRINT+11, USERDESC+18
DUOUT ASKPRINT+1~, ASKPRINT+11, USERDESC+18
DUZ SNDMSG+8
IOF EP+6, PRNHEAD+3
MSGDTM SNDMSG+1~, SNDMSG+4*, SNDMSG+13
MSGLINE MSGADD~, MSGADD+1*, MSGADD+2
QUIT SNDMSG+1~
STAT SNDMSG~, SNDMSG+3*, SNDMSG+13, SNDMSG+14
U EP+4, COMPILE+4, COMPILE+5, COMPILE+6, COMPILE+10, COMPILE+14, COMPILE+16, COMPILE+20, COMPILE+22, COMPILE+23
, ASKPRINT+2, ASKPRINT+7, PRINT+9, PRINT+10, PRINT+11, SNDMSG+25
X EP+11*, COMPILE+29*, NOWDTTM~, PRNHEAD+1~, ERROR+1~*, ERROR+3*
XCTR COMPILE+1~, COMPILE+12*, COMPILE+15*
XDESC EP~, EP+2*, EP+7, ASKPRINT+14, PRINT~, TASK+2, PRNHEAD+3
XIEN COMPILE+1~, COMPILE+12*, COMPILE+13*, COMPILE+14, COMPILE+16, COMPILE+19, COMPILE+20, PRINT+1~, PRINT+7*, PRINT+8
XLINE MSGADD~, MSGADD+2
XLN SNDMSG+1~
XLNCNT PRINT+1~, PRINT+12*, PRNHEAD+2*
XMDUZ SNDMSG+1~, SNDMSG+7*
XMSUB SNDMSG+1~, SNDMSG+6*, SNDMSG+11
XMTEXT SNDMSG+1~, SNDMSG+5*
XMY SNDMSG+1~
XMY( SNDMSG+8*
XNODE EP~, EP+3*, EP+4, COMPILE+4*, COMPILE+5*, COMPILE+6*, COMPILE+7, ASKPRINT+2, ASKPRINT+7, PRINT+1~
, PRINT+8*, PRINT+9, PRINT+10
XPFAC COMPILE+1~, COMPILE+16*, COMPILE+17, COMPILE+18, COMPILE+19, PRINT+1~, PRINT+6*, PRINT+7, PRINT+11, SNDMSG+24*
, SNDMSG+25
XPGNUM PRINT+1~, PRINT+2*, PRNHEAD+2*, PRNHEAD+4
XSTAT EP~, EP+4*, EP+10, EP+15, ASKPRINT+3
XTXT SNDMSG+1~
>> Y ASKPRINT+11, USERDESC+18
ZTDESC COMPILE+10, SNDMSG+6, TASK+1~, TASK+2*
ZTIO TASK+1~, TASK+2*
>> ZTQUEUED ASKPRINT+15
>> ZTREQ COMPILE+26*, PRINT+14*
ZTRTN TASK+1~, TASK+2*
>> ZTSK EP+13, COMPILE+5, COMPILE+29, ASKPRINT+15, TASK+4, ERROR+3
>> ZTSTOP COMPILE+12*, COMPILE+13, COMPILE+15*, COMPILE+23, COMPILE+25
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All