source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORX87.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1ORX87 ; 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
3EN ;
4 D RENAME
5 D MAIN
6 Q
7RENAME ;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
15MAIN ; 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
20XX2 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
28LOAD ; 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
33DATA ; 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
Note: See TracBrowser for help on using the repository browser.