Produced by Araxis Merge on 11/9/2018 12:34:05 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLHCP3.m | Mon Nov 5 16:42:48 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLHCP3.m | Mon Nov 5 17:50:17 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 588 |
Changed | 1 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMLHCP3 ; MCR/DEN;CO NVERT HCPC S UPDATE T O FILEMAN; 01/11/99 8:40 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ;V1.0 | |
4 | ;JEH/DEN; COMPLETE R EWRITE TO ACCEPT NEW FORMAT FR OM INGENIX ;1/29/04 | |
5 | ;JEH/DEN; MOD TO ACC EPT Alpha- Numeric HC PCS File C ontent 200 5 | |
6 | ;JEH/DEN; MOD TO REA D FULL 200 8 DESC | |
7 | ;DPT MTN0 0949 USE X X3 DESC | |
8 | ;DPT MTN0 10987 MOD XX2 DESC | |
9 | ;DPT MTN0 12794 ADD EDIT OF TE RM/DELETE DATE | |
10 | ;DPT MTN0 19951 DEV0 16554 REPL ACE DECNET & 2014 UP DATE | |
11 | ;DPT R191 00844FY18 3/6/18 APR IL 2018 UP DATE, REMO VE REFEREN CE TO ENVI RONMENT | |
12 | S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e Date(fil eman forma t)" D ^DIR K DIR | |
13 | Q:$D(DIRU T)!($D(DUO UT)) | |
14 | S EFFDATE =Y ; EFFECTIVE DATE | |
15 | ;S EFFDAT E="2011040 1" ;EFFECTIVE DATE YYYY MMDD | |
16 | ;S TERMDA TE="200909 30" ;TERMINATI ON DATE YY YYMMDD | |
17 | S DA=9999 999-EFFDAT E ; SETTING DA YYYMMDD | |
18 | S UPDTYR= "2012" ;SETTING NEW YEAR | |
19 | ;SET HCPC S FILE NAM E | |
20 | S DIR(0)= "F^3:50" | |
21 | S DIR("A" )="Enter H CPCS file name (08an web.txt)" D ^DIR K D IR | |
22 | Q:$D(DUOU T) | |
23 | Q:Y="^"!( Y="") | |
24 | S CHFNM=Y K DIR | |
25 | ;SET ENVI RONMENT | |
26 | ;S AYGSYS =XQVOL | |
27 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
28 | ;S ENVIR= AYGSYS | |
29 | N FOLDER, CNTR | |
30 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
31 | S FILE=CH FNM,FOLDER ="" ;DEV01 6554 DPT | |
32 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 16554 DPT | |
33 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
34 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
35 | S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]" ;DPT R1910 0844FY18 | |
36 | S FILE=FO LDER_FILE | |
37 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "SLA":"LIV E",UCI="HA C":"LIVE") ;DPT R191 00844FY18 DEV012893 DPT | |
38 | ;S FLDR=" /FS3BIG/CO DEUPDT/HCP CUPDT/"_CH UCI ;DPT R 19100844FY 18 DEV0128 93 DPT | |
39 | ;S FILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. HCPCUPDT." _ENVIR_"]" _CHFNM ;O FILE:"R":1 0 ; DPT R1 9100844FY1 8 edited f or cache b y scott do an on 03.1 7.05 | |
40 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DPT R1910 0844FY18 D EV016554 D PT | |
41 | S $ZE="", $ZT="END^C HMLHCP3" | |
42 | H 5 | |
43 | S POP=0,C NTR=0 ;DEV 016554 DPT | |
44 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DEV 016554 DPT | |
45 | . X "D $ SYSTEM.Pro cess.SetZE OF(1)" ;D EV016554 D PT | |
46 | . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT | |
47 | .Q ;DEV0 16554 DPT | |
48 | I 'POP G END ;DEV01 6554 DPT | |
49 | ;I '$T W !!,"NOT AB LE TO OPEN FILE" G E ND | |
50 | K ^UTILIT Y("HCUP") | |
51 | S CTR=0 | |
52 | S CODE="" | |
53 | S FIRST=0 | |
54 | S J=1 | |
55 | S TP(8)=0 ;PREV RE C ID CODE - NOT USED | |
56 | S TMPCODE ="" ;COPY OF TEMP C ODE | |
57 | S FIRST=0 ;FLAG FOR FIRST TIME THRO UGH | |
58 | S RECIDCD =0 | |
59 | K ^CHMZHO LD("HCPCS" ,UPDTYR) ; <------ ---- CHANG E | |
60 | ; | |
61 | ;G XX2008 ;*** FOR 2008 UPDAT E AND BEYO ND*** | |
62 | ;G XX2 ;*** FOR A YEARLY M ASTER UPDA TE - BEFOR E 2008*** | |
63 | ;G XX1 ;*** COMM ENT OUT FO R FULL MID YR UPDATE S *** | |
64 | G XX3 ;*** FOR 8 /4/09 UPDA TE FROM P& C | |
65 | ;Q | |
66 | A1 ; | |
67 | Q | |
68 | U FILE R A | |
69 | S TP(1)=$ P(A,"^",1) ;CODE | |
70 | S TP(2)=$ P(A,"^",3) ;DESCR IPTION 35- CHAR | |
71 | S TP(3)=$ P(A,"^",4) ;DESCR IPTION 48- CHAR | |
72 | S TP(4)=$ P(A,"^",4) ;DESCR IPTION FUL L 1 HALF | |
73 | S TP(5)=$ P(A,"^",4) ;DESCR IPTION FUL L 2 HALF | |
74 | S TP(6)=" A" ;STATU S <-- - CHANGE | |
75 | ;S TP(6)= $E($P(A,"^ ",4),1,1) ;STATUS <-- - CHANGE | |
76 | ;S:TP(6)[ "A" TP(6)= "N" <-- - CHANGE | |
77 | ; | |
78 | ;S EFFDAT E=$P(A,"^" ,7) ;EFFE CT DATE | |
79 | S DA=0 | |
80 | S DA=9999 999-($$YR8 FMYR^CHTFL IB(EFFDATE )) | |
81 | S CTR=CTR +1 | |
82 | D XX9 | |
83 | G A1 | |
84 | Q | |
85 | ; | |
86 | XX1 U FILE | |
87 | Q | |
88 | R TP(1)#5 ;H CPCS_CODE | |
89 | R TP(2)#3 5 ;H CPCS 35-ch ar abbrev desc | |
90 | R TP(3)#4 8 ;H CPCS 48-ch ar abbrev desc | |
91 | R TP(4)#5 00 ;H CPCS full, unabbrev desc 1st h alf | |
92 | R TP(5)#1 10 ;H CPCS full, unabbrev desc 2nd h alf | |
93 | R TP(6)#1 ;S tatus N=ne w, C=chang e, D=del, null=no ch g | |
94 | ;D XX9 | |
95 | G A1 | |
96 | ; | |
97 | XX2 ;*** A lpha-Numer ic HCPCS F ile Conten t 2005 LAY OUT *** | |
98 | Q | |
99 | U FILE R A | |
100 | G:$E(A,1, 3)=" " X X2 | |
101 | ;I (FIRST =1)&(CODE' =$E(A,1,5) ) D XX9 | |
102 | S FIRST=1 | |
103 | S CODE="" | |
104 | S CODE=$E (A,1,5) | |
105 | I $D(^CHM ZHOLD("HCP CS","2007" ,CODE))&($ E(A,7,8)<9 ) D ;<--- C HANGE | |
106 | .S (TMP3, TMP4)="" | |
107 | .S TMP3=$ P(^CHMZHOL D("HCPCS", "2007",COD E),"^",3) ;_" " ; <--- CHANG E | |
108 | .S:$E(A,7 ,8)<8 $P(^ CHMZHOLD(" HCPCS","20 07",CODE), "^",3)=TMP 3_$E(A,12, 91) ; <--- CHANG E | |
109 | .S:$E(A,7 ,8)=8 $P(^ CHMZHOLD(" HCPCS","20 07",CODE), "^",3)=TMP 3_$E(A,12, 70) ; <--- CHANG E | |
110 | .S TMP4=$ P(^CHMZHOL D("HCPCS", "2007",COD E),"^",4)_ " " ; <--- CHANG E | |
111 | .S:$E(A,7 ,8)<8 $P(^ CHMZHOLD(" HCPCS","20 07",CODE), "^",4)=TMP 4_$E(A,12, 91) ; <--- CHANG E | |
112 | .S:$E(A,7 ,8)=8 $P(^ CHMZHOLD(" HCPCS","20 07",CODE), "^",4)=TMP 4_$E(A,12, 70) ; <--- CHANG E | |
113 | .S TMP4=" " | |
114 | .S TP(4)= $P(^CHMZHO LD("HCPCS" ,"2007",CO DE),"^",4) ;<-- - CHANGE | |
115 | I '$D(^CH MZHOLD("HC PCS","2007 ",CODE)) D ;<-- - CHANGE | |
116 | .S (TP(1) ,TP(2),TP( 3),TP(4),T P(5),TP(6) )="" | |
117 | .S TP(1)= $E(A,1,5) ;CO DE | |
118 | .S TP(2)= $$TRIM^CHT FLIB($E(A, 92,119)) ;HCPCS Short Desc (28 char) | |
119 | .S TP(3)= $$TRIM^CHT FLIB($E(A, 92,119)) ;HCPCS Short Desc (28 char) | |
120 | .S TP(4)= $$TRIM^CHT FLIB($E(A, 12,91)) ;HCPCS Long Desc (80 char) | |
121 | .S TP(5)= $$TRIM^CHT FLIB($E(A, 12,91)) ;HCPCS Long Desc (80 char) | |
122 | .S TP(6)= $E(A,293,2 93) ;HC PCS Action [status] Code | |
123 | .;S:TP(6) ["A" TP(6) ="N" | |
124 | .S EFFDAT E=$E(A,277 ,284) ;HC PCS Effect ive date ( YYYYMMDD) | |
125 | .S TERMDA TE=$E(A,28 5,292) ;HC PCS Termin ation Date (YYYYMMDD ) | |
126 | .S ^CHMZH OLD("HCPCS ","2007",C ODE)=TP(2) _"^"_TP(3) _"^"_TP(4) _"^"_TP(5) _"^"_TP(6) _"^"_EFFDA TE_"^"_TER MDATE ;<--- CHAN GE | |
127 | .S CTR=CT R+1 | |
128 | D XX9 | |
129 | G XX2 | |
130 | Q | |
131 | XX2008 ;** * Alpha-Nu meric HCPC S File Con tent 2008 LAYOUT and BEYOND ** * | |
132 | Q | |
133 | S $ZE="", $ZT="END08 ^CHMLHCP3" | |
134 | K ^CHMZHO LD("HCPCS" ,"FILE") | |
135 | F U FILE R REC D | |
136 | .I $E(REC ,1,3)'=" " D | |
137 | ..S CODE= $E(REC,1,5 ) ; CODE | |
138 | ..S CSEQ= +$E(REC,6, 10) ; HCPCS SEQ NUMBER | |
139 | ..S ^CHMZ HOLD("HCPC S","FILE", CODE,CSEQ) =REC | |
140 | ..S CTR=C TR+1 | |
141 | Q | |
142 | END08 ; | |
143 | Q | |
144 | C FILE | |
145 | W !,"Tota l number o f records in "_UPDTY R_" update file: ",C TR | |
146 | S CTR=0 | |
147 | S CODE="" F S CODE =$O(^CHMZH OLD("HCPCS ","FILE",C ODE)) Q:CO DE="" D | |
148 | .S (SDESC ,LDESC)="" | |
149 | .F RCTR=1 :1:6 S TP( RCTR)="" | |
150 | .S FND100 ="N" ;CH ECK FOR MI SSING 100 SEQUENCE N UMBER | |
151 | .S CSEQ=0 F S CSEQ =$O(^CHMZH OLD("HCPCS ","FILE",C ODE,CSEQ)) Q:'CSEQ D | |
152 | ..I CSEQ= 100 D | |
153 | ...S FND1 00="Y" ; CHECK FOR MISSING 10 0 SEQUENCE NUMBER | |
154 | ...S SDES C=$$TRIM^C HTFLIB($E( ^CHMZHOLD( "HCPCS","F ILE",CODE, CSEQ),92,1 19)) | |
155 | ...S LDES C=$$TRIM^C HTFLIB($E( ^CHMZHOLD( "HCPCS","F ILE",CODE, CSEQ),12,9 1)) | |
156 | ...S TP(6 )=$E(^CHMZ HOLD("HCPC S","FILE", CODE,CSEQ) ,293,293) ;HCPCS Action [st atus] Code | |
157 | ...S EFFD ATE=$E(^CH MZHOLD("HC PCS","FILE ",CODE,CSE Q),277,284 ) ;HCPCS Effective date (YYYY MMDD) | |
158 | ...S TERM DATE=$E(^C HMZHOLD("H CPCS","FIL E",CODE,CS EQ),285,29 2) ;HCPCS Terminatio n Date (YY YYMMDD) | |
159 | ..I CSEQ= 200 D | |
160 | ...S LDES C=LDESC_" "_$$TRIM^C HTFLIB($E( ^CHMZHOLD( "HCPCS","F ILE",CODE, CSEQ),12,9 1)) | |
161 | ..I CSEQ= 300 D | |
162 | ...S LDES C=LDESC_" "_$$TRIM^C HTFLIB($E( ^CHMZHOLD( "HCPCS","F ILE",CODE, CSEQ),12,7 1)) | |
163 | .;I "ABCD FPRST"[TP( 6) D | |
164 | .Q:FND100 ="N" | |
165 | .Q:TP(6)= "N" ;No maint enance cha nge | |
166 | .Q:TP(6)= "F" ;Chg in a dmin data fld of pro c or modif ier code | |
167 | .Q:TP(6)= "P" ;Payment change | |
168 | .S TP(1)= CODE ;CODE | |
169 | .S TP(2)= SDESC ;HCPCS Sh ort Desc ( 28 char) | |
170 | .S TP(3)= SDESC ;HCPCS Sh ort Desc ( 28 char) | |
171 | .S TP(4)= LDESC ;HCPCS Lo ng Desc (8 0 char) | |
172 | .S TP(5)= LDESC ;HCPCS Lo ng Desc (8 0 char) | |
173 | .S ^CHMZH OLD("HCPCS ",UPDTYR,C ODE)=TP(2) _"^"_TP(3) _"^"_TP(4) _"^"_TP(5) _"^"_TP(6) _"^"_EFFDA TE_"^"_TER MDATE ;<--- CHAN GE | |
174 | .S CTR=CT R+1 | |
175 | .D XX9 | |
176 | W !,"Tota l number o f ^CHMZHOL D global: ",CTR | |
177 | G END | |
178 | Q | |
179 | XX2A ; | |
180 | Q | |
181 | S CODE="" F S CODE =$O(^CHMZH OLD("HCPCS ",2006,COD E)) Q:CODE ="" D ;<-- - CHANGE | |
182 | .S TP(1)= CODE ;CODE | |
183 | .S TP(2)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",1) ;DESC SH ORT (28) | |
184 | .S TP(3)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",2) ;DESC SH ORT (28) | |
185 | .S TP(4)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",3) ;DESC LO NG (80) | |
186 | .S TP(5)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",4) ;DESC LO NG (80) | |
187 | .S TP(6)= $P(^CHMZHO LD("HCPCS" ,2005,CODE ),"^",5) ;STATUS | |
188 | .S EFFDAT E=$P(^CHMZ HOLD("HCPC S",2005,CO DE),"^",6) ;EFFECT DATE | |
189 | .S TERMDA TE=$P(^CHM ZHOLD("HCP CS",2005,C ODE),"^",7 ) ;TERM DA TE | |
190 | .; A - ADD B, C, F, P, S, T - CHANGE | |
191 | .; D - DISCONTINU E N - N O MAINTENA NCE | |
192 | .; R - REACTIVATE | |
193 | .S:TP(6)[ "B" TP(6)= "C" | |
194 | .S:TP(6)[ "C" TP(6)= "C" | |
195 | .S:TP(6)[ "F" TP(6)= "C" | |
196 | .S:TP(6)[ "P" TP(6)= "C" | |
197 | .S:TP(6)[ "S" TP(6)= "C" | |
198 | .S:TP(6)[ "T" TP(6)= "C" | |
199 | .S:TP(6)[ "R" TP(6)= "C" | |
200 | .S:TP(6)[ "N" TP(6)= "" | |
201 | .S:TP(6)[ "A" TP(6)= "N" | |
202 | .D:TP(6)' =""&(TP(6) '=" ") XX9 | |
203 | G END | |
204 | ; | |
205 | XX3 ; FOR JUN 06 UPD ATE FROM P &C layout changed | |
206 | ;Q | |
207 | U FILE R A G:$$STAT US^%ZISH E ND | |
208 | S TP(1)=$ P(A,"^",1) ;CODE | |
209 | S TP(2)=$ P(A,"^",2) ;statu s DPT | |
210 | S TP(3)=$ P(A,"^",3) ;DESCR IPTION 35- CHAR DPT | |
211 | S TP(4)=$ P(A,"^",4) ;DESCR IPTION 48- CHAR DPT | |
212 | S TP(5)=$ P(A,"^",5) ;effec tive dated DPT | |
213 | S TP(6)=" A" ;STATU S <-- - CHANGE | |
214 | I $P(A,"^ ",6)'="" S TP(6)="D" ;DPT 7/7/ 11 | |
215 | ;S TP(6)= $E($P(A,"^ ",4),1,1) ;STATUS <-- - CHANGE | |
216 | ;S:TP(6)[ "A" TP(6)= "N" <-- - CHANGE | |
217 | ; | |
218 | S EFFDATE =$P(A,"^", 5) ;EFFEC T DATE | |
219 | S DA=0 | |
220 | S DA=9999 999-($$YR8 FMYR^CHTFL IB(EFFDATE )) | |
221 | S TERMDAT E="" | |
222 | S TERMDAT E=$P(A,"^" ,6) ;termi nation dat e of code dpt | |
223 | S CTR=CTR +1 | |
224 | D XX9 | |
225 | G XX3 | |
226 | Q | |
227 | ; | |
228 | XX9 G:TP(1 )=" " END1 | |
229 | ;S CTR=CT R+1 | |
230 | S (EFFDT, TERMDT)="" | |
231 | I TP(6)=" D" D | |
232 | .S X1=TER MDATE ;Y YYYMMDD | |
233 | .S X=$E(X 1,5,6)_$E( X1,7,8)_$E (X1,1,4) | |
234 | .S %DT="X " D ^%DT | |
235 | .I Y I Y' =-1 S X1=Y | |
236 | .;NO LONG ER EXPIRIN G 4/1 - JEH | |
237 | .S TERMDT =Y | |
238 | .;I X1 S X2=91 D C^ %DTC S:$E( X,4,7)="03 31" $E(X,4 ,7)="0101" S TERMDT= X | |
239 | ; | |
240 | I (TP(6)= "N")!(TP(6 )="C")!(TP (6)="A") D | |
241 | .S EFFDT= $E(EFFDATE ,5,6)_$E(E FFDATE,3,4 ) ;MMYY | |
242 | .S X1=EFF DATE | |
243 | .S X=$E(X 1,5,6)_$E( X1,7,8)_$E (X1,1,4) | |
244 | .S %DT="X " D ^%DT | |
245 | .I Y I Y' =-1 S DA=9 999999-Y | |
246 | ; | |
247 | S PNN="" ;PROCESS ING NOTE N UMBER - NO T USED | |
248 | S HCRC="" ;HCPCS C ROSS REFER ENCE CODE - NOT USED | |
249 | ; | |
250 | D CLEAN | |
251 | S ^UTILIT Y("HCUP",J ,0)=TP(1) | |
252 | S:TP(6)=" D" ^UTILIT Y("HCUP",J ,1,DA,0)=T ERMDT_"^"_ EFFDT_"^"_ PNN_"^"_TP (6) | |
253 | S:TP(6)'= "D" ^UTILI TY("HCUP", J,1,DA,0)= "^"_EFFDT_ "^"_PNN_"^ "_TP(6) | |
254 | S ^UTILIT Y("HCUP",J ,1,DA,1)=$ E(TP(4),1, 220)_"^"_H CRC | |
255 | S ^UTILIT Y("HCUP",J ,1,DA,5)=T P(8),TP(8) =0 | |
256 | S ^UTILIT Y("HCUP"," B",TP(1),J )="" | |
257 | I TP(3)'= "" S ^UTIL ITY("HCUP" ,"C",$E(TP (3),1,48), J,DA)="" ;DPT 12/2 0/11 | |
258 | S J=J+1 | |
259 | ;G XX9 | |
260 | Q | |
261 | ; | |
262 | ||
263 | END K A,I, J,K,L,Y,TP | |
264 | ;C FILE | |
265 | D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT | |
266 | X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT | |
267 | U 0 W !," Total numb er of reco rds loaded = ",$G(CT R) | |
268 | Q | |
269 | CLEAN S K= 2 | |
270 | A4 I $A(TP (K))=32 S TP(K)=$E(T P(K),2,$L( TP(K))) G A6:TP(K)=" ",A4:1 | |
271 | A5 I $A($E (TP(K),$L( TP(K))))=3 2 S TP(K)= $E(TP(K),1 ,$L(TP(K)) -1) G A6:T P(K)="",A5 :1 | |
272 | A6 S K=K+1 G A4:K'>4 Q | |
273 | ; | |
274 | REMSP(NM) ; | |
275 | S NM2="" | |
276 | F N1=1:1: $L(NM) I $ E(NM,N1)'= " " S NM2= NM2_$E(NM, N1) | |
277 | Q NM2 | |
278 | END1 W !!, "*** DATA FILE ERROR HAS OCCUR ED ***",!! | |
279 | G END | |
280 | Q | |
281 | SACTCD(AC) ;SET ACTI ON CODE ;<------ ---------- -NOT USED. ..FOR FUTU RE UPDATES | |
282 | ; A - A DD B, C, F, P, S, T - CHANGE | |
283 | ; D - D ISCONTINUE N - NO MAINTENAN CE | |
284 | ; R - R EACTIVATE | |
285 | S SAC="N" | |
286 | S:AC["B" SAC="C" | |
287 | S:AC["C" SAC="C" | |
288 | S:AC["F" SAC="C" | |
289 | S:AC["P" SAC="C" | |
290 | S:AC["S" SAC="C" | |
291 | S:AC["T" SAC="C" | |
292 | S:AC["R" SAC="C" | |
293 | S:AC["N" SAC="" | |
294 | S:AC["A" SAC="N" | |
295 | D:AC'=""& (SAC'=" ") XX9 | |
296 | Q SAC |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.