ORX87 ; slc/CLA - Export Package Level Parameters for patch OR*3*87 ; Jun 05, 2000@14:48:45
;;3.0;ORDER ENTRY/RESULTS REPORTING;**87**;Dec 17, 1997
EN ;
D RENAME
D MAIN
Q
RENAME ;initiate renaming DRUG-DRUG INTERACTION order check
D BMES^XPDUTL("Renaming DRUG-DRUG INTERACTION order check to CRITICAL DRUG INTERACTION...")
S $P(^ORD(100.8,18,0),U)="CRITICAL DRUG INTERACTION"
;kill then rebuild "B" x-ref:
K ^ORD(100.8,"B")
S DIK="^ORD(100.8,",DIK(1)=".01^B" D ENALL^DIK
K DIK
Q
MAIN ; main (initial) parameter transport routine
K ^TMP($J,"XPARRSTR")
N ENT,IDX,ROOT,REF,VAL,I
S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
D LOAD
XX2 S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
. N PAR,INST,VAL,ERR
. S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
. M VAL=^TMP($J,"XPARRSTR",IDX,"VAL")
. D EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
K ^TMP($J,"XPARRSTR")
Q
LOAD ; load data into ^TMP (expects ROOT to be defined)
S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D
. S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
. S @(ROOT_REF)=VAL
Q
DATA ; parameter data
;;4988,"KEY")
;;ORK PROCESSING FLAG^SIGNIFICANT DRUG INTERACTION
;;4988,"VAL")
;;Enabled
;;4989,"KEY")
;;ORK CLINICAL DANGER LEVEL^SIGNIFICANT DRUG INTERACTION
;;4989,"VAL")
;;Moderate
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORX87 1407 printed Nov 22, 2024@17:47:52 Page 2
ORX87 ; slc/CLA - Export Package Level Parameters for patch OR*3*87 ; Jun 05, 2000@14:48:45
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**87**;Dec 17, 1997
EN ;
+1 DO RENAME
+2 DO MAIN
+3 QUIT
RENAME ;initiate renaming DRUG-DRUG INTERACTION order check
+1 DO BMES^XPDUTL("Renaming DRUG-DRUG INTERACTION order check to CRITICAL DRUG INTERACTION...")
+2 SET $PIECE(^ORD(100.8,18,0),U)="CRITICAL DRUG INTERACTION"
+3 ;kill then rebuild "B" x-ref:
+4 KILL ^ORD(100.8,"B")
+5 SET DIK="^ORD(100.8,"
SET DIK(1)=".01^B"
DO ENALL^DIK
+6 KILL DIK
+7 QUIT
MAIN ; main (initial) parameter transport routine
+1 KILL ^TMP($JOB,"XPARRSTR")
+2 NEW ENT,IDX,ROOT,REF,VAL,I
+3 SET ROOT=$NAME(^TMP($JOB,"XPARRSTR"))
SET ROOT=$EXTRACT(ROOT,1,$LENGTH(ROOT)-1)_","
+4 DO LOAD
XX2 SET IDX=0
SET ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
+1 FOR
SET IDX=$ORDER(^TMP($JOB,"XPARRSTR",IDX))
if 'IDX
QUIT
Begin DoDot:1
+2 NEW PAR,INST,VAL,ERR
+3 SET PAR=$PIECE(^TMP($JOB,"XPARRSTR",IDX,"KEY"),U)
SET INST=$PIECE(^("KEY"),U,2)
+4 MERGE VAL=^TMP($JOB,"XPARRSTR",IDX,"VAL")
+5 DO EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
End DoDot:1
+6 KILL ^TMP($JOB,"XPARRSTR")
+7 QUIT
LOAD ; load data into ^TMP (expects ROOT to be defined)
+1 SET I=1
FOR
SET REF=$TEXT(DATA+I)
if REF=""
QUIT
SET VAL=$TEXT(DATA+I+1)
Begin DoDot:1
+2 SET I=I+2
SET REF=$PIECE(REF,";",3,999)
SET VAL=$PIECE(VAL,";",3,999)
+3 SET @(ROOT_REF)=VAL
End DoDot:1
+4 QUIT
DATA ; parameter data
+1 ;;4988,"KEY")
+2 ;;ORK PROCESSING FLAG^SIGNIFICANT DRUG INTERACTION
+3 ;;4988,"VAL")
+4 ;;Enabled
+5 ;;4989,"KEY")
+6 ;;ORK CLINICAL DANGER LEVEL^SIGNIFICANT DRUG INTERACTION
+7 ;;4989,"VAL")
+8 ;;Moderate
