BEHOSICX.m

BEHOSICX ;MSC/IND/DKM - Site Context Support ;17-Dec-2010 14:14;PLS

 ;;1.1;BEH COMPONENTS;**007001,007003**;Mar 20, 2007

 ;=================================================================

 ; Return information about site

SITEINFO(DATA) ;

 N CIAZ,INST,CNT

 S CNT=0,INST=+$G(DUZ(2))

 D ADD($G(^XMB("NETNAME")))

 F CIAZ=.01,99,.02,.05,1.01,1.02,1.03,1.04 D ADD($$GET1^DIQ(4,INST,CIAZ))

 D ADD(INST)

 D ADD($G(DUZ("AG")))  ;P8

 Q

ADD(X) S CNT=CNT+1,DATA(CNT)=X

 Q

BEHOSICX  ;MSC/IND/DKM - Site Context Support ;17-Dec-2010 14:14;PLS

 +1       ;;1.1;BEH COMPONENTS;**007001,007003**;Mar 20, 2007

 +2       ;=================================================================

 +3       ; Return information about site

SITEINFO(DATA) ;

 +1        NEW CIAZ,INST,CNT

 +2        SET CNT=0

           SET INST=+$GET(DUZ(2))

 +3        DO ADD($GET(^XMB("NETNAME")))

 +4        FOR CIAZ=.01,99,.02,.05,1.01,1.02,1.03,1.04

               DO ADD($$GET1^DIQ(4,INST,CIAZ))

 +5        DO ADD(INST)

 +6       ;P8

           DO ADD($GET(DUZ("AG")))

 +7        QUIT 

ADD(X)     SET CNT=CNT+1

           SET DATA(CNT)=X

 +1        QUIT