Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
567 bytes
|
Line | |
---|
1 | ORWTPUP ; SLC/STAFF Personal Preference - Utility Parameters ;5/22/00 09:59
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85**;Oct 24, 2000
|
---|
3 | ;
|
---|
4 | PDLKUP(NAME) ; $$(parameter definition name) -> ien
|
---|
5 | I '$L(NAME) Q 0
|
---|
6 | Q +$O(^XTV(8989.51,"B",NAME,0))
|
---|
7 | ;
|
---|
8 | PDSET(PARAM,CODES) ; return set of codes from domain value of parameter
|
---|
9 | N CODE,NODE,NUM K CODES
|
---|
10 | I PARAM'=+PARAM S PARAM=$$PDLKUP(PARAM)
|
---|
11 | I 'PARAM Q
|
---|
12 | S NODE=$G(^XTV(8989.51,+PARAM,1))
|
---|
13 | I $P(NODE,U)'="S" Q
|
---|
14 | S NODE=$P(NODE,U,2)
|
---|
15 | F NUM=1:1 S CODE=$P(NODE,";",NUM) Q:'$L(CODE) D
|
---|
16 | .S CODES(NUM)=$P(CODE,":")_U_$P(CODE,":",2)
|
---|
17 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.