source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY243R.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1ORY243R ;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 ;
6PARAM ; 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
11XX2 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
19LOAD ; 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 ;
25DATA ; 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
Note: See TracBrowser for help on using the repository browser.