Produced by Araxis Merge on 11/9/2018 12:33:42 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 | CHCGDUZ.m | Mon Nov 5 16:42:04 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCGDUZ.m | Tue Nov 6 21:57:52 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 142 |
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 | CHCGDUZ ;U PDATE STIP EN MONTHLY -RATE USIN G VET SSN. | |
2 | ;;1.0;CHA MPVA SYSTE M;;MARCH 2 4, 2011; | |
3 | ;;DEV0239 97-02 - Se t new CG r ates. YJK 12/4/15 | |
4 | ;;Input n eeds to be in FS3BIG \CGRATE\RA TE.TXT - d elimiter ' ,' | |
5 | ;;FORMAT: | |
6 | ;;VetSSNT ext,VetZip Text,Month lyAmount | |
7 | ;;3236087 64,31763,3 399.96 | |
8 | ;;VetZipT ext is not used | |
9 | START ; | |
10 | S $ZE="",$ZT ="END1^CHC GRATE" | |
11 | INIT ; | |
12 | K ^CHMZHOLD( "CGRTERR") ; SAVE ERRORS:EXA MPLE - ^CH MZHOLD("CG RTERR",VET SSN)="ERRO R MSG" | |
13 | K ARRNOTFD ;SAVE VET WITH NO A CTIVE CG | |
14 | S CHNOW="316 0108.12354 5" | |
15 | S FIRSTTM=1, PREVSSN="9 99999999" | |
16 | READ ; | |
17 | N FOLDER,CNT R | |
18 | S FILE="RATE .TXT",FOLD ER="" | |
19 | S IOF="#,*27 ,*91,*50,* 74,*27,*91 ,*72" | |
20 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
21 | I UCI="HAC" S FOLDER=" HAC_HFS$:[ SCR.TEMP_F ILES]" | |
22 | I UCI'="HAC" S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]" | |
23 | S FILE=FOLDE R_FILE | |
24 | D FTPFILE^ CHTFLIB9(F ILE," DNS . DNS ","/FS3BIG /CGRATE"," GET") | |
25 | S UP="^" S $ ZE="" | |
26 | S POP=0 | |
27 | X "D $SYSTEM .Process.S etZEOF(1)" | |
28 | S POP=0,C NTR=0 | |
29 | F S CNTR=CN TR+1 Q:(CN TR>5)!POP D | |
30 | .S POP=$$OPE NFIRD^CHTF LIB9(.FILE ,"FILE") | |
31 | .Q | |
32 | I 'POP G END1 | |
33 | READ1 ; | |
34 | U FILE R X:5 G:$$ST ATUS^%ZISH END | |
35 | G:X["---- ---------- ---" READ1 | |
36 | G:X["VetS SNText" RE AD1 | |
37 | S NEWREC=X | |
38 | S VETSSN=$P( NEWREC,"," ,1),CGRATE =$P(NEWREC ,",",3) | |
39 | I FIRSTTM S FIRSTTM=0 I $D(ARRNO TFD(PREVSS N)) S ^CHM ZHOLD("CGR TERR",PREV SSN)="ACTI VE CG NOT FOUND IN C HCGVETS(74 1850.7" G READ1 | |
40 | I VETSSN'="" S VSSN=$$ STRIP^XLFS TR(VETSSN, " ") S PRE VSSN=VSSN | |
41 | I CGRATE'="" S CGRATE= $$STRIP^XL FSTR(CGRAT E," ") | |
42 | S ARRNOTFD(V SSN)="" ; Initializ e NotFound Array -> when Activ e CG is fo und, ARRNO TFD is kil led | |
43 | A1 S (CGDF N,CGBFN,CH CGCD0,CHCG CD10)="" | |
44 | S CGDF N=0,CGDFN= $O(^CHCGVE TS(741850. 7,"C",VSSN ,CGDFN)) | |
45 | I 'CGD FN S ^CHMZ HOLD("CGRT ERR",VSSN) ="VET SSN NOT FOUND IN CHCGVET S(741850.7 " G READ1 | |
46 | S CGBF N=0 | |
47 | A2 S CGBF N=$O(^CHCG VETS(74185 0.7,CGDFN, 100,CGBFN) ) G:'CGBFN READ1 | |
48 | G:'$D(^CH CGVETS(741 850.7,CGDF N,100,CGBF N,10)) A2 | |
49 | S CHANGER T="N" | |
50 | I $D(^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,10)) S CH CGCD0=^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,0),CHCGCD 10=^CHCGVE TS(741850. 7,CGDFN,10 0,CGBFN,10 ) | |
51 | ;I $P(CHC GCD10,"^", 1)=2!($P(C HCGCD10,"^ ",1)=1&($P (CHCGCD10, "^",7)=0)) S CHANGER T="Y" | |
52 | I $P(CHCG CD10,"^",1 )'=0 S CHA NGERT="Y" | |
53 | I CHANGER T="N" S ^C HMZHOLD("C GRTERR",VS SN)="CG NO T ACTIVE: "_$P(CHCGC D0,"^",4)_ " - STAT: "_$P(CHCGC D10,"^",1) G A2 | |
54 | ;FOUND a CG with ei ther 'Pend ing verifi cation' or 'Active' status | |
55 | ;When upd ating entr ies with ' Pending' s tatus,: | |
56 | ; re move stop date if ex ists | |
57 | ; se t the paym ent status to 'Activ e' | |
58 | ; se t the paym ent types to 'Recurr ing' if it 's set as 'backdated ' currentl y. | |
59 | K ARRNOTF D(VSSN) | |
60 | S INDUZ=" " | |
61 | S INDUZ=$ P(^CHCGVET S(741850.7 ,CGDFN,101 ,CHNOW,100 ,CGBFN,10) ,"^",6) | |
62 | S:INDU Z="" $P(^C HCGVETS(74 1850.7,CGD FN,101,CHN OW,100,CGB FN,10),"^" ,6)="40686 5" | |
63 | ;S CGH IST=^CHCGV ETS(741850 .7,CGDFN,1 01,CHNOW,1 00,CGBFN,1 0) | |
64 | ;I INR EC="" W !, CGDFN_"/"_ CGBFN_": " _CGHIST | |
65 | G A2 | |
66 | END ; | |
67 | D CLOSEF^CHT FLIB9(FILE ,"FILE") | |
68 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
69 | S X=$ZF(- 1,"DELETE "_FILE_";* ") | |
70 | END1 ; | |
71 | K CGDFN,C GBFN,CHNOW ,CHCGCD0,C HCGCD10,AR RNOTFD,RTE ND | |
72 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.