ORY120.m

ORY120 ;slc/dcm - Patch 120 Post/Pre-init ;08/27/01  10:09

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**120**;Dec 17, 1997

PRE ;Pre-init

 Q

POST ;Post-init

 N X

 S X=$O(^ORD(101.24,"B","ORRP BCMA MAH",0))

 I X S $P(^ORD(101.24,X,4),"^",2)=7

 D SETVAL

 D MAIL

 Q

SENDPAR(ANAME)  ; Return true if the current parameter should be sent

 I ANAME="ORWRP TIME/OCC LIMITS INDV" Q 1

 Q 0

SETVAL ;Set Package level parameter values

 N ORP,ORT,ORI,X0

 S ORP="ORWRP TIME/OCC LIMITS INDV",ORT="T-7;T;10"

 D PUT^XPAR("PKG",ORP,1,ORT)

 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="PATCH OR*3*120"

 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 ;;120v3

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY120   1078     printed  Apr 09, 2024@21:28:17                                                                                                                                                                                                      Page 2

ORY120    ;slc/dcm - Patch 120 Post/Pre-init ;08/27/01  10:09

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**120**;Dec 17, 1997

PRE       ;Pre-init

 +1        QUIT 

POST      ;Post-init

 +1        NEW X

 +2        SET X=$ORDER(^ORD(101.24,"B","ORRP BCMA MAH",0))

 +3        IF X

               SET $PIECE(^ORD(101.24,X,4),"^",2)=7

 +4        DO SETVAL

 +5        DO MAIL

 +6        QUIT 

SENDPAR(ANAME) ; Return true if the current parameter should be sent

 +1        IF ANAME="ORWRP TIME/OCC LIMITS INDV"

               QUIT 1

 +2        QUIT 0

SETVAL    ;Set Package level parameter values

 +1        NEW ORP,ORT,ORI,X0

 +2        SET ORP="ORWRP TIME/OCC LIMITS INDV"

           SET ORT="T-7;T;10"

 +3        DO PUT^XPAR("PKG",ORP,1,ORT)

 +4        QUIT 

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="PATCH OR*3*120"

 +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 

LINE(DATA) ; set text into array

 +1        SET COUNT=COUNT+1

 +2        SET TEXT(COUNT)=DATA

 +3        QUIT 

VERSION   ;;120v3