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 | CHLREDF2.m | Mon Nov 5 16:44:19 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHLREDF2.m | Mon Nov 5 17:41:50 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 102 |
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 | CHLREDF2 ; JEH/DEN;UP DATE FORM CODE FOR R EDBOOK;09/ 13/04 8:4 0 AM | |
2 | ;V1.0 | |
3 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
4 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
5 | I '$D(IOZ ) S %IS="N ",IOP=$I D ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS | |
6 | ; | |
7 | S FILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. REDBOOK.LI VE]form.do s" | |
8 | O FILE:"R ":5 S $ZE= "",$ZT="EN D^CHLREDF2 " | |
9 | I '$T W ! !,"NOT ABL E TO OPEN FILE" G EN D | |
10 | S CTR=0 | |
11 | ; | |
12 | W !! S %D T("A")="Pl ease enter date (mm/ dd/yy) of REDBOOK Fo rm Code fi le: " | |
13 | S %DT="AE X" D ^%DT K %DT S TD =Y | |
14 | S ^CHMPDX ("REDFC",T D)=DT | |
15 | A1 ; | |
16 | U FILE R REC | |
17 | ; | |
18 | ;FC=FORM CODE | |
19 | ;MFC=MAST ER FORM CO DE | |
20 | ;FORM DES CRIPTION | |
21 | ; | |
22 | S CTR=CTR +1 | |
23 | S FC=$P(R EC,"|",1) | |
24 | S MFC=$P( REC,"|",2) | |
25 | S FD=$P(R EC,"|",3) | |
26 | U 0 W !," FC = ",FC, ?10,"MFC = ",MFC,?30 ,"FD = ",F D | |
27 | ;G A1 | |
28 | ;BELOW TA KES OUT TR AILING SPA CES | |
29 | F Q:$E(M FC,$L(MFC) )'=" " S MFC=$E(MFC ,1,$L(MFC) -1) | |
30 | F Q:$E(F C,$L(FC))' =" " S FC =$E(FC,1,$ L(FC)-1) | |
31 | F Q:$E(F D,$L(FD))' =" " S FD =$E(FD,1,$ L(FD)-1) | |
32 | I '$D(^CH MPDX(74100 4.01,"B",F C)) D NEWR EC G A1 | |
33 | S CI=0,CI =$O(^CHMPD X(741004.0 1,"B",FC,C I)) | |
34 | I 'CI D N EWREC G A1 | |
35 | S ^CHMPDX (741004.01 ,"C",MFC,C I)="" | |
36 | S ^CHMPDX (741004.01 ,CI,0)=MFC _"^"_FC_U_ FD | |
37 | G A1 | |
38 | NEWREC ;CR EATES A NE W RECORD A ND X-REFS FOR A CODE WHICH DOE SN'T EXIST | |
39 | U 0 W !," *** NEW CO DE ***",?2 5,FC | |
40 | L ^CHMPDX (741004.01 ) | |
41 | S CI=$P(^ CHMPDX(741 004.01,0), U,3) | |
42 | S CI=CI+1 ,^CHMPDX(7 41004.01,C I,0)=MFC_U _FC_U_FD | |
43 | S $P(^CHM PDX(741004 .01,0),U,3 )=CI | |
44 | S $P(^CHM PDX(741004 .01,0),U,4 )=$P(^CHMP DX(741004. 01,0),U,4) +1 | |
45 | S ^CHMPDX (741004.01 ,"B",FC,CI )="" | |
46 | S ^CHMPDX (741004.01 ,"C",MFC,C I)="" | |
47 | ; | |
48 | G A1 | |
49 | END ; | |
50 | C FILE | |
51 | U 0 W !," Total numb er of reco rds loaded = ",CTR | |
52 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.