Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORWTPUP

ORWTPUP.m

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