source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMP6IS.m@ 1704

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1PXRMP6IS ; SLC/PKR - Inits for PXRM*2.0*6 ;03/30/2007
2 ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
3 ;Convert rule set sequences from free text to numerical.
4 Q
5 ;
6 ;====================================================
7GENCON(FNUM,NODE,SFNUM1,SNODE,SFNUM2) ;General conversion routine. FNUM is the file number
8 ;and NODE is the node.
9 N CSEQ,D0,D1,D2,IENS,FDA,MSG,NSEQ,TEXT
10 S D0=0
11 F S D0=+$O(^PXRM(FNUM,D0)) Q:D0=0 D
12 . S D1=0
13 . F S D1=+$O(^PXRM(FNUM,D0,NODE,D1)) Q:D1=0 D
14 .. S CSEQ=$P(^PXRM(FNUM,D0,NODE,D1,0),U,1)
15 .. S NSEQ=+CSEQ
16 .. I NSEQ=CSEQ Q
17 .. S TEXT="^PXRM("_FNUM_","_D0_","_NODE_","_D1_",0) from "_CSEQ_" to "_NSEQ
18 .. D MES^XPDUTL(TEXT)
19 .. K IENS,FDA
20 .. S IENS=D1_","_D0_","
21 .. S FDA(SFNUM1,IENS,.01)=NSEQ
22 .. D FILE^DIE("","FDA","MSG")
23 .. I $D(MSG) D AWRITE^PXRMUTIL("MSG")
24 .. I $G(SNODE)="" Q
25 .. S D2=0
26 .. F S D2=+$O(^PXRM(FNUM,D0,NODE,D1,SNODE,D2)) Q:D2=0 D
27 ... S CSEQ=$P(^PXRM(FNUM,D0,NODE,D1,SNODE,D2,0),U,1)
28 ... S NSEQ=+CSEQ
29 ... I NSEQ=CSEQ Q
30 ... S TEXT=" ^PXRM("_FNUM_","_D0_","_NODE_","_D1_","_SNODE_","_D2_",0) from "_CSEQ_" to "_NSEQ
31 ... D MES^XPDUTL(TEXT)
32 ... K IENS,FDA
33 ... S IENS=D2_","_D1_","_D0_","
34 ... S FDA(SFNUM2,IENS,.01)=NSEQ
35 ... D FILE^DIE("","FDA","MSG")
36 ... I $D(MSG) D AWRITE^PXRMUTIL("MSG")
37 Q
38 ;
39 ;====================================================
40SEQCONV ;Convert all sequences from free text to numerical.
41 D BMES^XPDUTL("Converting sequences from free text to numerical.")
42 D BMES^XPDUTL("Converting sequences in file #810.2")
43 D GENCON(810.2,10,810.21,10,810.22)
44 D BMES^XPDUTL("Converting sequences in file #810.4")
45 D GENCON(810.4,30,810.41)
46 D BMES^XPDUTL("Converting sequences in file #810.7")
47 D GENCON(810.7,10,810.701)
48 D BMES^XPDUTL("Converting sequences in file #810.8")
49 D GENCON(810.8,10,810.801)
50 Q
51 ;
Note: See TracBrowser for help on using the repository browser.