Produced by Araxis Merge on 11/9/2018 12:33:41 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 | CHBPF91.m | Mon Nov 5 16:42:53 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHBPF91.m | Tue Nov 6 21:33:31 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 66 |
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 | CHBPF91 ;C VA/AEB;REM OVE CLAIMS IN THE PS Q;01/02/93 11:41 AM | |
2 | ;V1.0 | |
3 | START ; | |
4 | S CHQERR= " DN S
|
|
5 | S QUEDT=0 ,STAT=1,CT =0 | |
6 | A1 S QUEDT =$O(^CHMPS Q("D",STAT ,QUEDT)) G :'QUEDT EN D | |
7 | S QUEPT=0 | |
8 | A2 S QUEPT =$O(^CHMPS Q("D",STAT ,QUEDT,QUE PT)) G:'QU EPT A1 | |
9 | I '$D(^CH MPSQ(QUEPT ,0)) G A2 | |
10 | S REC=^CH MPSQ(QUEPT ,0),CLMPT= $P(REC,U,2 ),ERROR=$P (REC,U,5) | |
11 | I (ERROR[ CHQERR) D G A2 | |
12 | .S CLPTR= $P(^CHMPSQ (QUEPT,0), "^",2) | |
13 | .S DIK="^ CHMPSQ(",D A=QUEPT D ^DIK K DIK ,DA | |
14 | .S CHMQNA M="CHMPSQ( ",CHMOUT=" " K CHMIN D ^CHMIS04 1 | |
15 | .S CT=CT+ 1 | |
16 | .D PRCLMS | |
17 | .Q | |
18 | G A2 | |
19 | END I STAT =1 S STAT= 2,QUEDT=0 G A1 | |
20 | W !,"TOTA L NUMBER O F CLAIMS W ORKED ",CT | |
21 | K REC,CT, CLMPT,CLMN UM,QUEDT,Q UEPT,STAT | |
22 | Q | |
23 | PRCLMS ;se nd claim t hru benefi t calc | |
24 | Q | |
25 | S CLM=CLP TR | |
26 | ;D ^CHMFU TLD ; DE LETION OF CALCULATIO N FACTORS SET CLM = CLMPTR | |
27 | S CLNM="" S CLNM=$P (^CHMPAY(C LM,0),"^", 1) | |
28 | S X1=CLM D PROGTYP^ CHFCD001 ;SET CLAIM PARAMETER S | |
29 | K CHMFCLM S | |
30 | S CHMFCLM S(CLNM)=CL M | |
31 | ;D QUE2^C HFCDUTL ; Submissi on queued for check data and b enefit cal c | |
32 | K CHMFCLM S | |
33 | Q | |
34 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.