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

XHDPAR.m

Go to the documentation of this file.
  1. XHDPAR ; SLC/JER - Parameter Calls ; 25 Jul 2003 9:42 AM
  1. ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003
  1. GETLST(XHDY,PAR,ERR) ; Gets values for all entities
  1. N ENT,INST,VAL,CNT,X,VDTYPE
  1. S X="ONERROR^XHDPAR",@^%ZOSF("TRAP")
  1. S (CNT,ENT,ERR)=0,VDTYPE=$P($G(^XTV(8989.51,PAR,1)),U)
  1. F S ENT=$O(^XTV(8989.5,"AC",PAR,ENT)) Q:'ENT D
  1. . S INST=""
  1. . F S INST=$O(^XTV(8989.5,"AC",PAR,ENT,INST)) Q:INST="" D
  1. . . S VAL=^XTV(8989.5,"AC",PAR,ENT,INST)
  1. . . S CNT=CNT+1,XHDY(CNT)=ENT_U_$$ENTNAME^XPARLIST(ENT)_U_INST_U_$S(VDTYPE="D":VAL,1:$$EXT^XPARDD(VAL,PAR,"V"))
  1. Q
  1. ONERROR ; Trap errors
  1. S ERR="1^"_$TR($$EC^%ZOSV,"^","~")
  1. D ^%ZTER
  1. Q