Changeset 307 for ccr/trunk/p/C0CRNF.m
- Timestamp:
- Dec 14, 2008, 2:35:31 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CRNF.m
r304 r307 43 43 Q 44 44 ; 45 GETN (GRTN,GFILE,GIEN,GNN) ; GET FIELDS FOR ACCESS BY NAME45 GETNOLD(GRTN,GFILE,GIEN,GNN) ; GET FIELDS FOR ACCESS BY NAME 46 46 ; GRTN IS PASSED BY NAME 47 47 ; … … 69 69 Q 70 70 ; 71 GETN 2(GRTN,GFILE,GREF,GNDX,GNN) ; NEW GET ;GPL ; RETURN A FIELD VALUE MAP71 GETN1(GRTN,GFILE,GREF,GNDX,GNN) ; NEW GET ;GPL ; RETURN A FIELD VALUE MAP 72 72 ; GETN IS AN EXTRINSIC WHICH RETURNS THE NEXT IEN AFTER THE CURRENT GIEN 73 73 ; GRTN, PASSED BY NAME, RETURNS A FIELD MAP AND A VALUE MAP … … 121 121 Q 122 122 ; 123 GET ALL(GARTN,GAFILE,GACNT,GASTRT,GANN) ; RETURN FIELD MAP AND VALUES123 GETN2(GARTN,GAFILE,GAIDX,GACNT,GASTRT,GANN) ; RETURN FIELD MAP AND VALUES 124 124 ; GARTN, PASSED BY NAME, RETURNS A FIELD MAP AND A VALUE MAP 125 ; .. FIELD MAP @GARTN@("F","FIELDNAME ^FILE^FIELD#")=""125 ; .. FIELD MAP @GARTN@("F","FIELDNAME")="FILE;FIELD#" 126 126 ; ... ANY FIELD USED BY ANY RECORD PROCESSED IS IN THE FIELD MAP 127 ; .. VALUE MAP @GARTN@("V","IEN","FIELDNAME")=VALUE 127 ; .. VALUE MAP @GARTN@("V","IEN","FIELDNAME","N")=VALUE 128 ; .. WHERE N IS THE INDEX FOR MULTIPLES.. 1 FOR SINGLE VALUES 128 129 ; .. GARTN IS NOT INITIALIZED, SO MULTIPLE CALLS ARE CUMULATIVE 129 130 ; .. IF GANN="ALL" THEN ALL FIELDS FOR THE FILE ARE IN THE FIELD MAP … … 131 132 ; .. NUL FIELDS CAN BE DETERMINED BY CHECKING FIELD MAP - THIS SAVES SPACE 132 133 ; GAFILE IS THE FILE NUMBER TO BE PROCESSED. IT IS PASSED BY VALUE 134 ; GAIDX IS THE OPTIONAL INDEX TO USE IN THE FILE. IF GAIDX IS "" THE IEN 135 ; .. OF THE FILE WILL BE USED 133 136 ; GACNT IS THE NUMBER OF RECORDS TO PROCESS. IT IS PASSED BY VALUE 134 137 ; .. IF GARCNT IS NULL, ALL RECORDS ARE PROCESSED … … 137 140 ; GANN= NOT NULL - IF GANN IS "ALL" THEN EVEN NULL FIELDS WILL BE RETURNED 138 141 ; OTHERWISE, ONLY POPULATED FIELDS ARE RETURNED IN GARFLD AND GARVAL 139 N GATMP,GAI,GAF142 ;N GATMP,GAI,GAF 140 143 S GAF=$$FILEREF(GAFILE) ; GET CLOSED ROOT FOR THE FILE NUMBER GAFILE 144 I '$D(GAIDX) S GAIDX="" ;DEFAULT 145 I '$D(GANN) S GANN="" ;DEFAULT ONLY POPULATED FIELDS RETURNED 146 I GAIDX'="" S GAF=$NA(@GAF@(GAIDX)) ; IF WE ARE USING AN INDEX 141 147 W GAF,! 142 148 W $O(@GAF@(0)) ; 143 149 S GAI=0 ;ITERATOR 144 ; F S GAI=$O(@GAF@ 150 F S GAI=$O(@GAF@(GAI)) Q:GAI="" D ; 151 . D GETN1("GATMP",GAFILE,GAI,GAIDX,GANN) ;GET ONE RECORD 152 . N GAX S GAX=0 153 . F S GAX=$O(GATMP(GAX)) Q:GAX="" D ;PULL OUT THE FIELDS 154 . . D ADDNV(GARTN,GAI,GAX,GATMP(GAX)) ;INSERT THE NAME/VALUE INTO GARTN 155 Q 156 ; 157 ADDNV(GNV,GNVN,GNVF,GNVV) ; CREATE AN ELEMENT OF THE MATRIX 158 ; 159 S @GNV@("F",GNVF)=$P(GNVV,"^",1)_"^"_$P(GNVV,"^",2) ;NAME=FILE^FIELD# 160 S @GNV@("V",GNVN,GNVF,1)=$P(GNVV,"^",3) ;SET THE VALUE 161 Q 162 ; 163 RNF2CSV(RNRTN,RNIN,RNSTY) ;CONVERTS AN RFN2 GLOBAL TO A CSV FORMAT 164 ; READY TO WRITE FOR USE WITH EXCEL @RNRTN@(0) IS NUMBER OF LINES 165 ; RNSTY IS STYLE OF THE OUTPUT - 166 ; .. "NV"= ROWS ARE NAMES, COLUMNS ARE VALUES 167 ; .. "VN"= ROWS ARE VALUES, COLUMNS ARE NAMES 168 ; .. DEFAULT IS "NV" BECAUSE MANY MATRICES HAVE MORE FIELDS THAN VALUES 169 N RNR,RNC ;ROW ROOT,COL ROOT 170 N RNI,RNJ,RNX 171 I '$D(RNSTY) S RNSTY="NV" ;DEFAULT 172 I RNSTY="NV" D NV(RNRTN,RNIN) ; INTERNAL SUBROUTINES DEPENDING ON ORIENTATION 173 E D VN(RNRTN,RNIN) ; 174 Q 175 ; 176 NV(RNRTN,RNIN) ; 177 S RNR=$NA(@RNIN@("F")) 178 S RNC=$NA(@RNIN@("V")) 179 ;S RNY=$P(@RNIN@(0),"^",1) ; FILE NUMBER 180 S RNX="""FILE"""_"," ; FIRST COLUMN NAME IS "FIELD" 181 S RNI="" 182 F S RNI=$O(@RNC@(RNI)) Q:RNI="" D ; FOR EACH COLUMN 183 . S RNX=RNX_RNI_"," ;ADD THE COLUMM ELEMENT AND A COMMA 184 S RNX=$E(RNX,1,$L(RNX)-1) ; STRIP OFF THE LAST COMMA 185 D PUSH^GPLXPATH(RNRTN,RNX) ; FIRST LINE CONTAINS COLUMN HEADINGS 186 S RNI="" 187 F S RNI=$O(@RNR@(RNI)) Q:RNI="" D ; FOR EACH ROW 188 . S RNX=""""_RNI_""""_"," ; FIRST ELEMENT ON ROW IS THE FIELD 189 . S RNJ="" 190 . F S RNJ=$O(@RNC@(RNJ)) Q:RNJ="" D ; FOR EACH COL 191 . . I $D(@RNC@(RNJ,RNI,1)) D ; THIS ROW HAS THIS COLUMN 192 . . . S RNX=RNX_""""_@RNC@(RNJ,RNI,1)_""""_"," ; ADD THE ELEMENT PLUS A COMMA 193 . . E S RNX=RNX_"," ; NUL COLUMN 194 . S RNX=$E(RNX,1,$L(RNX)-1) ; STRIP OFF THE LAST COMMA 195 . D PUSH^GPLXPATH(RNRTN,RNX) 196 Q 197 ; 198 VN(RNRTN,RNIN) ; 199 S RNR=$NA(@RNIN@("V")) 200 S RNC=$NA(@RNIN@("F")) 201 ;S RNY=$P(@RNIN@(0),"^",1) ; FILE NUMBER 202 S RNX="""FILE"""_"," ; FIRST COLUMN NAME IS "FIELD" 203 S RNI="" 204 F S RNI=$O(@RNC@(RNI)) Q:RNI="" D ; FOR EACH COLUMN 205 . S RNX=RNX_RNI_"," ;ADD THE COLUMM ELEMENT AND A COMMA 206 S RNX=$E(RNX,1,$L(RNX)-1) ; STRIP OFF THE LAST COMMA 207 D PUSH^GPLXPATH(RNRTN,RNX) ; FIRST LINE CONTAINS COLUMN HEADINGS 208 S RNI="" 209 F S RNI=$O(@RNR@(RNI)) Q:RNI="" D ; FOR EACH ROW 210 . S RNX=""""_RNI_""""_"," ; FIRST ELEMENT ON ROW IS THE FIELD 211 . S RNJ="" 212 . F S RNJ=$O(@RNC@(RNJ)) Q:RNJ="" D ; FOR EACH COL 213 . . I $D(@RNR@(RNI,RNJ,1)) D ; THIS ROW HAS THIS COLUMN 214 . . . S RNX=RNX_""""_@RNR@(RNI,RNJ,1)_""""_"," ; ADD THE ELEMENT PLUS A COMMA 215 . . E S RNX=RNX_"," ; NUL COLUMN 216 . S RNX=$E(RNX,1,$L(RNX)-1) ; STRIP OFF THE LAST COMMA 217 . D PUSH^GPLXPATH(RNRTN,RNX) 218 Q 219 ; 220 FILE2CSV(FNUM,FVN) ; WRITES OUT A FILEMAN FILE TO CSV 221 ; 222 ;N G1,G2 223 I '$D(FVN) S FVN="NV" ; DEFAULT ORIENTATION OF CVS FILE 224 S G1=$NA(^TMP($J,"C0CCSV",1)) 225 S G2=$NA(^TMP($J,"C0CCSV",2)) 226 D GETN2(G1,FNUM) ; GET THE MATRIX 227 D RNF2CSV(G2,G1,FVN) ; PREPARE THE CVS FILE 228 K @G1 229 W $$OUTPUT^GPLXPATH(@G2@(1),"FILE_"_FNUM_".csv",^TMP("GPLCCR","ODIR")) 230 K @G2 145 231 Q 146 232 ; … … 150 236 S C0CF=^DIC(FNUM,0,"GL") ;OPEN ROOT TO FILE 151 237 S C0CF=$P(C0CF,",",1)_")" ; CLOSE THE ROOT 238 I C0CF["()" S C0CF=$P(C0CF,"()",1) 152 239 Q C0CF 153 240 ;
Note:
See TracChangeset
for help on using the changeset viewer.