18 lines
567 B
Mathematica
18 lines
567 B
Mathematica
ORWTPUP ; SLC/STAFF Personal Preference - Utility Parameters ;5/22/00 09:59
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**85**;Oct 24, 2000
|
|
;
|
|
PDLKUP(NAME) ; $$(parameter definition name) -> ien
|
|
I '$L(NAME) Q 0
|
|
Q +$O(^XTV(8989.51,"B",NAME,0))
|
|
;
|
|
PDSET(PARAM,CODES) ; return set of codes from domain value of parameter
|
|
N CODE,NODE,NUM K CODES
|
|
I PARAM'=+PARAM S PARAM=$$PDLKUP(PARAM)
|
|
I 'PARAM Q
|
|
S NODE=$G(^XTV(8989.51,+PARAM,1))
|
|
I $P(NODE,U)'="S" Q
|
|
S NODE=$P(NODE,U,2)
|
|
F NUM=1:1 S CODE=$P(NODE,";",NUM) Q:'$L(CODE) D
|
|
.S CODES(NUM)=$P(CODE,":")_U_$P(CODE,":",2)
|
|
Q
|