source: WorldVistAEHR/trunk/r/HEALTHEVET_DESKTOP-XHD/XHDPAR.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 635 bytes
Line 
1XHDPAR ; SLC/JER - Parameter Calls ; 25 Jul 2003 9:42 AM
2 ;;1.0;HEALTHEVET DESKTOP;;Jul 15, 2003
3GETLST(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
13ONERROR ; Trap errors
14 S ERR="1^"_$TR($$EC^%ZOSV,"^","~")
15 D ^%ZTER
16 Q
Note: See TracBrowser for help on using the repository browser.