Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53285M

DG53285M.m

Go to the documentation of this file.
  1. DG53285M ;ALB/PAK DG*5.3*285 POST-INSTALL TO MAILMAN MSG ; 04/24/00
  1. ;;5.3;Registration;**285**;Aug 13, 1993
  1. ;
  1. ;This routine will be run as part of the post-install for patch
  1. ;DG*5.3*285
  1. ;
  1. ;A mail message will be sent to the user when the post-install is
  1. ; complete.
  1. ;
  1. ;
  1. MAIL ; Send a mailman msg to user with results
  1. N DIFROM,%
  1. N DATA,DATA1,FILE,FLD,IENX,IY,NODE,TEXT,I,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,STA
  1. K ^TMP("DG53285",$J)
  1. S XMSUB="Purge of NO LONGER REQUIRED IVM verified Means Tests"
  1. S XMDUZ="IVM/HEC PACKAGE",XMY(DUZ)="",XMY(.5)=""
  1. S XMTEXT="^TMP(""DG53285"",$J,"
  1. D NOW^%DTC S Y=% D DD^%DT
  1. S ^TMP("DG53285",$J,1)="Purge of NO LONGER REQUIRED verified Means Tests"
  1. S ^TMP("DG53285",$J,2)=" "
  1. S TEXT="Income year"
  1. S TEXT=$$BLDSTR("# of IVM MT purged",TEXT,20,18)
  1. S ^TMP("DG53285",$J,3)=TEXT
  1. S ^TMP("DG53285",$J,4)=$$REPEAT^XLFSTR("=",$L(TEXT))
  1. S IY=0,NODE=4
  1. F S IY=$O(^XTMP("DG-MTIY",IY)) Q:'IY D
  1. . S DATA=^XTMP("DG-MTIY",IY)
  1. . S TEXT=IY+1700
  1. . S DATA1=$J(+$P(DATA,U),6)
  1. . S TEXT=$$BLDSTR(DATA1,TEXT,20,$L(DATA1))
  1. . S NODE=NODE+1
  1. . S ^TMP("DG53285",$J,NODE)=TEXT
  1. F I=1:1:2 S NODE=NODE+1,^TMP("DG53285",$J,NODE)=" "
  1. ;
  1. ; add error reports to the mail message
  1. I $O(^XTMP("DG-MTERR",0))'="" D
  1. .S NODE=NODE+1
  1. .S ^TMP("DG53285",$J,NODE)="Some records were not edited due to filing errors:"
  1. .S NODE=NODE+1
  1. .S ^TMP("DG53285",$J,NODE)=" "
  1. .S TEXT="File #"
  1. .S TEXT=$$BLDSTR("Record #",TEXT,12,8)
  1. .S TEXT=$$BLDSTR("Field #",TEXT,22,7)
  1. .S TEXT=$$BLDSTR("Error Message",TEXT,30,13)
  1. .S NODE=NODE+1
  1. .S ^TMP("DG53285",$J,NODE)=TEXT
  1. .S FILE=0
  1. .F S FILE=$O(^XTMP("DG-MTERR",FILE)) Q:'FILE D
  1. ..S TEXT=FILE
  1. ..S IENX=0
  1. ..F S IENX=$O(^XTMP("DG-MTERR",FILE,IENX)) Q:'IENX D
  1. ...S FLD=0
  1. ...F S FLD=$O(^XTMP("DG-MTERR",FILE,IENX,FLD)) Q:'FLD D
  1. ....S DATA=^XTMP("DG-MTERR",FILE,IENX,FLD)
  1. ....S TEXT=$$BLDSTR(IENX,TEXT,12,$L(IENX))
  1. ....S TEXT=$$BLDSTR(FLD,TEXT,22,$L(FLD))
  1. ....S TEXT=$$BLDSTR(DATA,TEXT,30,$L(DATA))
  1. ....S NODE=NODE+1
  1. ....S ^TMP("DG53285",$J,NODE)=TEXT
  1. ;
  1. MAIL1 D ^XMD
  1. K ^TMP("DG53285",$J)
  1. Q
  1. ;
  1. BLDSTR(NSTR,STR,COL,NSL) ; build a string
  1. ; Input:
  1. ; NSTR = a string to be added to STR
  1. ; STR = an existing string to which NSTR will be added
  1. ; COL = column location at which NSTR will be added to STR
  1. ; NSL = length of new string
  1. ; Output:
  1. ; returns STR with NSTR appended at the specified COL
  1. ;
  1. Q $E(STR_$J("",COL-1),1,COL-1)_$E(NSTR_$J("",NSL),1,NSL)_$E(STR,COL+NSL,999)