source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMTDUP.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 721 bytes
Line 
1PXRMTDUP ; SLC/PKR - Update Taxonomy Dialog Selectable codes.;04/04/2003
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 ;=======================================================
5BUILD(TIEN) ;Build the list of selectable codes for one taxonomy.
6 N DATEBLT,FILE,NODE,PTR,TEMP
7 S TEMP=$G(^PXD(811.3,TIEN,0))
8 S DATEBLT=$P(TEMP,U,2)
9 ;Make sure the expansion exists.
10 I DATEBLT="" D EXPAND^PXRMBXTL(TIEN,"")
11 ;Copy the expansion into the selectable lists.
12 F FILE=80,81 D
13 . S NODE=$S(FILE=80:"SDX",FILE=81:"SPR")
14 . S PTR=$S(FILE=80:"ICD9P",FILE=81:"ICPTP")
15 . K ^PXD(811.2,TIEN,NODE)
16 . M ^PXD(811.2,TIEN,NODE)=^PXD(811.3,TIEN,FILE)
17 . M ^PXD(811.2,TIEN,NODE,"B")=^PXD(811.3,TIEN,FILE,PTR)
18 . K ^PXD(811.2,TIEN,NODE,PTR)
19 Q
20 ;
Note: See TracBrowser for help on using the repository browser.