ORY296 ;SLCOIFO - Pre and Post-init for patch OR*3*296 ; 6/30/08 5:58am
;;3.0;ORDER ENTRY/RESULTS REPORTING;**296**;Dec 17, 1997;Build 19
;
PRE ; initiate pre-init processes
Q
;
POST ; initiate post-init processes
;
D MAIL
Q
;
MAIL ; send bulletin of installation time
N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
S COUNT=0,XMDUZ="CPRS PACKAGE",XMTEXT="TEXT("
S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
F I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ S XMY(I)=""
S X=$P($T(VERSION),";;",2)
D LINE("Version "_X_" has been installed.")
D LINE(" ")
D LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
D ^XMD
Q
;
LINE(DATA) ; set text into array
S COUNT=COUNT+1
S TEXT(COUNT)=DATA
Q
;
VERSION ;;27.90
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY296 777 printed Dec 13, 2024@02:40:47 Page 2
ORY296 ;SLCOIFO - Pre and Post-init for patch OR*3*296 ; 6/30/08 5:58am
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**296**;Dec 17, 1997;Build 19
+2 ;
PRE ; initiate pre-init processes
+1 QUIT
+2 ;
POST ; initiate post-init processes
+1 ;
+2 DO MAIL
+3 QUIT
+4 ;
MAIL ; send bulletin of installation time
+1 NEW COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
+2 SET COUNT=0
SET XMDUZ="CPRS PACKAGE"
SET XMTEXT="TEXT("
+3 SET XMSUB="Version "_$PIECE($TEXT(VERSION),";;",2)_" Installed"
+4 FOR I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ
SET XMY(I)=""
+5 SET X=$PIECE($TEXT(VERSION),";;",2)
+6 DO LINE("Version "_X_" has been installed.")
+7 DO LINE(" ")
+8 DO LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
+9 DO ^XMD
+10 QUIT
+11 ;
LINE(DATA) ; set text into array
+1 SET COUNT=COUNT+1
+2 SET TEXT(COUNT)=DATA
+3 QUIT
+4 ;
VERSION ;;27.90
+1 ;
