Produced by Araxis Merge on 11/9/2018 12:34:16 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 | CHR9106A.m | Mon Nov 5 16:38:50 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHR9106A.m | Mon Nov 5 17:55:02 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 226 |
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 | CHR9106A ; HAC/DRW;Cl aims Comme nt for Cat amaran Vac cine Claim s | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; GE NERATED ON JUNE 03, 2013. | |
3 | ;;V1.0;CH AMPVA SYST EM;;JUNE 2 5, 2015 | |
4 | ;;This ro utine read s in a .tx t file fro m FS3BIG a nd stores the conten ts in a | |
5 | ;;tempora ry global ^CHMZHOLD( "CLAIM_COM MENT". DR W - 06/03/ 13. | |
6 | ;DEF01655 4 REPLACE DECNET WIT H FTP 06/25/2015 DRW | |
7 | D INIT | |
8 | D PROCFIL E,GENCOMM | |
9 | D ENDC | |
10 | Q | |
11 | PROCFILE ; | |
12 | ;READS .T XT FILE FR OM FS3BIG( FLAT FILE) INTO TEMP HOLDING A REA | |
13 | U 0 W !!, "Reading i n comment file...",! | |
14 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CLMCOMNT." _ENVIR_"]" _FNAME | |
15 | ;O CHIO:" R":5 | |
16 | ;Q:$T=0 ;FILE OP EN CHECK 1 =OPEN/0=NO T OPEN | |
17 | N FOLDER, CNTR | |
18 | S CHIO=FN AME,FOLDER ="" | |
19 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
20 | S ENVIR=U CI | |
21 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" | |
22 | S FLDER=" /FS3BIG/CO DEUPDT/CLM COMNT/"_EN VIR | |
23 | I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" | |
24 | S CHIO=FO LDER_CHIO | |
25 | D FTPFILE ^CHTFLIB9( CHIO," DNS fs3. DNS ",FLDER,"G ET") | |
26 | S POP=0,C NTR=0 | |
27 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D | |
28 | .S POP=$$ OPENFIRD^C HTFLIB9(.C HIO,"CHIO" ) | |
29 | .Q | |
30 | I 'POP G END1 | |
31 | S CTR=0 | |
32 | S CTR1=0 | |
33 | F U CHIO R REC G:R EC="CHVXXX XXXX" END1 D ;; CHVXXXXXXX marks End Of File | |
34 | .Q:$A(REC )=26 ;ER RONEOUS DA TA IN FILE CHECK | |
35 | .S CTR=CT R+1,CTR1=C TR1+1 | |
36 | .S ^CHMZH OLD("CLAIM _COMMENT", CTR)=REC | |
37 | END1; | |
38 | ;C CHI O | |
39 | D CLOS EF^CHTFLIB 9(CHIO,"CH IO") | |
40 | X "D $ SYSTEM.Pro cess.SetZE OF(0)" ;;DEF016 554 CLOSE MODIFIED 0 7/30/2015 | |
41 | S X=$Z F(-1,"DELE TE"_CHIO_" ;*") | |
42 | W !!," Claims add ed to temp orary glob al with th is number " | |
43 | W !,"of c omments "_ CTR1 | |
44 | Q | |
45 | GENCOMM ; READS THE TEMP FILE AND POPULA TES THE CO MMENT GLOB AL USING F ILE MAN CO MMANDS | |
46 | S CHDUZ=1 ;SET DUZ TO 1 FOR "ZZCOMPUTE R,USER" | |
47 | S X="NOW" ,%DT="TS" D ^%DT S C HDT=Y | |
48 | K CHINFIL E,CL,CHCOM I,CHCOMNT, DA | |
49 | S CTR=0 F S CTR=$O (^CHMZHOLD ("CLAIM_CO MMENT",CTR )) Q:'CTR D | |
50 | .S CL=$P( ^CHMZHOLD( "CLAIM_COM MENT",CTR) ,"^",1) | |
51 | .S CL=$E( CL,4,10) Q :CL="" ;TH E ACTUAL C LAIM NUMBE R STARTS I N THE FOUR TH POSITIO N OF THE C LAIM | |
52 | .S CHCOMN T=$P(^CHMZ HOLD("CLAI M_COMMENT" ,CTR),"^", 2) ;USE TH E COMMENT PROVIDED I N THE FILE | |
53 | .S CHCOMI =0,CHCOMI= $O(^CHMCLC OM("B",CL, CHCOMI)) | |
54 | .K DA,Y | |
55 | .I '$G(CH COMI) D Q :$P(Y,"^", 3)'=1 ; ;if claim does not e xist, gene rate the c laim in th e global | |
56 | ..S DIC=" ^CHMCLCOM( ",DIC(0)=" LX",X=CL K DD,DO D F ILE^DICN K DIC,DR,X | |
57 | ..Q:$P(Y, "^",3)'=1 | |
58 | ..S DA=+Y | |
59 | ..S CHCOM I=DA | |
60 | .K DA,Y | |
61 | .S DA(1)= CHCOMI | |
62 | .S DIC="^ CHMCLCOM(" _DA(1)_",1 01,",DLAYG O=741000.8 ,DIC(0)="M L",X=CHDT D ^DIC | |
63 | .I $P(Y," ^",3)'=1 K DIC Q | |
64 | .S DIE=DI C,DA=+Y K DIC | |
65 | .S DR=".0 2////^S X= CHDUZ" D ^ DIE K DIE, DR | |
66 | .S ^CHMCL COM(CHCOMI ,101,DA,1, 0)="^^1^1^ "_$P(CHDT, ".",1)_"^" | |
67 | .S ^CHMCL COM(CHCOMI ,101,DA,1, 1,0)=CHCOM NT | |
68 | .K X,Y,DA | |
69 | Q | |
70 | ; | |
71 | INIT ;INIT ILIZING VA RIABLES | |
72 | D NOW^%DT C S CHFLDT =% ;FILE LOAD DATE | |
73 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;;DEF01655 4 OPEN AND CLOSE MOD IFIED 07/ 30/2015 | |
74 | S:'$D(DUZ ) DUZ=1 | |
75 | S CTR=0 | |
76 | K FNAME,^ CHMZHOLD(" CLAIM_COMM ENT") | |
77 | ;DISPLAY MENU TITLE | |
78 | W !,@IOF ;;force t itle to to p of scree n | |
79 | S TITLE=" CLAIM COMM ENT MODIFI CATIONS" | |
80 | W ?(39-($ L(TITLE)/2 )),TITLE,! !! | |
81 | ;SET ENVI RONMENT | |
82 | S ENVIR=$ $ENVIR^CHT FLIB | |
83 | S DIR("B" )=ENVIR | |
84 | S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V" | |
85 | S DIR("L" ,1)="Selec t one of t he followi ng environ ments" | |
86 | S DIR("L" ,2)="" | |
87 | S DIR("L" ,3)=" 1 LIVE" | |
88 | S DIR("L" ,4)=" 2 TRAIN" | |
89 | S DIR("L" ,5)=" 3 TEST" | |
90 | S DIR("L" ,6)=" 4 DEV" | |
91 | S DIR("L" ,7)="" | |
92 | S DIR("L" )=" ^ QUIT" | |
93 | D ^DIR K DIR | |
94 | Q:$D(DUOU T) | |
95 | Q:Y="" | |
96 | Q:Y="^"!( Y="") | |
97 | S ENVIR=Y (0) | |
98 | K DIR | |
99 | W ! | |
100 | ;ASK for file name of the dat a load LOA D | |
101 | S DIR(0)= "F^3:50" | |
102 | S DIR("A" )="Enter n ame of fil e (please include .t xt)" D ^DI R K DIR | |
103 | Q:$D(DUOU T) | |
104 | Q:Y="^"!( Y="") | |
105 | S FNAME=Y K DIR | |
106 | K ^CHMZHO LD("CLAIM_ COMMENT") | |
107 | Q:$D(DUOU T) | |
108 | Q | |
109 | ENDC ;CLOS ING FILE | |
110 | K CTR,CTR 1,CHINFILE ,CL,CHCOMI ,CHCOMNT | |
111 | W !!,"ALL COMMENTS HAVE BEEN ADDED TO T HE CLAIM/P DI COMMENT S FILE " | |
112 | W ! | |
113 | Q | |
114 | ||
115 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.