BPXRMTAX.m

BPXRMTAX ; IHS/MSC/MGH - Version 2.0 Patch 3. ;20-Nov-2014 15:49;du

 ;;2.0;CLINICAL REMINDERS;**1003**;Feb 04, 2005;Build 21

 ;

BUILD ;Rebuild taxonomy

 N DA,DIC,DLAYGO,DTOUT,DUOUT,Y,TERM

 S DIC="^PXD(811.2,"

 S DIC(0)="AEMQ"

 S DIC("A")="Select Reminder Taxonomy: "

 S DIC("S")="I $$VEDIT^PXRMUTIL(DIC,Y)"

 S DLAYGO=811.2

 D ^DIC

 I ($D(DTOUT))!($D(DUOUT)) Q

 I Y=-1 G END

 S DA=$P(Y,U,1)

 S TERM=$P(Y,U,2)

 D RTAXEXP(TERM)

 Q

RTAXEXP(TERM) ;Rebuild taxonomy expansions.

 N IEN,IND,TEXT,TNAME

 D BMES^XPDUTL("Rebuilding taxonomy expansions.")

 S IEN=$O(^PXD(811.2,"B",TERM,""))

 I IEN="" Q

 S TEXT=" Working on taxonomy "_IEN

 D BMES^XPDUTL(TEXT)

 D DELEXTL^PXRMBXTL(IEN)

 D EXPAND^PXRMBXTL(IEN,"")

 Q

BPXRMTAX  ; IHS/MSC/MGH - Version 2.0 Patch 3. ;20-Nov-2014 15:49;du

 +1       ;;2.0;CLINICAL REMINDERS;**1003**;Feb 04, 2005;Build 21

 +2       ;

BUILD     ;Rebuild taxonomy

 +1        NEW DA,DIC,DLAYGO,DTOUT,DUOUT,Y,TERM

 +2        SET DIC="^PXD(811.2,"

 +3        SET DIC(0)="AEMQ"

 +4        SET DIC("A")="Select Reminder Taxonomy: "

 +5        SET DIC("S")="I $$VEDIT^PXRMUTIL(DIC,Y)"

 +6        SET DLAYGO=811.2

 +7        DO ^DIC

 +8        IF ($DATA(DTOUT))!($DATA(DUOUT))

               QUIT 

 +9        IF Y=-1

               GOTO END

 +10       SET DA=$PIECE(Y,U,1)

 +11       SET TERM=$PIECE(Y,U,2)

 +12       DO RTAXEXP(TERM)

 +13       QUIT 

RTAXEXP(TERM) ;Rebuild taxonomy expansions.

 +1        NEW IEN,IND,TEXT,TNAME

 +2        DO BMES^XPDUTL("Rebuilding taxonomy expansions.")

 +3        SET IEN=$ORDER(^PXD(811.2,"B",TERM,""))

 +4        IF IEN=""

               QUIT 

 +5        SET TEXT=" Working on taxonomy "_IEN

 +6        DO BMES^XPDUTL(TEXT)

 +7        DO DELEXTL^PXRMBXTL(IEN)

 +8        DO EXPAND^PXRMBXTL(IEN,"")

 +9        QUIT