| 1 | PXRMTDUP ; SLC/PKR - Update Taxonomy Dialog Selectable codes.;04/04/2003
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
|---|
| 3 | ;
|
|---|
| 4 | ;=======================================================
|
|---|
| 5 | BUILD(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 | ;
|
|---|
