ORY626 ;ISL/STAFF - Post-install for patch OR*3*626 ;09/22/24 07:12
;;3.0;ORDER ENTRY/RESULTS REPORTING;**626**;Dec 17, 1997;Build 19
;
POST ; post-init process
N ORPGXFLG
S ORPGXFLG=0
D SET
I 'ORPGXFLG D Q
.D MES^XPDUTL("Pharmacogenomics order checks setup successfully completed!")
D MES^XPDUTL("***There was a problem setting up the Pharmacogenomics order***")
D MES^XPDUTL("***checks. Please log a ServiceNow ticket for assistance.***")
Q
;
SET ;Set up Pharmacogenomics order checks
N ORERR,ORTEXT
D MES^XPDUTL("Setting up the Pharmacogenomics order checks...")
I '$D(^ORD(100.8,"B","PHARMACOGENOMICS HIGH")) D
.S ^ORD(100.8,40,0)="PHARMACOGENOMICS HIGH"
.S ^ORD(100.8,40,1,0)="^^3^3^"_DT_"^"
.S ^ORD(100.8,40,1,1,0)="This Pharmacogenomic high level order check provides drug-gene "
.S ^ORD(100.8,40,1,2,0)="guidance for appropriate drug therapy to help prevent patient harm "
.S ^ORD(100.8,40,1,3,0)="and ensure effective treatments."
.S ^ORD(100.8,"B","PHARMACOGENOMICS HIGH",40)=""
.K ORERR D EN^XPAR("PKG","ORK PROCESSING FLAG","PHARMACOGENOMICS HIGH","E",.ORERR)
.I +ORERR>0 D S ORPGXFLG=1 Q
..K ORTEXT
..S ORTEXT(1)="Unable to set the PHARMACOGENOMICS HIGH order check to enabled."
..S ORTEXT(2)="Please log a ServiceNow ticket for assistance."
..D MES^XPDUTL(.ORTEXT)
.K ORERR D EN^XPAR("PKG","ORK CLINICAL DANGER LEVEL","PHARMACOGENOMICS HIGH","High",.ORERR)
.I +ORERR>0 D S ORPGXFLG=1 Q
..K ORTEXT
..S ORTEXT(1)="Unable to set the PHARMACOGENOMICS HIGH order check to high severity."
..S ORTEXT(2)="Please log a ServiceNow ticket for assistance."
..D MES^XPDUTL(.ORTEXT)
.K ORERR D EN^XPAR("SYS","ORK EDITABLE BY USER","PHARMACOGENOMICS HIGH","N",.ORERR)
.I +ORERR>0 D S ORPGXFLG=1 Q
..K ORTEXT
..S ORTEXT(1)="Unable to set the PHARMACOGENOMICS HIGH order check to uneditable."
..S ORTEXT(2)="Please log a ServiceNow ticket for assistance."
..D MES^XPDUTL(.ORTEXT)
I ORPGXFLG Q
;
I '$D(^ORD(100.8,"B","PHARMACOGENOMICS MODERATE")) D
.S ^ORD(100.8,41,0)="PHARMACOGENOMICS MODERATE"
.S ^ORD(100.8,41,1,0)="^^3^3^"_DT_"^"
.S ^ORD(100.8,41,1,1,0)="This Pharmacogenomic moderate level order check provides drug-gene "
.S ^ORD(100.8,41,1,2,0)="guidance for appropriate drug therapy to help prevent patient harm and "
.S ^ORD(100.8,41,1,3,0)="ensure effective treatments."
.S ^ORD(100.8,"B","PHARMACOGENOMICS MODERATE",41)=""
.K ORERR D EN^XPAR("PKG","ORK PROCESSING FLAG","PHARMACOGENOMICS MODERATE","E",.ORERR)
.I +ORERR>0 D S ORPGXFLG=1 Q
..K ORTEXT
..S ORTEXT(1)="Unable to set the PHARMACOGENOMICS MODERATE order check to enabled."
..S ORTEXT(2)="Please log a ServiceNow ticket for assistance."
..D MES^XPDUTL(.ORTEXT)
.K ORERR D EN^XPAR("PKG","ORK CLINICAL DANGER LEVEL","PHARMACOGENOMICS MODERATE","Moderate",.ORERR)
.I +ORERR>0 D S ORPGXFLG=1 Q
..K ORTEXT
..S ORTEXT(1)="Unable to set the PHARMACOGENOMICS MODERATE order check to"
..S ORTEXT(2)="moderate severity."
..S ORTEXT(3)="Please log a ServiceNow ticket for assistance."
..D MES^XPDUTL(.ORTEXT)
.K ORERR D EN^XPAR("SYS","ORK EDITABLE BY USER","PHARMACOGENOMICS MODERATE","N",.ORERR)
.I +ORERR>0 D S ORPGXFLG=1 Q
..K ORTEXT
..S ORTEXT(1)="Unable to set the PHARMACOGENOMICS MODERATE order check to"
..S ORTEXT(2)="to uneditable."
..S ORTEXT(3)="Please log a ServiceNow ticket for assistance."
..D MES^XPDUTL(.ORTEXT)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY626 3437 printed Sep 23, 2025@20:19:16 Page 2
ORY626 ;ISL/STAFF - Post-install for patch OR*3*626 ;09/22/24 07:12
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**626**;Dec 17, 1997;Build 19
+2 ;
POST ; post-init process
+1 NEW ORPGXFLG
+2 SET ORPGXFLG=0
+3 DO SET
+4 IF 'ORPGXFLG
Begin DoDot:1
+5 DO MES^XPDUTL("Pharmacogenomics order checks setup successfully completed!")
End DoDot:1
QUIT
+6 DO MES^XPDUTL("***There was a problem setting up the Pharmacogenomics order***")
+7 DO MES^XPDUTL("***checks. Please log a ServiceNow ticket for assistance.***")
+8 QUIT
+9 ;
SET ;Set up Pharmacogenomics order checks
+1 NEW ORERR,ORTEXT
+2 DO MES^XPDUTL("Setting up the Pharmacogenomics order checks...")
+3 IF '$DATA(^ORD(100.8,"B","PHARMACOGENOMICS HIGH"))
Begin DoDot:1
+4 SET ^ORD(100.8,40,0)="PHARMACOGENOMICS HIGH"
+5 SET ^ORD(100.8,40,1,0)="^^3^3^"_DT_"^"
+6 SET ^ORD(100.8,40,1,1,0)="This Pharmacogenomic high level order check provides drug-gene "
+7 SET ^ORD(100.8,40,1,2,0)="guidance for appropriate drug therapy to help prevent patient harm "
+8 SET ^ORD(100.8,40,1,3,0)="and ensure effective treatments."
+9 SET ^ORD(100.8,"B","PHARMACOGENOMICS HIGH",40)=""
+10 KILL ORERR
DO EN^XPAR("PKG","ORK PROCESSING FLAG","PHARMACOGENOMICS HIGH","E",.ORERR)
+11 IF +ORERR>0
Begin DoDot:2
+12 KILL ORTEXT
+13 SET ORTEXT(1)="Unable to set the PHARMACOGENOMICS HIGH order check to enabled."
+14 SET ORTEXT(2)="Please log a ServiceNow ticket for assistance."
+15 DO MES^XPDUTL(.ORTEXT)
End DoDot:2
SET ORPGXFLG=1
QUIT
+16 KILL ORERR
DO EN^XPAR("PKG","ORK CLINICAL DANGER LEVEL","PHARMACOGENOMICS HIGH","High",.ORERR)
+17 IF +ORERR>0
Begin DoDot:2
+18 KILL ORTEXT
+19 SET ORTEXT(1)="Unable to set the PHARMACOGENOMICS HIGH order check to high severity."
+20 SET ORTEXT(2)="Please log a ServiceNow ticket for assistance."
+21 DO MES^XPDUTL(.ORTEXT)
End DoDot:2
SET ORPGXFLG=1
QUIT
+22 KILL ORERR
DO EN^XPAR("SYS","ORK EDITABLE BY USER","PHARMACOGENOMICS HIGH","N",.ORERR)
+23 IF +ORERR>0
Begin DoDot:2
+24 KILL ORTEXT
+25 SET ORTEXT(1)="Unable to set the PHARMACOGENOMICS HIGH order check to uneditable."
+26 SET ORTEXT(2)="Please log a ServiceNow ticket for assistance."
+27 DO MES^XPDUTL(.ORTEXT)
End DoDot:2
SET ORPGXFLG=1
QUIT
End DoDot:1
+28 IF ORPGXFLG
QUIT
+29 ;
+30 IF '$DATA(^ORD(100.8,"B","PHARMACOGENOMICS MODERATE"))
Begin DoDot:1
+31 SET ^ORD(100.8,41,0)="PHARMACOGENOMICS MODERATE"
+32 SET ^ORD(100.8,41,1,0)="^^3^3^"_DT_"^"
+33 SET ^ORD(100.8,41,1,1,0)="This Pharmacogenomic moderate level order check provides drug-gene "
+34 SET ^ORD(100.8,41,1,2,0)="guidance for appropriate drug therapy to help prevent patient harm and "
+35 SET ^ORD(100.8,41,1,3,0)="ensure effective treatments."
+36 SET ^ORD(100.8,"B","PHARMACOGENOMICS MODERATE",41)=""
+37 KILL ORERR
DO EN^XPAR("PKG","ORK PROCESSING FLAG","PHARMACOGENOMICS MODERATE","E",.ORERR)
+38 IF +ORERR>0
Begin DoDot:2
+39 KILL ORTEXT
+40 SET ORTEXT(1)="Unable to set the PHARMACOGENOMICS MODERATE order check to enabled."
+41 SET ORTEXT(2)="Please log a ServiceNow ticket for assistance."
+42 DO MES^XPDUTL(.ORTEXT)
End DoDot:2
SET ORPGXFLG=1
QUIT
+43 KILL ORERR
DO EN^XPAR("PKG","ORK CLINICAL DANGER LEVEL","PHARMACOGENOMICS MODERATE","Moderate",.ORERR)
+44 IF +ORERR>0
Begin DoDot:2
+45 KILL ORTEXT
+46 SET ORTEXT(1)="Unable to set the PHARMACOGENOMICS MODERATE order check to"
+47 SET ORTEXT(2)="moderate severity."
+48 SET ORTEXT(3)="Please log a ServiceNow ticket for assistance."
+49 DO MES^XPDUTL(.ORTEXT)
End DoDot:2
SET ORPGXFLG=1
QUIT
+50 KILL ORERR
DO EN^XPAR("SYS","ORK EDITABLE BY USER","PHARMACOGENOMICS MODERATE","N",.ORERR)
+51 IF +ORERR>0
Begin DoDot:2
+52 KILL ORTEXT
+53 SET ORTEXT(1)="Unable to set the PHARMACOGENOMICS MODERATE order check to"
+54 SET ORTEXT(2)="to uneditable."
+55 SET ORTEXT(3)="Please log a ServiceNow ticket for assistance."
+56 DO MES^XPDUTL(.ORTEXT)
End DoDot:2
SET ORPGXFLG=1
QUIT
End DoDot:1
+57 QUIT
