BNIU.m

BNIU ; IHS/CMI/LAB - bni util ;

 ;;1.0;BNI CPHD ACTIVITY DATASYSTEM;;DEC 20, 2006

 ;; ;

CTAX ;EP - create and edit community taxonomy

 S X="COMMUNITY",DIC="^AMQQ(5,",DIC(0)="FM",DIC("S")="I $P(^(0),U,14)" D ^DIC K DIC,DA I Y=-1 W "OOPS - QMAN NOT CURRENT - QUITTING" G XIT

 D ^AMQQGTX0(+Y,"APCLCOMM(")

 I '$D(APCLCOMM) G CTAX

 I $D(APCLCOMM("*")) K APCLCOMM

 Q

XIT ;

 K X,DIC,APCLCOMM

 Q

BNIU      ; IHS/CMI/LAB - bni util ;

 +1       ;;1.0;BNI CPHD ACTIVITY DATASYSTEM;;DEC 20, 2006

 +2       ;; ;

CTAX      ;EP - create and edit community taxonomy

 +1        SET X="COMMUNITY"

           SET DIC="^AMQQ(5,"

           SET DIC(0)="FM"

           SET DIC("S")="I $P(^(0),U,14)"

           DO ^DIC

           KILL DIC,DA

           IF Y=-1

               WRITE "OOPS - QMAN NOT CURRENT - QUITTING"

               GOTO XIT

 +2        DO ^AMQQGTX0(+Y,"APCLCOMM(")

 +3        IF '$DATA(APCLCOMM)

               GOTO CTAX

 +4        IF $DATA(APCLCOMM("*"))

               KILL APCLCOMM

 +5        QUIT 

XIT       ;

 +1        KILL X,DIC,APCLCOMM

 +2        QUIT