ORX87.m

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

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