ORY270.m

ORY270 ;SLCOIFO - Post-init for patch OR*3*270 ;11/16/06 16:07

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**270**;Dec 17, 1997;Build 3

 ;

PRE ; initiate pre-init processes

 ;

 Q

 ;

POST ; initiate post-init processes

 ;

 D MAIL

 Q

 ;

MAIL ; send bulletin of installation time

 N DA,DIE,DR,VERSNUM,NAME,OPTIEN

 S DA=$O(^DIC(19,"B","OR CPRS GUI CHART","")) Q:DA'>0

 ;Change to versnum to store the new version number

 S VERSNUM="CPRSChart version 1.0.26.69"

 S DIE="^DIC(19,",DR="1////^S X=VERSNUM" D ^DIE

 ;

 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 ;;26.69

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY270   1012     printed  Apr 09, 2024@21:26:11                                                                                                                                                                                                      Page 2

ORY270    ;SLCOIFO - Post-init for patch OR*3*270 ;11/16/06 16:07

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**270**;Dec 17, 1997;Build 3

 +2       ;

PRE       ; initiate pre-init processes

 +1       ;

 +2        QUIT 

 +3       ;

POST      ; initiate post-init processes

 +1       ;

 +2        DO MAIL

 +3        QUIT 

 +4       ;

MAIL      ; send bulletin of installation time

 +1        NEW DA,DIE,DR,VERSNUM,NAME,OPTIEN

 +2        SET DA=$ORDER(^DIC(19,"B","OR CPRS GUI CHART",""))

           if DA'>0

               QUIT 

 +3       ;Change to versnum to store the new version number

 +4        SET VERSNUM="CPRSChart version 1.0.26.69"

 +5        SET DIE="^DIC(19,"

           SET DR="1////^S X=VERSNUM"

           DO ^DIE

 +6       ;

 +7        NEW COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY

 +8        SET COUNT=0

           SET XMDUZ="CPRS PACKAGE"

           SET XMTEXT="TEXT("

 +9        SET XMSUB="Version "_$PIECE($TEXT(VERSION),";;",2)_" Installed"

 +10       FOR I="G.CPRS GUI INSTALL@ISC-SLC.DOMAIN.EXT",DUZ

               SET XMY(I)=""

 +11      ;

 +12       SET X=$PIECE($TEXT(VERSION),";;",2)

 +13       DO LINE("Version "_X_" has been installed.")

 +14       DO LINE(" ")

 +15       DO LINE("Install complete:  "_$$FMTE^XLFDT($$NOW^XLFDT()))

 +16      ;

 +17       DO ^XMD

 +18       QUIT 

 +19      ;

LINE(DATA) ; set text into array

 +1        SET COUNT=COUNT+1

 +2        SET TEXT(COUNT)=DATA

 +3        QUIT 

 +4       ;

VERSION   ;;26.69