DG712PST ;BIR/CMC/TKW,PTD-PATCH DG*5.3*712 POST INSTALLATION ROUTINE ;1/29/09 17:41
;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20
;
; IA #2796 for use of calls to RGHLLOG in UPDBAI
POST ;Post init
N DGFLD,DGMFLD,DGOUT,DGFILE
;File cross references
D XR(2,.121) ; BAD ADDRESS INDICATOR (#.121)
D XR(2,.133) ; EMAIL ADDRESS (#.133)
D XR(2,.134) ; PHONE NUMBER [CELLULAR] (#.134)
D TEMPL
;TURNING ON AUDITING FOR ALIAS FIELD(S)
D ALIAS
; Queue job to send A31 for patients with BAD ADDRESS INDICATOR
D UPDBAI
Q
;
XR(DGFILE,DGFLD) ;File index type cross references
;
N DGFDA,DGIEN,DGWP,DGERR,DGXR,DGVAL,DGOUT,DIERR
;Set up the cross-reference
I '$D(DGXR) S DGXR=$S(DGFLD[".":"AVAFC"_$P(DGFLD,".",2),1:"AVAFC"_DGFLD)
;Check for existing cross-reference
S DGVAL(1)=DGFILE,DGVAL(2)=DGXR
D FIND^DIC(.11,"","@;IXIE","KP",.DGVAL,"","","","","DGOUT")
I $D(DGOUT("DILIST",1)) D Q
.D MES^XPDUTL(" >> Cross reference "_DGXR_" already exists, nothing filed.")
.Q
;Create filer array
S DGFDA(.11,"+1,",.01)=DGFILE ;FILE
S DGFDA(.11,"+1,",.02)=DGXR ;NAME
S DGFDA(.11,"+1,",.11)="This x-ref calls the DG FIELD MONITOR event point." ;SHORT DESCRIPTION
S DGFDA(.11,"+1,",.2)="MU" ;TYPE
S DGFDA(.11,"+1,",.4)="F" ;EXECUTION
S DGFDA(.11,"+1,",.41)="I" ;ACTIVITY
S DGFDA(.11,"+1,",.5)="I" ;ROOT TYPE
S DGFDA(.11,"+1,",.51)=DGFILE ;ROOT FILE
S DGFDA(.11,"+1,",.42)="A" ;USE
S DGFDA(.11,"+1,",1.1)="D FC^DGFCPROT(.DA,"_DGFILE_","_DGFLD_",""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q" ;SET LOGIC
S DGFDA(.11,"+1,",2.1)="D FC^DGFCPROT(.DA,"_DGFILE_","_DGFLD_",""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q" ;KILL LOGIC
;CROSS REFERENCE VALUES
S DGFDA(.114,"+2,+1,",.01)=1 ;ORDER NUMBER
S DGFDA(.114,"+2,+1,",1)="F" ;TYPE OF VALUE
S DGFDA(.114,"+2,+1,",2)=DGFILE ;FILE NUMBER
S DGFDA(.114,"+2,+1,",3)=DGFLD ;FIELD NUMBER
S DGFDA(.114,"+2,+1,",7)="F" ;COLLATION
;DESCRIPTION
S DGWP(1)="This cross-reference activates the DG FIELD MONITOR event point."
S DGWP(2)="Applications that wish to monitor edit activity related to this field may"
S DGWP(3)="subscribe to that event point and take action as indicated by the changes"
S DGWP(4)="that occur. Refer to the DG FIELD MONITOR protocol for a description of"
S DGWP(5)="the information available at the time of the event."
;File INDEX record
D UPDATE^DIE("","DGFDA","DGIEN","DGERR")
I $D(DIERR) D Q
.N DGI S DGI=""
.D BMES^XPDUTL(" >> A problem has occurred during the filing of x-ref "_DGXR_"!")
.D MES^XPDUTL(" Please contact Customer Support.")
.F S DGI=$O(DGERR("DIERR",1,"TEXT",DGI)) Q:DGI="" D
..D MES^XPDUTL(DGERR("DIERR",1,"TEXT",DGI))
..Q
.Q
S DGFLD(DGFILE,DGFLD)="" ;Create list to recompile templates
D MES^XPDUTL(" >> "_DGXR_" cross-reference filed.")
;File DESCRIPTION field
D WP^DIE(.11,DGIEN(1)_",",.1,"","DGWP")
Q
;
TEMPL ;Determine templates on the PATIENT (#2) file to be compiled.
N GLOBAL,FIELD,NFIELD,FILE,CNT
D BMES^XPDUTL("Beginning to compile templates on the PATIENT (#2) file.")
;
S NFIELD=".121,.133,.134",FILE=2,FIELD="",CNT=1
F S FIELD=$P(NFIELD,",",CNT) Q:FIELD="" D LOOP(FIELD,FILE) S CNT=CNT+1
W !!
S (X,Y)=""
D BMES^XPDUTL("The following routine namespace was compiled:")
F S X=$O(CFIELD(X)) Q:X="" S Y=$G(Y)+1 S PRINT(Y)=" "_X_"*"
;
D MES^XPDUTL(.PRINT)
K X,Y,PRINT,CFIELD
Q
LOOP(FIELD,FILE) ;Compile templates.
N GLOBAL,TEMPLATP,TEMPLATN,X,Y,DMAX
F GLOBAL="^DIE","^DIPT" DO
.I $D(@GLOBAL@("AF",FILE,FIELD)) D
..S TEMPLATP=0
..F S TEMPLATP=$O(@GLOBAL@("AF",FILE,FIELD,TEMPLATP)) Q:'TEMPLATP DO
...S TEMPLATN=$P($G(@GLOBAL@(TEMPLATP,0)),"^",1)
...I TEMPLATN="" D BMES^XPDUTL("Could not compile template "_TEMPLATN_$C(13,10)_"Please review!") Q
...S X=$P($G(@GLOBAL@(TEMPLATP,"ROUOLD")),"^")
...I X=""&($D(@GLOBAL@(TEMPLATP,"ROU"))'=0) D BMES^XPDUTL("Could not find routine for template "_TEMPLATN_$C(13,10)_"Please review!") Q
...I X=""&($D(@GLOBAL@(TEMPLATP,"ROU"))=0) Q
...I $D(CFIELD(X)) Q ;already compiled
...S CFIELD(X)="" ; remember the template was compiled
...S Y=TEMPLATP ; set up the call for FileMan
...S DMAX=$$ROUSIZE^DILF
...I GLOBAL="^DIE" D BMES^XPDUTL(" "),BMES^XPDUTL(" Compiling Input Templates") D EN^DIEZ Q
...I GLOBAL="^DIPT" D BMES^XPDUTL(" "),BMES^XPDUTL(" Compiling Print Templates") D EN^DIPZ Q
Q
;
ALIAS ;TURNING ON ALIAS AUDITING
N FLDNUM
S FLDNUM=.01 D TURNON^DIAUTL(2.01,FLDNUM) W !,"Adding AUDIT to sub-file 2.01 Alias, field #",FLDNUM
S FLDNUM=1 D TURNON^DIAUTL(2.01,FLDNUM) W !,"Adding AUDIT to sub-file 2.01 Alias, field #",FLDNUM
Q
;
UPDBAI ; Send A31 to update the BAD ADDRESS INDICATOR for all patients
D BMES^XPDUTL(" "),BMES^XPDUTL(" Queuing job to update MPI for Patients with BAD ADDRESS INDICATOR.")
N ZTIO,ZTSK,ZTRTN,ZTDESC,ZTSAVE,ZTDTH,Y
S ZTIO="",ZTRTN="DQUPDBAI^DG712PST",ZTDTH=$H
S ZTDESC="Send A31 update for patients with BAD ADDRESS INDICATOR-post init for DG*5.3*712."
D ^%ZTLOAD
I '$G(ZTSK) D MES^XPDUTL(" **** Queuing job failed!!!") Q
D MES^XPDUTL(" Job number "_ZTSK_" was queued.")
Q
DQUPDBAI ; Entry point to queue job to update BAD ADDRESS INDICATOR for all patients
N DGSITE,DGSNAME,DGDFN,DGBAI,DGICN,DGCNT,DGECNT,DGERR,R,X
; Get current station number and name
S X=$$SITE^VASITE()
S DGSNAME=$P(X,"^",2),DGSITE=$P(X,"^",3)
S (DGCNT,DGECNT)=0
; Loop through patient file, if patient has a BAD ADDRESS INDICATOR, send A31
F DGDFN=0:0 S DGDFN=$O(^DPT(DGDFN)) Q:'DGDFN D
. ; Check for PATIENT having BAD ADDRESS INDICATOR
. S DGBAI=$P($G(^DPT(DGDFN,.11)),U,16)
. Q:'DGBAI
. S DGICN=+$$GETICN^MPIF001(DGDFN)
. ; Only update if station has a valid national ICN
. Q:DGICN=-1
. Q:$E(DGICN,1,($L(DGSITE)))=DGSITE
. ; Send A31
. S DGERR=$$A31^MPIFA31B(DGDFN)
. I +DGERR<0 D Q
.. D START^RGHLLOG()
.. D EXC^RGHLLOG(208,"Error building A31 for BAD ADDRESS INDICATOR during post-init of DG*5.3*712, (DFN="_DGDFN_"), ERROR="_$P(DGERR,"^",2),DGDFN)
.. D STOP^RGHLLOG()
.. S DGECNT=DGECNT+1 Q
. S DGCNT=DGCNT+1
. Q
; Send email to person who ran the INIT, letting them know results
N XMDUZ,XMTEXT,XMSUB,XMY,XMZ,XMDUN,X,R
S R(1)="A31 messages to update the BAD ADDRESS INDICATOR for "_DGCNT_" Patients were sent."
I DGECNT'>0 S R(2)=" ",R(3)="You can now delete the post-init routine ^DG712PST."
I DGECNT>0 D
. S R(2)=" "
. S R(3)="*** Note: "_DGECNT_" errors occurred trying to update the BAD ADDRESS INDICATOR."
. S R(4)="*** IMDQ can check the EXCEPTIONS LOG to see details for these errors."
. S R(5)="*** See further instructions in the patch description for DG*5.3*712."
. Q
S XMTEXT="R(",XMSUB="Results from running patch DG*5.3*712"
S XMDUZ=.5
S XMY(DUZ)=""
D ^XMD
; Send message to MPI developers on Outlook
K XMDUZ,XMTEXT,XMSUB,XMY,XMZ,XMDUN,R
S R(1)="Post-Init routine UPDBAI^DG712PST run at station: "_DGSITE_" - "_DGSNAME
S R(2)=" "
S R(3)="A31 messages to update the BAD ADDRESS INDICATOR for "_DGCNT_" Patients were sent."
I DGECNT>0 D
. S R(4)=" "
. S R(5)="*** Note: "_DGECNT_" errors occurred trying to update the BAD ADDRESS INDICATOR."
. S R(6)="*** IMDQ can check the EXCEPTIONS LOG to see details for these errors."
. S R(7)="*** See further instructions in the patch description for DG*5.3*712."
. Q
S XMTEXT="R(",XMSUB="Results from running patch DG*5.3*712 at station: "_DGSITE
S XMDUZ=DUZ
S XMY("TAMI.WINN@VA.GOV")=""
S XMY("CHRISTINE.LINK@VA.GOV")=""
D ^XMD
Q
;
;
DG712PST ;BIR/CMC/TKW,PTD-PATCH DG*5.3*712 POST INSTALLATION ROUTINE ;1/29/09 17:41
+1 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20
+2 ;
+3 ; IA #2796 for use of calls to RGHLLOG in UPDBAI
POST ;Post init
+1 NEW DGFLD,DGMFLD,DGOUT,DGFILE
+2 ;File cross references
+3 ; BAD ADDRESS INDICATOR (#.121)
DO XR(2,.121)
+4 ; EMAIL ADDRESS (#.133)
DO XR(2,.133)
+5 ; PHONE NUMBER [CELLULAR] (#.134)
DO XR(2,.134)
+6 DO TEMPL
+7 ;TURNING ON AUDITING FOR ALIAS FIELD(S)
+8 DO ALIAS
+9 ; Queue job to send A31 for patients with BAD ADDRESS INDICATOR
+10 DO UPDBAI
+11 QUIT
+12 ;
XR(DGFILE,DGFLD) ;File index type cross references
+1 ;
+2 NEW DGFDA,DGIEN,DGWP,DGERR,DGXR,DGVAL,DGOUT,DIERR
+3 ;Set up the cross-reference
+4 IF '$DATA(DGXR)
SET DGXR=$SELECT(DGFLD[".":"AVAFC"_$PIECE(DGFLD,".",2),1:"AVAFC"_DGFLD)
+5 ;Check for existing cross-reference
+6 SET DGVAL(1)=DGFILE
SET DGVAL(2)=DGXR
+7 DO FIND^DIC(.11,"","@;IXIE","KP",.DGVAL,"","","","","DGOUT")
+8 IF $DATA(DGOUT("DILIST",1))
Begin DoDot:1
+9 DO MES^XPDUTL(" >> Cross reference "_DGXR_" already exists, nothing filed.")
+10 QUIT
End DoDot:1
QUIT
+11 ;Create filer array
+12 ;FILE
SET DGFDA(.11,"+1,",.01)=DGFILE
+13 ;NAME
SET DGFDA(.11,"+1,",.02)=DGXR
+14 ;SHORT DESCRIPTION
SET DGFDA(.11,"+1,",.11)="This x-ref calls the DG FIELD MONITOR event point."
+15 ;TYPE
SET DGFDA(.11,"+1,",.2)="MU"
+16 ;EXECUTION
SET DGFDA(.11,"+1,",.4)="F"
+17 ;ACTIVITY
SET DGFDA(.11,"+1,",.41)="I"
+18 ;ROOT TYPE
SET DGFDA(.11,"+1,",.5)="I"
+19 ;ROOT FILE
SET DGFDA(.11,"+1,",.51)=DGFILE
+20 ;USE
SET DGFDA(.11,"+1,",.42)="A"
+21 ;SET LOGIC
SET DGFDA(.11,"+1,",1.1)="D FC^DGFCPROT(.DA,"_DGFILE_","_DGFLD_",""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
+22 ;KILL LOGIC
SET DGFDA(.11,"+1,",2.1)="D FC^DGFCPROT(.DA,"_DGFILE_","_DGFLD_",""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
+23 ;CROSS REFERENCE VALUES
+24 ;ORDER NUMBER
SET DGFDA(.114,"+2,+1,",.01)=1
+25 ;TYPE OF VALUE
SET DGFDA(.114,"+2,+1,",1)="F"
+26 ;FILE NUMBER
SET DGFDA(.114,"+2,+1,",2)=DGFILE
+27 ;FIELD NUMBER
SET DGFDA(.114,"+2,+1,",3)=DGFLD
+28 ;COLLATION
SET DGFDA(.114,"+2,+1,",7)="F"
+29 ;DESCRIPTION
+30 SET DGWP(1)="This cross-reference activates the DG FIELD MONITOR event point."
+31 SET DGWP(2)="Applications that wish to monitor edit activity related to this field may"
+32 SET DGWP(3)="subscribe to that event point and take action as indicated by the changes"
+33 SET DGWP(4)="that occur. Refer to the DG FIELD MONITOR protocol for a description of"
+34 SET DGWP(5)="the information available at the time of the event."
+35 ;File INDEX record
+36 DO UPDATE^DIE("","DGFDA","DGIEN","DGERR")
+37 IF $DATA(DIERR)
Begin DoDot:1
+38 NEW DGI
SET DGI=""
+39 DO BMES^XPDUTL(" >> A problem has occurred during the filing of x-ref "_DGXR_"!")
+40 DO MES^XPDUTL(" Please contact Customer Support.")
+41 FOR
SET DGI=$ORDER(DGERR("DIERR",1,"TEXT",DGI))
IF DGI=""
QUIT
Begin DoDot:2
+42 DO MES^XPDUTL(DGERR("DIERR",1,"TEXT",DGI))
+43 QUIT
End DoDot:2
+44 QUIT
End DoDot:1
QUIT
+45 ;Create list to recompile templates
SET DGFLD(DGFILE,DGFLD)=""
+46 DO MES^XPDUTL(" >> "_DGXR_" cross-reference filed.")
+47 ;File DESCRIPTION field
+48 DO WP^DIE(.11,DGIEN(1)_",",.1,"","DGWP")
+49 QUIT
+50 ;
TEMPL ;Determine templates on the PATIENT (#2) file to be compiled.
+1 NEW GLOBAL,FIELD,NFIELD,FILE,CNT
+2 DO BMES^XPDUTL("Beginning to compile templates on the PATIENT (#2) file.")
+3 ;
+4 SET NFIELD=".121,.133,.134"
SET FILE=2
SET FIELD=""
SET CNT=1
+5 FOR
SET FIELD=$PIECE(NFIELD,",",CNT)
IF FIELD=""
QUIT
DO LOOP(FIELD,FILE)
SET CNT=CNT+1
+6 WRITE !!
+7 SET (X,Y)=""
+8 DO BMES^XPDUTL("The following routine namespace was compiled:")
+9 FOR
SET X=$ORDER(CFIELD(X))
IF X=""
QUIT
SET Y=$GET(Y)+1
SET PRINT(Y)=" "_X_"*"
+10 ;
+11 DO MES^XPDUTL(.PRINT)
+12 KILL X,Y,PRINT,CFIELD
+13 QUIT
LOOP(FIELD,FILE) ;Compile templates.
+1 NEW GLOBAL,TEMPLATP,TEMPLATN,X,Y,DMAX
+2 FOR GLOBAL="^DIE","^DIPT"
Begin DoDot:1
+3 IF $DATA(@GLOBAL@("AF",FILE,FIELD))
Begin DoDot:2
+4 SET TEMPLATP=0
+5 FOR
SET TEMPLATP=$ORDER(@GLOBAL@("AF",FILE,FIELD,TEMPLATP))
IF 'TEMPLATP
QUIT
Begin DoDot:3
+6 SET TEMPLATN=$PIECE($GET(@GLOBAL@(TEMPLATP,0)),"^",1)
+7 IF TEMPLATN=""
DO BMES^XPDUTL("Could not compile template "_TEMPLATN_$CHAR(13,10)_"Please review!")
QUIT
+8 SET X=$PIECE($GET(@GLOBAL@(TEMPLATP,"ROUOLD")),"^")
+9 IF X=""&($DATA(@GLOBAL@(TEMPLATP,"ROU"))'=0)
DO BMES^XPDUTL("Could not find routine for template "_TEMPLATN_$CHAR(13,10)_"Please review!")
QUIT
+10 IF X=""&($DATA(@GLOBAL@(TEMPLATP,"ROU"))=0)
QUIT
+11 ;already compiled
IF $DATA(CFIELD(X))
QUIT
+12 ; remember the template was compiled
SET CFIELD(X)=""
+13 ; set up the call for FileMan
SET Y=TEMPLATP
+14 SET DMAX=$$ROUSIZE^DILF
+15 IF GLOBAL="^DIE"
DO BMES^XPDUTL(" ")
DO BMES^XPDUTL(" Compiling Input Templates")
DO EN^DIEZ
QUIT
+16 IF GLOBAL="^DIPT"
DO BMES^XPDUTL(" ")
DO BMES^XPDUTL(" Compiling Print Templates")
DO EN^DIPZ
QUIT
End DoDot:3
End DoDot:2
End DoDot:1
+17 QUIT
+18 ;
ALIAS ;TURNING ON ALIAS AUDITING
+1 NEW FLDNUM
+2 SET FLDNUM=.01
DO TURNON^DIAUTL(2.01,FLDNUM)
WRITE !,"Adding AUDIT to sub-file 2.01 Alias, field #",FLDNUM
+3 SET FLDNUM=1
DO TURNON^DIAUTL(2.01,FLDNUM)
WRITE !,"Adding AUDIT to sub-file 2.01 Alias, field #",FLDNUM
+4 QUIT
+5 ;
UPDBAI ; Send A31 to update the BAD ADDRESS INDICATOR for all patients
+1 DO BMES^XPDUTL(" ")
DO BMES^XPDUTL(" Queuing job to update MPI for Patients with BAD ADDRESS INDICATOR.")
+2 NEW ZTIO,ZTSK,ZTRTN,ZTDESC,ZTSAVE,ZTDTH,Y
+3 SET ZTIO=""
SET ZTRTN="DQUPDBAI^DG712PST"
SET ZTDTH=$HOROLOG
+4 SET ZTDESC="Send A31 update for patients with BAD ADDRESS INDICATOR-post init for DG*5.3*712."
+5 DO ^%ZTLOAD
+6 IF '$GET(ZTSK)
DO MES^XPDUTL(" **** Queuing job failed!!!")
QUIT
+7 DO MES^XPDUTL(" Job number "_ZTSK_" was queued.")
+8 QUIT
DQUPDBAI ; Entry point to queue job to update BAD ADDRESS INDICATOR for all patients
+1 NEW DGSITE,DGSNAME,DGDFN,DGBAI,DGICN,DGCNT,DGECNT,DGERR,R,X
+2 ; Get current station number and name
+3 SET X=$$SITE^VASITE()
+4 SET DGSNAME=$PIECE(X,"^",2)
SET DGSITE=$PIECE(X,"^",3)
+5 SET (DGCNT,DGECNT)=0
+6 ; Loop through patient file, if patient has a BAD ADDRESS INDICATOR, send A31
+7 FOR DGDFN=0:0
SET DGDFN=$ORDER(^DPT(DGDFN))
IF 'DGDFN
QUIT
Begin DoDot:1
+8 ; Check for PATIENT having BAD ADDRESS INDICATOR
+9 SET DGBAI=$PIECE($GET(^DPT(DGDFN,.11)),U,16)
+10 IF 'DGBAI
QUIT
+11 SET DGICN=+$$GETICN^MPIF001(DGDFN)
+12 ; Only update if station has a valid national ICN
+13 IF DGICN=-1
QUIT
+14 IF $EXTRACT(DGICN,1,($LENGTH(DGSITE)))=DGSITE
QUIT
+15 ; Send A31
+16 SET DGERR=$$A31^MPIFA31B(DGDFN)
+17 IF +DGERR<0
Begin DoDot:2
+18 DO START^RGHLLOG()
+19 DO EXC^RGHLLOG(208,"Error building A31 for BAD ADDRESS INDICATOR during post-init of DG*5.3*712, (DFN="_DGDFN_"), ERROR="_$PIECE(DGERR,"^",2),DGDFN)
+20 DO STOP^RGHLLOG()
+21 SET DGECNT=DGECNT+1
QUIT
End DoDot:2
QUIT
+22 SET DGCNT=DGCNT+1
+23 QUIT
End DoDot:1
+24 ; Send email to person who ran the INIT, letting them know results
+25 NEW XMDUZ,XMTEXT,XMSUB,XMY,XMZ,XMDUN,X,R
+26 SET R(1)="A31 messages to update the BAD ADDRESS INDICATOR for "_DGCNT_" Patients were sent."
+27 IF DGECNT'>0
SET R(2)=" "
SET R(3)="You can now delete the post-init routine ^DG712PST."
+28 IF DGECNT>0
Begin DoDot:1
+29 SET R(2)=" "
+30 SET R(3)="*** Note: "_DGECNT_" errors occurred trying to update the BAD ADDRESS INDICATOR."
+31 SET R(4)="*** IMDQ can check the EXCEPTIONS LOG to see details for these errors."
+32 SET R(5)="*** See further instructions in the patch description for DG*5.3*712."
+33 QUIT
End DoDot:1
+34 SET XMTEXT="R("
SET XMSUB="Results from running patch DG*5.3*712"
+35 SET XMDUZ=.5
+36 SET XMY(DUZ)=""
+37 DO ^XMD
+38 ; Send message to MPI developers on Outlook
+39 KILL XMDUZ,XMTEXT,XMSUB,XMY,XMZ,XMDUN,R
+40 SET R(1)="Post-Init routine UPDBAI^DG712PST run at station: "_DGSITE_" - "_DGSNAME
+41 SET R(2)=" "
+42 SET R(3)="A31 messages to update the BAD ADDRESS INDICATOR for "_DGCNT_" Patients were sent."
+43 IF DGECNT>0
Begin DoDot:1
+44 SET R(4)=" "
+45 SET R(5)="*** Note: "_DGECNT_" errors occurred trying to update the BAD ADDRESS INDICATOR."
+46 SET R(6)="*** IMDQ can check the EXCEPTIONS LOG to see details for these errors."
+47 SET R(7)="*** See further instructions in the patch description for DG*5.3*712."
+48 QUIT
End DoDot:1
+49 SET XMTEXT="R("
SET XMSUB="Results from running patch DG*5.3*712 at station: "_DGSITE
+50 SET XMDUZ=DUZ
+51 SET XMY("TAMI.WINN@VA.GOV")=""
+52 SET XMY("CHRISTINE.LINK@VA.GOV")=""
+53 DO ^XMD
+54 QUIT
+55 ;
+56 ;
