Produced by Araxis Merge on 11/9/2018 12:34:12 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 | CHMXRP04.m | Mon Nov 5 16:42:37 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXRP04.m | Mon Nov 5 17:53:20 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 274 |
Changed | 2 | 8 |
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 | CHMXRP04 ;HAC /JLR;MMI R eversal Re port Gener ator;04/24 /00 8:39 AM | |
2 | ;; 1.0;CHAMPV A SYSTEM;; JULY 4, 19 90;Build 2 | |
3 | ;; PROJ # 494 Chgd file name from REVmmyy.T XT TO RVdd mmyy.TXT a nd | |
4 | ;; file name from RVXmm yy.TXT TO RXddmmyy.T XT 03/08/2 002 rkn | |
5 | ;; RECODED FO R ARCHIVED CLAIMS LA BELS(VEN2, BEN3) 07/2 3/2004 RKN | |
6 | ;; CACHE TEST ED/PASSED 03/15/2006 RKN | |
7 | ; | |
8 | D VENDOR | |
9 | D VMAIL | |
10 | ;D BENE | |
11 | ;D BMAIL | |
12 | END C VFILE | |
13 | Q | |
14 | ; | |
15 | VENDOR S CHFY=0,GRT OT=0,TOTVN =0 | |
16 | S DIR="HAC_ HFS$:[KERM IT.REVERSA L]" | |
17 | S VFILE=DIR_ "RX"_$E(CM MZLFL,3,8) _".TXT" | |
18 | O VFILE:"NWS " | |
19 | VEN1 S CHFY=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "VEND",CHF Y)) | |
20 | ;I 'CHFY U V FILE W "To tal Recoup ment: ",TO TVN Q | |
21 | D NOW^%DTC K CHRPDT S (CHRPDT)=$ E(%,1,7) | |
22 | I $E(CHRPDT, 1,1)="1" S CENDTE="1 8" | |
23 | I $E(CHRPDT, 1,1)="2" S CENDTE="1 9" | |
24 | I $E(CHRPDT, 1,1)="3" S CENDTE="2 0" | |
25 | I 'CHFY U VF ILE W "/// ////////// ///// [End Of File - Tot Recou pment = $" _GRTOT_" - "_$E(CHRP DT,4,5)_"/ "_$E(CHRPD T,6,7)_"/" _CENDTE_$E (CHRPDT,2, 3)_"("_$E( %,9,14)_") ] //" Q | |
26 | ; | |
27 | S OCPT=0,TOT VN=0 | |
28 | VEN2 S OCPT=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "VEND",CHF Y,OCPT)) | |
29 | I 'OCPT S TO TVN(CHFY)= TOTVN G VE N1 | |
30 | S X1=OCPT | |
31 | I X1>"" D PR OGTYP^CHFC D001 | |
32 | G: '$D(@(GLPA Y_"OCPT,0) ")) VEN2 | |
33 | S OCLM=$P(@( GLPAY_"OCP T,0)"),"^" ,1) | |
34 | S VAMT=$P(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "VEND",CHF Y,OCPT),"^ ",1) | |
35 | S TOTVN=TOTV N+VAMT | |
36 | S GRTOT=GRTO T+VAMT | |
37 | S VAMT=$FN(V AMT,"",2) | |
38 | S LEN=8 S VA L=VAMT D S PACE1 S VA MT=VAL | |
39 | D DATA G:$D( QUITFG) VE N2 | |
40 | S REC=^CHMZH OLD("MMX_R ECOUP_REVE RSALS",OCP T,"RAW")_R EC2 | |
41 | U VFILE W RE C,! | |
42 | G VEN2 | |
43 | DATA K QUITFG | |
44 | I '$D(@(GLPA Y_"OCPT,0) ")) S QUIT FG=1 Q | |
45 | S VAL=$P(@(G LPAY_"OCPT ,0)"),"^", 1) S LEN=7 D SPACE2 S CLNUM=VA L | |
46 | S VAL=$P(@(G LPAY_"OCPT ,0)"),"^", 10) | |
47 | S YR=$$FMYR^ CHTFLIB(VA L) | |
48 | S VAL=YR_$E( VAL,4,5)_$ E(VAL,6,7) | |
49 | S LEN=8 D SP ACE2 S PDT =VAL | |
50 | S VAL="" | |
51 | S: $D(@(GLPAY _"OCPT,1)" )) VAL=$P( @(GLPAY_"O CPT,1)")," ^",16) | |
52 | S LEN=10 D S PACE2 S CH KNUM=VAL | |
53 | S REC2=CLNUM _PDT_VAMT_ CHKNUM | |
54 | Q | |
55 | SPACE1 F X=$L(VAL)+ 1:1:LEN S VAL=" "_VA L | |
56 | Q | |
57 | SPACE2 F X=$L(VAL)+ 1:1:LEN S VAL=VAL_" " | |
58 | Q | |
59 | VMAIL K ^UTILITY($ J,"MMX-REV "),CVRTDT | |
60 | S CVRTDT=$E( CMMZLFL,1, 2)_$E(CMMZ LFL,5,6)_$ E(CMMZLFL, 3,4)_$E(CM MZLFL,7,8) | |
61 | S %DT="P",X= $E(CVRTDT, 3,8) D ^%D T | |
62 | X ^DD("DD") S DATE=Y | |
63 | S ^UTILITY($ J,"MMX-REV ",1,1,0)=" Total reco upment on Medical Ma trix rever sals for " _DATE | |
64 | S ^UTILITY($ J,"MMX-REV ",1,2,0)=" " | |
65 | S CNT=3 S FY =0 D | |
66 | VM1 .S FY=$O(TOT VN(FY)) Q: 'FY | |
67 | .S AMT=TOTVN (FY) | |
68 | .S ^UTILITY( $J,"MMX-RE V",1,CNT,0 )="Fiscal Year "_FY_ ": "_"$ "_ AMT | |
69 | .S CNT=CNT+1 G VM1 | |
70 | S CNT=CNT+1 | |
71 | S ^UTILITY($ J,"MMX-REV ",1,CNT,0) =" " | |
72 | S CNT=CNT+1 | |
73 | S ^UTILITY($ J,"MMX-REV ",1,CNT,0) ="Please i nitiate ap propriate recoupment procedure s." | |
74 | S XMDUZ=.5,X MSUB="Medi cal Matrix Recoupmen t Notice" | |
75 | S XMTEXT="^U TILITY($J, ""MMX-REV" ",1," | |
76 | S XMY("27457 7")="",XMY (" PII ")="" | |
77 | S XMY("24618 3")="",XMY ("
|
|
78 | S U="^" D ^X MD | |
79 | Q | |
80 | ; | |
81 | BENE K ^UTILITY($ J,"MMX-REV -BENE") | |
82 | S CHFY=0,TAM T=0,CCNT=0 ,BCNT=0,BA MT=0 D BHE AD | |
83 | BEN1 S CHFY=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "BENE",CHF Y)) | |
84 | Q: 'CHFY | |
85 | S BSSN="" | |
86 | BEN2 S BSSN=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "BENE",CHF Y,BSSN)) | |
87 | G: BSSN="" BE N1 | |
88 | S BCNT=BCNT+ 1 | |
89 | S OCPT=0 | |
90 | BEN3 S OCPT=$O(^C HMZHOLD("M MX_RECOUP_ REVERSALS" ,"REPORT", "BENE",CHF Y,BSSN,OCP T)) | |
91 | I 'OCPT D BT OT S BAMT= 0 G BEN2 | |
92 | S X1=OCPT | |
93 | I X1>"" D PR OGTYP^CHFC D001 | |
94 | S VAL=BSSN S LEN=9 D S PACE2 S BS SN=VAL | |
95 | G: '$D(@(GLPA Y_"OCPT,0) ")) BEN3 | |
96 | S OCLM=$P(@( GLPAY_"OCP T,0)"),"^" ,1) | |
97 | S VAL=OCLM S LEN=7 D S PACE2 S OC LM=VAL | |
98 | S OREC=^CHMZ HOLD("MMX_ RECOUP_REV ERSALS","R EPORT","BE NE",CHFY,B SSN,OCPT) | |
99 | S AMT=$P(ORE C,"^",1) | |
100 | S TAMT=TAMT+ AMT | |
101 | S BAMT=BAMT+ AMT | |
102 | S VAL=AMT S LEN=8 D SP ACE1 S AMT =VAL | |
103 | S DATE=$P($P (OREC,"^", 2),".",1) | |
104 | S Y=DATE X ^ DD("DD") S DATE=Y | |
105 | S VAL=DATE,L EN=11 D SP ACE2 S DAT E=VAL | |
106 | S NAME=$P(OR EC,"^",3) | |
107 | S VAL=NAME S LEN=25 D SPACE2 S N AME=VAL | |
108 | S REC=BSSN_" "_NAME_" "_OCLM_" "_AMT_" "_DATE_" "_CHFY | |
109 | S ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)=REC | |
110 | S CCNT=CCNT+ 1 | |
111 | S CNT=CNT+1 | |
112 | G BEN3 | |
113 | BTOT S BAMT=$FN(B AMT,"",2) | |
114 | S VAL=BAMT S LEN=8 D S PACE1 S BA MT=VAL | |
115 | S ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)=" ------ --" | |
116 | S CNT=CNT+1 | |
117 | S ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)=" "_BAMT | |
118 | S CNT=CNT+1 | |
119 | S ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)=" " | |
120 | S CNT=CNT+1 | |
121 | Q | |
122 | BHEAD S ^UTILITY($ J,"MMX-REV -BENE",1,1 ,0)="Benef iciary Rec oupment on Medical M atrix Reve rsals for "_DATE | |
123 | S ^UTILITY($ J,"MMX-REV -BENE",1,2 ,0)="Pleas e initiate appropria te recoupm ent proced ures." | |
124 | S ^UTILITY($ J,"MMX-REV -BENE",1,3 ,0)=" " | |
125 | S ^UTILITY($ J,"MMX-REV -BENE",1,4 ,0)="Bene SSN Bene Name Claim Rcp Amt Date Pai d FY" | |
126 | S ^UTILITY($ J,"MMX-REV -BENE",1,5 ,0)="_____ ____ ____ __________ __________ _ _______ ________ ________ ____ ____ " | |
127 | S CNT=6 | |
128 | Q | |
129 | BMAIL S ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)=" " | |
130 | S CNT=CNT+1 | |
131 | S ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)="Tot al Recoupm ent Amount : "_TAMT | |
132 | S CNT=CNT+1 | |
133 | S ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)="Tot al Number of Benes: "_BCNT | |
134 | S CNT=CNT+1 | |
135 | S ^UTILITY($ J,"MMX-REV -BENE",1,C NT,0)="Tot al Number of Claims: "_CCNT | |
136 | S XMDUZ=.5,X MSUB="Medi cal Matrix Beneficia ry Recoupm ent Report " | |
137 | S XMTEXT="^U TILITY($J, ""MMX-REV- BENE"",1," | |
138 | S XMY("27457 7")="",XMY (" PII ")="" | |
139 | S XMY("24618 3")="",XMY ("
|
|
140 | S U="^" D ^X MD | |
141 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.