XHDPAR.m

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

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