Produced by Araxis Merge on 11/9/2018 12:33:55 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 | CHMERDIC.m | Mon Nov 5 16:41:41 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMERDIC.m | Mon Nov 5 17:44:28 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 100 |
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 | CHMERDIC ; HAC/AEB;RE AD FILE AN D LOAD BEN E INTO NEX T DEERS RU N;07/18/08 8:40 AM | |
2 | ;V1.0 | |
3 | ;CT - COU NT OF RECO RDS READ | |
4 | ;CHX - VA RIABLE SET TO RECODE READ FROM FILE | |
5 | ;FILE - N AME OF FIL E ON FS3BI G TO BE RE AD IN | |
6 | ;GET - FI LE NAME | |
7 | ;CT1 - NU MBER OF EN TRIES NOT ADDED TO D EERS | |
8 | ;DFN - PO INTER TO S PONSOR | |
9 | ;BFN - PO INTER TO B ENE | |
10 | K ^TMP("A F","PR") | |
11 | W !!,"FIL E MUST BE TAB DELIMI TED, AND H AVE THE SP ONSOR NAME THEN SPON SOR SSN" | |
12 | W !,"THEN REASON TH EN BENE NA ME THEN BE NE SSN" | |
13 | W !!,"ie. ..JONES,AL L<TAB>XXXX X7865<TAB> REASON<TAB >JONES,BEN E<TAB>XXXX XX564",!! | |
14 | S DIR(0)= "F^3:50" | |
15 | S DIR("A" )="Enter f ile name ( DICMAILINF O112607.tx t)" D ^DIR K DIR ;I NPUTFILE N AME | |
16 | Q:$D(DUOU T) | |
17 | Q:Y="^"!( Y="") | |
18 | S CHFNM=Y ,(CT1,CT)= 0,T=$C(9) | |
19 | ;SET ENVI RONMENT | |
20 | ;S $ZE="" ,$ZT="END^ CHMERDIC" | |
21 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]"_CHFNM | |
22 | ;O FILE:" R":10 ;OP EN FILE | |
23 | ;I '$T W !!,"NOT AB LE TO OPEN FILE" G E ND | |
24 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
25 | S FILE NM2=CHFNM | |
26 | S FIO= "HAC_HFS$: [SCR.TEMP_ FILES]"_FI LENM2 | |
27 | I UCI' ="HAC" S F IO="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_FILENM2 | |
28 | S (CT1,CT )=0,T=$C(9 ) | |
29 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","GET") | |
30 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
31 | I '$$OPEN FIRD^CHTFL IB9(.FIO," FIO") Q | |
32 | RD1 U FIO R CHX G:$$ STATUS^%ZI SH END S C T=CT+1 | |
33 | S CHBSSN= $P(CHX,T,5 ) G:CHBSSN ="" RD1 ; GET BENE S SN | |
34 | D BLKUP ;DO LOOKUP AND ADD B ENE TO DEE RS FILE | |
35 | G RD1 | |
36 | END ; | |
37 | ;C FILE | |
38 | ||
39 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
40 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
41 | W !!,"Tot al number of records in file: ",CT | |
42 | W !,"Tota l number o f records omitted: " ,CT1 | |
43 | K CHX,CT, FIO | |
44 | Q | |
45 | BLKUP ;LOO KUP BENE I F GOOD AD TO DEERS F ILE RUN | |
46 | I CHBSSN= "" S CT1=C T1+1 U 0 W !,CHX Q ;QUIT IF N O SSN READ IN | |
47 | I '$D(^AH CHVA("G",C HBSSN)) S CT1=CT1+1 U 0 W !,CH X Q ;QUIT IF NO DAT ABASE ENTR Y FOR SSN | |
48 | S DFN=0,D FN=$O(^AHC HVA("G",CH BSSN,DFN)) I 'DFN S CT1=CT1+1 W !,CHX Q ;QUIT IF NO SPONSOR FOR SSN | |
49 | S BFN=0,B FN=$O(^AHC HVA("G",CH BSSN,DFN,B FN)) I 'BF N S CT1=CT 1+1 W !,CH X Q ;QUIT IF NO BEN E FOR SSN | |
50 | ;S ^TMP(" AF","PR",C T,DFN,BFN) =CHBSSN ; UNCOMMENT TO TEST | |
51 | S ^AHCHVA ("AF","PR" ,DFN,BFN)= "" ;ADD T O NEXT DEE RS RUN ;C OMMENT OFF TO TEST | |
52 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.