Produced by Araxis Merge on 11/9/2018 12:34:07 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 | CHMRNAR2.m | Mon Nov 5 16:44:51 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMRNAR2.m | Mon Nov 5 17:51:18 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 108 |
Changed | 2 | 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 | CHMRNAR2 ; AHJ/DEN;BE NE RANDOM 2500 name and Addres s | |
2 | ;V1.0 | |
3 | ; | |
4 | ;DEV01289 3 1/16/201 4 DGC - MO DIFY DECNE T | |
5 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
6 | ; | |
7 | ;RANDOM C AN BE USED TWO WAYS, YOU CAN C REATE FILE WITH SEQ NUMBERS AN D INCLUDE ALL DATA W ITH THIS F ILE | |
8 | ;OR YOU C AN CREATE FILE ONLY WITH SEQ N UMBER AND ONLY DFN A ND BFN AND USE THIS FILE TO SE ARCH THE | |
9 | ;BENE FIL E FOR THE RANDOM NUM BERS. | |
10 | ; | |
11 | ;THIS COD E BELOW US ES FILE CR EATED WITH ALL REQUI RED DATA R EQUESTED W ITH A GENE RATED SEQ NUMBER AT | |
12 | ;CREATION TIME THEN MATCH TO RANDOM NUM BER. | |
13 | S T=$C(9) | |
14 | S TEMP=0 | |
15 | S (RANCNT ,GETTOT,SA VSEQ)=0 | |
16 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]BENE_NAME _RANDOM_25 00.XLS" - DGC 1/16/2 014 DEV012 893 - BEGI N | |
17 | ;O FIO C FIO:"D" | |
18 | ;O FIO:"N WS" | |
19 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
20 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
21 | S FILENM2 ="BENE_NAM E_RANDOM_2 500.XLS" | |
22 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
23 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
24 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q ;DGC 7/30 /2015 DEV0 12893 | |
25 | ;DGE 1/16 /2014 DEV0 12893 - EN D | |
26 | S GETTOT= ^CHMZHOLD( "ACCEPT-TO TAL-RECORD S-CR2081YE S") | |
27 | ; | |
28 | START ; | |
29 | F X=1:1:2 500 S SAVS EQ(X)=$R(G ETTOT)+1 S USENO=SAV SEQ(X) D | |
30 | .S:'$D(^C HMZHOLD("A CCEPT-CR20 81-YES",US ENO)) X=X- 1 | |
31 | .Q:'$D(^C HMZHOLD("A CCEPT-CR20 81-YES",US ENO)) | |
32 | .S DATA=^ CHMZHOLD(" ACCEPT-CR2 081-YES",U SENO) | |
33 | .S NAM1=$ P(DATA,"^" ,3) | |
34 | .S LAST=$ P(NAM1,"," ,1) | |
35 | .S FIRST= $P(NAM1,", ",2) | |
36 | .S NAM1=F IRST_" "_L AST | |
37 | .;S TELEN O=$P(DATA, "^",4) | |
38 | .S ADD1=$ P(DATA,"^" ,4) | |
39 | .S ADD2=$ P(DATA,"^" ,5) | |
40 | .S CITY=$ P(DATA,"^" ,6) | |
41 | .S STATE= $P(DATA,"^ ",7) | |
42 | .S ZIP=$P (DATA,"^", 8) | |
43 | .S TEMP=N AM1_T_ADD1 _T_ADD2_T_ CITY_T_STA TE_T_ZIP_T | |
44 | .U FIO W TEMP,! | |
45 | .S RANCNT =RANCNT+1 | |
46 | .S GETTOT =GETTOT-1 | |
47 | .K ^CHMZH OLD("ACCEP T-CR2081-Y ES",USENO) | |
48 | .Q | |
49 | END ; | |
50 | ;C FIO - DGC 1/16/2 014 DEV012 893 - BEGI N | |
51 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
52 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
53 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
54 | ;W !,"COU NT=",CNT | |
55 | ; | |
56 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.