IVM27PT ;ALB/SEK - POST-INSTALL FOR PATCH IVM*2.0*7 ; 8-SEP-96
;;Version 2.0 ; INCOME VERIFICATION MATCH ;**7**; 21-OCT-94
;
;
;This routine will run as the post-install for patch IVM*2.0*7.
;The DHCP LOCATION LOGIC field (#10) and the DHCP OUTPUT LOGIC
;field (#20) will be modified in the IVM DEMOGRAPHIC UPLOAD FIELDS
;file (#301.92).
;Notification will be sent to the IVM Center that that the facility
;has installed the patch.
;
EN ;begin processing
D SETFILE
D SENDNOT
Q
;
SETFILE ;modify IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)
D BMES^XPDUTL(" >> Modifying IVM DEMOGRAPHIC UPLOAD FIELDS file")
S ^IVM(301.92,30,1)="S DR=.314 D LOOK^IVMPREC9 Q:Y="""" S Y=$P($G(^DIC(4,Y,99)),""^"")_$P($G(^DIC(4,Y,0)),""^"")"
S ^IVM(301.92,30,2)="S DR=.314 D LOOK^IVMPREC9 Q:Y="""" S Y=$P($G(^DIC(4,Y,99)),""^"")_$P($G(^DIC(4,Y,0)),""^"")"
Q
;
SENDNOT ;Send notification to the IVM Center once the facility has installed
;IVM*2*7 patch.
;
N DIFROM
D BMES^XPDUTL(" >> Sending a 'completed installation' notice to the IVM Center... ")
S XMSUB="IVM*2*7 PATCH INSTALLATION"
S XMDUZ="IVM PACKAGE"
S XMY("BONNER@IVM.DOMAIN.EXT")="",XMY(DUZ)="",XMY(.5)=""
S XMTEXT="IVMTEXT("
S IVMX=$$SITE^VASITE
S IVMTEXT(1)=" Facility: "_$P(IVMX,"^",2)
S IVMTEXT(2)=" Station Number: "_$P(IVMX,"^",3)
;
D NOW^%DTC S Y=% D DD^%DT
S IVMTEXT(3)=" Installed IVM*2*7 patch on: "_Y
D ^XMD
K IVMTEXT,IVMX,XMDUZ,XMSUB,XMTEXT,XMY,%
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIVM27PT 1511 printed Dec 13, 2024@02:01:01 Page 2
IVM27PT ;ALB/SEK - POST-INSTALL FOR PATCH IVM*2.0*7 ; 8-SEP-96
+1 ;;Version 2.0 ; INCOME VERIFICATION MATCH ;**7**; 21-OCT-94
+2 ;
+3 ;
+4 ;This routine will run as the post-install for patch IVM*2.0*7.
+5 ;The DHCP LOCATION LOGIC field (#10) and the DHCP OUTPUT LOGIC
+6 ;field (#20) will be modified in the IVM DEMOGRAPHIC UPLOAD FIELDS
+7 ;file (#301.92).
+8 ;Notification will be sent to the IVM Center that that the facility
+9 ;has installed the patch.
+10 ;
EN ;begin processing
+1 DO SETFILE
+2 DO SENDNOT
+3 QUIT
+4 ;
SETFILE ;modify IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)
+1 DO BMES^XPDUTL(" >> Modifying IVM DEMOGRAPHIC UPLOAD FIELDS file")
+2 SET ^IVM(301.92,30,1)="S DR=.314 D LOOK^IVMPREC9 Q:Y="""" S Y=$P($G(^DIC(4,Y,99)),""^"")_$P($G(^DIC(4,Y,0)),""^"")"
+3 SET ^IVM(301.92,30,2)="S DR=.314 D LOOK^IVMPREC9 Q:Y="""" S Y=$P($G(^DIC(4,Y,99)),""^"")_$P($G(^DIC(4,Y,0)),""^"")"
+4 QUIT
+5 ;
SENDNOT ;Send notification to the IVM Center once the facility has installed
+1 ;IVM*2*7 patch.
+2 ;
+3 NEW DIFROM
+4 DO BMES^XPDUTL(" >> Sending a 'completed installation' notice to the IVM Center... ")
+5 SET XMSUB="IVM*2*7 PATCH INSTALLATION"
+6 SET XMDUZ="IVM PACKAGE"
+7 SET XMY("BONNER@IVM.DOMAIN.EXT")=""
SET XMY(DUZ)=""
SET XMY(.5)=""
+8 SET XMTEXT="IVMTEXT("
+9 SET IVMX=$$SITE^VASITE
+10 SET IVMTEXT(1)=" Facility: "_$PIECE(IVMX,"^",2)
+11 SET IVMTEXT(2)=" Station Number: "_$PIECE(IVMX,"^",3)
+12 ;
+13 DO NOW^%DTC
SET Y=%
DO DD^%DT
+14 SET IVMTEXT(3)=" Installed IVM*2*7 patch on: "_Y
+15 DO ^XMD
+16 KILL IVMTEXT,IVMX,XMDUZ,XMSUB,XMTEXT,XMY,%
+17 QUIT
