Produced by Araxis Merge on 2/15/2018 2:12:49 PM Eastern 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_Build_6_Sprint_9 and 11.zip\CPE005-115, 116 Create New Reason Code Claims Reversal Notification Revert | Unit Test of Backout User Stories 115, 116.docx | Tue Feb 6 17:50:58 2018 UTC |
2 | CPEE_Build_6_Sprint_9 and 11.zip\CPE005-115, 116 Create New Reason Code Claims Reversal Notification Revert | Unit Test of Backout User Stories 115, 116.docx | Wed Feb 14 22:10:49 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 6 | 606 |
Changed | 5 | 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 | Backout Us er Stories 115, 116 | |
2 | ||
3 | User Story CPE005-11 5 | |
4 | Create New Reason Co de Claims Reversal N otificatio n | |
5 | Requiremen t | |
6 | As the R&R VE I want a new rea son code t hat states "Claim(s) reversal notificati on, update d EOB(s) w ill follow " to be cr eated in C P&E. | |
7 | New Reason Code Name : Claim(s ) reversal notificat ion, updat ed EOB(s) will follo w | |
8 | Reason Cod e Purpose: Reason c ode will b e sent out on an EOB when a pr eviously a djudicated claim nee ds to be r eversed. | |
9 | EOB Number : next in line (do not use nu mber in th e 1000s be cause they are speci fic to cla im check’s denial). | |
10 | CARC/RARC code(s) an d CARC/RAR C/CAGC set : | |
11 | CARC# | |
12 | Descriptio n of CARC | |
13 | RARC# | |
14 | RARC Descr iption | |
15 | CAGC | |
16 | n/a | |
17 | ||
18 | N694 | |
19 | This rever sal is due to a resu bmission/c hange to t he claim b y the prov ider | |
20 | n/a | |
21 | Globals to be used: | |
22 | EOB Crossw alk 741201 .77 | |
23 | RARC Globa l: 741201. 58 | |
24 | CHAMPVA St atus Reaso n Dictiona ry 741002. 22 | |
25 | Developer will ensur e the CARC and RARC are in the system. | |
26 | NOTE: per EDI Analy st Mary Ty ra - RARC is informa tional (CA RC not req uired), an d it would be sent i n the LQ s egment. | |
27 | Wireframe | |
28 | n/a | |
29 | Acceptance Criteria / Complian ce: | |
30 | "Claim(s) reversal n otificatio n, updated EOB(s) wi ll follow" has been set up wit h the desi gnated Glo bals of: E OB Crosswa lk 741201. 77; RARC G lobal: 741 201.58; an d CHAMPVA Status Rea son Dictio nary 74100 2.22. | |
31 | ||
32 | ||
33 | User Story CPE005-11 6 | |
34 | Invoke Rea son Code C laims Reve rsal Notif ication | |
35 | Requiremen t | |
36 | As the R&R VE I want reason co de "Claim( s) reversa l notifica tion, upda ted EOB(s) will foll ow" to be sent on an EOB when a user ini tiates a r eversal. | |
37 | Wireframe | |
38 | n/a | |
39 | Acceptance Criteria / Complian ce: | |
40 | The system will send the reaso n code tha t states " Claim(s) r eversal no tification , updated EOB(s) wil l follow" whenever a user init iates a re versal. | |
41 | ||
42 | Routines w ith User S tories 115 , 116 chan ges | |
43 | ||
44 | CHFBCQ ;HA C/CR;SETS UP QUEUES; 03/09/99 2 :31 PM ;;1 .0;CHAMPVA SYSTEM;;J ULY 4, 199 0; ;CPTS - 10920 (AE B), #11014 BY RLC, 1 3920/JLR ; CPTS 15890 (AEB) ;JS G;06/02/08 ;DEV004754 -02;Add hi gh dollar reason (wi th securit y) for Aud it Support Queue ;DE V004805 1/ 20/2010 AE B ;DEV0100 18-01 YJK 11/26/2010 - Paid Fi le Date Co mpleted In dex ;DEV0 11069 1/5/ 2011 AEB ; Production fix 1/3/1 2 DPT - lo oping on d eleted cla ims ;DEV02 1244 JAK 0 9/03/14 -c learing de d/cat cap/ cost share and payme nt informa tion befor e going to queue ;EN C015863: E DI - CODE 58 stop an d replace - keep cur rent syste m logic BM J 10/22/13 ;CPE005-1 00,102 BDB 12/27/201 7 | |
45 | ;CPE005-1 16 BDB 1/1 2/2018LDQA I $D(@(GL PAY_"CI,"" ZEMC"",""C MOP"")")) S CHCMPCLI =CI,CHQNAM ="AUDIT SU PPORT",CHQ URSN="ASQ/ 8" D ^CHMX CPBP I $D( CHCMPFG) K CHCMPFG G LDQE ; AD DED BY DTP (MAY/1995 ) FOR CMOP PROJECTLD QA1 S DFN= $P(REC0,"^ ",21),BFN= $P(REC0,"^ ",22) D NO W^%DTC S C HDT=% I $D (^CHMASQ(" B",CHDT)) G LDQA1 S (DIC,DLAYG O)=741010. 05,DIC(0)= "ML",X=CHD T D ^DIC K DIC G LDQ A1:$P(Y,"^ ",3)'=1 S CHMQNAM="C HMASQ(",CH MIN="" K C HMOUT D ^C HMIS041 S ZJ=$O(@(GL PAY_"CI,"" PDI"",999) "),-1) Q:' ZJ S:$D(@( GLPAY_"CI, ""PDI"",ZJ ,0)")) CHM FPDI=$P(^( 0),"^",1) S DA=+Y,DI E=741010.0 5,DR=".02/ ///^S X=CI ;.03///^S X=""`""_DU Z;.04///^S X=CHMFPDI ;.06///^S X=1;.09/// /^S X=DFN; .1////^S X =BFN" D ^D IE K DIE S :'$D(^CHMA SQ(DA,1,0) ) ^CHMASQ( DA,1,0)="^ 741010.08S A^0^0" ;S: CHMFQUE=2 X=8 S:CHMF QUE=4 X=16 S:CHMFQUE =40 X=17 D REASON ;J SG;DEV0047 54;See nex t line S X =$S(CHMFQU E=2:$S($D( HIDOLLAR): 9,1:8),CHM FQUE=4:16, CHMFQUE=40 :17,1:X) ; JSG;DEV004 754;2=8!9 D REVCCD^C HTFLIBC(CI ) ;reverse & clear d ed/c.s./ca t cap from claim DEV 021244 JAK 08/26/14 D:(CHMFQUE '=2) CLRPM T^CHTFLIB2 (CI) ;clea r out paym ent data e xcept for HIGH dolla r DEV02124 4 JAK 08/2 6/14 D REA SON K HIDO LLAR ; JSG;DEV004 754;Make s ure high $ flag good for only 1 claim D ADDASQ K D IC S CHMFP P="SQAUD", CHMFI=CI D ^CHMFWK02 QADDASQ ; THE FOLLO WING LINES RETRIEVE THE IMAGE *CR* ;N (C HCLM,DUZ) S CHSS="" I $D(^CHMI MD(741020. 02,"B","PA RAMETER")) D .S Y= $O(^CHMIMD (741020.02 ,"B","PARA METER",0)) Q:Y="" .Q :'$D(^CHMI MD(741020. 02,Y,11)) S CHSS=$P( ^(11),"^", 4) .Q:CHSS ="" Q:'$D (^VA(200," ZVMS",CHSS )) .S CHDU Z=$O(^VA(2 00,"ZVMS", CHSS,0)) Q Q:'$D(CHS S) Q:CHSS= "" Q:'$D( CI) Q:CI=" " S CHPDIJ =0,CHDOCID ="",CHMIMF L=1,CHIMMV E=1,CHOPER ="CHIMMVE" F S CHPD IJ=$O(@(GL PAY_"CI,"" PDI"",CHPD IJ)")) Q:' CHPDIJ D .Q:'$D(^ (CHPDIJ,0) ) S CHPDI= $P(^(0),"^ ",1) .Q:'$ D(^CHMIMG( CHPDI,"DOC ")) S CHDO CID=$P(^(" DOC"),"^", 1) D ADD^C HMMF K CHS S,Y,CHDUZ, CHPDIJ,CHD OCID,CHIMF L,CHIMMVE, CHOPER,CHP DI Q ;REAS ON S DA(1) =DA,(DIC,D LAYGO)="^C HMASQ(DA(1 ),1,",DIC( 0)="ML" D ^DIC K DIC Q ;LDQB I $D(@(GLPA Y_"CI,""ZE MC"",""CMO P"")")) S CHCMPCLI=C I,CHQNAM=" CAPPS",CHQ URSN="EOB/ 10" D ^CHM XCPBP I $D (CHCMPFG) K CHCMPFG Q ; ADDED BY DTP (M AY/1995) F OR CMOP PR OJECT S CH INHCL=CI D ^CHMG281 I $D(CHIHF LG) K CHIH FLG Q ;LDQ B2 S:'$D(C HPGPT) CHP GPT=$P(^CH MINDEX(CI, 0),U,1) I CHPGPT=5 S CLMPT=CI D S2^CHFBC Q1 Q I (CH PGPT=6)!(C HPGPT=7) S REAS=$P(^ CHMDIC(741 002.34,1,3 ),"^",15) D ROREAS I CHPGPT<3 S REAS=319 D ROREAS S REAS=322 D ROREAS I (+$P(@(G LPAY_"CI,1 )"),"^",1) =0)!((+$P( @(GLPAY_"C I,1)"),"^" ,14)=0)&(+ $P(@(GLPAY _"CI,1)"), "^",15)=0) ) S CHMFQU E=1,$P(@(G LPAY_"CI,0 )"),"^",11 )=0,$P(@(G LPAY_"CI,0 )"),"^",12 )=0 G LDQE I $P(@(GL PAY_"CI,0) "),"^",5)' =1 S CHOUT ="741008.0 5",CHEND=" 01P" D Q .S $P(@(GL PAY_"CI,0) "),"^",12) =0,$P(@(GL PAY_"CI,0) "),"^",11) =1 D SSNAQ Q I ($P(@ (GLPAY_"CI ,0)"),"^", 5)=1)&(+$P (@(GLPAY_" CI,1)"),"^ ",14)=0) D Q .S CHO UT="741008 .05",CHEND ="01P",$P( @(GLPAY_"C I,0)"),"^" ,12)=0 .S $P(@(GLPAY _"CI,0)"), "^",11)=1 D SSNAQ Q I ($P(@(GL PAY_"CI,0) "),"^",5)= 1)&(+$P(@( GLPAY_"CI, 1)"),"^",1 5)=0) D Q .S CHOUT= "741008.03 ",CHEND="0 1PA",$P(@( GLPAY_"CI, 0)"),"^",1 2)=1 .S $P (@(GLPAY_" CI,0)"),"^ ",11)=0 D SSNAQ Q I ($P(@(GLPA Y_"CI,0)") ,"^",5)=1) &(+$P(@(GL PAY_"CI,1) "),"^",14) '=0)&($P(@ (GLPAY_"CI ,1)"),"^", 15)'=0) D Q .S CHOU T="741008. 05",CHEND= "01P",$P(@ (GLPAY_"CI ,0)"),"^", 12)=1 .S $ P(@(GLPAY_ "CI,0)")," ^",11)=1 D SSNAQ S C HOUT="7410 08.03",CHE ND="01PA" D SSNAQ QS SNAQ I ($D (^CHMSNA(C HOUT,"C",C I)))!($D(^ CHMSNA(CHO UT,"ARCHIV E",CI))) D ^CHMFBCCR Q:CHREJ I $P(@(GLPA Y_"CI,0)") ,"^",2)=10 Q ;PROD 1 /3/12 DPT L ^CHMSNA( CHOUT) S C HMBTCH=$P( ^CHMSNA(CH OUT,0),"^" ,3) I CHOU T="741008. 05" S:$D(@ (GLPAY_"CI ,1)")) $P( ^CHMSNA(CH OUT,CHMBTC H,0),"^",6 )=$P(^CHMS NA(CHOUT,C HMBTCH,0), "^",6)+$P( @(GLPAY_"C I,1)"),"^" ,15) I CHO UT="741008 .03" S:$D( @(GLPAY_"C I,1)")) $P (^CHMSNA(C HOUT,CHMBT CH,0),"^", 6)=$P(^CHM SNA(CHOUT, CHMBTCH,0) ,"^",6)+$P (@(GLPAY_" CI,1)"),"^ ",14) S:'$ D(^CHMSNA( CHOUT,CHMB TCH,1,0)) ^CHMSNA(CH OUT,CHMBTC H,1,0)="^" _CHOUT_CHE ND_"^0^0" S DA(1)=CH MBTCH,DLAY GO=CHOUT S DIC="^CHM SNA("_CHOU T_","_DA(1 )_",1,",X= CN,DIC(0)= "ML" D ^DI C K DIC,DL AYGO L G:$ P(Y,"^",3) '=1 SSNAQ I $D(CHRSU B) D .Q:'C HRSUB .S I=0,I=$O( ^CHMSNA(74 1008.03,"C ",CI,I)) Q :'I S J=0 .S J=$O(^ CHMSNA(741 008.03,"C" ,CI,I,J)) Q:'J .;S ^ CHMSNA(741 008.05,DA( 1),1,+Y,10 )="1^"_I_" ^"_J .;S ^ CHMSNA(741 008.03,I,1 ,J,10)="1^ "_DA(1)_"^ "_+Y K CHR SUB Q ;D N OW^%DTC S CHDT=%,$P( @(GLPAY_"C I,0)"),"^" ,10)=CHDT, $P(@(GLPAY _"CI,0)"), "^",2)=2 ; DEV010018- 01 YJK 11/ 26/2010 RE PLACED WIT H DIE CALL : D NOW^%D TC S CHDT= % S DA=CI S DIE=7410 00, DR=".0 2///^S X=2 ;.1///^S X =CHDT" D ^ DIE K DIE ;DEV010018 -01 YJK 11 /26/2010 D PAIDRVSL( CI) ;DEV00 5311, SKD, 7-23-08 S :CHOUT="74 1008.05" C HMFPP="SQC ALO" S:CHO UT="741008 .03" CHMFP P="SQCAPO" S CHMFI=C I D ^CHMFW K02 S CHMQ NAM="CHMSN A("_CHOUT_ ",",CHMIN= "" K CHMOU T D ^CHMIS 041 Q ;LDQ E I $D(^CH NVPAY(CI)) I '$D(^CH MQAQ("D",C I)) D Q . S $P(^CHNV PAY(CI,0), "^",2)=1 . S CHMFQUE= 38 D LDQQ Q I $D(@(G LPAY_"CI," "ZEMC"","" CMOP"")")) S CHCMPCL I=CI,CHQNA M="EOB" D D ^CHMXCP BP I $D(CH CMPFG) K C HCMPFG Q ; ADDED BY DTP (MAY/ 1995) FOR CMOP PROJE CT .S:'$D( CHQURSN) C HQURSN=$S( CHMFQUE=1: "EOB/2",CH MFQUE=12:" EOB/3",CHM FQUE=13:"E OB/4",CHMF QUE=15:"EO B/6",CHMFQ UE=17:"EOB /5",CHMFQU E=25:"EOB/ 12",CHMFQU E=32:"EOB/ 6",CHMFQUE =35:"EOB/3 ",1:"EOB/1 0") .I (CH MFQUE=12)! (CHMFQUE=1 3)!(CHMFQU E=15)!(CHM FQUE=16)!( CHMFQUE=25 )!(CHMFQUE =32)!(CHMF QUE=35) S CHRJFG="" S CHINHCL= CI D ^CHMG 280 I $D(C HIHFLG) K CHIHFLG QL DQEE1 ;LDQ EE11 ;ALL OF THIS WA S COMMENTE D OFF IN C HMFBCQLDQE E2 I $D(@( GLPAY_"CI, 6)")) D CK RO I $D(@( GLPAY_"CI, 6)")) D CK ROEDI ;BDB 12/27/201 7 I $D(CHM FRQUE) S C HRSN="REB" G LDQE1 S CHRSN=$S( CHMFQUE=1: "ZE",CHMFQ UE=12:"DX" ,CHMFQUE=1 3:"CH",CHM FQUE=17:"A S",CHMFQUE =25:"QA",C HMFQUE=29: "OTH",CHMF QUE=30:"OT H",CHMFQUE =99:"PAY", CHMFQUE=35 :"DRG",1:" OTH")LDQE1 I $D(@(GL PAY_"CI,"" ZEMC"",""C MOP"")")) S CHCMPCLI =CI,CHQNAM ="EOB" D D ^CHMXCPB P I $D(CHC MPFG) K CH CMPFG Q ; ADDED BY DTP (MAY/1 995) FOR C MOP PROJEC T .S:'$D(C HQURSN) CH QURSN=$S(C HMFQUE=1:" EOB/2",CHM FQUE=12:"E OB/3",CHMF QUE=13:"EO B/4",CHMFQ UE=15:"EOB /6",CHMFQU E=17:"EOB/ 5",CHMFQUE =25:"EOB/1 2",CHMFQUE =32:"EOB/6 ",CHMFQUE= 35:"EOB/3" ,1:"EOB/10 ") .I (CHM FQUE=12)!( CHMFQUE=13 )!(CHMFQUE =15)!(CHMF QUE=16)!(C HMFQUE=25) !(CHMFQUE= 32)!(CHMFQ UE=35) S C HRJFG="" D NOW^%DTC S CHDT=% I $D(^CHMEO BQ("B",CHD T)) G LDQE 1 S CHRES= "" I $D(@( GLPAY_"CI, 0)")),($P( @(GLPAY_"C I,0)"),"^" ,13)'="") S CHRES=CH RES_": "_$ P(@(GLPAY_ "CI,0)")," ^",13) G L DQE2 G:$D( CHMFRQUE) LDQE2 S:CH MFQUE=12 C HRES=CHRES _": "_$P(^ CHMDIC(741 002.34,1,2 ),"^",7) S :CHMFQUE=1 3 CHRES=CH RES_": "_$ P(^CHMDIC( 741002.34, 1,2),"^",3 ) S:CHMFQU E=35 CHRES =CHRES_": "_$P(^CHMD IC(741002. 34,1,3),"^ ",8)LDQE2 S X1=CI D PROGTYP^CH FCD001 S D LAYGO=+$P( @(GLEOB_"0 )"),"^",2) S DIC=GLE OB,DIC(0)= "ML",X=CHD T D ^DIC K DIC G LDQ E1:$P(Y,"^ ",3)'=1 S DA=+Y,DIE= GLEOB,DR=" .02////^S X=CI;.03// /^S X=0;.0 4///^S X=C HRSN;.06// /^S X=CHRE S" D ^DIE K DIE I $D (@(GLPAY_" CI,""ZEMC" ")")) S CH MQNAM="CHM EDIQ(",CHM OUT="" K C HMIN D ^CH MIS041 D N OW^%DTC S CHDT=% S D A=CI S DIE =741000, D R=".1///^S X=CHDT" D ^DIE K DI E ;DEV0100 18-01 YJK 11/26/2010 I (CHRSN= "ZE")!(CHR SN="OTH")! (CHRSN="PA Y") S $P(@ (GLPAY_"CI ,0)"),"^", 2)=4 D PAI DRVSL(CI) ;DEV005311 , SKD, 7-2 3-08 S:(CH RSN="DX")! (CHRSN="CH ")!(CHRSN= "AS")!(CHR SN="QA")!( CHRSN="DRG ")!(CHRSN= "REB") $P( @(GLPAY_"C I,0)"),"^" ,2)=0 S CH MFPP="SQEO B",CHMFI=C I D ^CHMFW K02 K CHRE S S CHMQNA M="CHMEOBQ (",CHMIN=" " K CHMOUT D ^CHMIS0 41 Q ;LDQM I $D(@(GL PAY_"CI,"" ZEMC"",""C MOP"")")) S CHCMPCLI =CI,CHQNAM ="MISSING DATA" D ^C HMXCPBP I $D(CHCMPFG ) K CHCMPF G G LDQE ; ADDED BY DTP (MAY/1 995) FOR C MOP PROJEC T S (CHQI, CHEX)=0 F S CHQI=$O (^CHMMDQ(" C",CI,CHQI )) Q:'CHQI I $D(^CH MMDQ(CHQI, 0)) S:$P(^ CHMMDQ(CHQ I,0),"^",3 )'=2 CHEX= 1 Q:CHEX=1 S (CHREJF LG,CHQI)=0 F S CHQI =$O(^CHMMD Q("C",CI,C HQI)) Q:'C HQI I $D( ^CHMMDQ(CH QI,0)) I $ P(^CHMMDQ( CHQI,0),"^ ",3)=2 I $ P(^CHMMDQ( CHQI,0),"^ ",6)=2 S C HREJFLG=1 ;AEB 1/20/ 2010 DEV00 4805 REJ C LAIM IF AL READY IN m dq FOR POA AEB 1/5/2 011 DEV011 069 ;I CHR EJFLG=1 S CHREJ=CI,C HGRP="OTH" ,REAS=58 D ^CHMFREJ G LDQE ;AE B 1/20/201 0 DEV00480 5 REJ CLAI M IF ALREA DY IN mdq FOR POA I CHREJFLG=1 S CHREJ=C I,CHGRP="O TH",REAS=4 00 D ^CHMF REJ G LDQE ;ENC015 863: EDI - CODE 58 s top and re place - ke ep current system lo gic BMJ 04 /14/15 S (CHREJFLG, CHQI)=0 F S CHQI=$O (^CHMMDQ(" C",CI,CHQI )) Q:'CHQI I $D(^CH MMDQ(CHQI, 0)) I $P(^ CHMMDQ(CHQ I,0),"^",3 )=2 I $P(^ CHMMDQ(CHQ I,0),"^",6 )=8 S CHRE JFLG=1 ;AE B 1/20/201 0 DEV00480 5 REJ CLAI M IF ALREA DY IN mdq FOR POA AE B 1/5/2011 DEV011069 I CHREJFL G=1 S CHRE J=CI,CHGRP ="OTH",REA S=373 D ^C HMFREJ G L DQE ;AEB 1/20/2010 DEV004805 REJ CLAIM IF ALREADY IN mdq FO R POA S CH MMDR=$S((C HMFQUE=6)& ('$D(@(GLP AY_"CI,""A DD"")"))): 0,CHMFQUE= 18:0,CHMFQ UE=7:1,CHM FQUE=10:2, CHMFQUE=11 :3,(CHMFQU E=6)&($D(@ (GLPAY_"CI ,""ADD"")" ))):4,1:5) I $P(^CHM PAY(CI,"CO MMON"),"^" ,9)=5 S CH MMDR=8,CHM MDP="POA I S MISSING OR INVALID "LDQM1 D N OW^%DTC S CHDT=% I $ D(^CHMMDQ( "B",CHDT)) G LDQM1 S (DIC,DLAY GO)=741010 .11,DIC(0) ="ML",X=CH DT D ^DIC K DIC G LD QM1:$P(Y," ^",3)'=1 I '$D(CI) S DA=+Y,DIE =741010.11 ,DR=".03// /^S X=0;.0 6///^S X=C HMMDR;.07/ //^S X=CHM MDP" D ^DI E K DIE,DR Q S DA=+Y ,DIE=74101 0.11,DR=". 02////^S X =CI;.03/// ^S X=0;.06 ///^S X=CH MMDR;.07// /^S X=CHMM DP" D ^DIE K DIE,DR D REVCCD^C HTFLIBC(CI ) ;reverse & clear d ed/c.s./ca t cap from claim DEV 021244 JAK 09/03/14 D CLRPMT^C HTFLIB2(CI ) ;clear p ayment dat a from cla im DEV0212 44 JAK 09/ 03/14 S CH MFPP="SQMS D",CHMFI=C I D ^CHMFW K02 S CHMQ NAM="CHMMD Q(",CHMIN= "" K CHMOU T D ^CHMIS 041 Q ; ;s kd, 1-25-0 6 to redir ect from M DQ to VQ p er IDME pr oject ;ADD A NEW ENT RY TO VQLD QV ;ADD A NEW ENTRY TO VQ D NO W^%DTC S X =% S DIC(0 )="LM" S ( DIC,DLAYGO )=741050.0 1 D ^DIC I $P(Y,U,3) '=1 G LDQV S CHI=+Y D GVDTA S STATUS=0,D A=CHI,DIE= 741050.01 S DR=".02/ //^S X=PV( 5);.03///^ S X=STATUS ;.09///^S X=CHMMDP;. 11///^S X= 0;1.01///^ S X=PV(4)" D ^DIE K DIE,DR D S ETVDTA,STK CLM D REVC CD^CHTFLIB C(CI) ;rev erse & cle ar ded/c.s ./cat cap from claim DEV021244 JAK 09/03 /14 D CLRP MT^CHTFLIB 2(CI) ;cle ar payment data from claim DEV 021244 JAK 09/03/14 S CHMFPP=" SQVEN",CHM FI=CI D ^C HMFWK02 S CHMQNAM="C HMQVN(",CH MIN="" K C HMOUT D ^C HMIS041 Q ;GVDTA ;GE T DATA FRO M VENDOR F ILE S (REC 0,REC1)="" S VFN=CHV X ;=VI ; SKD, 2-21- 06 S REC0= $G(^CHMVEN (VFN,0)) S REC1=$G(^ CHMVEN(VFN ,1)) F R=1 :1:21 S PV (R)="" S P V(1)=$G(VF N) ; VENDO R POINTER S PV(2)=$P (REC0,U,14 ) ; VENDOR IZATION PO INTER S PV (3)="" ; V ENDORIZATI ON STRING S PV(4)=$P (REC0,U,1) ; VENDOR NAME S PV( 5)=$P(REC0 ,U,3) ; VE NDOR TAX I D S PV(6)= $P(REC0,U, 7) ; SSN S PV(7)=$P( REC1,U,1) ; ADDR1 S PV(8)=$P(R EC1,U,2) ; ADDR2 S P V(9)=$P(RE C1,U,3) ; CITY S PV( 10)=$P(REC 1,U,4) ; S TATE S PV( 11)=$P(REC 1,U,5) ; Z IP S PV(12 )=$P(REC1, U,7) ; FAC ILITY TYPE S PV(13)= $P(REC1,U, 13) ; CLAS SIF. TYPE S PV(14)=$ P(REC1,U,1 1) ; SPECI ALTY S PV( 15)=$P(REC 1,U,6) ; P HONE S PV( 16)=$P(REC 1,U,9) ; A USTIN VERI FY S PV(17 )=$P(REC0, U,19) ; DI SCRETE PSY CH S PV(18 )=$P(REC0, U,21) ; DI SCRETE REH AB S PV(19 )=$P(REC0, U,22) ; DI SCRETE RTC S PV(20)= $P(REC1,U, 8) ; NON-P PS I $D(^C HMVEN(VFN, 40)) S PV( 21)=$P(^CH MVEN(VFN,4 0),U,1) ; CMAC Q ;SE TVDTA ;SET DATA FROM VENDOR FI LE INTO VQ WORK FILE S $P(^CHM QVN(CHI,1) ,U,1)=PV(4 ) S $P(^CH MQVN(CHI,1 ),U,2)=PV( 5) S $P(^C HMQVN(CHI, 1),U,3)=PV (6) S $P(^ CHMQVN(CHI ,1),U,4)=P V(7) S $P( ^CHMQVN(CH I,1),U,5)= PV(8) S $P (^CHMQVN(C HI,1),U,6) =PV(9) S $ P(^CHMQVN( CHI,1),U,7 )=PV(10) S $P(^CHMQV N(CHI,1),U ,8)=PV(11) S $P(^CHM QVN(CHI,1) ,U,09)=PV( 15) S $P(^ CHMQVN(CHI ,1),U,10)= PV(12) S $ P(^CHMQVN( CHI,1),U,1 1)=PV(13) S $P(^CHMQ VN(CHI,1), U,12)=PV(1 4) S $P(^C HMQVN(CHI, 1),U,13)=P V(16) I PV (17)="" S $P(^CHMQVN (CHI,1),U, 15)=0 E S $P(^CHMQV N(CHI,1),U ,15)=PV(17 ) I PV(18) ="" S $P(^ CHMQVN(CHI ,1),U,16)= 0 E S $P( ^CHMQVN(CH I,1),U,16) =PV(18) I PV(19)="" S $P(^CHMQ VN(CHI,1), U,17)=0 E S $P(^CHM QVN(CHI,1) ,U,17)=PV( 19) I PV(2 0)="" S $P (^CHMQVN(C HI,1),U,18 )=0 E S $ P(^CHMQVN( CHI,1),U,1 8)=PV(20) I PV(21)=" " S $P(^CH MQVN(CHI,1 ),U,19)=3 E S $P(^C HMQVN(CHI, 1),U,19)=P V(21) Q ;S TKCLM ;SET CLAIM INT O THE VEND OR QUEUE Q :CHI="" Q :'$G(CI) I '$D(^CHMQ VN(CHI,10, 0)) S ^CHM QVN(CHI,10 ,0)="^7410 50.02^0^0" S X=$P(^C HMPAY(CI,0 ),"^",1) S DA(1)=CHI S DIC="^C HMQVN("_DA (1)_",10," S DIC(0)= "LM" S DLA YGO=741050 .02 D ^DIC I $P(Y,U, 3)'=1 G ST KCLM S DA= +Y D NOW^% DTC S CHDT TM=% S (CH I3,CHJ3)=" " S DA(1)= CHI S DIE= "^CHMQVN(" _DA(1)_",1 0,",CHI3=D A(1),CHJ3= DA S DR=". 02///^S X= CHDTTM;.06 ///^S X=0; .07///^S X =CHMMDP" D ^DIE Q ;L DQQ I $D(@ (GLPAY_"CI ,""ZEMC"", ""CMOP"")" )) S CHCMP CLI=CI,CHQ NAM="QUALI TY ASSURAN CE" D D ^ CHMXCPBP I $D(CHCMPF G) K CHCMP FG G LDQE ; ADDED BY DTP (MAY/ 1995) FOR CMOP PROJE CT .S CHQU RSN=$S(CHM FQUE=5:"QA Q/1",CHMFQ UE=20:"QAQ /2",CHMFQU E=21:"QAQ/ 3",CHMFQUE =22:"QAQ/4 ",CHMFQUE= 23:"QAQ/5" ,CHMFQUE=2 4:"QAQ/6", CHMFQUE=28 :"QAQ/7",C HMFQUE=33: "QAQ/8",1: "") S CHQI =$O(^CHMQA Q("D",CI,0 ))LDQQ1 S CHMFPDI="" D:$D(@(GL PAY_"CI,"" PDI"")")) .S X=$O(@( GLPAY_"CI, ""PDI"",99 9)"),-1) Q :'X Q:'$D (^(X,0)) . S CHMFPDI= $P(^(0),"^ ",1) Q D N OW^%DTC S CHDT=% I $ D(^CHMQAQ( "B",CHDT)) G LDQQ1 S (DIC,DLAY GO)=741010 .07,DIC(0) ="ML",X=CH DT D ^DIC K DIC G LD QQ1:$P(Y," ^",3)'=1 S DA=+Y,DIE =741010.07 ,DR=".02// //^S X=CI; .03///^S X =1;.04///^ S X=""`""_ DUZ;.15/// ^S X=CHMFP DI;1///^S X=CHMFPDI" D ^DIE K DIE S:CHMF PDI'="" ^C HMQAQ("G", 1,CHMFPDI, DA)="" S:' $D(^CHMQAQ (DA,1,0)) ^CHMQAQ(DA ,1,0)="^74 1010.7SA^0 ^0"Q1 S DA (1)=DA,(DI C,DLAYGO)= "^CHMQAQ(D A(1),1,",D IC(0)="ML" S:CHMFQUE =5 X=1 S:C HMFQUE=20 X=2 S:CHMF QUE=21 X=3 S:CHMFQUE =22 X=4 S: CHMFQUE=23 X=5 S:CHM FQUE=24 X= 6 S:CHMFQU E=28 X=7 S :CHMFQUE=3 3 X=8 S:CH MFQUE=37 X =9 S:CHMFQ UE=38 X=10 S:CHMFQUE =40 X=11 S :CHMFQUE=3 9 X=12 S:C HMFQUE=44 X=13 ;AEB 12/20/2006 S:CHMFQUE =45 X=14 ; AEB 5/9/20 07 D ^DIC K DIC,DR I (CHMFQUE' =28)&(CHMF QUE'=37)&( CHMFQUE'=3 8)&(CHMFQU E'=39)&(CH MFQUE'=44) D .S CHMQ NAM="CHMQA 1(",CHMIN= "" K CHMOU T D ^CHMIS 041 ;AEB 6 /14/2007 A DDED SNF C LAIMS TO Q AQ P&c I ( CHMFQUE=28 )!(CHMFQUE =37)!(CHMF QUE=38)!(C HMFQUE=40) !(CHMFQUE= 39)!(CHMFQ UE=45) D . D REVCCD^C HTFLIBC(CI ) ;reverse & clear d ed/c.s./ca t cap from claim DEV 021244 JAK 09/03/14 .D CLRPMT^ CHTFLIB2(C I) ;clear payment da ta from cl aim DEV021 244 JAK 09 /03/14 .S CHMQNAM="C HMQA2(",CH MIN="" K C HMOUT D ^C HMIS041 ;A EB 6/14/20 07 ADDED U NIT CHECK CLAIM TO Q AQ CPD S C HMFPP="SQQ A",CHMFI=C I D ^CHMFW K02 D ADDQ A Q ;LDQMC R D MAILME S Q I $D(^ CHNVPAY(CI )) I '$D(^ CHMQAQ("D" ,CI)) D Q .S $P(^CH NVPAY(CI,0 ),"^",2)=1 .S CHMFQU E=38 D LDQ Q Q S CHQI =$O(^CHMCC R("D",CI,0 )) I CHQI' ="" S DA=C HQI,DIE=74 1010.01,DR =".03///^S X=0" D ^D IE K DIE G MCR1LDQMC R1 D NOW^% DTC S CHDT =% I $D(^C HMCCR("B", CHDT)) G L DQMCR1 S ( DIC,DLAYGO )=741010.0 1,DIC(0)=" ML",X=CHDT D ^DIC K DIC G LDQM CR1:$P(Y," ^",3)'=1 S CHMQNAM=" CHMCCR(",C HMIN="" K CHMOUT D ^ CHMIS041 S DA=+Y,DIE =741010.01 ,DR=".02// //^S X=CI; .03///^S X =0" D ^DIE K DIE S:' $D(^CHMCCR (DA,1,0)) ^CHMCCR(DA ,1,0)="^74 1010.02SA^ 0^0"MCR1 S DA(1)=DA, (DIC,DLAYG O)="^CHMCC R(DA(1),1, ",DIC(0)=" ML" S X=4 D ^DIC K D IC S CHMFP P="SQMCCR" ,CHMFI=CI D ^CHMFWK0 2 K DIC,DI E,DA,DR,XL ,CHDIFDED, CHDIFCS Q ;CKRO ;CPT 4418 *CR* 8/4/93 Q: $P(@(GLPAY _"CI,6)"), "^",2)="" Q:'$D(@(GL PAY_"CI,1) ")) Q:$P(@ (GLPAY_"CI ,1)"),"^", 1)="" S RE AS=$P(^CHM DIC(741002 .34,1,2)," ^",13) D R OREAS S CI O=$P(@(GLP AY_"CI,6)" ),"^",2) Q :'$D(@(GLP AY_"CIO,1) ")) Q:$P(@ (GLPAY_"CI O,1)"),"^" ,1)="" I + $P(@(GLPAY _"CI,1)"), "^",1)=0 S REAS=$P(^ CHMDIC(741 002.34,1,2 ),"^",4) D ROREAS E I +$P(@(G LPAY_"CIO, 1)"),"^",1 )>0 S REAS =$P(^CHMDI C(741002.3 4,1,2),"^" ,5) D RORE AS K CIO Q ;CKROEDI ;CPE005-10 0, CPE005- 102 ;Q:$P( @(GLPAY_"C I,6)"),"^" ,2)="" ;Q: '$D(@(GLPA Y_"CI,1)") ) ;BDB 122 92017 Q:$P (@(GLPAY_" CI,1)"),"^ ",1)="" N CPDI S CP DI=$O(@(GL PAY_"CI,"" PDI"",99)" ),-1) Q:'$ D(@(GLPAY_ "CI,""PDI" ",CPDI,0)" )) S CPDI= $P($G(@(GL PAY_"CI,"" PDI"",CPDI ,0)")),"^" ,1) Q:'CPD I Q:(($E(C PDI,8,9)'= "97")&($E( CPDI,8,9)' ="90")) S CIO=$P(@(G LPAY_"CI,6 )"),"^",2) I $D(@(GL PAY_"CI,1) ")) I +$P( @(GLPAY_"C I,1)"),"^" ,1)=0 S RE AS=$P(^CHM DIC(741002 .34,1,2)," ^",4) D RO REAS I $G( CIO),$D(@( GLPAY_"CIO ,1)")) I + $P(@(GLPAY _"CIO,1)") ,"^",1)>0 S REAS=$P( ^CHMDIC(74 1002.34,1, 2),"^",5) D ROREAS S REAS=$P(^ CHMDIC(741 002.34,1,3 ),"^",18) D ROREAS S REAS=$P(^ CHMDIC(741 002.34,1,3 ),"^",19) D ROREAS S REAS=$P(^ CHMDIC(741 002.34,1,3 ),"^",20) D ROREAS ; CPE005-116 BDB 1/12/ 2018 K CIO Q ;ROREAS S:'$D(@(G LPAY_"CI,4 ,0)")) @(G LPAY_"CI,4 ,0)")="^74 1000.701P^ 0^0" S CHM NEXT=$P(@( GLPAY_"CI, 4,0)"),"^" ,3),CHMNEX T=CHMNEXT+ 1,$P(@(GLP AY_"CI,4,0 )"),"^",3) =CHMNEXT S $P(@(GLPA Y_"CI,4,CH MNEXT,0)") ,"^",1)=RE AS S @(GLP AY_"CI,4," "B"",REAS, CHMNEXT)") ="" I CHMN EXT=1 S $P (@(GLPAY_" CI,4,CHMNE XT,0)"),"^ ",2)="OTH" K CHMNEXT ,REAS Q ;A DDQA ;N (C I,DUZ) S C HSS="" I $ D(^CHMIMD( 741020.02, "B","PARAM ETER")) D .S Y=$O(^C HMIMD(7410 20.02,"B", "PARAMETER ",0)) Q:Y= "" .Q:'$D( ^CHMIMD(74 1020.02,Y, 11)) S CHS S=$P(^(11) ,"^",3) Q: CHSS="" .Q :'$D(^VA(2 00,"ZVMS", CHSS)) S C HDUZ=$O(^V A(200,"ZVM S",CHSS,0) ) Q Q:'$D( CHSS) Q:CH SS="" Q:' $D(CI) Q:C I="" S CHP DIJ=0,CHDO CID="",CHM IMFL=1,CHI MMVE=1,CHO PER="CHIMM VE" F S C HPDIJ=$O(@ (GLPAY_"CI ,""PDI"",C HPDIJ)")) Q:'CHPDIJ D .Q:'$D( ^(CHPDIJ,0 )) S CHPDI =$P(^(0)," ^",1) .Q:' $D(^CHMIMG (CHPDI,"DO C")) S CHD OCID=$P(^( "DOC"),"^" ,1) D ADD^ CHMMF K CH SS,Y,CHDUZ ,CHPDIJ,CH DOCID,CHIM FL,CHIMMVE ,CHOPER,CH PDI QMAILM ES S $P(@( GLPAY_"CI, 0)"),"^",2 )=4 S ^UTI LITY($J,"M CCR-OVER-P AY",1,1,0) ="Claim "_ CN_" has c alculated as an over payment." S ^UTILITY ($J,"MCCR- OVER-PAY", 1,2,0)="Pl ease resea rch for po tential re coupment." S XMDUZ=. 5 S XMSUB= "Possible MCCR Recou pment" S X MTEXT="^UT ILITY($J," "MCCR-OVER -PAY"",1," D RECIP S U="^" D ^ XMD QRECIP K XMY S J J=0 F S J J=$O(^CHMD IC(741002. 17,1,80,JJ )) Q:'JJ D .Q:'$D(^ CHMDIC(741 002.17,1,8 0,JJ,0)) . S MMDUZ=$P (^CHMDIC(7 41002.17,1 ,80,JJ,0), "^",1) .S XMY(MMDUZ) ="" Q ;PAI DRVSL(C) ; DEV005311, SKD, 7-23 -08 ;If MM I reversed claim is paid by an other clai m, set the MMI Rever sal Paid F lag to 1 ; so that th e next dup e claim wo n't bypass the dupe check ; Q: $G(C)="" S CLI=C I $ D(^CHMZHOL D("ZRKMRDU PE",CLI)) D .S CHMMI OCL=0,CHMM IOCL=$O(^C HMZHOLD("Z RKMRDUPE", CLI,CHMMIO CL)) .Q:' CHMMIOCL . Q:'$D(^CHM PAY(CHMMIO CL)) .Q:'$ D(^CHMPAY( CHMMIOCL,5 )) .S $P(^ CHMPAY(CHM MIOCL,5),U ,11)=1 Q | |
46 | ||
47 | ||
48 | ||
49 | ||
50 | ||
51 | ||
52 | Remove cod e | |
53 | Routine wi th user st ory 115, 1 16 code re moved | |
54 | ||
55 | CHFBCQ ;HA C/CR;SETS UP QUEUES; 03/09/99 2 :31 PM ;;1 .0;CHAMPVA SYSTEM;;J ULY 4, 199 0; ;CPTS - 10920 (AE B), #11014 BY RLC, 1 3920/JLR ; CPTS 15890 (AEB) ;JS G;06/02/08 ;DEV004754 -02;Add hi gh dollar reason (wi th securit y) for Aud it Support Queue ;DE V004805 1/ 20/2010 AE B ;DEV0100 18-01 YJK 11/26/2010 - Paid Fi le Date Co mpleted In dex ;DEV0 11069 1/5/ 2011 AEB ; Production fix 1/3/1 2 DPT - lo oping on d eleted cla ims ;DEV02 1244 JAK 0 9/03/14 -c learing de d/cat cap/ cost share and payme nt informa tion befor e going to queue ;EN C015863: E DI - CODE 58 stop an d replace - keep cur rent syste m logic BM J 10/22/13 ;CPE005-1 00,102 BDB 12/27/201 7LDQA I $D (@(GLPAY_" CI,""ZEMC" ",""CMOP"" )")) S CHC MPCLI=CI,C HQNAM="AUD IT SUPPORT ",CHQURSN= "ASQ/8" D ^CHMXCPBP I $D(CHCMP FG) K CHCM PFG G LDQE ; ADDED B Y DTP (MAY /1995) FOR CMOP PROJ ECTLDQA1 S DFN=$P(RE C0,"^",21) ,BFN=$P(RE C0,"^",22) D NOW^%DT C S CHDT=% I $D(^CHM ASQ("B",CH DT)) G LDQ A1 S (DIC, DLAYGO)=74 1010.05,DI C(0)="ML", X=CHDT D ^ DIC K DIC G LDQA1:$P (Y,"^",3)' =1 S CHMQN AM="CHMASQ (",CHMIN=" " K CHMOUT D ^CHMIS0 41 S ZJ=$O (@(GLPAY_" CI,""PDI"" ,999)"),-1 ) Q:'ZJ S: $D(@(GLPAY _"CI,""PDI "",ZJ,0)") ) CHMFPDI= $P(^(0),"^ ",1) S DA= +Y,DIE=741 010.05,DR= ".02////^S X=CI;.03/ //^S X=""` ""_DUZ;.04 ///^S X=CH MFPDI;.06/ //^S X=1;. 09////^S X =DFN;.1/// /^S X=BFN" D ^DIE K DIE S:'$D( ^CHMASQ(DA ,1,0)) ^CH MASQ(DA,1, 0)="^74101 0.08SA^0^0 " ;S:CHMFQ UE=2 X=8 S :CHMFQUE=4 X=16 S:CH MFQUE=40 X =17 D REAS ON ;JSG;DE V004754;Se e next lin e S X=$S(C HMFQUE=2:$ S($D(HIDOL LAR):9,1:8 ),CHMFQUE= 4:16,CHMFQ UE=40:17,1 :X) ;JSG;D EV004754;2 =8!9 D REV CCD^CHTFLI BC(CI) ;re verse & cl ear ded/c. s./cat cap from clai m DEV02124 4 JAK 08/2 6/14 D:(CH MFQUE'=2) CLRPMT^CHT FLIB2(CI) ;clear out payment d ata except for HIGH dollar DEV 021244 JAK 08/26/14 D REASON K HIDOLLAR ;JSG;D EV004754;M ake sure h igh $ flag good for only 1 cla im D ADDAS Q K DIC S CHMFPP="SQ AUD",CHMFI =CI D ^CHM FWK02 QADD ASQ ; THE FOLLOWING LINES RETR IEVE THE I MAGE *CR* ;N (CHCLM, DUZ) S CHS S="" I $D( ^CHMIMD(74 1020.02,"B ","PARAMET ER")) D .S Y=$O(^C HMIMD(7410 20.02,"B", "PARAMETER ",0)) Q:Y= "" .Q:'$D( ^CHMIMD(74 1020.02,Y, 11)) S CHS S=$P(^(11) ,"^",4) .Q :CHSS="" Q:'$D(^VA( 200,"ZVMS" ,CHSS)) .S CHDUZ=$O( ^VA(200,"Z VMS",CHSS, 0)) Q Q:'$ D(CHSS) Q: CHSS="" Q :'$D(CI) Q :CI="" S C HPDIJ=0,CH DOCID="",C HMIMFL=1,C HIMMVE=1,C HOPER="CHI MMVE" F S CHPDIJ=$O (@(GLPAY_" CI,""PDI"" ,CHPDIJ)") ) Q:'CHPDI J D .Q: '$D(^(CHPD IJ,0)) S C HPDI=$P(^( 0),"^",1) .Q:'$D(^CH MIMG(CHPDI ,"DOC")) S CHDOCID=$ P(^("DOC") ,"^",1) D ADD^CHMMF K CHSS,Y,C HDUZ,CHPDI J,CHDOCID, CHIMFL,CHI MMVE,CHOPE R,CHPDI Q ;REASON S DA(1)=DA,( DIC,DLAYGO )="^CHMASQ (DA(1),1," ,DIC(0)="M L" D ^DIC K DIC Q ;L DQB I $D(@ (GLPAY_"CI ,""ZEMC"", ""CMOP"")" )) S CHCMP CLI=CI,CHQ NAM="CAPPS ",CHQURSN= "EOB/10" D ^CHMXCPBP I $D(CHCM PFG) K CHC MPFG Q ; ADDED BY D TP (MAY/19 95) FOR CM OP PROJECT S CHINHCL =CI D ^CHM G281 I $D( CHIHFLG) K CHIHFLG Q ;LDQB2 S: '$D(CHPGPT ) CHPGPT=$ P(^CHMINDE X(CI,0),U, 1) I CHPGP T=5 S CLMP T=CI D S2^ CHFBCQ1 Q I (CHPGPT= 6)!(CHPGPT =7) S REAS =$P(^CHMDI C(741002.3 4,1,3),"^" ,15) D ROR EAS I CHPG PT<3 S REA S=319 D RO REAS S REA S=322 D RO REAS I (+$ P(@(GLPAY_ "CI,1)")," ^",1)=0)!( (+$P(@(GLP AY_"CI,1)" ),"^",14)= 0)&(+$P(@( GLPAY_"CI, 1)"),"^",1 5)=0)) S C HMFQUE=1,$ P(@(GLPAY_ "CI,0)")," ^",11)=0,$ P(@(GLPAY_ "CI,0)")," ^",12)=0 G LDQE I $P (@(GLPAY_" CI,0)"),"^ ",5)'=1 S CHOUT="741 008.05",CH END="01P" D Q .S $P (@(GLPAY_" CI,0)"),"^ ",12)=0,$P (@(GLPAY_" CI,0)"),"^ ",11)=1 D SSNAQ Q I ($P(@(GLPA Y_"CI,0)") ,"^",5)=1) &(+$P(@(GL PAY_"CI,1) "),"^",14) =0) D Q . S CHOUT="7 41008.05", CHEND="01P ",$P(@(GLP AY_"CI,0)" ),"^",12)= 0 .S $P(@( GLPAY_"CI, 0)"),"^",1 1)=1 D SSN AQ Q I ($P (@(GLPAY_" CI,0)"),"^ ",5)=1)&(+ $P(@(GLPAY _"CI,1)"), "^",15)=0) D Q .S C HOUT="7410 08.03",CHE ND="01PA", $P(@(GLPAY _"CI,0)"), "^",12)=1 .S $P(@(GL PAY_"CI,0) "),"^",11) =0 D SSNAQ Q I ($P(@ (GLPAY_"CI ,0)"),"^", 5)=1)&(+$P (@(GLPAY_" CI,1)"),"^ ",14)'=0)& ($P(@(GLPA Y_"CI,1)") ,"^",15)'= 0) D Q .S CHOUT="74 1008.05",C HEND="01P" ,$P(@(GLPA Y_"CI,0)") ,"^",12)=1 .S $P(@(G LPAY_"CI,0 )"),"^",11 )=1 D SSNA Q S CHOUT= "741008.03 ",CHEND="0 1PA" D SSN AQ QSSNAQ I ($D(^CHM SNA(CHOUT, "C",CI)))! ($D(^CHMSN A(CHOUT,"A RCHIVE",CI ))) D ^CHM FBCCR Q:CH REJ I $P(@ (GLPAY_"CI ,0)"),"^", 2)=10 Q ;P ROD 1/3/12 DPT L ^CH MSNA(CHOUT ) S CHMBTC H=$P(^CHMS NA(CHOUT,0 ),"^",3) I CHOUT="74 1008.05" S :$D(@(GLPA Y_"CI,1)") ) $P(^CHMS NA(CHOUT,C HMBTCH,0), "^",6)=$P( ^CHMSNA(CH OUT,CHMBTC H,0),"^",6 )+$P(@(GLP AY_"CI,1)" ),"^",15) I CHOUT="7 41008.03" S:$D(@(GLP AY_"CI,1)" )) $P(^CHM SNA(CHOUT, CHMBTCH,0) ,"^",6)=$P (^CHMSNA(C HOUT,CHMBT CH,0),"^", 6)+$P(@(GL PAY_"CI,1) "),"^",14) S:'$D(^CH MSNA(CHOUT ,CHMBTCH,1 ,0)) ^CHMS NA(CHOUT,C HMBTCH,1,0 )="^"_CHOU T_CHEND_"^ 0^0" S DA( 1)=CHMBTCH ,DLAYGO=CH OUT S DIC= "^CHMSNA(" _CHOUT_"," _DA(1)_",1 ,",X=CN,DI C(0)="ML" D ^DIC K D IC,DLAYGO L G:$P(Y," ^",3)'=1 S SNAQ I $D( CHRSUB) D .Q:'CHRSUB .S I=0, I=$O(^CHMS NA(741008. 03,"C",CI, I)) Q:'I S J=0 .S J =$O(^CHMSN A(741008.0 3,"C",CI,I ,J)) Q:'J .;S ^CHMSN A(741008.0 5,DA(1),1, +Y,10)="1^ "_I_"^"_J .;S ^CHMSN A(741008.0 3,I,1,J,10 )="1^"_DA( 1)_"^"_+Y K CHRSUB Q ;D NOW^%D TC S CHDT= %,$P(@(GLP AY_"CI,0)" ),"^",10)= CHDT,$P(@( GLPAY_"CI, 0)"),"^",2 )=2 ;DEV01 0018-01 YJ K 11/26/20 10 REPLACE D WITH DIE CALL: D N OW^%DTC S CHDT=% S D A=CI S DIE =741000, D R=".02///^ S X=2;.1// /^S X=CHDT " D ^DIE K DIE ;DEV0 10018-01 Y JK 11/26/2 010 D PAID RVSL(CI) ; DEV005311, SKD, 7-23 -08 S:CHOU T="741008. 05" CHMFPP ="SQCALO" S:CHOUT="7 41008.03" CHMFPP="SQ CAPO" S CH MFI=CI D ^ CHMFWK02 S CHMQNAM=" CHMSNA("_C HOUT_",",C HMIN="" K CHMOUT D ^ CHMIS041 Q ;LDQE I $ D(^CHNVPAY (CI)) I '$ D(^CHMQAQ( "D",CI)) D Q .S $P( ^CHNVPAY(C I,0),"^",2 )=1 .S CHM FQUE=38 D LDQQ Q I $ D(@(GLPAY_ "CI,""ZEMC "",""CMOP" ")")) S CH CMPCLI=CI, CHQNAM="EO B" D D ^C HMXCPBP I $D(CHCMPFG ) K CHCMPF G Q ; ADD ED BY DTP (MAY/1995) FOR CMOP PROJECT .S :'$D(CHQUR SN) CHQURS N=$S(CHMFQ UE=1:"EOB/ 2",CHMFQUE =12:"EOB/3 ",CHMFQUE= 13:"EOB/4" ,CHMFQUE=1 5:"EOB/6", CHMFQUE=17 :"EOB/5",C HMFQUE=25: "EOB/12",C HMFQUE=32: "EOB/6",CH MFQUE=35:" EOB/3",1:" EOB/10") . I (CHMFQUE =12)!(CHMF QUE=13)!(C HMFQUE=15) !(CHMFQUE= 16)!(CHMFQ UE=25)!(CH MFQUE=32)! (CHMFQUE=3 5) S CHRJF G="" S CHI NHCL=CI D ^CHMG280 I $D(CHIHFL G) K CHIHF LG QLDQEE1 ;LDQEE11 ;ALL OF TH IS WAS COM MENTED OFF IN CHMFBC QLDQEE2 I $D(@(GLPAY _"CI,6)")) D CKRO I $D(@(GLPAY _"CI,6)")) D CKROEDI ;BDB 12/2 7/2017 I $ D(CHMFRQUE ) S CHRSN= "REB" G LD QE1 S CHRS N=$S(CHMFQ UE=1:"ZE", CHMFQUE=12 :"DX",CHMF QUE=13:"CH ",CHMFQUE= 17:"AS",CH MFQUE=25:" QA",CHMFQU E=29:"OTH" ,CHMFQUE=3 0:"OTH",CH MFQUE=99:" PAY",CHMFQ UE=35:"DRG ",1:"OTH") LDQE1 I $D (@(GLPAY_" CI,""ZEMC" ",""CMOP"" )")) S CHC MPCLI=CI,C HQNAM="EOB " D D ^CH MXCPBP I $ D(CHCMPFG) K CHCMPFG Q ; ADDE D BY DTP ( MAY/1995) FOR CMOP P ROJECT .S: '$D(CHQURS N) CHQURSN =$S(CHMFQU E=1:"EOB/2 ",CHMFQUE= 12:"EOB/3" ,CHMFQUE=1 3:"EOB/4", CHMFQUE=15 :"EOB/6",C HMFQUE=17: "EOB/5",CH MFQUE=25:" EOB/12",CH MFQUE=32:" EOB/6",CHM FQUE=35:"E OB/3",1:"E OB/10") .I (CHMFQUE= 12)!(CHMFQ UE=13)!(CH MFQUE=15)! (CHMFQUE=1 6)!(CHMFQU E=25)!(CHM FQUE=32)!( CHMFQUE=35 ) S CHRJFG ="" D NOW^ %DTC S CHD T=% I $D(^ CHMEOBQ("B ",CHDT)) G LDQE1 S C HRES="" I $D(@(GLPAY _"CI,0)")) ,($P(@(GLP AY_"CI,0)" ),"^",13)' ="") S CHR ES=CHRES_" : "_$P(@(G LPAY_"CI,0 )"),"^",13 ) G LDQE2 G:$D(CHMFR QUE) LDQE2 S:CHMFQUE =12 CHRES= CHRES_": " _$P(^CHMDI C(741002.3 4,1,2),"^" ,7) S:CHMF QUE=13 CHR ES=CHRES_" : "_$P(^CH MDIC(74100 2.34,1,2), "^",3) S:C HMFQUE=35 CHRES=CHRE S_": "_$P( ^CHMDIC(74 1002.34,1, 3),"^",8)L DQE2 S X1= CI D PROGT YP^CHFCD00 1 S DLAYGO =+$P(@(GLE OB_"0)")," ^",2) S DI C=GLEOB,DI C(0)="ML", X=CHDT D ^ DIC K DIC G LDQE1:$P (Y,"^",3)' =1 S DA=+Y ,DIE=GLEOB ,DR=".02// //^S X=CI; .03///^S X =0;.04///^ S X=CHRSN; .06///^S X =CHRES" D ^DIE K DIE I $D(@(GL PAY_"CI,"" ZEMC"")")) S CHMQNAM ="CHMEDIQ( ",CHMOUT=" " K CHMIN D ^CHMIS04 1 D NOW^%D TC S CHDT= % S DA=CI S DIE=7410 00, DR=".1 ///^S X=CH DT" D ^DIE K DIE ;DE V010018-01 YJK 11/26 /2010 I (C HRSN="ZE") !(CHRSN="O TH")!(CHRS N="PAY") S $P(@(GLPA Y_"CI,0)") ,"^",2)=4 D PAIDRVSL (CI) ;DEV0 05311, SKD , 7-23-08 S:(CHRSN=" DX")!(CHRS N="CH")!(C HRSN="AS") !(CHRSN="Q A")!(CHRSN ="DRG")!(C HRSN="REB" ) $P(@(GLP AY_"CI,0)" ),"^",2)=0 S CHMFPP= "SQEOB",CH MFI=CI D ^ CHMFWK02 K CHRES S C HMQNAM="CH MEOBQ(",CH MIN="" K C HMOUT D ^C HMIS041 Q ;LDQM I $D (@(GLPAY_" CI,""ZEMC" ",""CMOP"" )")) S CHC MPCLI=CI,C HQNAM="MIS SING DATA" D ^CHMXCP BP I $D(CH CMPFG) K C HCMPFG G L DQE ; ADDE D BY DTP ( MAY/1995) FOR CMOP P ROJECT S ( CHQI,CHEX) =0 F S CH QI=$O(^CHM MDQ("C",CI ,CHQI)) Q: 'CHQI I $ D(^CHMMDQ( CHQI,0)) S :$P(^CHMMD Q(CHQI,0), "^",3)'=2 CHEX=1 Q:C HEX=1 S (C HREJFLG,CH QI)=0 F S CHQI=$O(^ CHMMDQ("C" ,CI,CHQI)) Q:'CHQI I $D(^CHMM DQ(CHQI,0) ) I $P(^CH MMDQ(CHQI, 0),"^",3)= 2 I $P(^CH MMDQ(CHQI, 0),"^",6)= 2 S CHREJF LG=1 ;AEB 1/20/2010 DEV004805 REJ CLAIM IF ALREADY IN mdq FO R POA AEB 1/5/2011 D EV011069 ; I CHREJFLG =1 S CHREJ =CI,CHGRP= "OTH",REAS =58 D ^CHM FREJ G LDQ E ;AEB 1/2 0/2010 DEV 004805 REJ CLAIM IF ALREADY IN mdq FOR P OA I CHREJ FLG=1 S CH REJ=CI,CHG RP="OTH",R EAS=400 D ^CHMFREJ G LDQE ;E NC015863: EDI - CODE 58 stop a nd replace - keep cu rrent syst em logic B MJ 04/14/1 5 S (CHRE JFLG,CHQI) =0 F S CH QI=$O(^CHM MDQ("C",CI ,CHQI)) Q: 'CHQI I $ D(^CHMMDQ( CHQI,0)) I $P(^CHMMD Q(CHQI,0), "^",3)=2 I $P(^CHMMD Q(CHQI,0), "^",6)=8 S CHREJFLG= 1 ;AEB 1/2 0/2010 DEV 004805 REJ CLAIM IF ALREADY IN mdq FOR P OA AEB 1/5 /2011 DEV0 11069 I CH REJFLG=1 S CHREJ=CI, CHGRP="OTH ",REAS=373 D ^CHMFRE J G LDQE ;AEB 1/20/ 2010 DEV00 4805 REJ C LAIM IF AL READY IN m dq FOR POA S CHMMDR= $S((CHMFQU E=6)&('$D( @(GLPAY_"C I,""ADD"") "))):0,CHM FQUE=18:0, CHMFQUE=7: 1,CHMFQUE= 10:2,CHMFQ UE=11:3,(C HMFQUE=6)& ($D(@(GLPA Y_"CI,""AD D"")"))):4 ,1:5) I $P (^CHMPAY(C I,"COMMON" ),"^",9)=5 S CHMMDR= 8,CHMMDP=" POA IS MIS SING OR IN VALID"LDQM 1 D NOW^%D TC S CHDT= % I $D(^CH MMDQ("B",C HDT)) G LD QM1 S (DIC ,DLAYGO)=7 41010.11,D IC(0)="ML" ,X=CHDT D ^DIC K DIC G LDQM1:$ P(Y,"^",3) '=1 I '$D( CI) S DA=+ Y,DIE=7410 10.11,DR=" .03///^S X =0;.06///^ S X=CHMMDR ;.07///^S X=CHMMDP" D ^DIE K D IE,DR Q S DA=+Y,DIE= 741010.11, DR=".02/// /^S X=CI;. 03///^S X= 0;.06///^S X=CHMMDR; .07///^S X =CHMMDP" D ^DIE K DI E,DR D REV CCD^CHTFLI BC(CI) ;re verse & cl ear ded/c. s./cat cap from clai m DEV02124 4 JAK 09/0 3/14 D CLR PMT^CHTFLI B2(CI) ;cl ear paymen t data fro m claim DE V021244 JA K 09/03/14 S CHMFPP= "SQMSD",CH MFI=CI D ^ CHMFWK02 S CHMQNAM=" CHMMDQ(",C HMIN="" K CHMOUT D ^ CHMIS041 Q ; ;skd, 1 -25-06 to redirect f rom MDQ to VQ per ID ME project ;ADD A NE W ENTRY TO VQLDQV ;A DD A NEW E NTRY TO VQ D NOW^%DT C S X=% S DIC(0)="LM " S (DIC,D LAYGO)=741 050.01 D ^ DIC I $P(Y ,U,3)'=1 G LDQV S CH I=+Y D GVD TA S STATU S=0,DA=CHI ,DIE=74105 0.01 S DR= ".02///^S X=PV(5);.0 3///^S X=S TATUS;.09/ //^S X=CHM MDP;.11/// ^S X=0;1.0 1///^S X=P V(4)" D ^D IE K DIE,D R D SETVDT A,STKCLM D REVCCD^CH TFLIBC(CI) ;reverse & clear de d/c.s./cat cap from claim DEV0 21244 JAK 09/03/14 D CLRPMT^CH TFLIB2(CI) ;clear pa yment data from clai m DEV02124 4 JAK 09/0 3/14 S CHM FPP="SQVEN ",CHMFI=CI D ^CHMFWK 02 S CHMQN AM="CHMQVN (",CHMIN=" " K CHMOUT D ^CHMIS0 41 Q ;GVDT A ;GET DAT A FROM VEN DOR FILE S (REC0,REC 1)="" S VF N=CHVX ; =VI ;SKD, 2-21-06 S REC0=$G(^C HMVEN(VFN, 0)) S REC1 =$G(^CHMVE N(VFN,1)) F R=1:1:21 S PV(R)=" " S PV(1)= $G(VFN) ; VENDOR POI NTER S PV( 2)=$P(REC0 ,U,14) ; V ENDORIZATI ON POINTER S PV(3)=" " ; VENDOR IZATION ST RING S PV( 4)=$P(REC0 ,U,1) ; VE NDOR NAME S PV(5)=$P (REC0,U,3) ; VENDOR TAX ID S P V(6)=$P(RE C0,U,7) ; SSN S PV(7 )=$P(REC1, U,1) ; ADD R1 S PV(8) =$P(REC1,U ,2) ; ADDR 2 S PV(9)= $P(REC1,U, 3) ; CITY S PV(10)=$ P(REC1,U,4 ) ; STATE S PV(11)=$ P(REC1,U,5 ) ; ZIP S PV(12)=$P( REC1,U,7) ; FACILITY TYPE S PV (13)=$P(RE C1,U,13) ; CLASSIF. TYPE S PV( 14)=$P(REC 1,U,11) ; SPECIALTY S PV(15)=$ P(REC1,U,6 ) ; PHONE S PV(16)=$ P(REC1,U,9 ) ; AUSTIN VERIFY S PV(17)=$P( REC0,U,19) ; DISCRET E PSYCH S PV(18)=$P( REC0,U,21) ; DISCRET E REHAB S PV(19)=$P( REC0,U,22) ; DISCRET E RTC S PV (20)=$P(RE C1,U,8) ; NON-PPS I $D(^CHMVEN (VFN,40)) S PV(21)=$ P(^CHMVEN( VFN,40),U, 1) ; CMAC Q ;SETVDTA ;SET DATA FROM VEND OR FILE IN TO VQ WORK FILE S $P (^CHMQVN(C HI,1),U,1) =PV(4) S $ P(^CHMQVN( CHI,1),U,2 )=PV(5) S $P(^CHMQVN (CHI,1),U, 3)=PV(6) S $P(^CHMQV N(CHI,1),U ,4)=PV(7) S $P(^CHMQ VN(CHI,1), U,5)=PV(8) S $P(^CHM QVN(CHI,1) ,U,6)=PV(9 ) S $P(^CH MQVN(CHI,1 ),U,7)=PV( 10) S $P(^ CHMQVN(CHI ,1),U,8)=P V(11) S $P (^CHMQVN(C HI,1),U,09 )=PV(15) S $P(^CHMQV N(CHI,1),U ,10)=PV(12 ) S $P(^CH MQVN(CHI,1 ),U,11)=PV (13) S $P( ^CHMQVN(CH I,1),U,12) =PV(14) S $P(^CHMQVN (CHI,1),U, 13)=PV(16) I PV(17)= "" S $P(^C HMQVN(CHI, 1),U,15)=0 E S $P(^ CHMQVN(CHI ,1),U,15)= PV(17) I P V(18)="" S $P(^CHMQV N(CHI,1),U ,16)=0 E S $P(^CHMQ VN(CHI,1), U,16)=PV(1 8) I PV(19 )="" S $P( ^CHMQVN(CH I,1),U,17) =0 E S $P (^CHMQVN(C HI,1),U,17 )=PV(19) I PV(20)="" S $P(^CHM QVN(CHI,1) ,U,18)=0 E S $P(^CH MQVN(CHI,1 ),U,18)=PV (20) I PV( 21)="" S $ P(^CHMQVN( CHI,1),U,1 9)=3 E S $P(^CHMQVN (CHI,1),U, 19)=PV(21) Q ;STKCLM ;SET CLAI M INTO THE VENDOR QU EUE Q:CHI= "" Q:'$G( CI) I '$D( ^CHMQVN(CH I,10,0)) S ^CHMQVN(C HI,10,0)=" ^741050.02 ^0^0" S X= $P(^CHMPAY (CI,0),"^" ,1) S DA(1 )=CHI S DI C="^CHMQVN ("_DA(1)_" ,10," S DI C(0)="LM" S DLAYGO=7 41050.02 D ^DIC I $P (Y,U,3)'=1 G STKCLM S DA=+Y D NOW^%DTC S CHDTTM=% S (CHI3,CH J3)="" S D A(1)=CHI S DIE="^CHM QVN("_DA(1 )_",10,",C HI3=DA(1), CHJ3=DA S DR=".02/// ^S X=CHDTT M;.06///^S X=0;.07// /^S X=CHMM DP" D ^DIE Q ;LDQQ I $D(@(GLPA Y_"CI,""ZE MC"",""CMO P"")")) S CHCMPCLI=C I,CHQNAM=" QUALITY AS SURANCE" D D ^CHMXC PBP I $D(C HCMPFG) K CHCMPFG G LDQE ; ADD ED BY DTP (MAY/1995) FOR CMOP PROJECT .S CHQURSN=$ S(CHMFQUE= 5:"QAQ/1", CHMFQUE=20 :"QAQ/2",C HMFQUE=21: "QAQ/3",CH MFQUE=22:" QAQ/4",CHM FQUE=23:"Q AQ/5",CHMF QUE=24:"QA Q/6",CHMFQ UE=28:"QAQ /7",CHMFQU E=33:"QAQ/ 8",1:"") S CHQI=$O(^ CHMQAQ("D" ,CI,0))LDQ Q1 S CHMFP DI="" D:$D (@(GLPAY_" CI,""PDI"" )")) .S X= $O(@(GLPAY _"CI,""PDI "",999)"), -1) Q:'X Q:'$D(^(X, 0)) .S CHM FPDI=$P(^( 0),"^",1) Q D NOW^%D TC S CHDT= % I $D(^CH MQAQ("B",C HDT)) G LD QQ1 S (DIC ,DLAYGO)=7 41010.07,D IC(0)="ML" ,X=CHDT D ^DIC K DIC G LDQQ1:$ P(Y,"^",3) '=1 S DA=+ Y,DIE=7410 10.07,DR=" .02////^S X=CI;.03// /^S X=1;.0 4///^S X=" "`""_DUZ;. 15///^S X= CHMFPDI;1/ //^S X=CHM FPDI" D ^D IE K DIE S :CHMFPDI'= "" ^CHMQAQ ("G",1,CHM FPDI,DA)=" " S:'$D(^C HMQAQ(DA,1 ,0)) ^CHMQ AQ(DA,1,0) ="^741010. 7SA^0^0"Q1 S DA(1)=D A,(DIC,DLA YGO)="^CHM QAQ(DA(1), 1,",DIC(0) ="ML" S:CH MFQUE=5 X= 1 S:CHMFQU E=20 X=2 S :CHMFQUE=2 1 X=3 S:CH MFQUE=22 X =4 S:CHMFQ UE=23 X=5 S:CHMFQUE= 24 X=6 S:C HMFQUE=28 X=7 S:CHMF QUE=33 X=8 S:CHMFQUE =37 X=9 S: CHMFQUE=38 X=10 S:CH MFQUE=40 X =11 S:CHMF QUE=39 X=1 2 S:CHMFQU E=44 X=13 ;AEB 12/20 /2006 S:CH MFQUE=45 X =14 ;AEB 5 /9/2007 D ^DIC K DIC ,DR I (CHM FQUE'=28)& (CHMFQUE'= 37)&(CHMFQ UE'=38)&(C HMFQUE'=39 )&(CHMFQUE '=44) D .S CHMQNAM=" CHMQA1(",C HMIN="" K CHMOUT D ^ CHMIS041 ; AEB 6/14/2 007 ADDED SNF CLAIMS TO QAQ P& c I (CHMFQ UE=28)!(CH MFQUE=37)! (CHMFQUE=3 8)!(CHMFQU E=40)!(CHM FQUE=39)!( CHMFQUE=45 ) D .D REV CCD^CHTFLI BC(CI) ;re verse & cl ear ded/c. s./cat cap from clai m DEV02124 4 JAK 09/0 3/14 .D CL RPMT^CHTFL IB2(CI) ;c lear payme nt data fr om claim D EV021244 J AK 09/03/1 4 .S CHMQN AM="CHMQA2 (",CHMIN=" " K CHMOUT D ^CHMIS0 41 ;AEB 6/ 14/2007 AD DED UNIT C HECK CLAIM TO QAQ CP D S CHMFPP ="SQQA",CH MFI=CI D ^ CHMFWK02 D ADDQA Q ; LDQMCR D M AILMES Q I $D(^CHNVP AY(CI)) I '$D(^CHMQA Q("D",CI)) D Q .S $ P(^CHNVPAY (CI,0),"^" ,2)=1 .S C HMFQUE=38 D LDQQ Q S CHQI=$O(^ CHMCCR("D" ,CI,0)) I CHQI'="" S DA=CHQI,D IE=741010. 01,DR=".03 ///^S X=0" D ^DIE K DIE G MCR1 LDQMCR1 D NOW^%DTC S CHDT=% I $D(^CHMCCR ("B",CHDT) ) G LDQMCR 1 S (DIC,D LAYGO)=741 010.01,DIC (0)="ML",X =CHDT D ^D IC K DIC G LDQMCR1:$ P(Y,"^",3) '=1 S CHMQ NAM="CHMCC R(",CHMIN= "" K CHMOU T D ^CHMIS 041 S DA=+ Y,DIE=7410 10.01,DR=" .02////^S X=CI;.03// /^S X=0" D ^DIE K DI E S:'$D(^C HMCCR(DA,1 ,0)) ^CHMC CR(DA,1,0) ="^741010. 02SA^0^0"M CR1 S DA(1 )=DA,(DIC, DLAYGO)="^ CHMCCR(DA( 1),1,",DIC (0)="ML" S X=4 D ^DI C K DIC S CHMFPP="SQ MCCR",CHMF I=CI D ^CH MFWK02 K D IC,DIE,DA, DR,XL,CHDI FDED,CHDIF CS Q ;CKRO ;CPT 4418 *CR* 8/4/ 93 Q:$P(@( GLPAY_"CI, 6)"),"^",2 )="" Q:'$D (@(GLPAY_" CI,1)")) Q :$P(@(GLPA Y_"CI,1)") ,"^",1)="" S REAS=$P (^CHMDIC(7 41002.34,1 ,2),"^",13 ) D ROREAS S CIO=$P( @(GLPAY_"C I,6)"),"^" ,2) Q:'$D( @(GLPAY_"C IO,1)")) Q :$P(@(GLPA Y_"CIO,1)" ),"^",1)=" " I +$P(@( GLPAY_"CI, 1)"),"^",1 )=0 S REAS =$P(^CHMDI C(741002.3 4,1,2),"^" ,4) D RORE AS E I +$ P(@(GLPAY_ "CIO,1)"), "^",1)>0 S REAS=$P(^ CHMDIC(741 002.34,1,2 ),"^",5) D ROREAS K CIO Q ;CKR OEDI ;CPE0 05-100, CP E005-102 ; Q:$P(@(GLP AY_"CI,6)" ),"^",2)=" " ;Q:'$D(@ (GLPAY_"CI ,1)")) ;BD B 12292017 Q:$P(@(GL PAY_"CI,1) "),"^",1)= "" N CPDI S CPDI=$O (@(GLPAY_" CI,""PDI"" ,99)"),-1) Q:'$D(@(G LPAY_"CI," "PDI"",CPD I,0)")) S CPDI=$P($G (@(GLPAY_" CI,""PDI"" ,CPDI,0)") ),"^",1) Q :'CPDI Q:( ($E(CPDI,8 ,9)'="97") &($E(CPDI, 8,9)'="90" )) S CIO=$ P(@(GLPAY_ "CI,6)")," ^",2) I $D (@(GLPAY_" CI,1)")) I +$P(@(GLP AY_"CI,1)" ),"^",1)=0 S REAS=$P (^CHMDIC(7 41002.34,1 ,2),"^",4) D ROREAS I $G(CIO), $D(@(GLPAY _"CIO,1)") ) I +$P(@( GLPAY_"CIO ,1)"),"^", 1)>0 S REA S=$P(^CHMD IC(741002. 34,1,2),"^ ",5) D ROR EAS S REAS =$P(^CHMDI C(741002.3 4,1,3),"^" ,18) D ROR EAS S REAS =$P(^CHMDI C(741002.3 4,1,3),"^" ,19) D ROR EAS K CIO Q ;ROREAS S:'$D(@(GL PAY_"CI,4, 0)")) @(GL PAY_"CI,4, 0)")="^741 000.701P^0 ^0" S CHMN EXT=$P(@(G LPAY_"CI,4 ,0)"),"^", 3),CHMNEXT =CHMNEXT+1 ,$P(@(GLPA Y_"CI,4,0) "),"^",3)= CHMNEXT S $P(@(GLPAY _"CI,4,CHM NEXT,0)"), "^",1)=REA S S @(GLPA Y_"CI,4,"" B"",REAS,C HMNEXT)")= "" I CHMNE XT=1 S $P( @(GLPAY_"C I,4,CHMNEX T,0)"),"^" ,2)="OTH" K CHMNEXT, REAS Q ;AD DQA ;N (CI ,DUZ) S CH SS="" I $D (^CHMIMD(7 41020.02," B","PARAME TER")) D . S Y=$O(^CH MIMD(74102 0.02,"B"," PARAMETER" ,0)) Q:Y=" " .Q:'$D(^ CHMIMD(741 020.02,Y,1 1)) S CHSS =$P(^(11), "^",3) Q:C HSS="" .Q: '$D(^VA(20 0,"ZVMS",C HSS)) S CH DUZ=$O(^VA (200,"ZVMS ",CHSS,0)) Q Q:'$D(C HSS) Q:CHS S="" Q:'$ D(CI) Q:CI ="" S CHPD IJ=0,CHDOC ID="",CHMI MFL=1,CHIM MVE=1,CHOP ER="CHIMMV E" F S CH PDIJ=$O(@( GLPAY_"CI, ""PDI"",CH PDIJ)")) Q :'CHPDIJ D .Q:'$D(^ (CHPDIJ,0) ) S CHPDI= $P(^(0),"^ ",1) .Q:'$ D(^CHMIMG( CHPDI,"DOC ")) S CHDO CID=$P(^(" DOC"),"^", 1) D ADD^C HMMF K CHS S,Y,CHDUZ, CHPDIJ,CHD OCID,CHIMF L,CHIMMVE, CHOPER,CHP DI QMAILME S S $P(@(G LPAY_"CI,0 )"),"^",2) =4 S ^UTIL ITY($J,"MC CR-OVER-PA Y",1,1,0)= "Claim "_C N_" has ca lculated a s an overp ayment." S ^UTILITY( $J,"MCCR-O VER-PAY",1 ,2,0)="Ple ase resear ch for pot ential rec oupment." S XMDUZ=.5 S XMSUB=" Possible M CCR Recoup ment" S XM TEXT="^UTI LITY($J,"" MCCR-OVER- PAY"",1," D RECIP S U="^" D ^X MD QRECIP K XMY S JJ =0 F S JJ =$O(^CHMDI C(741002.1 7,1,80,JJ) ) Q:'JJ D .Q:'$D(^C HMDIC(7410 02.17,1,80 ,JJ,0)) .S MMDUZ=$P( ^CHMDIC(74 1002.17,1, 80,JJ,0)," ^",1) .S X MY(MMDUZ)= "" Q ;PAID RVSL(C) ;D EV005311, SKD, 7-23- 08 ;If MMI reversed claim is p aid by ano ther claim , set the MMI Revers al Paid Fl ag to 1 ;s o that the next dupe claim won 't bypass the dupe c heck ; Q:$ G(C)="" S CLI=C I $D (^CHMZHOLD ("ZRKMRDUP E",CLI)) D .S CHMMIO CL=0,CHMMI OCL=$O(^CH MZHOLD("ZR KMRDUPE",C LI,CHMMIOC L)) .Q:'C HMMIOCL .Q :'$D(^CHMP AY(CHMMIOC L)) .Q:'$D (^CHMPAY(C HMMIOCL,5) ) .S $P(^C HMPAY(CHMM IOCL,5),U, 11)=1 Q | |
56 | ||
57 | ||
58 | ||
59 | REMOVE 407 FROM FIL E #741002 .34 ^CH MDIC(74100 2.34 | |
60 | ||
61 | CHAMPVA RE ASON CROSS REFERENCE List JAN 26, 2018@08:3 5 PAGE 1 | |
62 | CLAI M(S) | |
63 | SKIP T HIS REVE RSAL | |
64 | NUMBER FIELD NOTI FICATION | |
65 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
66 | ||
67 | 1 LINE1 40 7 | |
68 | ||
69 | ||
70 | STANDARD D ATA DICTIO NARY #7410 02.34 -- C HAMPVA REA SON CROSS REFERENCE FILE 1/2 6/18 PA GE 1 | |
71 | STORED IN ^CHMDIC(74 1002.34, (1 ENTRY) SITE:
|
|
72 | ||
73 | DATA NAME GLOB AL DATA | |
74 | ELEMENT TITLE LOCA TION TYPE | |
75 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
76 | ||
77 | 741002.34, 3.2 CLAIM( S) REVERSA L NOTIFICA TION 3;20 POINTER TO CHAMPVA S TATUS REA | |
78 | SON DICT IONARY FIL E (#741002 .22) | |
79 | ||
80 | LAST E DITED: JAN 11, 2018 | |
81 | DESCRI PTION: This rev ersal is d ue to a re submission /change | |
82 | to the c laim by th e provider . | |
83 | ||
84 | ||
85 | ||
86 | FILE S POINTED TO FIELDS | |
87 | ||
88 | CHAMPVA ST ATUS REASO N DICTIONA | |
89 | ( #741002.22 ) CLAIM( S) REVERSA L NOTIFICA TION (#3.2 ) | |
90 | ||
91 | ||
92 | ||
93 | DELETE DAT A IN 3.2 | |
94 | ||
95 | Select OPT ION: EN TER OR EDI T FILE ENT RIES | |
96 | ||
97 | ||
98 | ||
99 | Input to w hat File: CHAMPVA RE ASON CROSS REFERENCE // (1 en try) | |
100 | EDIT WHICH FIELD: AL L// 3.2 C LAIM(S) RE VERSAL NOT IFICATION | |
101 | THEN EDIT FIELD: | |
102 | ||
103 | ||
104 | Select CHA MPVA REASO N CROSS RE FERENCE SK IP THIS FI ELD: LINE1 | |
105 | CLAIM(S) R EVERSAL NO TIFICATION : 407// @ | |
106 | SURE YO U WANT TO DELETE? Y (Yes) | |
107 | ||
108 | ||
109 | Select CHA MPVA REASO N CROSS RE FERENCE SK IP THIS FI ELD: | |
110 | ||
111 | ||
112 | ||
113 | DELETE CLA IM(S) REVE RSAL NOTIF ICATION | |
114 | ||
115 | Select OPT ION: MODIF Y FILE ATT RIBUTES | |
116 | Do you wan t to use t he screen- mode versi on? YES// NO | |
117 | ||
118 | Modify wha t File: CH AMPVA REAS ON CROSS R EFERENCE// (1 entr y) | |
119 | ||
120 | ||
121 | ||
122 | Select FIE LD: CLA IM(S) REVE RSAL NOTIF ICATION | |
123 | LABEL: CLA IM(S) REVE RSAL NOTIF ICATION R eplace @ | |
124 | SURE YO U WANT TO DELETE THE ENTIRE 'C LAIM(S) RE VERSAL NOT IFICATION' FIELD? Y (Yes) | |
125 | ||
126 | ||
127 | OK TO DELE TE 'CLAIM( S) REVERSA L NOTIFICA TION' FIEL DS IN THE EXISTING E NTRIES? Ye s// (Yes ). | |
128 | ||
129 | ||
130 | ||
131 | Select FIE LD: | |
132 | ||
133 | ||
134 | ||
135 | ||
136 | ||
137 | REMOVE 407 FROM FILE # 741002. 22 CHAMPV A STATUS R EASON DICT IONARY | |
138 | ||
139 | ||
140 | GLOBAL MAP DATA DICT IONARY #74 1002.22 -- CHAMPVA S TATUS REAS ON DICTION ARY FILE 1/26/18 PAGE 1 | |
141 | STORED IN ^CHMDIC(74 1002.22, (407 ENTRI ES) SITE:
|
|
142 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
143 | ||
144 | CROSS REFE RENCED BY: PROBLM ST ATUS CODE( B), STATUS REASON DE SCRIPTION( C) | |
145 | ||
146 | ^CHMDIC(74 1002.22,D0 ,0)= (#.01 ) PROBLM S TATUS CODE [1N] ^ (# .02) STATU S | |
147 | ==>REASO N DESCRIPT ION [2F] ^ (#.03) DE ACTIVATION OF | |
148 | ==>CODE [3S] ^ (#. 04) LETTER POINTER [ 4P:741002. 64] ^ | |
149 | ==>(#.05 ) ENCLOSUR E POINTER [5P:741002 .56] ^ (#. 06) | |
150 | ==>WHAT TO PRINT O N? [6S] ^ (#.07) TYP E OF REASO N [7S] | |
151 | ==>^ | |
152 | ^CHMDIC(74 1002.22,D0 ,1)= (#1.0 1) CORRESP ONDENCE RE ASON [1F] ^ | |
153 | ^CHMDIC(74 1002.22,D0 ,2,0)=^741 002.711P^^ (#1.02) PROGRAMS | |
154 | ^CHMDIC(74 1002.22,D0 ,2,D1,0)= (#.01) PRO GRAMS [1P: 741002.94] ^ | |
155 | ||
156 | ||
157 | ||
158 | ||
159 | NUMBER: 40 7 PROBLM STA TUS CODE: 407 | |
160 | STATUS R EASON DESC RIPTION: C LAIM(S) RE VERSAL NOT IFICATION, UPDATED E OB(S) WILL FOLLOW. | |
161 | DEACTIVATI ON OF CODE : ACTIVE C ODE | |
162 | WHAT TO PRINT ON?: PRINT ON EOB ONLY TYPE OF RE ASON: INFO RMATIONAL | |
163 | ||
164 | ||
165 | ||
166 | ||
167 | ||
168 | NO CHANGE HERE - T HIS CODE N 694 WAS CR EATED IN 2 013 | |
169 | ||
170 | GLOBAL MAP DATA DICT IONARY #74 1201.58 -- CLAIM PAY MENT REMAR K CODES (1 27) FILE 1/26/18 PAGE 1 | |
171 | STORED IN ^CHMXDIC(7 41201.58, (1049 ENTR IES) SITE:
|
|
172 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
173 | CROSS REF ERENCED BY : CLAIM PA YMENT REMA RK CODE(B) | |
174 | ||
175 | ^CHMXDIC(7 41201.58,D 0,0)= (#.0 1) CLAIM P AYMENT REM ARK CODE [ 1F] ^ (#.0 2) | |
176 | ==>DESC RIPTION [2 F] ^ (#.03 ) STATUS [ 3S] ^ (#.0 4) | |
177 | ==>ACTI VE START D ATE [4D] ^ (#.05) AC TIVE END D ATE | |
178 | ==>[5D] ^ | |
179 | ^CHMXDIC(7 41201.58,D 0,100,0)=^ 741201.701 D^^ (#100 ) DATE-REL ATED DESCR IPTION | |
180 | ^CHMXDIC(7 41201.58,D 0,100,D1,0 )= (#.01) DATE FOR D ESCRIPTION [1D] ^ (# .02) | |
181 | ==>CODE DE SCRIPTION [2F] ^ (#. 03) END DA TE FOR | |
182 | ==>DESCRIP TION [3D] ^ | |
183 | ||
184 | ||
185 | NO CHANGE TO THIS | |
186 | ||
187 | NUMBER: 97 8 CLAIM PAYM ENT REMARK CODE: N69 4 | |
188 | DESCRIPT ION: ALERT : THIS REV ERSAL IS D UE TO A RE SUBMISSION /CHANGE TO THE CLAIM | |
189 | BY THE PR OVIDER. STATUS: AC TIVE | |
190 | DATE FOR D ESCRIPTION : NOV 01, 2013 | |
191 | CODE DES CRIPTION: ALERT: THI S REVERSAL IS DUE TO A RESUBMI SSION/CHAN GE TO THE | |
192 | CLAIM BY T HE PROVIDE R. | |
193 | ||
194 | ||
195 | ||
196 | User Story 115 says to add thi s `407 to EOB REASON /X12 CROSS WALK FILE pointing to 741002. 22 | |
197 | So, remove 407 (`412 ) FROM THI S FILE | |
198 | DONE | |
199 | Select EOB REASON/X1 2 CROSS WA LK HAC REA SON CODE: `412 407 | |
200 | HAC REASON CODE: 407 // @ | |
201 | SURE YO U WANT TO DELETE THE ENTIRE EO B REASON/X 12 CROSS W ALK? Y (Y es) | |
202 | ||
203 | .01 POINTS TO HA C REASON C ODE [1P:74 1002.22 | |
204 | ||
205 | GLOBAL MAP DATA DICT IONARY #74 1201.77 -- EOB REASO N/X12 CROS S WALK FIL E 1/26/1 8 PAGE 1 | |
206 | STORED IN ^CHMXDIC(7 41201.77, (410 ENTRI ES) SITE:
|
|
207 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
208 | ||
209 | ||
210 | CROSS | |
211 | REFERENCED BY: HAC R EASON CODE (B), CLAIM ADJ RSN C ODE 1(C), | |
212 | CLAIM ADJ RSN C ODE 2(D), CLAIM REMA RK CODE 1( E), | |
213 | CLAIM REMARK CO DE 2(F), N CPDP REJEC T CODE #1( G), | |
214 | NCPDP REJECT CO DE #2(H) | |
215 | ||
216 | ||
217 | ||
218 | ^CHMXDIC(7 41201.77,D 0,0)= (#.0 1) HAC REA SON CODE [ 1P:741002. 22] ^ (#.0 2) | |
219 | ==>CLAI M ADJ GRP CODE 1 [2P :741201.15 ] ^ (#.03) CLAIM | |
220 | ==>ADJ RSN CODE 1 [3P:74120 1.16] ^ (# .04) CLAIM ADJ | |
221 | ==>GRP CODE 2 [4P :741201.15 ] ^ (#.05) CLAIM ADJ RSN | |
222 | ==>CODE 2 [5P:741 201.16] ^ (#.06) CLA IM REMARK CODE 1 | |
223 | ==>[6P: 741201.58] ^ (#.07) CLAIM REMA RK CODE 2 | |
224 | ==>[7P: 741201.58] ^ (#.08) NCPDP REJE CT CODE #1 | |
225 | ==>[8P: 741201.79] ^ (#.09) NCPDP REJE CT CODE #2 | |
226 | ==>[9P: 741201.79] ^ | |
227 | ^CHMXDIC(7 41201.77,D 0,1)= (#1. 01) DATE O F LAST UPD ATE [1D] ^ | |
228 | ||
229 | ||
230 | REASON DIC TIONARY | |
231 | ||
232 | GLOBAL MAP DATA DICT IONARY #74 1002.22 -- CHAMPVA S TATUS REAS ON DICTION ARY FILE 1/26 /18 PAG E 1 | |
233 | STORED IN ^CHMDIC(74 1002.22, (407 ENTRI ES) SITE:
|
|
234 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------- | |
235 | ||
236 | CROSS REFE RENCED BY: PROBLM ST ATUS CODE( B), STATUS REASON DE SCRIPTION( C) | |
237 | ||
238 | ||
239 | ||
240 | ^CHMDIC(74 1002.22,D0 ,0)= (#.01 ) PROBLM S TATUS CODE [1N] ^ (# .02) STATU S | |
241 | ==>REASO N DESCRIPT ION [2F] ^ (#.03) DE ACTIVATION OF | |
242 | ==>CODE [3S] ^ (#. 04) LETTER POINTER [ 4P:741002. 64] ^ | |
243 | ==>(#.05 ) ENCLOSUR E POINTER [5P:741002 .56] ^ (#. 06) | |
244 | ==>WHAT TO PRINT O N? [6S] ^ (#.07) TYP E OF REASO N [7S] | |
245 | ==>^ | |
246 | ^CHMDIC(74 1002.22,D0 ,1)= (#1.0 1) CORRESP ONDENCE RE ASON [1F] ^ | |
247 | ^CHMDIC(74 1002.22,D0 ,2,0)=^741 002.711P^^ (#1.02) PROGRAMS | |
248 | ^CHMDIC(74 1002.22,D0 ,2,D1,0)= (#.01) PRO GRAMS [1P: 741002.94] ^ | |
249 | ||
250 | ||
251 | ||
252 | REMOVE THI S 407 CODE WHICH WAS ADDED IN USER STORY 115 | |
253 | ||
254 | Select CHA MPVA STATU S REASON D ICTIONARY PROBLM STA TUS CODE: 407 CLAIM(S) R EVERSAL NO TIFICATION , UPDATED EOB(S) WIL L FOLLOW. | |
255 | Include CO MPUTED fie lds: (N/Y /R/B): NO/ / BOTH Com puted Fiel ds and Rec ord Number (IEN) | |
256 | ||
257 | NUMBER: 40 7 PROBLM STA TUS CODE: 407 | |
258 | STATUS R EASON DESC RIPTION: C LAIM(S) RE VERSAL NOT IFICATION, UPDATED E OB(S) WILL FOLLOW. | |
259 | DEACTIVATI ON OF CODE : ACTIVE C ODE | |
260 | WHAT TO PRINT ON?: PRINT ON EOB ONLY TYPE OF RE ASON: INFO RMATIONAL | |
261 | ||
262 | ||
263 | Select CHA MPVA STATU S REASON D ICTIONARY PROBLM STA TUS CODE: 407 CLAIM(S) R | |
264 | EVERSAL NO TIFICATION , UPDATED EOB(S) WIL L FOLLOW. | |
265 | PROBLM STA TUS CODE: 407// @ | |
266 | SURE YO U WANT TO DELETE THE ENTIRE '4 07' CHAMPV A STATUS R EASON DICT IONARY? Y | |
267 | (Yes) | |
268 | SINCE THE DELETED EN TRY MAY HA VE BEEN 'P OINTED TO' | |
269 | BY ENTRIES IN THE 'C HAMPVA CLA IMS' FILE, ETC., | |
270 | DO YOU WAN T THOSE PO INTERS UPD ATED (WHIC H COULD TA KE QUITE A WHILE)? N o// Y | |
271 | (Yes) | |
272 | WHICH DO Y OU WANT TO DO? -- | |
273 | 1) DEL ETE ALL SU CH POINTER S | |
274 | 2) CHA NGE ALL SU CH POINTER S TO POINT TO A DIFF ERENT 'CHA MPVA STATU S REASON D | |
275 | ICTIONARY' ENTRY | |
276 | ||
277 | CHOOSE 1) OR 2): 1 | |
278 | DELETE ALL POINTERS? Yes// ( Yes) | |
279 | (DELET ION WILL O CCUR WHEN YOU LEAVE 'ENTER/EDI T' OPTION) | |
280 | ||
281 | ||
282 | Select CHA MPVA STATU S REASON D ICTIONARY PROBLM STA TUS CODE: | |
283 | ...SORRY, JUST A MOM ENT PLEASE ... | |
284 | DEVICE: HO ME// SSH VIRTUAL T ERMINAL | |
285 | ||
286 | ||
287 | ||
288 | ||
289 | ||
290 | ||
291 | ||
292 | ||
293 | ||
294 | ||
295 | ||
296 | ||
297 | ||
298 | ||
299 | ||
300 | ||
301 | ||
302 | ||
303 | ||
304 | ||
305 | ||
306 | ||
307 | ||
308 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.