- 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 Feb 18, 2025@23:26:36 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