11. EPMO Open Source Coordination Office Redaction File Detail Report

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.

11.1 Files compared

# 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

11.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 6 606
Changed 5 10
Inserted 0 0
Removed 0 0

11.3 Comparison options

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

11.4 Active regular expressions

No regular expressions were active.

11.5 Comparison detail

  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: 
D NS . URL      UCI: HADTS T,TOU                                                                                  
  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: 
D NS . URL      UCI: HADTS T,TOU                              (VERSION 1 .0)    
  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
  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: 
D NS . URL UCI: HADTS T,TOU                                                           (VERSION 1 .0)    
  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: 
D NS . URL      UCI: HADTS T,TOU                             (VERSION 1 .0)    
  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: 
D NS . URL      UCI: HADTS T,TOU                               (VERSION 1 .0)    
  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
  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