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 | CHMKSMLN.m | Mon Nov 5 16:43:22 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKSMLN.m | Mon Nov 5 17:49:26 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 148 |
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 | CHMKSMLN ; JEH/DEN;BE NE NO OHI RANDOM 300 ;11/07/08 5:20 AM | |
2 | ;V1.0 | |
3 | ;DEV01289 3 1/20/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 | S (NCNT,C NT,GETTOT, SAVSEQ)=0 ;DGC 1/20/ 2014 DEV01 2893 - BEG IN | |
7 | ;S DEVICE ="HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]CHMKSML_C ROHIBENENO INFO.XLS" | |
8 | ;O DEVICE C DEVICE: "D" | |
9 | ;O DEVICE :"NWS" ; | |
10 | X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1) | |
11 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
12 | S FILENM2 =CHMKSML_C ROHIBENENO INFO.XLS | |
13 | S DEVICE= "HAC_HFS$: [SCR.TEMP_ FILES)"_FI LENM2 | |
14 | I UCI'="H AC" S DEVI CE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2 | |
15 | 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 | |
16 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]CHMKSML_C ROHIBENENO NA.XLS" | |
17 | ;O FIO C FIO:"D" | |
18 | ;O FIO:"N WS" | |
19 | X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1) | |
20 | S FILENM2 =CHMKSML_C ROHIBENENO NA.XLS | |
21 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES)"_FILEN M2 | |
22 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
23 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q ;DGC 7/30 /2015 DEV0 12893 ;DGC 1/20/2014 DEV012893 - END | |
24 | ;S GETTOT =^CHMZHOLD ("ACCEPT-T OTAL-RECOR DS-CR645YE S") | |
25 | S GETTOT= ^CHMZHOLD( "ACCEPT-TO TAL-RECORD S-CR645NO" ) | |
26 | ; | |
27 | START ; | |
28 | F X=1:1:3 00 S SAVSE Q(X)=$R(GE TTOT)+1 S USENO=SAVS EQ(X) D | |
29 | .;NEXT LI NE FOR TES T ONLY- TA KE OUT FOR PROCESSIN G | |
30 | .;Q:'$D(C HMZHOLD("A CCEPT-CR64 5-YES",USE NO)) | |
31 | .S DATA=^ CHMZHOLD(" ACCEPT-CR6 45-NO",USE NO) | |
32 | .;W !," DA TA=",DATA | |
33 | .;S DFN=$ P(DFNBFN," ^",1) | |
34 | .;S BFN=$ P(DFNBFN," ^",2) | |
35 | .;GET DFN ,BFN NAME AND ADDRES S HERE | |
36 | .;S DATA= ^CHMZHOLD( "CR645NOOH I",DFN,BFN ) | |
37 | .; | |
38 | .;S NAMLA B=^AHCHVA( DFN,100,BF N,0) | |
39 | .;S ADDRL AB=^AHCHVA (DFN,100,B FN,1) | |
40 | .S NAM1=$ P(DATA,"^" ,3) | |
41 | .S LAST=$ P(NAM1,"," ,1) | |
42 | .S FIRST= $P(NAM1,", ",2) | |
43 | .S NAM1=F IRST_" "_L AST | |
44 | .S ADDR1= $P(DATA,"^ ",5) | |
45 | .S ADDR2= $P(DATA,"^ ",6) | |
46 | .S ADDR3= $P(DATA,"^ ",7) | |
47 | .S CITY=$ P(DATA,"^" ,8) | |
48 | .S STATE= $P(DATA,"^ ",9) | |
49 | .S ZIP=$P (DATA,"^", 10) | |
50 | .;I STATE ="" Q | |
51 | .;S:STATE STATE=$P( ^DIC(5,STA TE,0),U,2) | |
52 | .;S (ZIP, ZIPZ)="" | |
53 | .;I $L(ZI PZ)>5 S ZI P1=$E(ZIPZ ,1,5) S ZI P2=$E(ZIPZ ,6,9) S ZI PZ=ZIP1_"- "_ZIP2 | |
54 | .S TELENO =$P(DATA," ^",4) | |
55 | .S SEX=$P (DATA,"^", 11) | |
56 | .S SSN=$P (DATA,"^", 12) | |
57 | .S OHI=$P (DATA,"^", 13) | |
58 | .S AGE=$P (DATA,"^", 14) | |
59 | .S T=$C(9 ) | |
60 | .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 | |
61 | .;W !,TMP | |
62 | .U DEVICE W !,TMP | |
63 | .S TEMP=N AM1_T_ADDR 1_T_ADDR2_ T_ADDR3_T_ CITY_T_STA TE_T_ZIP_T | |
64 | .;W !,TEM P | |
65 | .U FIO W TEMP,! | |
66 | .S NCNT=N CNT+1 | |
67 | .S GETTOT =GETTOT-1 | |
68 | .Q | |
69 | END ;DGC 1 /20/2014 D EV012893 - BEGIN | |
70 | D CLOSEF^ CHTFLIB9(F IO,"FIO") ;C FIO | |
71 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
72 | D CLOSEF^ CHTFLIB9(D EVICE,"DEV ICE") ;C D EVICE | |
73 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
74 | D FTPFILE ^CHTFLIB9( DEIVE," DNS fs3. DNS ","/FS3BIG ","PUT") | |
75 | ;DGC 1/20 /2014 DEV0 12893 - EN D | |
76 | ;W !,"COU NT=",CNT | |
77 | ; | |
78 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.