ORY203 ;SLC/PKS -- postinit rtn for OR*3*203;7/2/2003 06:25 [9/11/03 10:56am]
;;3.0;ORDER ENTRY/RESULTS REPORTING;**203**;Dec 17, 1997
;
Q
;
PRE ; -- preinit
;
Q
;
POST ; -- postinit
;
N VER
;
S VER=$P($T(VERSION^ORY187),";",3)
D MAIL
;
Q
;
MAIL ; send bulletin of installation time
N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
S COUNT=0
S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
S XMDUZ="CPRS PACKAGE"
F I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ S XMY(I)=""
S XMTEXT="TEXT("
;
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 ;;22.12
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY203 823 printed Oct 16, 2024@18:39:39 Page 2
ORY203 ;SLC/PKS -- postinit rtn for OR*3*203;7/2/2003 06:25 [9/11/03 10:56am]
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**203**;Dec 17, 1997
+2 ;
+3 QUIT
+4 ;
PRE ; -- preinit
+1 ;
+2 QUIT
+3 ;
POST ; -- postinit
+1 ;
+2 NEW VER
+3 ;
+4 SET VER=$PIECE($TEXT(VERSION^ORY187),";",3)
+5 DO MAIL
+6 ;
+7 QUIT
+8 ;
MAIL ; send bulletin of installation time
+1 NEW COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
+2 SET COUNT=0
+3 SET XMSUB="Version "_$PIECE($TEXT(VERSION),";;",2)_" Installed"
+4 SET XMDUZ="CPRS PACKAGE"
+5 FOR I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ
SET XMY(I)=""
+6 SET XMTEXT="TEXT("
+7 ;
+8 SET X=$PIECE($TEXT(VERSION),";;",2)
+9 DO LINE("Version "_X_" has been installed.")
+10 DO LINE(" ")
+11 DO LINE("Install complete: "_$$FMTE^XLFDT($$NOW^XLFDT()))
+12 ;
+13 DO ^XMD
+14 QUIT
+15 ;
LINE(DATA) ; set text into array
+1 SET COUNT=COUNT+1
+2 SET TEXT(COUNT)=DATA
+3 QUIT
+4 ;
VERSION ;;22.12
