ORY296.m

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.VA.GOV",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

 ;

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.VA.GOV",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       ;