- 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 Feb 19, 2025@00:03:01 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)