Changeset 891 for ccr/trunk


Ignore:
Timestamp:
Jul 19, 2010, 1:01:47 PM (14 years ago)
Author:
George Lilly
Message:

update to RNF routines for eRx analysis

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CRNF.m

    r718 r891  
    7474 . S @ZOUT@("F",ZI)=""
    7575 . S @ZOUT@("V",ZN,ZI)=@ZIN@(ZI)
     76 Q
     77 ;
     78RNF1TO2B(ZOUT,ZIN) ; ADDS AN RNF1 ARRAY (ZIN) TO THE END OF AN RNF2 ARRAY
     79 ; THE "B" ROUTINE SUPPORTS WP FIELDS IN THE ARRAY
     80 ; EVERY "V" VARIABLE IS FOLLOWED BY A "1"
     81 ; FOR EXAMPLE @G@("V",n,"VAR1",1)="VALUE1"
     82 ; USE THIS ROUTINE IF YOU WANT TO CONVERT THE RESULT TO A CSV
     83 ; WITH RNF2CSV
     84 ; (ZOUT) BOTH ARE PASSED BY NAME
     85 ; RNF1 IS OF THE FORM:
     86 ; @ZIN@("VAR1")=VAL1
     87 ; @ZIN@("VAR2")=VAL2
     88 ; RNF2 IS OF THE FORM:
     89 ; @ZOUT@("F","VAR1")=""
     90 ; @ZOUT@("F","VAR2")=""
     91 ; @ZOUT@("V",n,"VAR1",1)=VAL1
     92 ; @ZOUT@("V",n,"VAR2",1)=VAL2
     93 ; WHERE n IS THE "ROW" OF THE ARRAY
     94 N ZI S ZI=""
     95 N ZN
     96 I '$D(@ZOUT@("V",1)) S ZN=1
     97 E  S ZN=$O(@ZOUT@("V",""),-1)+1
     98 F  S ZI=$O(@ZIN@(ZI)) Q:ZI=""  D  ;
     99 . S @ZOUT@("F",ZI)=""
     100 . S @ZOUT@("V",ZN,ZI,1)=@ZIN@(ZI)
    76101 Q
    77102 ;
     
    309334 S RNC=$NA(@RNIN@("F"))
    310335 ;S RNY=$P(@RNIN@(0),"^",1) ; FILE NUMBER
    311  S RNX="""FILE"""_"," ; FIRST COLUMN NAME IS "FIELD"
     336 S RNX="""ROW"""_"," ; FIRST COLUMN NAME IS "ROW"
    312337 S RNI=""
    313338 F  S RNI=$O(@RNC@(RNI)) Q:RNI=""  D  ; FOR EACH COLUMN
     
    321346 . F  S RNJ=$O(@RNC@(RNJ)) Q:RNJ=""  D  ; FOR EACH COL
    322347 . . I $D(@RNR@(RNI,RNJ,1)) D  ; THIS ROW HAS THIS COLUMN
    323  . . . S RNX=RNX_""""_@RNR@(RNI,RNJ,1)_""""_"," ; ADD THE ELEMENT PLUS A COMMA
     348 . . . S RNV=$TR(@RNR@(RNI,RNJ,1),"""","")
     349 . . . S RNV=$TR(RNV,",","")
     350 . . . S RNX=RNX_""""_RNV_""""_"," ; ADD THE ELEMENT PLUS A COMMA
    324351 . . E  S RNX=RNX_"," ; NUL COLUMN
    325352 . S RNX=$E(RNX,1,$L(RNX)-1) ; STRIP OFF THE LAST COMMA
     
    346373FILEOUT(FOARY,FONAM)    ; WRITE OUT A FILE
    347374 ;
    348  W $$OUTPUT^C0CXPATH($NA(@FOARY@(1)),FONAM,^TMP("GPLCCR","ODIR"))
     375 W $$OUTPUT^C0CXPATH($NA(@FOARY@(1)),FONAM,^TMP("C0CCCR","ODIR"))
    349376 Q
    350377 ;
Note: See TracChangeset for help on using the changeset viewer.