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

IVM27PT.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ;
  1. ;This routine will run as the post-install for patch IVM*2.0*7.
  1. ;The DHCP LOCATION LOGIC field (#10) and the DHCP OUTPUT LOGIC
  1. ;field (#20) will be modified in the IVM DEMOGRAPHIC UPLOAD FIELDS
  1. ;file (#301.92).
  1. ;Notification will be sent to the IVM Center that that the facility
  1. ;has installed the patch.
  1. ;
  1. EN ;begin processing
  1. D SETFILE
  1. D SENDNOT
  1. Q
  1. ;
  1. SETFILE ;modify IVM DEMOGRAPHIC UPLOAD FIELDS file (#301.92)
  1. D BMES^XPDUTL(" >> Modifying IVM DEMOGRAPHIC UPLOAD FIELDS file")
  1. 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)),""^"")"
  1. 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)),""^"")"
  1. Q
  1. ;
  1. SENDNOT ;Send notification to the IVM Center once the facility has installed
  1. ;IVM*2*7 patch.
  1. ;
  1. N DIFROM
  1. D BMES^XPDUTL(" >> Sending a 'completed installation' notice to the IVM Center... ")
  1. S XMSUB="IVM*2*7 PATCH INSTALLATION"
  1. S XMDUZ="IVM PACKAGE"
  1. S XMY("BONNER@IVM.DOMAIN.EXT")="",XMY(DUZ)="",XMY(.5)=""
  1. S XMTEXT="IVMTEXT("
  1. S IVMX=$$SITE^VASITE
  1. S IVMTEXT(1)=" Facility: "_$P(IVMX,"^",2)
  1. S IVMTEXT(2)=" Station Number: "_$P(IVMX,"^",3)
  1. ;
  1. D NOW^%DTC S Y=% D DD^%DT
  1. S IVMTEXT(3)=" Installed IVM*2*7 patch on: "_Y
  1. D ^XMD
  1. K IVMTEXT,IVMX,XMDUZ,XMSUB,XMTEXT,XMY,%
  1. Q