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 ---[H[J[2J[HPXRMP6IS 1849 printed Nov 22, 2024@16:58:23 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 ;
