Produced by Araxis Merge on 11/9/2018 12:34:00 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 | CHMKOHIY.m | Mon Nov 5 16:40:31 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKOHIY.m | Mon Nov 5 17:49:09 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 168 |
Changed | 4 | 8 |
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 | CHMKOHIY ; AHJ/DEN;BE NE YES OHI RANDOM 30 0;02/08/96 5:20 AM | |
2 | ;V1.0 | |
3 | ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T WRITE | |
4 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
5 | ; | |
6 | ;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 | |
7 | ;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 | |
8 | ;BENE FIL E FOR THE RANDOM NUM BERS. | |
9 | ; | |
10 | ;THIS COD E BELOW US ES FILE CR EATED WITH ALL REQUI RED DATA R EQUESTED W ITH A GENE RATED SEQ NUMBER AT | |
11 | ;CREATION TIME THEN MATCH TO RANDOM NUM BER. | |
12 | ;DGC 1/17 /2014 DEV0 12893 - BE GIN | |
13 | S (YCNT,C NT,GETTOT, SAVSEQ)=0 | |
14 | ;S DEVICE ="HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]CROHIBENE YESINFO.XL S" | |
15 | ;O DEVICE C DEVICE: "D" | |
16 | ;O DEVICE :"NWS" ; | |
17 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
18 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
19 | S FILENM2 =CROHIBENE YESINFO.TX T | |
20 | S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM2 | |
21 | I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2 | |
22 | I '$$OPEN FIWR^CHTFL IB9(.DEVIC E,"DEVICE" ) X "D $SY STEM.Proce ss.SetZEOF (0)" Q ;DG C 7/30/201 5 DEV01289 3 | |
23 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]CROHIBENE YESNA.XLS" | |
24 | ;O FIO C FIO:"D" | |
25 | ;O FIO:"N WS" | |
26 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
27 | S FILENM2 =CROHIBENE YESNA.TXT | |
28 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
29 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
30 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q ;DGC 7/30 /2015 DEV0 12893 | |
31 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
32 | S GETTOT= ^CHMZHOLD( "ACCEPT-TO TAL-RECORD S-CR1276YE S") | |
33 | ; | |
34 | START ; | |
35 | F X=1:1:1 800 S SAVS EQ(X)=$R(G ETTOT)+1 S USENO=SAV SEQ(X) D | |
36 | .;NEXT LI NE FOR TES T ONLY- TA KE OUT FOR PROCESSIN G | |
37 | .;Q:'$D(C HMZHOLD("A CCEPT-CR64 5-YES",USE NO)) | |
38 | .S DATA=^ CHMZHOLD(" ACCEPT-CR1 276-YES",U SENO) | |
39 | .;W !," DA TA=",DATA | |
40 | .;S DFN=$ P(DFNBFN," ^",1) | |
41 | .;S BFN=$ P(DFNBFN," ^",2) | |
42 | .;GET DFN ,BFN NAME AND ADDRES S HERE | |
43 | .;S DATA= ^CHMZHOLD( "CR645NOOH I",DFN,BFN ) | |
44 | .; | |
45 | .;S NAMLA B=^AHCHVA( DFN,100,BF N,0) | |
46 | .;S ADDRL AB=^AHCHVA (DFN,100,B FN,1) | |
47 | .S NAM1=$ P(DATA,"^" ,3) | |
48 | .;S NAME= $P(NAMELAB ,U,1) | |
49 | .S LAST=$ P(NAM1,"," ,1) | |
50 | .S FIRST= $P(NAM1,", ",2) | |
51 | .S NAM1=F IRST_" "_L AST | |
52 | .S ADDR1= $P(DATA,"^ ",5) | |
53 | .S ADDR2= $P(DATA,"^ ",6) | |
54 | .S ADDR3= $P(DATA,"^ ",7) | |
55 | .S CITY=$ P(DATA,"^" ,8) | |
56 | .S STATE= $P(DATA,"^ ",9) | |
57 | .S ZIP=$P (DATA,"^", 10) | |
58 | .;I STATE ="" Q | |
59 | .;S:STATE STATE=$P( ^DIC(5,STA TE,0),U,2) | |
60 | .;S (ZIP, ZIPZ)="" | |
61 | .;I $L(ZI PZ)>5 S ZI P1=$E(ZIPZ ,1,5) S ZI P2=$E(ZIPZ ,6,9) S ZI PZ=ZIP1_"- "_ZIP2 | |
62 | .S TELENO =$P(DATA," ^",4) | |
63 | .S SEX=$P (DATA,"^", 11) | |
64 | .S SSN=$P (DATA,"^", 12) | |
65 | .S OHI=$P (DATA,"^", 13) | |
66 | .S AGE=$P (DATA,"^", 14) | |
67 | .S T=$C(9 ) | |
68 | .S TMP=NA M1_T_ADDR1 _T_ADDR2_T _ADDR3_T_C ITY_T_STAT E_T_ZIP_T_ TELENO_T_S EX_T_SSN_T _OHI_T_AGE _T | |
69 | .;W !,TMP | |
70 | .U DEVICE W TMP,! | |
71 | .S TEMP=N AM1_T_ADDR 1_T_ADDR2_ T_ADDR3_T_ CITY_T_STA TE_T_ZIP_T | |
72 | .;W !,TEM P | |
73 | .U FIO W TEMP,! | |
74 | .S YCNT=Y CNT+1 | |
75 | .S GETTOT =GETTOT-1 | |
76 | .Q | |
77 | END ;;DGC 1/17/2014 DEV012893 - BEGIN | |
78 | ;C FIO | |
79 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
80 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
81 | ;C DEVICE | |
82 | D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") | |
83 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
84 | D FTPFILE ^CHTFLIB9( DEVICE," DNS fs3. DNS ","/FS3BIG ","PUT") | |
85 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
86 | ;W !,"CO UNT=",YCNT | |
87 | ; | |
88 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.