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

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

revised back to 6/30/08 version

File size: 1.4 KB
RevLine 
[623]1PXRMENOD ; SLC/PKR - Clinical Reminders "E" node routines. ;04/17/2006
2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21
3 ;
4 ;========================================================
5KENODE(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 ;========================================================
28SENODE(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
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 I FILENUM=811.5 S ^PXRMD(811.5,DA(1),20,"E",GLOBAL,DAS,DA)=""
47 I FILENUM=811.9 S ^PXD(811.9,DA(1),20,"E",GLOBAL,DAS,DA)=""
48 Q
49 ;
Note: See TracBrowser for help on using the repository browser.