source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMTAXD.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1PXRMTAXD ; SLC/PKR - Routines used by taxonomy data dictionary. ;08/18/2003
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;================================================
5TAXCOUNT(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 ;================================================
13TAXEDIT(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 ;================================================
25TAXKILL(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 ;
Note: See TracBrowser for help on using the repository browser.