source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMV2IC.m@ 1006

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1PXRMV2IC ; SLC/PKR - Version 2.0 init routine. ;02/18/2004
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 Q
5 ;
6 ;===============================================================
7COND ;Put "~" back to space in condition and store the internal condition
8 ;and v list
9 N COND,DA,IEN,IND,TEXT
10 D BMES^XPDUTL("Converting conditions")
11 S IEN=0
12 F S IEN=+$O(^PXD(811.9,IEN)) Q:IEN=0 D
13 . S TEXT=" Working on reminder "_IEN
14 . D BMES^XPDUTL(TEXT)
15 . S IND=0
16 . F S IND=+$O(^PXD(811.9,IEN,20,IND)) Q:IND=0 D
17 .. S COND=$P($G(^PXD(811.9,IEN,20,IND,3)),U,1)
18 .. I COND="" Q
19 .. S COND=$TR(COND,"~"," ")
20 .. S $P(^PXD(811.9,IEN,20,IND,3),U,1)=COND
21 .. S DA(1)=IEN,DA=IND
22 .. D KICOND^PXRMCOND(COND,.DA,811.9)
23 .. D SICOND^PXRMCOND(COND,.DA,811.9)
24 . D USAGE(IEN)
25 ;
26 S IEN=0
27 F S IEN=+$O(^PXRMD(811.5,IEN)) Q:IEN=0 D
28 . S TEXT=" Working on term "_IEN
29 . D BMES^XPDUTL(TEXT)
30 . S IND=0
31 . F S IND=+$O(^PXRMD(811.5,IEN,20,IND)) Q:IND=0 D
32 .. S COND=$P($G(^PXRMD(811.5,IEN,20,IND,3)),U,1)
33 .. I COND="" Q
34 .. S COND=$TR(COND,"~"," ")
35 .. S $P(^PXRMD(811.5,IEN,20,IND,3),U,1)=COND
36 .. S DA(1)=IEN,DA=IND
37 .. D KICOND^PXRMCOND(COND,.DA,811.5)
38 .. D SICOND^PXRMCOND(COND,.DA,811.5)
39 Q
40 ;
41 ;===============================================================
42USAGE(IEN) ;Make sure the Usage field is uppercase.
43 N USAGE
44 S USAGE=$P($G(^PXD(811.9,IEN,100)),U,4)
45 S USAGE=$$UP^XLFSTR(USAGE)
46 S $P(^PXD(811.9,IEN,100),U,4)=USAGE
47 Q
48 ;
Note: See TracBrowser for help on using the repository browser.