DG53147P ;ALB/RMO/CJM - National Enrollment Post Install Updates; 10/14/97
;;5.3;Registration;**147**;Aug 13, 1993
;
EN ;
;-- re-compile input templates
D COMP
;-- fix potential problem in DD for rated disabilities multiple
D FIX
;--notify HEC that thepatch was installed
D NOTIFY
Q
;
COMP ;-- Re-compile input templates
;
N DGCOUNT,X,Y,DMAX,DGNAME,DGMAX
S DGMAX=$$ROUSIZE^DILF
D MES^XPDUTL("Recompiling affected input templates ...")
F DGCOUNT=1:1 S DGNAME=$P($T(TEMP+DGCOUNT),";;",2) Q:DGNAME="" D
.;
.;find the ien of the input template
.S Y=$O(^DIE("B",DGNAME,0))
.Q:('Y)
.;
.;quit if input template not compiled
.S X=$P($G(^DIE(Y,"ROUOLD")),"^")
.Q:(X="")
.;
.D MES^XPDUTL("Compiling "_DGNAME_" , compiled routine is "_X_" ...")
.S DMAX=DGMAX
.D EN^DIEZ
.D MES^XPDUTL("done")
D MES^XPDUTL("Completed compiling input templates")
Q
;
FIX ;fix DD for rated disabilities multiple
K ^DD(2.04,0,"NM")
S ^DD(2.04,0,"NM","RATED DISABILITIES (VA)")=""
Q
NOTIFY ; --
; This function will generate a notification message that the facility has installed the patch in a production account.
;
N DIFROM,IVMSITE,IVMTEXT,XMTEXT,XMSUB,XMDUZ,XMY,Y
;
; if not in production account, do not send notification message (exit)
X ^%ZOSF("UCI") I Y'=^%ZOSF("PROD") Q
;
D BMES^XPDUTL(">>> Sending a 'completed installation' notification to the HEC...")
;
; get facility name/station number
S IVMSITE=$$SITE^VASITE
;
S XMSUB="Patch DG*5.3*147 Installed "_"("_$P(IVMSITE,"^",3)_")" ; subject
S XMDUZ="ENROLLMENT PACKAGE" ; sender
S XMY(DUZ)="",XMY(.5)="" ; local recipient
S XMY("G.ENROLLMENT EXTRACT@IVM.DOMAIN.EXT")="" ; remote recipient
;
; message text
S XMTEXT="IVMTEXT("
S IVMTEXT(1)=" Facility Name: "_$P(IVMSITE,"^",2)
S IVMTEXT(2)=" Station Number: "_$P(IVMSITE,"^",3)
S IVMTEXT(3)=" Installed By: "_$P($G(^VA(200,+$G(DUZ),0)),"^")
S IVMTEXT(4)=""
S IVMTEXT(5)=" Installed DG*5.3*147 patch on: "_$$FMTE^XLFDT($$NOW^XLFDT)
;
D ^XMD
;
D BMES^XPDUTL("Notification message sent.")
;
Q
;
TEMP ;
;;DVBA C ADD 2507 PAT
;;DVBHINQ UPDATE
;;IB SCREEN1
;;DGRPT 10-10T REGISTRATION
;;DG LOAD EDIT SCREEN 7
;;AICK VARO/DHCP
;;DGRP COLLATERAL REGISTER
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53147P 2325 printed Apr 09, 2024@21:44:44 Page 2
DG53147P ;ALB/RMO/CJM - National Enrollment Post Install Updates; 10/14/97
+1 ;;5.3;Registration;**147**;Aug 13, 1993
+2 ;
EN ;
+1 ;-- re-compile input templates
+2 DO COMP
+3 ;-- fix potential problem in DD for rated disabilities multiple
+4 DO FIX
+5 ;--notify HEC that thepatch was installed
+6 DO NOTIFY
+7 QUIT
+8 ;
COMP ;-- Re-compile input templates
+1 ;
+2 NEW DGCOUNT,X,Y,DMAX,DGNAME,DGMAX
+3 SET DGMAX=$$ROUSIZE^DILF
+4 DO MES^XPDUTL("Recompiling affected input templates ...")
+5 FOR DGCOUNT=1:1
SET DGNAME=$PIECE($TEXT(TEMP+DGCOUNT),";;",2)
if DGNAME=""
QUIT
Begin DoDot:1
+6 ;
+7 ;find the ien of the input template
+8 SET Y=$ORDER(^DIE("B",DGNAME,0))
+9 if ('Y)
QUIT
+10 ;
+11 ;quit if input template not compiled
+12 SET X=$PIECE($GET(^DIE(Y,"ROUOLD")),"^")
+13 if (X="")
QUIT
+14 ;
+15 DO MES^XPDUTL("Compiling "_DGNAME_" , compiled routine is "_X_" ...")
+16 SET DMAX=DGMAX
+17 DO EN^DIEZ
+18 DO MES^XPDUTL("done")
End DoDot:1
+19 DO MES^XPDUTL("Completed compiling input templates")
+20 QUIT
+21 ;
FIX ;fix DD for rated disabilities multiple
+1 KILL ^DD(2.04,0,"NM")
+2 SET ^DD(2.04,0,"NM","RATED DISABILITIES (VA)")=""
+3 QUIT
NOTIFY ; --
+1 ; This function will generate a notification message that the facility has installed the patch in a production account.
+2 ;
+3 NEW DIFROM,IVMSITE,IVMTEXT,XMTEXT,XMSUB,XMDUZ,XMY,Y
+4 ;
+5 ; if not in production account, do not send notification message (exit)
+6 XECUTE ^%ZOSF("UCI")
IF Y'=^%ZOSF("PROD")
QUIT
+7 ;
+8 DO BMES^XPDUTL(">>> Sending a 'completed installation' notification to the HEC...")
+9 ;
+10 ; get facility name/station number
+11 SET IVMSITE=$$SITE^VASITE
+12 ;
+13 ; subject
SET XMSUB="Patch DG*5.3*147 Installed "_"("_$PIECE(IVMSITE,"^",3)_")"
+14 ; sender
SET XMDUZ="ENROLLMENT PACKAGE"
+15 ; local recipient
SET XMY(DUZ)=""
SET XMY(.5)=""
+16 ; remote recipient
SET XMY("G.ENROLLMENT EXTRACT@IVM.DOMAIN.EXT")=""
+17 ;
+18 ; message text
+19 SET XMTEXT="IVMTEXT("
+20 SET IVMTEXT(1)=" Facility Name: "_$PIECE(IVMSITE,"^",2)
+21 SET IVMTEXT(2)=" Station Number: "_$PIECE(IVMSITE,"^",3)
+22 SET IVMTEXT(3)=" Installed By: "_$PIECE($GET(^VA(200,+$GET(DUZ),0)),"^")
+23 SET IVMTEXT(4)=""
+24 SET IVMTEXT(5)=" Installed DG*5.3*147 patch on: "_$$FMTE^XLFDT($$NOW^XLFDT)
+25 ;
+26 DO ^XMD
+27 ;
+28 DO BMES^XPDUTL("Notification message sent.")
+29 ;
+30 QUIT
+31 ;
TEMP ;
+1 ;;DVBA C ADD 2507 PAT
+2 ;;DVBHINQ UPDATE
+3 ;;IB SCREEN1
+4 ;;DGRPT 10-10T REGISTRATION
+5 ;;DG LOAD EDIT SCREEN 7
+6 ;;AICK VARO/DHCP
+7 ;;DGRP COLLATERAL REGISTER
