Produced by Araxis Merge on 11/9/2018 12:33:50 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 | CHLCR79C.m | Mon Nov 5 16:39:39 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHLCR79C.m | Mon Nov 5 17:41:46 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 58 |
Changed | 1 | 2 |
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 | CHLCR79C ; AHJ/DEN;MI LLIMAN CLA IMS TO FS3 BIG | |
2 | ;V1.0 | |
3 | ;001 OLD ROUTINE NA ME WAS ZAL CR79C | |
4 | S (TCNT,C NT)=0 | |
5 | S U="^" | |
6 | ;INPUT = ^CHMZHOLD( "MILLIMANC LAIMS" FR OM ZALCR79 X | |
7 | ;OUTPUT = FS3BIG CL AIMS FILE | |
8 | A1 | |
9 | S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]MILLIMAN_ CLAIMS_FIL E.TXT" | |
10 | O FIO C F IO:"D" | |
11 | O FIO:"NW S" | |
12 | S NAME=0 | |
13 | S DFN=0 | |
14 | A2 ; | |
15 | S DFN=$O( ^CHMZHOLD( "MILLIMANC LAIMS",DFN )) G:DFN=" " END | |
16 | S BFN=0 | |
17 | A3 ; | |
18 | S BFN=$O( ^CHMZHOLD( "MILLIMANC LAIMS",DFN ,BFN)) G:' BFN A2 | |
19 | S CI=0 | |
20 | A4 ; | |
21 | S CI=$O(^ CHMZHOLD(" MILLIMANCL AIMS",DFN, BFN,CI)) G :'CI A3 | |
22 | S DATA=^C HMZHOLD("M ILLIMANCLA IMS",DFN,B FN,CI) | |
23 | U FIO W ! ,DATA | |
24 | S CNT=CNT +1 | |
25 | S TCNT=TC NT+1 I TCN T=10000 W !,DFN S TC NT=0 | |
26 | G A4 | |
27 | END ; | |
28 | C FIO | |
29 | W !!,"TOT AL COUNT = ",CNT | |
30 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.