| 1 | PXRMENOD ; SLC/PKR - Clinical Reminders "E" node routines. ;12/13/2006
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**4,6**;Feb 04, 2005;Build 123
|
|---|
| 3 | ;
|
|---|
| 4 | ;========================================================
|
|---|
| 5 | KENODE(X,DA,FILENUM) ;Kill the enode in the finding multiple for definitions
|
|---|
| 6 | ;and terms.
|
|---|
| 7 | ;Do not execute as part of a verify fields.
|
|---|
| 8 | I $G(DIUTIL)="VERIFY FIELDS" Q
|
|---|
| 9 | N DAS,GLOBAL,IEN
|
|---|
| 10 | S IEN=$P(X,";",1)
|
|---|
| 11 | S GLOBAL=$P(X,";",2)
|
|---|
| 12 | I GLOBAL="LAB(60," D
|
|---|
| 13 | . N SUB
|
|---|
| 14 | .;DBIA #91-A
|
|---|
| 15 | . S SUB=$P(^LAB(60,IEN,0),U,4)
|
|---|
| 16 | . I SUB="CH" Q
|
|---|
| 17 | . I (SUB="BB")!(SUB="WK") S IEN="" Q
|
|---|
| 18 | . I SUB="MI" S IEN="M;T;"_IEN Q
|
|---|
| 19 | .;All other SUB values: AU, CY, EM, SP
|
|---|
| 20 | . S IEN="A;T;"_IEN
|
|---|
| 21 | S DAS=IEN
|
|---|
| 22 | I DAS="" Q
|
|---|
| 23 | I FILENUM=811.5 K ^PXRMD(811.5,DA(1),20,"E",GLOBAL,DAS,DA)
|
|---|
| 24 | I FILENUM=811.9 K ^PXD(811.9,DA(1),20,"E",GLOBAL,DAS,DA)
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | ;========================================================
|
|---|
| 28 | SENODE(X,DA,FILENUM) ;Set the enode in the finding multiple for definitions
|
|---|
| 29 | ;and terms.
|
|---|
| 30 | ;Do not execute as part of a verify fields.
|
|---|
| 31 | I $G(DIUTIL)="VERIFY FIELDS" Q
|
|---|
| 32 | N DAS,GLOBAL,IEN,NAME
|
|---|
| 33 | S IEN=$P(X,";",1)
|
|---|
| 34 | S GLOBAL=$P(X,";",2)
|
|---|
| 35 | I GLOBAL="LAB(60," D
|
|---|
| 36 | . N SUB
|
|---|
| 37 | .;DBIA #91-A
|
|---|
| 38 | . S SUB=$P(^LAB(60,IEN,0),U,4)
|
|---|
| 39 | . I SUB="CH" Q
|
|---|
| 40 | . I (SUB="BB")!(SUB="WK") S IEN="" Q
|
|---|
| 41 | . I SUB="MI" S IEN="M;T;"_IEN Q
|
|---|
| 42 | .;All other SUB values: AU, CY, EM, SP
|
|---|
| 43 | . S IEN="A;T;"_IEN
|
|---|
| 44 | S DAS=IEN
|
|---|
| 45 | I DAS="" Q
|
|---|
| 46 | S NAME=""
|
|---|
| 47 | I FILENUM=811.5 S ^PXRMD(811.5,DA(1),20,"E",GLOBAL,DAS,DA)=NAME
|
|---|
| 48 | I FILENUM=811.9 S ^PXD(811.9,DA(1),20,"E",GLOBAL,DAS,DA)=NAME
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
