- XHDPAR ; SLC/JER - Parameter Calls ; 25 Jul 2003 9:42 AM
- ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003
- GETLST(XHDY,PAR,ERR) ; Gets values for all entities
- N ENT,INST,VAL,CNT,X,VDTYPE
- S X="ONERROR^XHDPAR",@^%ZOSF("TRAP")
- S (CNT,ENT,ERR)=0,VDTYPE=$P($G(^XTV(8989.51,PAR,1)),U)
- F S ENT=$O(^XTV(8989.5,"AC",PAR,ENT)) Q:'ENT D
- . S INST=""
- . F S INST=$O(^XTV(8989.5,"AC",PAR,ENT,INST)) Q:INST="" D
- . . S VAL=^XTV(8989.5,"AC",PAR,ENT,INST)
- . . S CNT=CNT+1,XHDY(CNT)=ENT_U_$$ENTNAME^XPARLIST(ENT)_U_INST_U_$S(VDTYPE="D":VAL,1:$$EXT^XPARDD(VAL,PAR,"V"))
- Q
- ONERROR ; Trap errors
- S ERR="1^"_$TR($$EC^%ZOSV,"^","~")
- D ^%ZTER
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXHDPAR 651 printed Jan 18, 2025@02:58:29 Page 2
- XHDPAR ; SLC/JER - Parameter Calls ; 25 Jul 2003 9:42 AM
- +1 ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003
- GETLST(XHDY,PAR,ERR) ; Gets values for all entities
- +1 NEW ENT,INST,VAL,CNT,X,VDTYPE
- +2 SET X="ONERROR^XHDPAR"
- SET @^%ZOSF("TRAP")
- +3 SET (CNT,ENT,ERR)=0
- SET VDTYPE=$PIECE($GET(^XTV(8989.51,PAR,1)),U)
- +4 FOR
- SET ENT=$ORDER(^XTV(8989.5,"AC",PAR,ENT))
- if 'ENT
- QUIT
- Begin DoDot:1
- +5 SET INST=""
- +6 FOR
- SET INST=$ORDER(^XTV(8989.5,"AC",PAR,ENT,INST))
- if INST=""
- QUIT
- Begin DoDot:2
- +7 SET VAL=^XTV(8989.5,"AC",PAR,ENT,INST)
- +8 SET CNT=CNT+1
- SET XHDY(CNT)=ENT_U_$$ENTNAME^XPARLIST(ENT)_U_INST_U_$SELECT(VDTYPE="D":VAL,1:$$EXT^XPARDD(VAL,PAR,"V"))
- End DoDot:2
- End DoDot:1
- +9 QUIT
- ONERROR ; Trap errors
- +1 SET ERR="1^"_$TRANSLATE($$EC^%ZOSV,"^","~")
- +2 DO ^%ZTER
- +3 QUIT