| 1 | PXRMTAXD ; SLC/PKR - Routines used by taxonomy data dictionary. ;08/18/2003
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | ;================================================
|
|---|
| 5 | TAXCOUNT(TAXIEN) ;Count the expanded taxonomy entries and set the 0 node.
|
|---|
| 6 | N IEN,NUM
|
|---|
| 7 | S (IEN,NUM)=0
|
|---|
| 8 | F S IEN=+$O(^PXD(811.3,IEN)) Q:IEN=0 S NUM=NUM+1
|
|---|
| 9 | S $P(^PXD(811.3,0),U,3,4)=TAXIEN_U_NUM
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | ;================================================
|
|---|
| 13 | TAXEDIT(TAXIEN,KI) ;Whenever a taxonony item is edited rebuild the expanded
|
|---|
| 14 | ;taxonomy. Called from new-style cross-reference on 811.2.
|
|---|
| 15 | ;Do not execute as part of a verify fields.
|
|---|
| 16 | I $G(DIUTIL)="VERIFY FIELDS" Q
|
|---|
| 17 | ;Do not execute as part of exchange.
|
|---|
| 18 | I $G(PXRMEXCH) Q
|
|---|
| 19 | D DELEXTL^PXRMBXTL(TAXIEN)
|
|---|
| 20 | D EXPAND^PXRMBXTL(TAXIEN,KI)
|
|---|
| 21 | D TAXCOUNT(TAXIEN)
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | ;================================================
|
|---|
| 25 | TAXKILL(TAXIEN) ;Called whenever a taxonony item is killed. Called from new-
|
|---|
| 26 | ;style cross-reference on 811.2.
|
|---|
| 27 | ;Do not execute as part of a verify fields.
|
|---|
| 28 | I $G(DIUTIL)="VERIFY FIELDS" Q
|
|---|
| 29 | ;Do not execute as part of exchange.
|
|---|
| 30 | I $G(PXRMEXCH) Q
|
|---|
| 31 | D DELEXTL^PXRMBXTL(TAXIEN)
|
|---|
| 32 | D TAXCOUNT(TAXIEN)
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
