DG53285M ;ALB/PAK DG*5.3*285 POST-INSTALL TO MAILMAN MSG ; 04/24/00
;;5.3;Registration;**285**;Aug 13, 1993
;
;This routine will be run as part of the post-install for patch
;DG*5.3*285
;
;A mail message will be sent to the user when the post-install is
; complete.
;
;
MAIL ; Send a mailman msg to user with results
N DIFROM,%
N DATA,DATA1,FILE,FLD,IENX,IY,NODE,TEXT,I,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,STA
K ^TMP("DG53285",$J)
S XMSUB="Purge of NO LONGER REQUIRED IVM verified Means Tests"
S XMDUZ="IVM/HEC PACKAGE",XMY(DUZ)="",XMY(.5)=""
S XMTEXT="^TMP(""DG53285"",$J,"
D NOW^%DTC S Y=% D DD^%DT
S ^TMP("DG53285",$J,1)="Purge of NO LONGER REQUIRED verified Means Tests"
S ^TMP("DG53285",$J,2)=" "
S TEXT="Income year"
S TEXT=$$BLDSTR("# of IVM MT purged",TEXT,20,18)
S ^TMP("DG53285",$J,3)=TEXT
S ^TMP("DG53285",$J,4)=$$REPEAT^XLFSTR("=",$L(TEXT))
S IY=0,NODE=4
F S IY=$O(^XTMP("DG-MTIY",IY)) Q:'IY D
. S DATA=^XTMP("DG-MTIY",IY)
. S TEXT=IY+1700
. S DATA1=$J(+$P(DATA,U),6)
. S TEXT=$$BLDSTR(DATA1,TEXT,20,$L(DATA1))
. S NODE=NODE+1
. S ^TMP("DG53285",$J,NODE)=TEXT
F I=1:1:2 S NODE=NODE+1,^TMP("DG53285",$J,NODE)=" "
;
; add error reports to the mail message
I $O(^XTMP("DG-MTERR",0))'="" D
.S NODE=NODE+1
.S ^TMP("DG53285",$J,NODE)="Some records were not edited due to filing errors:"
.S NODE=NODE+1
.S ^TMP("DG53285",$J,NODE)=" "
.S TEXT="File #"
.S TEXT=$$BLDSTR("Record #",TEXT,12,8)
.S TEXT=$$BLDSTR("Field #",TEXT,22,7)
.S TEXT=$$BLDSTR("Error Message",TEXT,30,13)
.S NODE=NODE+1
.S ^TMP("DG53285",$J,NODE)=TEXT
.S FILE=0
.F S FILE=$O(^XTMP("DG-MTERR",FILE)) Q:'FILE D
..S TEXT=FILE
..S IENX=0
..F S IENX=$O(^XTMP("DG-MTERR",FILE,IENX)) Q:'IENX D
...S FLD=0
...F S FLD=$O(^XTMP("DG-MTERR",FILE,IENX,FLD)) Q:'FLD D
....S DATA=^XTMP("DG-MTERR",FILE,IENX,FLD)
....S TEXT=$$BLDSTR(IENX,TEXT,12,$L(IENX))
....S TEXT=$$BLDSTR(FLD,TEXT,22,$L(FLD))
....S TEXT=$$BLDSTR(DATA,TEXT,30,$L(DATA))
....S NODE=NODE+1
....S ^TMP("DG53285",$J,NODE)=TEXT
;
MAIL1 D ^XMD
K ^TMP("DG53285",$J)
Q
;
BLDSTR(NSTR,STR,COL,NSL) ; build a string
; Input:
; NSTR = a string to be added to STR
; STR = an existing string to which NSTR will be added
; COL = column location at which NSTR will be added to STR
; NSL = length of new string
; Output:
; returns STR with NSTR appended at the specified COL
;
Q $E(STR_$J("",COL-1),1,COL-1)_$E(NSTR_$J("",NSL),1,NSL)_$E(STR,COL+NSL,999)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53285M 2523 printed Apr 09, 2024@22:03:02 Page 2
DG53285M ;ALB/PAK DG*5.3*285 POST-INSTALL TO MAILMAN MSG ; 04/24/00
+1 ;;5.3;Registration;**285**;Aug 13, 1993
+2 ;
+3 ;This routine will be run as part of the post-install for patch
+4 ;DG*5.3*285
+5 ;
+6 ;A mail message will be sent to the user when the post-install is
+7 ; complete.
+8 ;
+9 ;
MAIL ; Send a mailman msg to user with results
+1 NEW DIFROM,%
+2 NEW DATA,DATA1,FILE,FLD,IENX,IY,NODE,TEXT,I,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,STA
+3 KILL ^TMP("DG53285",$JOB)
+4 SET XMSUB="Purge of NO LONGER REQUIRED IVM verified Means Tests"
+5 SET XMDUZ="IVM/HEC PACKAGE"
SET XMY(DUZ)=""
SET XMY(.5)=""
+6 SET XMTEXT="^TMP(""DG53285"",$J,"
+7 DO NOW^%DTC
SET Y=%
DO DD^%DT
+8 SET ^TMP("DG53285",$JOB,1)="Purge of NO LONGER REQUIRED verified Means Tests"
+9 SET ^TMP("DG53285",$JOB,2)=" "
+10 SET TEXT="Income year"
+11 SET TEXT=$$BLDSTR("# of IVM MT purged",TEXT,20,18)
+12 SET ^TMP("DG53285",$JOB,3)=TEXT
+13 SET ^TMP("DG53285",$JOB,4)=$$REPEAT^XLFSTR("=",$LENGTH(TEXT))
+14 SET IY=0
SET NODE=4
+15 FOR
SET IY=$ORDER(^XTMP("DG-MTIY",IY))
if 'IY
QUIT
Begin DoDot:1
+16 SET DATA=^XTMP("DG-MTIY",IY)
+17 SET TEXT=IY+1700
+18 SET DATA1=$JUSTIFY(+$PIECE(DATA,U),6)
+19 SET TEXT=$$BLDSTR(DATA1,TEXT,20,$LENGTH(DATA1))
+20 SET NODE=NODE+1
+21 SET ^TMP("DG53285",$JOB,NODE)=TEXT
End DoDot:1
+22 FOR I=1:1:2
SET NODE=NODE+1
SET ^TMP("DG53285",$JOB,NODE)=" "
+23 ;
+24 ; add error reports to the mail message
+25 IF $ORDER(^XTMP("DG-MTERR",0))'=""
Begin DoDot:1
+26 SET NODE=NODE+1
+27 SET ^TMP("DG53285",$JOB,NODE)="Some records were not edited due to filing errors:"
+28 SET NODE=NODE+1
+29 SET ^TMP("DG53285",$JOB,NODE)=" "
+30 SET TEXT="File #"
+31 SET TEXT=$$BLDSTR("Record #",TEXT,12,8)
+32 SET TEXT=$$BLDSTR("Field #",TEXT,22,7)
+33 SET TEXT=$$BLDSTR("Error Message",TEXT,30,13)
+34 SET NODE=NODE+1
+35 SET ^TMP("DG53285",$JOB,NODE)=TEXT
+36 SET FILE=0
+37 FOR
SET FILE=$ORDER(^XTMP("DG-MTERR",FILE))
if 'FILE
QUIT
Begin DoDot:2
+38 SET TEXT=FILE
+39 SET IENX=0
+40 FOR
SET IENX=$ORDER(^XTMP("DG-MTERR",FILE,IENX))
if 'IENX
QUIT
Begin DoDot:3
+41 SET FLD=0
+42 FOR
SET FLD=$ORDER(^XTMP("DG-MTERR",FILE,IENX,FLD))
if 'FLD
QUIT
Begin DoDot:4
+43 SET DATA=^XTMP("DG-MTERR",FILE,IENX,FLD)
+44 SET TEXT=$$BLDSTR(IENX,TEXT,12,$LENGTH(IENX))
+45 SET TEXT=$$BLDSTR(FLD,TEXT,22,$LENGTH(FLD))
+46 SET TEXT=$$BLDSTR(DATA,TEXT,30,$LENGTH(DATA))
+47 SET NODE=NODE+1
+48 SET ^TMP("DG53285",$JOB,NODE)=TEXT
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+49 ;
MAIL1 DO ^XMD
+1 KILL ^TMP("DG53285",$JOB)
+2 QUIT
+3 ;
BLDSTR(NSTR,STR,COL,NSL) ; build a string
+1 ; Input:
+2 ; NSTR = a string to be added to STR
+3 ; STR = an existing string to which NSTR will be added
+4 ; COL = column location at which NSTR will be added to STR
+5 ; NSL = length of new string
+6 ; Output:
+7 ; returns STR with NSTR appended at the specified COL
+8 ;
+9 QUIT $EXTRACT(STR_$JUSTIFY("",COL-1),1,COL-1)_$EXTRACT(NSTR_$JUSTIFY("",NSL),1,NSL)_$EXTRACT(STR,COL+NSL,999)
