| [613] | 1 | ORY243R ;SLCOIFO - Pre and Post-init for patch OR*3*243 ;4/25/07 14:12
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
|
|---|
| 3 | ;
|
|---|
| 4 | ; DBIA 2336 EN^XPAR ^TMP($J,"XPARRSTR")
|
|---|
| 5 | ;
|
|---|
| 6 | PARAM ; DO NOT REMOVE WITH VBECS - main (initial) parameter transport routine
|
|---|
| 7 | K ^TMP($J,"XPARRSTR")
|
|---|
| 8 | N ENT,IDX,ROOT,REF,VAL,I
|
|---|
| 9 | S ROOT=$NAME(^TMP($J,"XPARRSTR")),ROOT=$E(ROOT,1,$L(ROOT)-1)_"," ;DBIA 2336
|
|---|
| 10 | D LOAD
|
|---|
| 11 | XX2 S IDX=0,ENT="PKG."_"ORDER ENTRY/RESULTS REPORTING"
|
|---|
| 12 | F S IDX=$O(^TMP($J,"XPARRSTR",IDX)) Q:'IDX D
|
|---|
| 13 | . N PAR,INST,ORVAL,ORERR K ORVAL
|
|---|
| 14 | . S PAR=$P(^TMP($J,"XPARRSTR",IDX,"KEY"),U),INST=$P(^("KEY"),U,2)
|
|---|
| 15 | . M ORVAL=^TMP($J,"XPARRSTR",IDX,"VAL")
|
|---|
| 16 | . D EN^XPAR(ENT,PAR,INST,.ORVAL,.ORERR) ;DBIA 2336
|
|---|
| 17 | K ^TMP($J,"XPARRSTR")
|
|---|
| 18 | Q
|
|---|
| 19 | LOAD ; load data into ^TMP (expects ROOT to be defined)
|
|---|
| 20 | S I=1 F S REF=$T(DATA+I) Q:REF="" S VAL=$T(DATA+I+1) D
|
|---|
| 21 | . S I=I+2,REF=$P(REF,";",3,999),VAL=$P(VAL,";",3,999)
|
|---|
| 22 | . S @(ROOT_REF)=VAL
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | DATA ; parameter data
|
|---|
| 26 | ;;7240,"KEY")
|
|---|
| 27 | ;;ORB ARCHIVE PERIOD^MEDICATIONS EXPIRING - OUTPT
|
|---|
| 28 | ;;7240,"VAL")
|
|---|
| 29 | ;;30
|
|---|
| 30 | ;;7241,"KEY")
|
|---|
| 31 | ;;ORB DELETE MECHANISM^MEDICATIONS EXPIRING - OUTPT
|
|---|
| 32 | ;;7241,"VAL")
|
|---|
| 33 | ;;All Recipients
|
|---|
| 34 | ;;7242,"KEY")
|
|---|
| 35 | ;;ORB FORWARD BACKUP REVIEWER^MEDICATIONS EXPIRING - OUTPT
|
|---|
| 36 | ;;7242,"VAL")
|
|---|
| 37 | ;;0
|
|---|
| 38 | ;;7243,"KEY")
|
|---|
| 39 | ;;ORB FORWARD SUPERVISOR^MEDICATIONS EXPIRING - OUTPT
|
|---|
| 40 | ;;7243,"VAL")
|
|---|
| 41 | ;;0
|
|---|
| 42 | ;;7244,"KEY")
|
|---|
| 43 | ;;ORB FORWARD SURROGATES^MEDICATIONS EXPIRING - OUTPT
|
|---|
| 44 | ;;7244,"VAL")
|
|---|
| 45 | ;;0
|
|---|
| 46 | ;;7245,"KEY")
|
|---|
| 47 | ;;ORB PROCESSING FLAG^MEDICATIONS EXPIRING - OUTPT
|
|---|
| 48 | ;;7245,"VAL")
|
|---|
| 49 | ;;Disabled
|
|---|
| 50 | ;;7246,"KEY")
|
|---|
| 51 | ;;ORB PROVIDER RECIPIENTS^MEDICATIONS EXPIRING - OUTPT
|
|---|
| 52 | ;;7246,"VAL")
|
|---|
| 53 | ;;OAPT
|
|---|
| 54 | ;;7247,"KEY")
|
|---|
| 55 | ;;ORB URGENCY^MEDICATIONS EXPIRING - OUTPT
|
|---|
| 56 | ;;7247,"VAL")
|
|---|
| 57 | ;;High
|
|---|
| 58 | ;;6064,"KEY")
|
|---|
| 59 | ;;ORWOR EXPIRED ORDERS^1
|
|---|
| 60 | ;;6064,"VAL")
|
|---|
| 61 | ;;72
|
|---|
| 62 | ;;11559,"KEY")
|
|---|
| 63 | ;;ORWLR LC CHANGED TO WC^1
|
|---|
| 64 | ;;11559,"VAL")
|
|---|
| 65 | ;;Please contact the ward staff to insure the specimen is collected.
|
|---|
| 66 | ;;11560,"KEY")
|
|---|
| 67 | ;;OR VBECS SUPPRESS NURS ADMIN
|
|---|
| 68 | ;;11560,"VAL")
|
|---|
| 69 | ;;0
|
|---|
