|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
567 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
