ORY522 ;SLC/NCD - PRE-INSTALL ACTION FOR VITALS WEIGHT ALERT ; Feb 7, 2024@12:50:55
;;3.0;ORDER ENTRY/RESULTS REPORTING;**522**;Dec 17, 1997;Build 43
;
; Reference to EN^XPAR in ICR #2263
; Reference to MES^XPDUTL in ICR #10141
; Reference to UPDATE^DIE in ICR #2053
;
Q
PRE ;CHECK FOR EXISTENCE OF WEIGHT CHECK ALERT IN OE/RR NOTIFICATION FILE
N ORDI,ORMSG,ORTEXT
S ORDI=97
I $D(^ORD(100.9,ORDI,0)) D Q
. S ORTEXT=^ORD(100.9,ORDI,0) I $P(ORTEXT,"^")="WEIGHT THRESHOLD EXCEEDED" Q
. N ORMSG
. S ORMSG(1)=" WARNING:",ORMSG(2)=" A notification already exists in entry number "_ORDI_". Installation is aborted."
. D MES^XPDUTL(.ORMSG)
. S XPDABORT=1
Q
;
SENDNOT(ORNAME) ;Return true if the current notification should be sent
I ORNAME="WEIGHT THRESHOLD EXCEEDED" Q 1
Q 0
;
POST ;SET UP PARAMETERS FOR THE NEW NOTIFICATION
N ORENT,ORINST,ORDI,XPDABORT,ORMSG,EXIT,LINE,I
D MES^XPDUTL(" Loading parameter values for new notification: Vitals...")
S ORENT="PKG.ORDER ENTRY/RESULTS REPORTING"
S ORDI=97
S EXIT=0
F LINE=1:1 Q:$G(EXIT) D
. N TEXT,ORERROR
. S TEXT=$P($T(PARAM+LINE),";",3)
. S ORINST=$P($G(^ORD(100.9,ORDI,0)),U,1)
. I $P(TEXT," ")="ORB" D Q
.. D EN^XPAR(ORENT,$P(TEXT,U),ORINST,$P(TEXT,U,2),.ORERROR) ;ICR #2336
.. I +ORERROR D
... S ORMSG(1)=" ",EXIT=2
... S ORMSG(2)="ERROR: Unable to configure the new "_ORINST_" notification"
... S ORMSG(3)="Kernel Parameter Tools Error #"_+ORERROR_": "_$P(ORERROR,U,2)
... D MES^XPDUTL(.ORMSG)
. I TEXT="" S EXIT=1
D:$G(EXIT)<2 MES^XPDUTL(" Finished loading new notification values")
F I="GMV WEIGHT ALERT","GMV WEIGHT CHECK" D INSERT("OR CPRS GUI CHART",I)
Q
;
PARAM ;PARAMETER VALUES TO LOAD
;;ORB ARCHIVE PERIOD^30
;;ORB DELETE MECHANISM^Individual Recipient
;;ORB PROCESSING FLAG^Enabled
;;ORB PROVIDER RECIPIENTS^AP
;;ORB URGENCY^High
;;ORB FORWARD SURROGATES^0
;;ORB FORWARD BACKUP REVIEWER^0
;;ORB FORWARD SUPERVISOR^0
Q
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
; Input -- OPTION Option file (#19) Name field (#.01)
; RPC RPC sub-file (#19.05) RPC field (#.01)
; Output -- None
N FDA,FDAIEN,ERR,DIERR
S FDA(19,"?1,",.01)=OPTION
S FDA(19.05,"?+2,?1,",.01)=RPC
D UPDATE^DIE("E","FDA","FDAIEN","ERR")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY522 2316 printed Sep 17, 2026@21:28:29 Page 2
ORY522 ;SLC/NCD - PRE-INSTALL ACTION FOR VITALS WEIGHT ALERT ; Feb 7, 2024@12:50:55
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**522**;Dec 17, 1997;Build 43
+2 ;
+3 ; Reference to EN^XPAR in ICR #2263
+4 ; Reference to MES^XPDUTL in ICR #10141
+5 ; Reference to UPDATE^DIE in ICR #2053
+6 ;
+7 QUIT
PRE ;CHECK FOR EXISTENCE OF WEIGHT CHECK ALERT IN OE/RR NOTIFICATION FILE
+1 NEW ORDI,ORMSG,ORTEXT
+2 SET ORDI=97
+3 IF $DATA(^ORD(100.9,ORDI,0))
Begin DoDot:1
+4 SET ORTEXT=^ORD(100.9,ORDI,0)
IF $PIECE(ORTEXT,"^")="WEIGHT THRESHOLD EXCEEDED"
QUIT
+5 NEW ORMSG
+6 SET ORMSG(1)=" WARNING:"
SET ORMSG(2)=" A notification already exists in entry number "_ORDI_". Installation is aborted."
+7 DO MES^XPDUTL(.ORMSG)
+8 SET XPDABORT=1
End DoDot:1
QUIT
+9 QUIT
+10 ;
SENDNOT(ORNAME) ;Return true if the current notification should be sent
+1 IF ORNAME="WEIGHT THRESHOLD EXCEEDED"
QUIT 1
+2 QUIT 0
+3 ;
POST ;SET UP PARAMETERS FOR THE NEW NOTIFICATION
+1 NEW ORENT,ORINST,ORDI,XPDABORT,ORMSG,EXIT,LINE,I
+2 DO MES^XPDUTL(" Loading parameter values for new notification: Vitals...")
+3 SET ORENT="PKG.ORDER ENTRY/RESULTS REPORTING"
+4 SET ORDI=97
+5 SET EXIT=0
+6 FOR LINE=1:1
if $GET(EXIT)
QUIT
Begin DoDot:1
+7 NEW TEXT,ORERROR
+8 SET TEXT=$PIECE($TEXT(PARAM+LINE),";",3)
+9 SET ORINST=$PIECE($GET(^ORD(100.9,ORDI,0)),U,1)
+10 IF $PIECE(TEXT," ")="ORB"
Begin DoDot:2
+11 ;ICR #2336
DO EN^XPAR(ORENT,$PIECE(TEXT,U),ORINST,$PIECE(TEXT,U,2),.ORERROR)
+12 IF +ORERROR
Begin DoDot:3
+13 SET ORMSG(1)=" "
SET EXIT=2
+14 SET ORMSG(2)="ERROR: Unable to configure the new "_ORINST_" notification"
+15 SET ORMSG(3)="Kernel Parameter Tools Error #"_+ORERROR_": "_$PIECE(ORERROR,U,2)
+16 DO MES^XPDUTL(.ORMSG)
End DoDot:3
End DoDot:2
QUIT
+17 IF TEXT=""
SET EXIT=1
End DoDot:1
+18 if $GET(EXIT)<2
DO MES^XPDUTL(" Finished loading new notification values")
+19 FOR I="GMV WEIGHT ALERT","GMV WEIGHT CHECK"
DO INSERT("OR CPRS GUI CHART",I)
+20 QUIT
+21 ;
PARAM ;PARAMETER VALUES TO LOAD
+1 ;;ORB ARCHIVE PERIOD^30
+2 ;;ORB DELETE MECHANISM^Individual Recipient
+3 ;;ORB PROCESSING FLAG^Enabled
+4 ;;ORB PROVIDER RECIPIENTS^AP
+5 ;;ORB URGENCY^High
+6 ;;ORB FORWARD SURROGATES^0
+7 ;;ORB FORWARD BACKUP REVIEWER^0
+8 ;;ORB FORWARD SUPERVISOR^0
+9 QUIT
INSERT(OPTION,RPC) ; Call FM Updater with each RPC
+1 ; Input -- OPTION Option file (#19) Name field (#.01)
+2 ; RPC RPC sub-file (#19.05) RPC field (#.01)
+3 ; Output -- None
+4 NEW FDA,FDAIEN,ERR,DIERR
+5 SET FDA(19,"?1,",.01)=OPTION
+6 SET FDA(19.05,"?+2,?1,",.01)=RPC
+7 DO UPDATE^DIE("E","FDA","FDAIEN","ERR")
+8 QUIT
