PXRMP6IS.m

PXRMP6IS ; SLC/PKR - Inits for PXRM*2.0*6 ;03/30/2007

 ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123

 ;Convert rule set sequences from free text to numerical.

 Q

 ;

 ;====================================================

GENCON(FNUM,NODE,SFNUM1,SNODE,SFNUM2) ;General conversion routine. FNUM is the file number

 ;and NODE is the node.

 N CSEQ,D0,D1,D2,IENS,FDA,MSG,NSEQ,TEXT

 S D0=0

 F  S D0=+$O(^PXRM(FNUM,D0)) Q:D0=0  D

 . S D1=0

 . F  S D1=+$O(^PXRM(FNUM,D0,NODE,D1)) Q:D1=0  D

 .. S CSEQ=$P(^PXRM(FNUM,D0,NODE,D1,0),U,1)

 .. S NSEQ=+CSEQ

 .. I NSEQ=CSEQ Q

 .. S TEXT="^PXRM("_FNUM_","_D0_","_NODE_","_D1_",0) from "_CSEQ_" to "_NSEQ

 .. D MES^XPDUTL(TEXT)

 .. K IENS,FDA

 .. S IENS=D1_","_D0_","

 .. S FDA(SFNUM1,IENS,.01)=NSEQ

 .. D FILE^DIE("","FDA","MSG")

 .. I $D(MSG) D AWRITE^PXRMUTIL("MSG")

 .. I $G(SNODE)="" Q

 .. S D2=0

 .. F  S D2=+$O(^PXRM(FNUM,D0,NODE,D1,SNODE,D2)) Q:D2=0  D

 ... S CSEQ=$P(^PXRM(FNUM,D0,NODE,D1,SNODE,D2,0),U,1)

 ... S NSEQ=+CSEQ

 ... I NSEQ=CSEQ Q

 ... S TEXT="  ^PXRM("_FNUM_","_D0_","_NODE_","_D1_","_SNODE_","_D2_",0) from "_CSEQ_" to "_NSEQ

 ... D MES^XPDUTL(TEXT)

 ... K IENS,FDA

 ... S IENS=D2_","_D1_","_D0_","

 ... S FDA(SFNUM2,IENS,.01)=NSEQ

 ... D FILE^DIE("","FDA","MSG")

 ... I $D(MSG) D AWRITE^PXRMUTIL("MSG")

 Q

 ;

 ;====================================================

SEQCONV ;Convert all sequences from free text to numerical.

 D BMES^XPDUTL("Converting sequences from free text to numerical.")

 D BMES^XPDUTL("Converting sequences in file #810.2")

 D GENCON(810.2,10,810.21,10,810.22)

 D BMES^XPDUTL("Converting sequences in file #810.4")

 D GENCON(810.4,30,810.41)

 D BMES^XPDUTL("Converting sequences in file #810.7")

 D GENCON(810.7,10,810.701)

 D BMES^XPDUTL("Converting sequences in file #810.8")

 D GENCON(810.8,10,810.801)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMP6IS   1849     printed  Apr 09, 2024@20:54:33                                                                                                                                                                                                    Page 2

PXRMP6IS  ; SLC/PKR - Inits for PXRM*2.0*6 ;03/30/2007

 +1       ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123

 +2       ;Convert rule set sequences from free text to numerical.

 +3        QUIT 

 +4       ;

 +5       ;====================================================

GENCON(FNUM,NODE,SFNUM1,SNODE,SFNUM2) ;General conversion routine. FNUM is the file number

 +1       ;and NODE is the node.

 +2        NEW CSEQ,D0,D1,D2,IENS,FDA,MSG,NSEQ,TEXT

 +3        SET D0=0

 +4        FOR 

               SET D0=+$ORDER(^PXRM(FNUM,D0))

               if D0=0

                   QUIT 

               Begin DoDot:1

 +5                SET D1=0

 +6                FOR 

                       SET D1=+$ORDER(^PXRM(FNUM,D0,NODE,D1))

                       if D1=0

                           QUIT 

                       Begin DoDot:2

 +7                        SET CSEQ=$PIECE(^PXRM(FNUM,D0,NODE,D1,0),U,1)

 +8                        SET NSEQ=+CSEQ

 +9                        IF NSEQ=CSEQ

                               QUIT 

 +10                       SET TEXT="^PXRM("_FNUM_","_D0_","_NODE_","_D1_",0) from "_CSEQ_" to "_NSEQ

 +11                       DO MES^XPDUTL(TEXT)

 +12                       KILL IENS,FDA

 +13                       SET IENS=D1_","_D0_","

 +14                       SET FDA(SFNUM1,IENS,.01)=NSEQ

 +15                       DO FILE^DIE("","FDA","MSG")

 +16                       IF $DATA(MSG)

                               DO AWRITE^PXRMUTIL("MSG")

 +17                       IF $GET(SNODE)=""

                               QUIT 

 +18                       SET D2=0

 +19                       FOR 

                               SET D2=+$ORDER(^PXRM(FNUM,D0,NODE,D1,SNODE,D2))

                               if D2=0

                                   QUIT 

                               Begin DoDot:3

 +20                               SET CSEQ=$PIECE(^PXRM(FNUM,D0,NODE,D1,SNODE,D2,0),U,1)

 +21                               SET NSEQ=+CSEQ

 +22                               IF NSEQ=CSEQ

                                       QUIT 

 +23                               SET TEXT="  ^PXRM("_FNUM_","_D0_","_NODE_","_D1_","_SNODE_","_D2_",0) from "_CSEQ_" to "_NSEQ

 +24                               DO MES^XPDUTL(TEXT)

 +25                               KILL IENS,FDA

 +26                               SET IENS=D2_","_D1_","_D0_","

 +27                               SET FDA(SFNUM2,IENS,.01)=NSEQ

 +28                               DO FILE^DIE("","FDA","MSG")

 +29                               IF $DATA(MSG)

                                       DO AWRITE^PXRMUTIL("MSG")

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +30       QUIT 

 +31      ;

 +32      ;====================================================

SEQCONV   ;Convert all sequences from free text to numerical.

 +1        DO BMES^XPDUTL("Converting sequences from free text to numerical.")

 +2        DO BMES^XPDUTL("Converting sequences in file #810.2")

 +3        DO GENCON(810.2,10,810.21,10,810.22)

 +4        DO BMES^XPDUTL("Converting sequences in file #810.4")

 +5        DO GENCON(810.4,30,810.41)

 +6        DO BMES^XPDUTL("Converting sequences in file #810.7")

 +7        DO GENCON(810.7,10,810.701)

 +8        DO BMES^XPDUTL("Converting sequences in file #810.8")

 +9        DO GENCON(810.8,10,810.801)

 +10       QUIT 

 +11      ;