Routine: DG53355A

Information

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

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

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

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

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

Customize PDF page

Package: Registration