Routine: ORY203

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

PRE ; -- preinit

POST ; -- postinit

 N VER

 S VER=$P($T(VERSION^ORY187),";",3)

 D MAIL

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

LINE(DATA)      ; set text into array

 S COUNT=COUNT+1

 S TEXT(COUNT)=DATA

VERSION ;;22.12

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

ORY203.m