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 | CHMG125.m | Mon Nov 5 16:44:20 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMG125.m | Mon Nov 5 17:46:27 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 168 |
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 | CHMG125 ;A HJ/DEN;MCC R FILE TO FS3BIG XLS FILE | |
2 | ;V1.0 | |
3 | ; | |
4 | S U="^" | |
5 | S T=$C(9) | |
6 | D NOW^%DT C S RUNTIM E=% | |
7 | S Y=$E(RU NTIME,1,7) | |
8 | S TODAY=Y | |
9 | S Y=TODAY D DD^%DT S TODAY=Y | |
10 | START ; | |
11 | STDT ; | |
12 | ST1 S DIR( 0)="D" S D IR("A")="E nter START date (mm/ dd/yy)" D ^DIR | |
13 | S CHBGDT= Y | |
14 | I CHBGDT< 3000000 D G STDT | |
15 | .W !,"Dat e range mu st be afte r 2000. P lease try again.",! | |
16 | .Q | |
17 | G:CHBGDT= "^" QEND | |
18 | G:$D(DFOU T) QEND G: $D(DUOUT) QEND | |
19 | S CHBGDT= Y | |
20 | ST2 S DIR( 0)="D" S D IR("A")="E nter END d ate (mm/dd /yy)" D ^D IR | |
21 | S CHENDT= Y | |
22 | I CHENDT< 3000000 D G ST2 | |
23 | .W !,"Dat e range mu st be afte r 2000. P lease try again.",! | |
24 | .Q | |
25 | I CHENDT< CHBGDT D G ST1 | |
26 | .W !,"End date must be after "_$$FMTE^ XLFDT(CHBG DT,"5D")_" . Please try again. " | |
27 | .Q | |
28 | G:CHENDT= "^" QEND | |
29 | G:$D(DFOU T) QEND G: $D(DUOUT) ST1 | |
30 | W ! | |
31 | S CHFIO=" " | |
32 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]MCCR_PEND ING_INPROG RESS.XLS" | |
33 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
34 | S FILENM2 ="MCCR_PEN DING_INPRO GRESS.XLS" | |
35 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2 | |
36 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
37 | ;O FIO C FIO:"D" | |
38 | ;O FIO:"N WV" | |
39 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
40 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q | |
41 | S CHSTOP= 0,SORT=0,C T=0 | |
42 | S IN=0 | |
43 | U FIO W " MCCR QUE", ! | |
44 | U FIO W ! ,"DATE IN QUE"_T_"CL AIM #"_T_" STATUS"_T_ "PERSON",! | |
45 | S SEARCH= CHBGDT | |
46 | S $E(SEAR CH,1,3)=$E (SEARCH,1, 3)-1 | |
47 | S INB=SEA RCH | |
48 | A1 ; | |
49 | A ; | |
50 | S INB=$O( ^CHMCCR("B ",INB)) S INC=0 I IN B="" G END G:'$D(INB ) END | |
51 | ; | |
52 | A2 ; | |
53 | S INC=$O( ^CHMCCR("B ",INB,INC) ) I INC=0 G A | |
54 | I $E(INB, 1,7)<CHBGD T G A1 | |
55 | I $E(INB, 1,7)>CHEND T G A1 | |
56 | G:'$D(^CH MCCR(INC)) A | |
57 | S DATA=^C HMCCR(INC, 0) | |
58 | S DATEIN= $P(DATA,U, 1) | |
59 | S DATE5=$ E(DATEIN,1 ,7) | |
60 | S Y=DATE5 D DD^%DT S DATEIN=Y | |
61 | S CLAIMIN =$P(DATA,U ,2) | |
62 | I CLAIMIN ="" G A | |
63 | G:'$D(^CH MPAY(CLAIM IN,0)) A | |
64 | S DATA1=^ CHMPAY(CLA IMIN,0) | |
65 | S CLNO=$P (DATA1,U,1 ) | |
66 | S STATUS= $P(DATA,U, 3) | |
67 | S DUZIN=$ P(DATA,U,4 ) | |
68 | ;W !,"ALL STATUS=", IN," ",DA TEIN," " ,CLNO," ",STATUS," ",DUZIN | |
69 | I STATUS' =0 I STATU S'=1 G A | |
70 | I STATUS= 0 S STATUS NM="PENDIN G" | |
71 | I STATUS= 1 S STATUS NM="IN PRO GRESS" | |
72 | B ; | |
73 | ;W !,"STA TUS 0/1=", IN," ",DA TEIN," " ,CLNO," ",STATUS," ",STATU SNM," ", DUZIN | |
74 | U FIO W D ATEIN_T_CL NO_T_STATU SNM_T_DUZI N_T,! | |
75 | S CT=CT+1 | |
76 | G A1 | |
77 | QEND ; | |
78 | END ;W !,C T | |
79 | S ^CHMZHO LD("CHMCCR -COUNT-DEV 00246")=CT | |
80 | U FIO W " COUNT = ",CT | |
81 | ;C FIO | |
82 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
83 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
84 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
85 | Q | |
86 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.