| [613] | 1 | ORX87 ; slc/CLA - Export Package Level Parameters for patch OR*3*87 ; Jun 05, 2000@14:48:45
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**87**;Dec 17, 1997
|
|---|
| 3 | EN ;
|
|---|
| 4 | D RENAME
|
|---|
| 5 | D MAIN
|
|---|
| 6 | Q
|
|---|
| 7 | RENAME ;initiate renaming DRUG-DRUG INTERACTION order check
|
|---|
| 8 | D BMES^XPDUTL("Renaming DRUG-DRUG INTERACTION order check to CRITICAL DRUG INTERACTION...")
|
|---|
| 9 | S $P(^ORD(100.8,18,0),U)="CRITICAL DRUG INTERACTION"
|
|---|
| 10 | ;kill then rebuild "B" x-ref:
|
|---|
| 11 | K ^ORD(100.8,"B")
|
|---|
| 12 | S DIK="^ORD(100.8,",DIK(1)=".01^B" D ENALL^DIK
|
|---|
| 13 | K DIK
|
|---|
| 14 | Q
|
|---|
| 15 | MAIN ; main (initial) parameter transport routine
|
|---|
| 16 | K ^TMP($J,"XPARRSTR")
|
|---|
| 17 | N ENT,IDX,ROOT,REF,VAL,I
|
|---|
| 18 | S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_","
|
|---|
| 19 | D LOAD
|
|---|
| 20 | XX2 S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
|
|---|
| 21 | F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
|
|---|
| 22 | . N PAR,INST,VAL,ERR
|
|---|
| 23 | . S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
|
|---|
| 24 | . M VAL=^TMP($J,"XPARRSTR",IDX,"VAL")
|
|---|
| 25 | . D EN^XPAR(ENT,PAR,INST,.VAL,.ERR)
|
|---|
| 26 | K ^TMP($J,"XPARRSTR")
|
|---|
| 27 | Q
|
|---|
| 28 | LOAD ; load data into ^TMP (expects ROOT to be defined)
|
|---|
| 29 | S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D
|
|---|
| 30 | . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
|
|---|
| 31 | . S @(ROOT_REF)=VAL
|
|---|
| 32 | Q
|
|---|
| 33 | DATA ; parameter data
|
|---|
| 34 | ;;4988,"KEY")
|
|---|
| 35 | ;;ORK PROCESSING FLAG^SIGNIFICANT DRUG INTERACTION
|
|---|
| 36 | ;;4988,"VAL")
|
|---|
| 37 | ;;Enabled
|
|---|
| 38 | ;;4989,"KEY")
|
|---|
| 39 | ;;ORK CLINICAL DANGER LEVEL^SIGNIFICANT DRUG INTERACTION
|
|---|
| 40 | ;;4989,"VAL")
|
|---|
| 41 | ;;Moderate
|
|---|
