DG284PT2 ;ALB/SEK DG*5.3*284 POST-INSTALL TO MAILMAN MSG ; 04/20/00
;;5.3;Registration;**284,1015**;Aug 13, 1993;Build 21
;
;This routine will be run as part of the post-install for patch
;DG*5.3*284
;
;A mail message will be sent to the HEC and the user
;when the post-install is complete.
;
;
MAIL ; Send a mailman msg to user/HEC with results
N DIFROM,%
N IVMCX,IVMDATA,IVMDATA1,IVMFILE,IVMFLD,IVMIENX,IVMIY,IVMNODE,IVMTEXT,IVMX,I
N X,XMDUZ,XMSUB,XMTEXT,XMY,Y,IVMSTA
K ^TMP("DG284PT",$J)
S IVMCX=$$SITE^VASITE,IVMSTA=$P(IVMCX,"^",3)
S XMSUB=IVMSTA_" - Purge of non CAT C IVM verified Means Tests"
S XMDUZ="IVM/HEC PACKAGE",XMY("HARBIN,LYNNE@IVM.VA.GOV")="",XMY(DUZ)="",XMY(.5)="",XMY("PERREAULT,JEAN@IVM.VA.GOV")=""
S XMY("PICKELSIMER,HENRY@IVM.VA.GOV")="",XMY("STEFFEY,KIM@IVM.VA.GOV")=""
S XMY("ARMOUR,EDDIE@IVM.VA.GOV")="",XMY("WHITFIELD,VENIS@IVM.VA.GOV")=""
S XMTEXT="^TMP(""DG284PT"",$J,"
D NOW^%DTC S Y=% D DD^%DT
S ^TMP("DG284PT",$J,1)="Purge of non CAT C IVM verified Means Tests"
S ^TMP("DG284PT",$J,2)=" "
S ^TMP("DG284PT",$J,3)="Facility Name: "_$P(IVMCX,"^",2)_" "_Y
S ^TMP("DG284PT",$J,4)="Station Number: "_IVMSTA
S ^TMP("DG284PT",$J,5)=" "
S IVMTEXT="Income year"
S IVMTEXT=$$BLDSTR^DG284PT1("# of IVM MT purged",IVMTEXT,20,18)
S ^TMP("DG284PT",$J,6)=IVMTEXT
S IVMTEXT=$$REPEAT^XLFSTR("=",$L(IVMTEXT))
S ^TMP("DG284PT",$J,7)=IVMTEXT
S IVMIY=0,IVMNODE=7
F S IVMIY=$O(^XTMP("DGMTPAT",IVMIY)) Q:'IVMIY D
.S IVMDATA=^XTMP("DGMTPAT",IVMIY)
.S IVMTEXT=IVMIY+1700
.S IVMDATA1=$J(+$P(IVMDATA,U),6)
.S IVMTEXT=$$BLDSTR^DG284PT1(IVMDATA1,IVMTEXT,20,$L(IVMDATA1))
.S IVMNODE=IVMNODE+1
.S ^TMP("DG284PT",$J,IVMNODE)=IVMTEXT
F I=1:1:2 S IVMNODE=IVMNODE+1,^TMP("DG284PT",$J,IVMNODE)=" "
;
; add error reports to the mail message...
I $O(^XTMP("DGMTPERR",0))'="" D
.S IVMNODE=IVMNODE+1
.S ^TMP("DG284PT",$J,IVMNODE)="Some records were not edited due to filing errors:"
.S IVMNODE=IVMNODE+1
.S ^TMP("DG284PT",$J,IVMNODE)=" "
.S IVMTEXT="File #"
.S IVMTEXT=$$BLDSTR^DG284PT1("Record #",IVMTEXT,12,8)
.S IVMTEXT=$$BLDSTR^DG284PT1("Field #",IVMTEXT,22,7)
.S IVMTEXT=$$BLDSTR^DG284PT1("Error Message",IVMTEXT,30,13)
.S IVMNODE=IVMNODE+1
.S ^TMP("DG284PT",$J,IVMNODE)=IVMTEXT
.K IVMTEXT
.S IVMFILE=0
.F S IVMFILE=$O(^XTMP("DGMTPERR",IVMFILE)) Q:'IVMFILE D
..S IVMTEXT=IVMFILE
..S IVMIENX=0
..F S IVMIENX=$O(^XTMP("DGMTPERR",IVMFILE,IVMIENX)) Q:'IVMIENX D
...S IVMFLD=0
...F S IVMFLD=$O(^XTMP("DGMTPERR",IVMFILE,IVMIENX,IVMFLD)) Q:'IVMFLD D
....S IVMX=0
....F S IVMX=$O(^XTMP("DGMTPERR",IVMFILE,IVMIENX,IVMFLD,IVMX)) Q:'IVMX D
.....S IVMDATA=^XTMP("DGMTPERR",IVMFILE,IVMIENX,IVMFLD,IVMX)
.....S IVMTEXT=$$BLDSTR^DG284PT1(IVMIENX,IVMTEXT,12,$L(IVMIENX))
.....S IVMTEXT=$$BLDSTR^DG284PT1(IVMFLD,IVMTEXT,22,$L(IVMFLD))
.....S IVMTEXT=$$BLDSTR^DG284PT1(IVMDATA,IVMTEXT,30,$L(IVMDATA))
.....S IVMNODE=IVMNODE+1
.....S ^TMP("DG284PT",$J,IVMNODE)=IVMTEXT
.....K IVMDATA
....K IVMX
...K IVMFLD
..K IVMIENX
.K IVMFILE,IVMTEXT
;
MAIL1 D ^XMD
K ^TMP("DG284PT",$J)
Q
DG284PT2 ;ALB/SEK DG*5.3*284 POST-INSTALL TO MAILMAN MSG ; 04/20/00
+1 ;;5.3;Registration;**284,1015**;Aug 13, 1993;Build 21
+2 ;
+3 ;This routine will be run as part of the post-install for patch
+4 ;DG*5.3*284
+5 ;
+6 ;A mail message will be sent to the HEC and the user
+7 ;when the post-install is complete.
+8 ;
+9 ;
MAIL ; Send a mailman msg to user/HEC with results
+1 NEW DIFROM,%
+2 NEW IVMCX,IVMDATA,IVMDATA1,IVMFILE,IVMFLD,IVMIENX,IVMIY,IVMNODE,IVMTEXT,IVMX,I
+3 NEW X,XMDUZ,XMSUB,XMTEXT,XMY,Y,IVMSTA
+4 KILL ^TMP("DG284PT",$JOB)
+5 SET IVMCX=$$SITE^VASITE
SET IVMSTA=$PIECE(IVMCX,"^",3)
+6 SET XMSUB=IVMSTA_" - Purge of non CAT C IVM verified Means Tests"
+7 SET XMDUZ="IVM/HEC PACKAGE"
SET XMY("HARBIN,LYNNE@IVM.VA.GOV")=""
SET XMY(DUZ)=""
SET XMY(.5)=""
SET XMY("PERREAULT,JEAN@IVM.VA.GOV")=""
+8 SET XMY("PICKELSIMER,HENRY@IVM.VA.GOV")=""
SET XMY("STEFFEY,KIM@IVM.VA.GOV")=""
+9 SET XMY("ARMOUR,EDDIE@IVM.VA.GOV")=""
SET XMY("WHITFIELD,VENIS@IVM.VA.GOV")=""
+10 SET XMTEXT="^TMP(""DG284PT"",$J,"
+11 DO NOW^%DTC
SET Y=%
DO DD^%DT
+12 SET ^TMP("DG284PT",$JOB,1)="Purge of non CAT C IVM verified Means Tests"
+13 SET ^TMP("DG284PT",$JOB,2)=" "
+14 SET ^TMP("DG284PT",$JOB,3)="Facility Name: "_$PIECE(IVMCX,"^",2)_" "_Y
+15 SET ^TMP("DG284PT",$JOB,4)="Station Number: "_IVMSTA
+16 SET ^TMP("DG284PT",$JOB,5)=" "
+17 SET IVMTEXT="Income year"
+18 SET IVMTEXT=$$BLDSTR^DG284PT1("# of IVM MT purged",IVMTEXT,20,18)
+19 SET ^TMP("DG284PT",$JOB,6)=IVMTEXT
+20 SET IVMTEXT=$$REPEAT^XLFSTR("=",$LENGTH(IVMTEXT))
+21 SET ^TMP("DG284PT",$JOB,7)=IVMTEXT
+22 SET IVMIY=0
SET IVMNODE=7
+23 FOR
SET IVMIY=$ORDER(^XTMP("DGMTPAT",IVMIY))
IF 'IVMIY
QUIT
Begin DoDot:1
+24 SET IVMDATA=^XTMP("DGMTPAT",IVMIY)
+25 SET IVMTEXT=IVMIY+1700
+26 SET IVMDATA1=$JUSTIFY(+$PIECE(IVMDATA,U),6)
+27 SET IVMTEXT=$$BLDSTR^DG284PT1(IVMDATA1,IVMTEXT,20,$LENGTH(IVMDATA1))
+28 SET IVMNODE=IVMNODE+1
+29 SET ^TMP("DG284PT",$JOB,IVMNODE)=IVMTEXT
End DoDot:1
+30 FOR I=1:1:2
SET IVMNODE=IVMNODE+1
SET ^TMP("DG284PT",$JOB,IVMNODE)=" "
+31 ;
+32 ; add error reports to the mail message...
+33 IF $ORDER(^XTMP("DGMTPERR",0))'=""
Begin DoDot:1
+34 SET IVMNODE=IVMNODE+1
+35 SET ^TMP("DG284PT",$JOB,IVMNODE)="Some records were not edited due to filing errors:"
+36 SET IVMNODE=IVMNODE+1
+37 SET ^TMP("DG284PT",$JOB,IVMNODE)=" "
+38 SET IVMTEXT="File #"
+39 SET IVMTEXT=$$BLDSTR^DG284PT1("Record #",IVMTEXT,12,8)
+40 SET IVMTEXT=$$BLDSTR^DG284PT1("Field #",IVMTEXT,22,7)
+41 SET IVMTEXT=$$BLDSTR^DG284PT1("Error Message",IVMTEXT,30,13)
+42 SET IVMNODE=IVMNODE+1
+43 SET ^TMP("DG284PT",$JOB,IVMNODE)=IVMTEXT
+44 KILL IVMTEXT
+45 SET IVMFILE=0
+46 FOR
SET IVMFILE=$ORDER(^XTMP("DGMTPERR",IVMFILE))
IF 'IVMFILE
QUIT
Begin DoDot:2
+47 SET IVMTEXT=IVMFILE
+48 SET IVMIENX=0
+49 FOR
SET IVMIENX=$ORDER(^XTMP("DGMTPERR",IVMFILE,IVMIENX))
IF 'IVMIENX
QUIT
Begin DoDot:3
+50 SET IVMFLD=0
+51 FOR
SET IVMFLD=$ORDER(^XTMP("DGMTPERR",IVMFILE,IVMIENX,IVMFLD))
IF 'IVMFLD
QUIT
Begin DoDot:4
+52 SET IVMX=0
+53 FOR
SET IVMX=$ORDER(^XTMP("DGMTPERR",IVMFILE,IVMIENX,IVMFLD,IVMX))
IF 'IVMX
QUIT
Begin DoDot:5
+54 SET IVMDATA=^XTMP("DGMTPERR",IVMFILE,IVMIENX,IVMFLD,IVMX)
+55 SET IVMTEXT=$$BLDSTR^DG284PT1(IVMIENX,IVMTEXT,12,$LENGTH(IVMIENX))
+56 SET IVMTEXT=$$BLDSTR^DG284PT1(IVMFLD,IVMTEXT,22,$LENGTH(IVMFLD))
+57 SET IVMTEXT=$$BLDSTR^DG284PT1(IVMDATA,IVMTEXT,30,$LENGTH(IVMDATA))
+58 SET IVMNODE=IVMNODE+1
+59 SET ^TMP("DG284PT",$JOB,IVMNODE)=IVMTEXT
+60 KILL IVMDATA
End DoDot:5
+61 KILL IVMX
End DoDot:4
+62 KILL IVMFLD
End DoDot:3
+63 KILL IVMIENX
End DoDot:2
+64 KILL IVMFILE,IVMTEXT
End DoDot:1
+65 ;
MAIL1 DO ^XMD
+1 KILL ^TMP("DG284PT",$JOB)
+2 QUIT
