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 | CHCGRATE.m | Mon Nov 5 16:45:27 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCGRATE.m | Tue Nov 6 21:59:03 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 192 |
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 | CHCGRATE ; UPDATE STI PEN MONTHL Y-RATE USI NG 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 RTSTART="" ,RTEND="" | |
11 | S $ZE="",$ZT ="END1^CHC GRATE" | |
12 | INIT ; | |
13 | K ^CHMZHOLD( "CGRTERR") ; SAVE ERRORS:EXA MPLE - ^CH MZHOLD("CG RTERR",VET SSN)="ERRO R MSG" | |
14 | K ARRNOTFD ;SAVE VET WITH NO A CTIVE CG | |
15 | D NOW^%DTC S CHNOW=% | |
16 | D GETDATE Q: RTSTART="" | |
17 | S FIRSTTM=1, PREVSSN="9 99999999" | |
18 | READ ; | |
19 | N FOLDER,CNT R | |
20 | S FILE="RATE 1.TXT",FOL DER="" | |
21 | S IOF="#,*27 ,*91,*50,* 74,*27,*91 ,*72" | |
22 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
23 | I UCI="HAC" S FOLDER=" HAC_HFS$:[ SCR.TEMP_F ILES]" | |
24 | I UCI'="HAC" S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]" | |
25 | S FILE=FOLDE R_FILE | |
26 | D FTPFILE^ CHTFLIB9(F ILE," DNS . DNS ","/FS3BIG /CGRATE"," GET") | |
27 | S UP="^" S $ ZE="" | |
28 | S POP=0 | |
29 | X "D $SYSTEM .Process.S etZEOF(1)" | |
30 | S POP=0,C NTR=0 | |
31 | F S CNTR=CN TR+1 Q:(CN TR>5)!POP D | |
32 | .S POP=$$OPE NFIRD^CHTF LIB9(.FILE ,"FILE") | |
33 | .Q | |
34 | I 'POP G END1 | |
35 | READ1 ; | |
36 | U FILE R X:5 G:$$ST ATUS^%ZISH END | |
37 | G:X["---- ---------- ---" READ1 | |
38 | G:X["VetS SNText" RE AD1 | |
39 | S NEWREC=X | |
40 | S VETSSN=$P( NEWREC,"," ,1),CGRATE =$P(NEWREC ,",",3) | |
41 | 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 | |
42 | I VETSSN'="" S VSSN=$$ STRIP^XLFS TR(VETSSN, " ") S PRE VSSN=VSSN | |
43 | I CGRATE'="" S CGRATE= $$STRIP^XL FSTR(CGRAT E," ") | |
44 | S ARRNOTFD(V SSN)="" ; Initializ e NotFound Array -> when Activ e CG is fo und, ARRNO TFD is kil led | |
45 | A1 S (CGDF N,CGBFN,CH CGCD0,CHCG CD10)="" | |
46 | S CGDF N=0,CGDFN= $O(^CHCGVE TS(741850. 7,"C",VSSN ,CGDFN)) | |
47 | I 'CGD FN S ^CHMZ HOLD("CGRT ERR",VSSN) ="VET SSN NOT FOUND IN CHCGVET S(741850.7 " G READ1 | |
48 | S CGBF N=0 | |
49 | A2 S CGBF N=$O(^CHCG VETS(74185 0.7,CGDFN, 100,CGBFN) ) G:'CGBFN READ1 | |
50 | G:'$D(^CH CGVETS(741 850.7,CGDF N,100,CGBF N,10)) A2 | |
51 | S CHANGER T="N" | |
52 | 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 ) | |
53 | ;I $P(CHC GCD10,"^", 1)=2!($P(C HCGCD10,"^ ",1)=1&($P (CHCGCD10, "^",7)=0)) S CHANGER T="Y" | |
54 | I $P(CHCG CD10,"^",1 )'=0 S CHA NGERT="Y" | |
55 | 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 | |
56 | ;FOUND a CG with ei ther 'Pend ing verifi cation' or 'Active' status | |
57 | ;When upd ating entr ies with ' Pending' s tatus,: | |
58 | ; re move stop date if ex ists | |
59 | ; se t the paym ent status to 'Activ e' | |
60 | ; se t the paym ent types to 'Recurr ing' if it 's set as 'backdated ' currentl y. | |
61 | K ARRNOTF D(VSSN) | |
62 | L +^CH CGVETS(741 850.7,CGDF N) | |
63 | ;Creat e a histor y entry on ly for new changes. | |
64 | I $P(C HCGCD10,"^ ",2)'=RTST ART D | |
65 | .S ^CHCGVETS (741850.7, CGDFN,101, CHNOW,100, CGBFN,10)= CHCGCD10 | |
66 | .I $P(CHCGCD 10,"^",3)= "" S $P(^C HCGVETS(74 1850.7,CGD FN,101,CHN OW,100,CGB FN,10),"^" ,3)=RTEND | |
67 | .Q | |
68 | S $P(^CHCGVE TS(741850. 7,CGDFN,10 0,CGBFN,10 ),"^",2)=R TSTART | |
69 | S $P(^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,10),"^",3 )="" | |
70 | S $P(^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,10),"^",5 )=CGRATE | |
71 | S $P(^CHC GVETS(7418 50.7,CGDFN ,100,CGBFN ,10),"^",6 )=DUZ | |
72 | I $P(CHCG CD10,"^",1 )=1&($P(CH CGCD10,"^" ,7)=1) S $ P(^CHCGVET S(741850.7 ,CGDFN,100 ,CGBFN,10) ,"^",7)=0, ^CHMZHOLD( "CGRTERR", VSSN)="**C HANGED FRO M BACKDATE D TO RECUR RING**"_$P (CHCGCD0," ^",4) | |
73 | I $P(CHCG CD10,"^",1 )'=2 S $P( ^CHCGVETS( 741850.7,C GDFN,100,C GBFN,10)," ^",1)=2 | |
74 | L -^CHCGV ETS(741850 .7,CGDFN) | |
75 | G A2 | |
76 | GETDATE ; GET START DATE OF NE W RATE | |
77 | S DIR( 0)="D" S D IR("A")="E nter START date (mm/ dd/yy) for the New R ate; Enter ""^"" to END" D ^DI R K DIR | |
78 | G:$D(D UOUT) END1 | |
79 | G:$D(D IRUT) END1 | |
80 | G:$D(D IROUT) END 1 | |
81 | S RTSTART =Y | |
82 | S RTEND=$ $FMADD^XLF DT(RTSTART ,-1,0,0,0) | |
83 | W !!!,"Ne w Rate Sta rt = "_RTS TART | |
84 | W !,"Old Rat e End = "_RTEND | |
85 | W !,"Are the dates correct? Y // " | |
86 | D CSBRS^C HSC2 I ($D (DFOUT))!( $D(DUOUT)) G GETDATE | |
87 | I $D(DQOUT) W " Answe r ",@CHBON ,"Yes or N o." R Y:3 G GETDATE | |
88 | S:Y="" Y= "Y" I "YN" '[$$UPPER^ CHTFLIB(Y) W *7," ? ?" R Y:2 G GETDATE | |
89 | G:"Nn"[Y GETDATE | |
90 | Q | |
91 | END ; | |
92 | D CLOSEF^CHT FLIB9(FILE ,"FILE") | |
93 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
94 | ;S X=$ZF( -1,"DELETE "_FILE_"; *") | |
95 | END1 ; | |
96 | K CGDFN,C GBFN,CHNOW ,CHCGCD0,C HCGCD10,AR RNOTFD,RTS TART,RTEND | |
97 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.