DG53351M ;ALB/JAN - DG*5.3*351 POST-INSTALL MAINMAN MSG; 6/26/01
;;5.3;Registration;**351,1015**;JUNE 26, 2001;Build 21
;
; This routine will be run as part of the post-install for patch DG*5.3*351
;
; A mail message will be sent to the user when the post-install is completed.
;
MAIL ;
; Send a mailman message to user with results
N DIFROM,%
N XMDUZ,XMSUB,XMTEXT,XMY,Y
K ^TMP("DG53351")
S XMDUZ="REGISTRATION PACKAGE",XMY(DUZ)="",XMY(.5)=""
S XMSUB="DG*5.3*351 POST-INSTALL - Update CURRENT ENROLLMENT STATUS"
S XMTEXT="^TMP(""DG53351"",$J,"
D NOW^%DTC S Y=% D DD^%DT
;
I $G(^XTMP("DG-DTC",1))=0 D
.S ^TMP("DG53351",$J,1)="No records were updated between the ENROLLMENT STATUS field (#.04)"
.S ^TMP("DG53351",$J,2)="of the PATIENT ENROLLMENT file (#27.11) and the cross reference"
.S ^TMP("DG53351",$J,3)="""AENRC"" of the PATIENT file (#2)."
I $G(^XTMP("DG-DTC",1))>0 D
.S ^TMP("DG53351",$J,1)="The following patients had the cross reference ""AENRC"" of the"
.S ^TMP("DG53351",$J,2)="PATIENT file (#2) updated."
.S ^TMP("DG53351",$J,3)=""
.S ^TMP("DG53351",$J,4)=$$BLDSTR("PATIENT NAME","SSN","OLD ENROLLMENT STATUS")
.S ^TMP("DG53351",$J,5)=$$BLDSTR("------------","---","---------------------")
.S ^TMP("DG53351",$J,6)=""
.; add patients from temp global to the mail message
.N ST,PAT,TMPNODE,PATNAME,PATSSN,ENRST,I,LINE,TEXT
.S (ST,PAT)=""
.F I=7:1 S PAT=$O(^XTMP("DG-AENRC",PAT)) Q:PAT="" F S ST=$O(^XTMP("DG-AENRC",PAT,ST)) Q:ST="" D
..S TMPNODE=$G(^XTMP("DG-AENRC",PAT,ST)),LINE=I
..S PATNAME=$P(TMPNODE,U,1),PATSSN=$P(TMPNODE,U,2),ENRST=$P(TMPNODE,U,3)
..S ^TMP("DG53351",$J,LINE)=$$BLDSTR(PATNAME,PATSSN,ENRST)
..Q
.S LINE=$G(LINE)+1,^TMP("DG53351",$J,LINE)=""
.S TEXT="Number of records updated"
.S LINE=$G(LINE)+1,^TMP("DG53351",$J,LINE)=TEXT
.S LINE=$G(LINE)+1,^TMP("DG53351",$J,LINE)=$$REPEAT^XLFSTR("=",$L(TEXT))
.S LINE=$G(LINE)+1,^TMP("DG53351",$J,LINE)=+$G(^XTMP("DG-DTC",1))
;
MAIL1 ; send mail message to user
D ^XMD
D BMES^XPDUTL(" MAIL MESSAGE < #"_XMZ_" > sent.")
K ^TMP("DG53351",$J)
Q
BLDSTR(P1,P2,P3) ; build a string from input
N S1,S2,S3
S S1=$E(P1,1,25) I $L(S1)'>24 D
.S S1=S1_$J("",(24-$L(S1)))
S S2=P2
S S3=$E(P3,1,25) I $L(S3)'>24 D
.S S3=S3_$J("",(24-$L(S3)))
Q S1_$J("",5)_S2_$J("",5)_S3
DG53351M ;ALB/JAN - DG*5.3*351 POST-INSTALL MAINMAN MSG; 6/26/01
+1 ;;5.3;Registration;**351,1015**;JUNE 26, 2001;Build 21
+2 ;
+3 ; This routine will be run as part of the post-install for patch DG*5.3*351
+4 ;
+5 ; A mail message will be sent to the user when the post-install is completed.
+6 ;
MAIL ;
+1 ; Send a mailman message to user with results
+2 NEW DIFROM,%
+3 NEW XMDUZ,XMSUB,XMTEXT,XMY,Y
+4 KILL ^TMP("DG53351")
+5 SET XMDUZ="REGISTRATION PACKAGE"
SET XMY(DUZ)=""
SET XMY(.5)=""
+6 SET XMSUB="DG*5.3*351 POST-INSTALL - Update CURRENT ENROLLMENT STATUS"
+7 SET XMTEXT="^TMP(""DG53351"",$J,"
+8 DO NOW^%DTC
SET Y=%
DO DD^%DT
+9 ;
+10 IF $GET(^XTMP("DG-DTC",1))=0
Begin DoDot:1
+11 SET ^TMP("DG53351",$JOB,1)="No records were updated between the ENROLLMENT STATUS field (#.04)"
+12 SET ^TMP("DG53351",$JOB,2)="of the PATIENT ENROLLMENT file (#27.11) and the cross reference"
+13 SET ^TMP("DG53351",$JOB,3)="""AENRC"" of the PATIENT file (#2)."
End DoDot:1
+14 IF $GET(^XTMP("DG-DTC",1))>0
Begin DoDot:1
+15 SET ^TMP("DG53351",$JOB,1)="The following patients had the cross reference ""AENRC"" of the"
+16 SET ^TMP("DG53351",$JOB,2)="PATIENT file (#2) updated."
+17 SET ^TMP("DG53351",$JOB,3)=""
+18 SET ^TMP("DG53351",$JOB,4)=$$BLDSTR("PATIENT NAME","SSN","OLD ENROLLMENT STATUS")
+19 SET ^TMP("DG53351",$JOB,5)=$$BLDSTR("------------","---","---------------------")
+20 SET ^TMP("DG53351",$JOB,6)=""
+21 ; add patients from temp global to the mail message
+22 NEW ST,PAT,TMPNODE,PATNAME,PATSSN,ENRST,I,LINE,TEXT
+23 SET (ST,PAT)=""
+24 FOR I=7:1
SET PAT=$ORDER(^XTMP("DG-AENRC",PAT))
IF PAT=""
QUIT
FOR
SET ST=$ORDER(^XTMP("DG-AENRC",PAT,ST))
IF ST=""
QUIT
Begin DoDot:2
+25 SET TMPNODE=$GET(^XTMP("DG-AENRC",PAT,ST))
SET LINE=I
+26 SET PATNAME=$PIECE(TMPNODE,U,1)
SET PATSSN=$PIECE(TMPNODE,U,2)
SET ENRST=$PIECE(TMPNODE,U,3)
+27 SET ^TMP("DG53351",$JOB,LINE)=$$BLDSTR(PATNAME,PATSSN,ENRST)
+28 QUIT
End DoDot:2
+29 SET LINE=$GET(LINE)+1
SET ^TMP("DG53351",$JOB,LINE)=""
+30 SET TEXT="Number of records updated"
+31 SET LINE=$GET(LINE)+1
SET ^TMP("DG53351",$JOB,LINE)=TEXT
+32 SET LINE=$GET(LINE)+1
SET ^TMP("DG53351",$JOB,LINE)=$$REPEAT^XLFSTR("=",$LENGTH(TEXT))
+33 SET LINE=$GET(LINE)+1
SET ^TMP("DG53351",$JOB,LINE)=+$GET(^XTMP("DG-DTC",1))
End DoDot:1
+34 ;
MAIL1 ; send mail message to user
+1 DO ^XMD
+2 DO BMES^XPDUTL(" MAIL MESSAGE < #"_XMZ_" > sent.")
+3 KILL ^TMP("DG53351",$JOB)
+4 QUIT
BLDSTR(P1,P2,P3) ; build a string from input
+1 NEW S1,S2,S3
+2 SET S1=$EXTRACT(P1,1,25)
IF $LENGTH(S1)'>24
Begin DoDot:1
+3 SET S1=S1_$JUSTIFY("",(24-$LENGTH(S1)))
End DoDot:1
+4 SET S2=P2
+5 SET S3=$EXTRACT(P3,1,25)
IF $LENGTH(S3)'>24
Begin DoDot:1
+6 SET S3=S3_$JUSTIFY("",(24-$LENGTH(S3)))
End DoDot:1
+7 QUIT S1_$JUSTIFY("",5)_S2_$JUSTIFY("",5)_S3
