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

SR71UTL.m

Go to the documentation of this file.
  1. SR71UTL ;BIR/ADM - Post-install for SR*3*71 ; [ 08/06/97 11:16 AM ]
  1. ;;3.0; Surgery ;**71**;24 Jun 93
  1. Q
  1. PRE ; pre-install action for SR*3*71
  1. I $G(^SRO(139.2,1,0))'="HEMOGLOBIN" D
  1. .S DA=1,DIK="^SRO(139.2," D ^DIK
  1. .S ^SRO(139.2,1,0)="HEMOGLOBIN"
  1. .S ^SRO(139.2,1,2)="70"
  1. .S DIK="^SRO(139.2,",DIK(1)=".01" D ENALL^DIK K DIK
  1. Q
  1. POST ; post-install action for SR*3*71
  1. ; task install notification message
  1. N SRD,SRNOW X ^%ZOSF("UCI") I $P(Y,",")'=$P(^%ZOSF("PROD"),",") Q
  1. S SRD=^XMB("NETNAME") I $E(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")!(SRD["TST.")!(SRD["TEST")!(SRD["UTL.") Q
  1. QUEUE ; queue install message
  1. D NOW^%DTC S (SRNOW,ZTDTH)=$E(%,1,12),ZTRTN="MSG^SR71UTL",ZTDESC="Patch SR*3*71 Install Message",ZTIO="",ZTSAVE("SRNOW")=SRNOW D ^%ZTLOAD
  1. Q
  1. MSG ; send mail message to national database
  1. S SRD=^XMB("NETNAME")
  1. K SRMSG S SRMSG(1)="Patch SR*3*71 has been installed at "_SRD_"."
  1. S XMSUB="SR*3*71 Installed",XMDUZ=DUZ
  1. S XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""
  1. S XMTEXT="SRMSG(" D ^XMD
  1. END S ZTREQ="@"
  1. Q