Produced by Araxis Merge on 11/9/2018 12:33:55 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 | CHMG127.m | Mon Nov 5 16:45:20 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMG127.m | Mon Nov 5 17:46:28 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 264 |
Changed | 2 | 10 |
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 | CHMG127 ;A HJ/DEN;MCC R FILE TO FS3BIG XLS FILE | |
2 | ;V1.0;CHA MPVA SYSTE M;OCTOBER 09,2015 | |
3 | ;SELECT B Y START AN D END DATE | |
4 | ;DEF01655 4 COMMENTE D OUT DECN ET CODE TO UPGRADE T O STANDARD FTP DRW 10/09/15 | |
5 | S U="^" | |
6 | S T=$C(9) | |
7 | D NOW^%DT C S RUNTIM E=% | |
8 | S Y=$E(RU NTIME,1,7) | |
9 | S TODAY=Y | |
10 | S Y=TODAY D DD^%DT S TODAY=Y | |
11 | START ; | |
12 | STDT ; | |
13 | ST1 S DIR( 0)="D" S D IR("A")="E nter START date (mm/ dd/yy) Ent er ""^"" t o END" D ^ DIR | |
14 | S CHBGDT= Y | |
15 | Q:CHBGDT= "^" | |
16 | I CHBGDT< 3000000 D G STDT | |
17 | ;.W !,"Da te range m ust be aft er 2000. Please try again.",! | |
18 | ;.Q | |
19 | G:CHBGDT= "^" END | |
20 | G:$D(DFOU T) END G:$ D(DUOUT) E ND | |
21 | S CHBGDT= Y | |
22 | ST2 S DIR( 0)="D" S D IR("A")="E nter END d ate (mm/dd /yy)" D ^D IR | |
23 | S CHENDT= Y | |
24 | ;I CHENDT <3000000 D G ST2 | |
25 | ;.W !,"Da te range m ust be aft er 2000. Please try again.",! | |
26 | ;.Q | |
27 | I CHENDT< CHBGDT D G ST1 | |
28 | .W !,"End date must be after "_$$FMTE^ XLFDT(CHBG DT,"5D")_" . Please try again. " | |
29 | .Q | |
30 | G:CHENDT= "^" END | |
31 | G:$D(DFOU T) END G:$ D(DUOUT) S T1 | |
32 | ;W ! | |
33 | S BEGDT=$ E(CHBGDT,4 ,5)_$E(CHB GDT,6,7)_$ E(CHBGDT,2 ,3) | |
34 | S CHFIO=" " | |
35 | ;;S FIO=" HACFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]MCCRQUE_" _BEGDT_".X LS" | |
36 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]MCCRQUE_" _BEGDT_".X LS" | |
37 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .MCCR-FILE S]MCCRQUE_ "_BEGDT_". XLS" | |
38 | ;;S FIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]MCCR_PEND ING_CHBGDT _CHENDT.XL S" | |
39 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
40 | S FILENM2 ="MCCRQUE_ "_BEGDT_". XLS" | |
41 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
42 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
43 | ;O FIO:"N WS":5 | |
44 | ;O FIO:"N W" C FIO:" D" | |
45 | ;O FIO:"N WV" | |
46 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
47 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q | |
48 | S CHSTOP= 0,SORT=0,C T=0 | |
49 | S IN=0 | |
50 | U FIO W " MCCR QUE", ! | |
51 | S Y=CHBGD T D DD^%DT S DATEIN= Y | |
52 | S Y =CHEN DT D DD^%D T S DATOUT =Y | |
53 | ;U FIO W "DATE IN Q UE=",DATEI N,! | |
54 | U FIO W " DATE IN QU E FROM: ", DATEIN," DATE IN QUE TO: ", DATOUT,! | |
55 | ;;U FIO W !,"CLAIM #"_T_"DATE OF SERVIC E"_T_"NAME "_T_"PAYME NT AMT"_T_ "REASON",! | |
56 | U FIO W " BENE NAME" _T_"DOS"_T _"PAYMENT AMT"_T_"CL AIM#"_T_"R EASON",! | |
57 | S SEARCH= CHBGDT | |
58 | ;;S $E(SE ARCH,1,3)= $E(SEARCH, 1,3)-1 | |
59 | ;;S INB=S EARCH | |
60 | S INB=CHB GDT | |
61 | A ; | |
62 | S INB=$O( ^CHMCCR("B ",INB)) S INC=0 I IN B="" G END G:'$D(INB ) END | |
63 | A1 ; | |
64 | S INC=$O( ^CHMCCR("B ",INB,INC) ) I INC="" G A | |
65 | S J=0 | |
66 | ;W !,"RUN NING" | |
67 | A2 ; | |
68 | S J=$O(^C HMCCR(INC, 1,J)) G:J= "" A1 | |
69 | G:'$D(^CH MCCR(INC,1 ,J,0)) A1 | |
70 | S REASON= ^CHMCCR(IN C,1,J,0) | |
71 | I REASON= 1 S PREASO N="CLAIM F ORM" | |
72 | I REASON= 2 S PREASO N="PROCEDU RE" | |
73 | I REASON= 3 S PREASO N="HISTORY " | |
74 | I REASON= 4 S PREASO N="REOPEN OVERPMT" | |
75 | I REASON= 5 S PREASO N="OFFSET" | |
76 | I REASON= 6 S PREASO N="OVERPMT DECEASED" | |
77 | I REASON= 7 S PREASO N="THIRD P ARTY" | |
78 | A3 ; | |
79 | I $E(INB, 1,7)<CHBGD T G A1 | |
80 | I $E(INB, 1,7)>CHEND T G END | |
81 | G:'$D(^CH MCCR(INC)) A1 | |
82 | S DATA=^C HMCCR(INC, 0) | |
83 | S DATEIN= $P(DATA,U, 1) | |
84 | S DATE5=$ E(DATEIN,1 ,7) | |
85 | S Y=DATE5 D DD^%DT S DATEIN=Y | |
86 | S CLAIMIN =$P(DATA,U ,2) | |
87 | I CLAIMIN ="" G A1 | |
88 | G:'$D(^CH MPAY(CLAIM IN,0)) A1 | |
89 | S DATA1=^ CHMPAY(CLA IMIN,0) | |
90 | S CLNO=$P (DATA1,U,1 ) | |
91 | S STATUS= $P(DATA,U, 3) | |
92 | S KDATE=$ P(DATA,U,1 ) | |
93 | I $D(^CHM CCR("C",2, KDATE,INC) ) G A1 | |
94 | I $D(^CHM CCR("C",3, KDATE,INC) ) G A1 | |
95 | I STATUS= 0 S PSTATU S="PENDING Q" | |
96 | I STATUS= 1 S PSTATU S="IN PROG RESS" | |
97 | I STATUS= 2 S PSTATU S="NOT NEE DED" | |
98 | I STATUS= 3 S PSTATU S="COMPLET E" | |
99 | S DUZIN=$ P(DATA,U,4 ) | |
100 | S CHDFN=$ P(DATA1,U, 21) | |
101 | S CHBFN=$ P(DATA1,U, 22) | |
102 | S NAMLAB= ^AHCHVA(CH DFN,100,CH BFN,0) | |
103 | S BNAME=$ P(NAMLAB,U ,1) | |
104 | S DOS=$P( DATA1,U,8) | |
105 | S Y=DOS D DD^%DT S PDOS=Y | |
106 | S DATA2=^ CHMPAY(CLA IMIN,1) | |
107 | S PAYAMT= $P(DATA2,U ,1) | |
108 | ;;S FPAYA MT=$J(PAYA MT,10,2) | |
109 | ;;S FPAYA MT="" | |
110 | S FPAYAMT = $J($FN(P AYAMT,"P", 2),12) | |
111 | B ; | |
112 | ;;W !,"ST ATUS 0/1=" ,IN," ",D ATEIN," ",CLNO," ",STATUS, " ",STAT USNM," " ,DUZIN | |
113 | ;;U FIO W CLNO_T_PD OS_T_BNAME _T_FPAYAMT _T_PREASON ,! | |
114 | U FIO W B NAME_T_PDO S_T_FPAYAM T_T_CLNO_T _PREASON,! | |
115 | S CT=CT+1 | |
116 | ;next lin e marks qu eue with " completed" | |
117 | S CHMQNAM ="CHMCCR(" ,CHMOUT="" K CHMIN D ^CHMIS041 | |
118 | C ; | |
119 | ; CHANGE STATUS IN "C" X-REF | |
120 | ;KILL O O R 1 IN "C" X-REF NOD E IF IT IS THERE | |
121 | I $D(^CHM CCR("C",0, KDATE,INC) ) K ^CHMCC R("C",0,KD ATE,INC) | |
122 | I $D(^CHM CCR("C",1, KDATE,INC) ) K ^CHMCC R("C",1,KD ATE,INC) | |
123 | I $D(^CHM CCR("E",0, INC)) K ^C HMCCR("E", 0,INC) ;A EB 7/15/20 08 DEV0053 29 | |
124 | I $D(^CHM CCR("E",1, INC)) K ^C HMCCR("E", 1,INC) ;A EB 7/15/20 08 DEV0053 29 | |
125 | S ^CHMCCR ("C",3,KDA TE,INC)="" | |
126 | S ^CHMCCR ("E",3,INC )="" ;AEB 7/15/2008 DEV005329 | |
127 | S $P(^CHM CCR(INC,0) ,"^",3)=3 | |
128 | G A1 | |
129 | END ;W !,C T | |
130 | S ^CHMZHO LD("CHMCCR -COUNT-DEV 00246")=CT | |
131 | U FIO W " COUNT = ",CT | |
132 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
133 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG /MCCR-FILE S","PUT") ;;DEF01654 4 10/09/15 PLEASE NOT E THAT DUE TO FTP, F ILENAME WI LL BE IN L OWER CASE IN FS3BIG | |
134 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;;DEF016 554 10/09/ 15 | |
135 | ;C FIO | |
136 | Q | |
137 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.