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 ---[H[J[2J[HORY120 1078 printed Dec 13, 2024@02:38:22 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
