| 1 | XHDPAR ; SLC/JER - Parameter Calls ; 25 Jul 2003 9:42 AM
|
|---|
| 2 | ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003
|
|---|
| 3 | GETLST(XHDY,PAR,ERR) ; Gets values for all entities
|
|---|
| 4 | N ENT,INST,VAL,CNT,X,VDTYPE
|
|---|
| 5 | S X="ONERROR^XHDPAR",@^%ZOSF("TRAP")
|
|---|
| 6 | S (CNT,ENT,ERR)=0,VDTYPE=$P($G(^XTV(8989.51,PAR,1)),U)
|
|---|
| 7 | F S ENT=$O(^XTV(8989.5,"AC",PAR,ENT)) Q:'ENT D
|
|---|
| 8 | . S INST=""
|
|---|
| 9 | . F S INST=$O(^XTV(8989.5,"AC",PAR,ENT,INST)) Q:INST="" D
|
|---|
| 10 | . . S VAL=^XTV(8989.5,"AC",PAR,ENT,INST)
|
|---|
| 11 | . . S CNT=CNT+1,XHDY(CNT)=ENT_U_$$ENTNAME^XPARLIST(ENT)_U_INST_U_$S(VDTYPE="D":VAL,1:$$EXT^XPARDD(VAL,PAR,"V"))
|
|---|
| 12 | Q
|
|---|
| 13 | ONERROR ; Trap errors
|
|---|
| 14 | S ERR="1^"_$TR($$EC^%ZOSV,"^","~")
|
|---|
| 15 | D ^%ZTER
|
|---|
| 16 | Q
|
|---|
