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 | CHCLMRPT.m | Mon Nov 5 16:41:59 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCLMRPT.m | Tue Nov 6 22:04:48 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 140 |
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 | CHCLMRPT ; JPN CLAIM REPORT CRE ATED FOR C R DEV00469 0-01;08/25 /08 9:15A M | |
2 | ;THIS IS TO BE A RE PORT TO SH OW ALL CLA IM FROM 1/ 1/08 TO 1/ 31/08 BROK EN DOWN | |
3 | ;INTO A L IST THAT S HOWS PAPER CLAIMS, O CR CLAIMS, AND EDI C LAIMS WITH EACH | |
4 | ;LIST HAV ING A TOTA L OF HOW M ANY CLAIMS FELL INTO EACH CATA GORY. | |
5 | START ;STA RT OF ROUT INE | |
6 | K ^CHMZHO LD("CLMRPT ") | |
7 | D RSTART | |
8 | D OUTPUT | |
9 | Q | |
10 | ; | |
11 | RSTART; | |
12 | S (PPRCLM ,OCRCLM,ED ICLM,CNT)= 0 | |
13 | S (CHNOD0 ,CHDTE)="" | |
14 | S CLMNUM= 44000000 | |
15 | W !,"PROC ESSING " | |
16 | F S CLMN UM=$O(^CHM PAY(CLMNUM )) Q:CLMNU M="" D | |
17 | . S CHNOD 0=$G(^CHMP AY(CLMNUM, 0)) | |
18 | . S CHDTE =$E($P(CHN OD0,"^",25 ),1,7) ;C LAIM CREAT ION DATE | |
19 | . S CNT=C NT+1 | |
20 | . I CNT=1 00000 D PR OC | |
21 | . Q:CHDTE >3080131 | |
22 | . Q:CHDTE <3080101 | |
23 | . S CHMPD I="" | |
24 | . S CHMPD I=$P(^CHMP AY(CLMNUM, "PDI",1,0) ,"^",1) | |
25 | . S CHLAB EL=$E(CHMP DI,8,9) | |
26 | . S ^CHMZ HOLD("CLMR PT",CHLABE L,CNT)=CLM NUM_"^"_CH LABEL | |
27 | . I CHLAB EL="02" S PPRCLM=PPR CLM+1 | |
28 | . I CHLAB EL="03" S PPRCLM=PPR CLM+1 | |
29 | . I CHLAB EL="04" S PPRCLM=PPR CLM+1 | |
30 | . I CHLAB EL="05" S PPRCLM=PPR CLM+1 | |
31 | . I CHLAB EL="06" S PPRCLM=PPR CLM+1 | |
32 | . I CHLAB EL="07" S PPRCLM=PPR CLM+1 | |
33 | . I CHLAB EL="08" S PPRCLM=PPR CLM+1 | |
34 | . I CHLAB EL="09" S PPRCLM=PPR CLM+1 | |
35 | . I CHLAB EL="10" S PPRCLM=PPR CLM+1 | |
36 | . I CHLAB EL="50" S PPRCLM=PPR CLM+1 | |
37 | . I CHLAB EL="60" S PPRCLM=PPR CLM+1 | |
38 | . I CHLAB EL="70" S PPRCLM=PPR CLM+1 | |
39 | . I CHLAB EL="98" S PPRCLM=PPR CLM+1 ;? ?? CMOP NOT SURE I F THIS IS PAPER OR N OT | |
40 | . I CHLAB EL="91" S EDICLM=EDI CLM+1 | |
41 | . I CHLAB EL="92" S EDICLM=EDI CLM+1 | |
42 | . I CHLAB EL="93" S EDICLM=EDI CLM+1 | |
43 | . I CHLAB EL="99" S EDICLM=EDI CLM+1 | |
44 | . I CHLAB EL="94" S OCRCLM=OCR CLM+1 | |
45 | . I CHLAB EL="95" S OCRCLM=OCR CLM+1 | |
46 | . I CHLAB EL="96" S OCRCLM=OCR CLM+1 | |
47 | Q | |
48 | OUTPUT ;WR ITES OUT T O SCREEN | |
49 | S CNT=0,L BL=0 | |
50 | S FIO="HA CFS3"" DNS HACdec741! ""::D:[FS3 BIG]CLMRPT .TXT" | |
51 | O FIO:"NW S" ;APPEND S TO FILE | |
52 | U FIO W ! | |
53 | W !!!,?10 ,"CLAIM RE PORT FOR A LL CLAIMS BETWEEN TH E PERIOD O F" | |
54 | W !,?20," JAN. 1 200 8 THROUGH JAN.31 200 8" | |
55 | W !!,"CLA IM NUMBER" ,?30,"CLAI M LABEL" | |
56 | W !,"---- --------", ?30,"----- ------" | |
57 | F S LBL= $O(^CHMZHO LD("CLMRPT ",LBL)) Q: LBL="" D | |
58 | . F S CN T=$O(^CHMZ HOLD("CLMR PT",LBL,CN T)) Q:CNT= "" D | |
59 | .. S CLMN UM=$P(^CHM ZHOLD("CLM RPT",LBL,C NT),"^",1) ,CLMLBL=$P (^CHMZHOLD ("CLMRPT", LBL,CNT)," ^",2) | |
60 | .. W !,CL MNUM,?30,C LMLBL | |
61 | W !!!,?10 ,"CLAIM RE PORT FOR A LL CLAIMS BETWEEN TH E PERIOD O F" | |
62 | W !,?20," JAN. 1 200 8 THROUGH JAN.31 200 8" | |
63 | W !!,"PAP ER CLAIMS: ",PPRCLM | |
64 | W !,"OCR CLAIMS: ", OCRCLM | |
65 | W !,"EDI CLAIMS: ", EDICLM | |
66 | C FIO | |
67 | Q | |
68 | PROC ; | |
69 | W "." | |
70 | S CNT=0 | |
71 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.