Produced by Araxis Merge on 12/7/2017 6:28:27 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 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\CPE005-095 PPR Report Total Payment Current PDI | CHMF351D Developer Form.docx | Thu Dec 7 15:13:28 2017 UTC |
2 | OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\CPE005-095 PPR Report Total Payment Current PDI | CHMF351D Developer Form.docx | Thu Dec 7 23:02:30 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 36 |
Changed | 0 | 0 |
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 | Routine Na me: _____ _CHMF351D_ ___ | |
2 | Developer Name(s): ____Cindy Stiles____ ______ | |
3 | Associated User Stor y/Stories: ______ CPE005-069 _ | |
4 | Current ve rsion (Por tions that are added to, modif ied or del eted [Matc h up with New Versio n section) | |
5 | ||
6 | CHMF351D ; DEH/DEN;CH AMPVA POST -PROC CLAI M REPORT C ALC;03/01/ 99 9:37 AM ;;1.0;CHA MPVA SYSTE M;;APRIL 1 1,2011;Bui ld 10 ;CPT (S) - 1100 8*, #12621 (RLC) ;CP TS #12531 BY DTP (5- SEP-97) ;D EV011069 1 /13/2011 A EB ;CR# DE V009373 - Modified r outine to factor COB PART D 5/ 11/2011 ;E NC#009375 - ADDED "C ITISXC" ED ITYPE AS P ART OF CIT I IMPLEMEN TATION ;DE V007820 EW 10/6/11 A DDING AUTO DISTRIBUT ION FLAG ; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ; ; DLB 11 /21/2014 T HIS ROUTIN E USES IND IRECT ADDR ESSING FOR THE ; ^C HMPAY, CHM DFN, AND O THER GLOBA L FILES. S ETUP FOR T HE INDIREC TION ; IS PERFORMED IN BY THE PROGTYPE^C HFCD001 FU NCTION. ; THE INDIR ECTION DEF INITIONS A RE: ; GLPA Y="^CHMPAY (" ; GLELG ="^AHCHVA( " ; GLDFN= "^CHMDFN(" ; GLPAYH= "^CHMPAYH( " ; GLPAYW ="^CHMPAYW (" ; GLEOB ="^CHMEOBQ (" ;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;VIEW D RESET K CH PDIK,FILE S X1=I D P ROGTYP^CHF CD001 G:'$ D(@(GLPAY_ "I,0)")) E ND S X=@(G LPAY_"I,0) ") S CHCLN =$P(X,"^", 1),CHCLST= $P(X,"^",2 ) G END:'$ D(^CHMDIC( 741002.94, CHPGPT,0)) S CHPROG= $P(^(0),"^ ",2) S VFN =$P(X,"^", 3),CHASOB= $P(X,"^",5 ),CHTYPE=$ P(X,"^",7) S CHDATSE R=$P(X,"^" ,8),DFN=$P (X,"^",21) ,BFN=$P(X, "^",22) S: DFN="" DFN =-1 S:BFN= "" BFN=-1 S CHPOS="" ;,AUTODIS T="" I $D( @(GLPAY_"I ,""COMMON" ")")) D .S POS=$P(@( GLPAY_"I," "COMMON"") "),"^",2) .;S AUTODI ST=$P(@(GL PAY_"I,""C OMMON"")") ,"^",18) ; DEV007820 EW 10/6/11 .;I $$DSL A^CHTFLIB2 (I)=0 S AU TODIST=1 ; IF PRE SLA .I POS I $D(^CHMDI C(741002.1 1,POS,0)) S CHPOS=$E ($P(^(0)," ^",2),1,14 ) ; UP TO THIS POINT HAVE THE 0 NODE ;FO LLOWING GE T CLAIM #, DED,COST,O THER INS,T OTAL,CALC S X="" S: $D(@(GLPAY _"I,1)")) X=@(GLPAY_ "I,1)") S CHPR="",CH PR=$P(X,"^ ",29) ;SKD 11-1-06 M C284 S CHC LAMT=$P(X, "^",1),CHA MTDED=$P(X ,"^",5) S CHCOST=$P( X,"^",6),C HOTHER=$P( X,"^",7),C HVPMT=$P(X ,"^",14),C HBPMT=$P(X ,"^",15),C HCCA=$P(X, "^",18) ;G ETS DED AN D CAT CAP INFO FROM CLAIM FORM IF PRESEN T S (CHBD YTD,CHFDYT D,CHFCYTD, CHBDYTDO,C HFDYTDO,CH FCYTDO)="" ,(CHBDM,CH FDM,CHFCM, CHICF)=0 S CHBDYTDO= $P(X,"^",1 9),CHBDYTD =$P(X,"^", 20),CHBDM= $P(X,"^",2 1),CHFDYTD O=$P(X,"^" ,22),CHFDY TD=$P(X,"^ ",23),CHFD M=$P(X,"^" ,24),CHFCY TDO=$P(X," ^",25),CHF CYTD=$P(X, "^",26),CH FCM=$P(X," ^",27) I ( CHBDYTDO'= "")!(CHBDY TD'="")!(C HFDYTDO'=" ")!(CHFDYT D'="")!(CH FCYTDO'="" )!(CHFCYTD '="") S CH ICF=0 S XC OM="" S:$D (@(GLPAY_" I,""COMMON "")")) XCO M=@(GLPAY_ "I,""COMMO N"")") S C HTOTAL=$P( XCOM,"^",1 ),CHBPM=$P (XCOM,"^", 3),CHCALCT =$P(XCOM," ^",7),CHDR G=$P(XCOM, "^",8),CHD RGOK=$P(XC OM,"^",9) S CHDRGSTA T="" I CHD RGOK'="" S CHDRGSTAT =$S(CHDRGO K=0:"Rejec t",CHDRGOK =1:"Accept ",CHDRGOK= 2:"Q. A. A ccept",CHD RGOK=3:"Mi ss. Data", CHDRGOK=4: "QA REJECT ",CHDRGOK= 5:"PAO Iss ue",CHDRGO K=-1:"ERRO R",1:"") ; AEB 1/13/2 011 DEV011 069 ADDED 4&5 ;FOLLO WING GETS THE PDI NU MBERS S J= 0 F K=0:0 S J=$O(@(G LPAY_"I,"" PDI"",J)") ) Q:J'?1N. N D .Q:'$ D(@(GLPAY_ "I,""PDI"" ,J,0)")) . S ZPDI=$P( @(GLPAY_"I ,""PDI"",J ,0)"),"^", 1) Q:ZPDI= "" S BAT= "" .S BI=$ O(^CHMIMPB ("C",ZPDI, 0)) I BI'= "" S:$D(^C HMIMPB(BI, 0)) BAT=$P (^(0),"^", 1) .S CHPD I(J)=ZPDI_ " Batch: " _BAT ;FOLL OWING GETS BENEFICIA RY & FAMIL Y DEDUCT & CAT CAP F ROM DFN FI LE IF NEED ED S CHDED DT=CHDATSE R S:$D(@(G LPAY_"I,"" INP"")")) CHDEDDT=$P (@(GLPAY_" I,""INP"") "),"^",1) D OLDCAT S CHCYR=+$E (CHDEDDT,1 ,3)+1700 G :CHICF=1 L 2 S (CHBD YTD,CHFDYT D,CHFCYTD, CHBDYTDO,C HFDYTDO,CH FCYTDO)="" ,(CHBDM,CH FDM,CHFCM) =0 S CHRSY R=(9999999 -($E(CHDED DT,1,3)_"0 000")) G:C HRSYR="" L 2 S CHDFNI =0 S CHDFN I=$O(@(GLD FN_"""C"", I,CHDFNI)" )) G:CHDFN I="" L2 S CHDFNJ=0 S CHDFNJ=$O (@(GLDFN_" ""C"",I,CH DFNI,CHDFN J)")) G:CH DFNJ="" L2 S:$D(@(GL DFN_"CHDFN I,10,CHRSY R,0)")) CH FDYTDO=$P( @(GLDFN_"C HDFNI,10,C HRSYR,0)") ,"^",2),CH FCYTDO=$P( @(GLDFN_"C HDFNI,10,C HRSYR,0)") ,"^",4) S: $D(@(GLDFN _"CHDFNI,1 0,CHRSYR,0 )")) CHFDY TD=$P(@(GL DFN_"CHDFN I,10,CHRSY R,0)"),"^" ,2),CHFCYT D=$P(@(GLD FN_"CHDFNI ,10,CHRSYR ,0)"),"^", 4) S:$D(@( GLDFN_"CHD FNI,1,CHRS YR,0)")) C HFDYTDO=$P (@(GLDFN_" CHDFNI,1,C HRSYR,0)") ,"^",2),CH FCYTDO=$P( @(GLDFN_"C HDFNI,1,CH RSYR,0)"), "^",4) S:$ D(@(GLDFN_ "CHDFNI,1, CHRSYR,0)" )) CHFDYTD =$P(@(GLDF N_"CHDFNI, 1,CHRSYR,0 )"),"^",2) ,CHFCYTD=$ P(@(GLDFN_ "CHDFNI,1, CHRSYR,0)" ),"^",4) ; S:$D(@(GLD FN_"CHDFNI ,1,CHRSYR, 0)")) CHFD YTDO=$P(@( GLDFN_"CHD FNI,1,CHRS YR,0)"),"^ ",3),CHFCY TDO=$P(@(G LDFN_"CHDF NI,1,CHRSY R,0)"),"^" ,5) S:$D(@ (GLDFN_"CH DFNI,100,C HDFNJ,10,C HRSYR,0)") ) CHBDYTDO =$P(@(GLDF N_"CHDFNI, 100,CHDFNJ ,10,CHRSYR ,0)"),"^", 2) S:$D(@( GLDFN_"CHD FNI,100,CH DFNJ,1,CHR SYR,0)")) CHBDYTD=$P (@(GLDFN_" CHDFNI,100 ,CHDFNJ,1, CHRSYR,0)" ),"^",2),C HBDM=$P(@( GLDFN_"CHD FNI,100,CH DFNJ,1,CHR SYR,0)")," ^",3)L2 ;F OLLOWING G ET NAMES,S TATUS,ASG BENE,DATE S (CHVFNAM ,CHDFNAM,C HBFNAM,CHM EDNAM,CHTP L,CHPZIP,C HOHIAD,CHO HIPB,CHMED )="";MTN01 3163F EW B UG BEN39 6 /29/12 I V FN'="" S:$ D(^CHMVEN( VFN,0)) CH VFNAM=$P(^ (0),"^",1) D:$D(@(GL PAY_"I,7)" )) .S:$P(@ (GLPAY_"I, 7)"),"^",1 1)'="" CHO HIPB=$P(@( GLPAY_"I,7 )"),"^",11 ) ;MTN0131 63F EW BUG BEN39 6/2 9/12 .S:$P (@(GLPAY_" I,7)"),"^" ,10)'="" C HOHIAD=$P( @(GLPAY_"I ,7)"),"^", 10) ;MTN01 3163F EW B UG BEN39 6 /29/12 .S: $P(@(GLPAY _"I,7)")," ^",9)'="" CHTPL=$P(@ (GLPAY_"I, 7)"),"^",9 ) .S:$P(@( GLPAY_"I,7 )"),"^",8) '="" CHPZI P=$P(@(GLP AY_"I,7)") ,"^",8) .S :$P(@(GLPA Y_"I,7)"), "^",2)'="" CHMED=$P( @(GLPAY_"I ,7)"),"^", 2) ;MTN013 163F EW BU G BEN39 6/ 29/12 .Q:$ P(@(GLPAY_ "I,7)"),"^ ",1)="" S MDPT=$P(@ (GLPAY_"I, 7)"),"^",1 ) .S:$D(^C HMVEN(MDPT ,0)) CHMED NAM=$P(^(0 ),"^",1) S :$D(@(GLEL G_"DFN,0)" )) CHDFNAM =$P(@(GLEL G_"DFN,0)" ),"^",1) S (CHBFNAM, CHBSEX,CHB DOB)="" I $D(@(GLELG _"DFN,100, BFN,0)")) D .S BENRE C="",BENRE C=@(GLELG_ "DFN,100,B FN,0)") .S CHBFNAM=$ P(BENREC," ^",1) .S C HBSEX=$P(B ENREC,"^", 2) .S CHBD OB=$P(BENR EC,"^",3) .S CHBDOB= $E(CHBDOB, 4,5)_"/"_$ E(CHBDOB,6 ,7)_"/"_$E (CHBDOB,2, 3) I CHCLS T'>6 S CHC LSTP=$S(CH CLST=0:"Re jected",CH CLST=1:"In -Progress" ,CHCLST=2: "Payment R eq.",CHCLS T=3:"Check Issued",C HCLST=4:"C omplete",C HCLST=5:"A djudicated ",CHCLST=6 :"Rej Capp /Calm",1:" ") I CHCLS T>6 S CHCL STP=$S(CHC LST=7:"Adm in. Susp", CHCLST=8:" App Capp/C alm",CHCLS T=9:"Manua l Proc",1: "") S CHAS OB=$S(CHAS OB=1:"Yes" ,1:"No") S Y=CHDATSE R X ^DD("D D") S CHDA TSER=Y ; H AVE THE 1 NODE, COMM ON NODE. G ET THE TYP E AND THAT WILL ; DE TERMINE WH AT NODE TO $O ON TO SET UP THE OTHER ^%Z TSK NODE. S (CHTYPEP ,CHT,CHS)= "" S CHTYP EP=$S(CHTY PE=1:"Inpa tient",CHT YPE=2:"Out patient",C HTYPE=3:"P harmacy",C HTYPE=4:"D urable Med j.",CHTYPE =5:"Dental ",CHTYPE=6 :"Travel", 1:"Other") ;LOOPING THRU THE A PPROPRIATE NODE. S J 1=0 S CHT= $S(CHTYPE= 1:"INP",CH TYPE=2:"OP T",CHTYPE= 3:"PHAR",C HTYPE=4:"D ME",CHTYPE =5:"DEN",C HTYPE=6:"O PT",CHTYPE =7:"OPT",1 :"") I CHT ="OPT" S C HS="OPT-DX " D GETJ S CHS="OPT- PROC" D GE TJ S CHS=" PHARM" D G ETJ G L5 I CHT="INP" S CHS="IN P-DX" D GE TJ S CHS=" INP-PROC" D GETJ S C HS="INP-IT EM" D GETJ S CHS="IN P-NC" D GE TJ G L5 I CHT="DEN" S CHS="DEN -PROC" D G ETJ S CHS= "DEN-DX" D GETJ G L5 I CHT="DM E" S CHS=" DME" D GET J S CHS="D ME-DX" D G ETJ S CHS= "DME-SUPPL Y" D GETJ G L5 I CHT ="PHAR" S CHS="PHARM " D GETJ G L5L5 S ^T MP($J,"CL" ,CHCLN)=CH CLSTP_"^"_ CHVFNAM_"^ "_CHTYPEP_ "^"_CHASOB _"^"_CHDAT SER_"^"_CH DFNAM_"^"_ CHBFNAM_"^ "_CHTOTAL_ "^"_CHCALC T_"^"_CHAM TDED_"^"_C HCOST ;S ^ TMP($J,"CL ",CHCLN)=^ TMP($J,"CL ",CHCLN)_" ^"_CHOTHER _"^"_CHCLA MT_"^"_CHB PM_"^"_CHV PMT_"^"_CH BPMT_"^"_C HCCA_"^"_C HICF_"^"_C HMEDNAM_"^ "_CHPOS_"^ "_CHBSEX_" ^"_CHBDOB_ "^"_CHPROG _"^"_CHPR_ "^"_CHTPL_ "^"_CHPZIP ;SKD 11-1 -06 MC284 CHPR (24P) S ^TMP($J ,"CL",CHCL N)=^TMP($J ,"CL",CHCL N)_"^"_CHO THER_"^"_C HCLAMT_"^" _CHBPM_"^" _CHVPMT_"^ "_CHBPMT_" ^"_CHCCA_" ^"_CHICF_" ^"_CHMEDNA M_"^"_CHPO S_"^"_CHBS EX_"^"_CHB DOB_"^"_CH PROG_"^"_C HPR_"^"_CH TPL_"^"_CH PZIP_"^"_C HOHIAD_"^" _CHOHIPB_" ^"_CHMED;M TN013163F EW BUG BEN 38 6/29/12 S:((CHCLS TP'="In-Pr ogress")!( $D(^CHMNHQ ("C",I)))) ^TMP($J," DED",CHCLN )=CHBDYTD_ "^"_CHBDYT DO_"^"_CHF DYTD_"^"_C HFDYTDO_"^ "_CHFCYTD_ "^"_CHFCYT DO_"^"_CHB DM_"^"_CHF DM_"^"_CHF CM_"^"_CHC YR ;;AEB 1 -19-2017 T ESTING CRM MOD LINE ADDED TO E NSURE INPR OGRESS CLA IMS GET CA T CAP AND DED I $D( TESTFLG) I '$D(^TMP( $J,"DED",C HCLN)) S ^ TMP($J,"DE D",CHCLN)= CHBDYTD_"^ "_CHBDYTDO _"^"_CHFDY TD_"^"_CHF DYTDO_"^"_ CHFCYTD_"^ "_CHFCYTDO _"^"_CHBDM _"^"_CHFDM _"^"_CHFCM _"^"_CHCYR ; S DISCH ="" I CHTY PE=1 S DIS CH="" S:$D (@(GLPAY_" I,""INP"") ")) DISCH= $P(@(GLPAY _"I,""INP" ")"),"^",1 ) S:DISCH' ="" ^TMP($ J,"DISCH", CHCLN)=DIS CH S (METH ,CHMETH)=" " I $D(@(G LPAY_"I,"" COMMON"")" )) I CHTYP E=1 S METH =$P(@(GLPA Y_"I,""COM MON"")")," ^",16) S C HMETH=$S(M ETH=0:"PPS ",METH=1:" CTC",METH= 2:"Item",M ETH=3:"LVM H",METH=4: "HVMH",MET H=10:"RTC" ,1:"") S:C HTYPE=1 ^T MP($J,"INP ",CHCLN)=C HDRG_"^"_C HDRGSTAT_" ^"_CHMETH_ "^"_METH S J=0 F K=0 :0 S J=$O( CHPDI(J)) Q:'J S ^T MP($J,"PDI ",CHCLN,J) =CHPDI(J) ;D:$P(^TMP ($J,1),"^" ,4)'="" QU E D ^CHMF3 51F ;CHECK S FOR AUDI T SUP,EOB, MCCR,MISS DATA,PROB SUP,QA D ^ CHMF351G ; CHECKS VEN DOR,ELEGIB ,SNA CALM, SNA CAPP,R EOPEN,DUPL ICATE D ^C HMF351H ;C HECKS REOP EN QUEUE,W ORKMANS CO MP,GROUPER OUT,OBLIG ATION D ^C HMF351J ;C HECKS ALL REJECTION PIECES D E DIEND K I, X,CHCLN,CH CLST,CHASO B,CHTYPE,C HDATSER,DF N,BFN,VFN K CHTOTAL, CHCALCT,CH VFNAM,CHDF NAM,CHBFNA M,CHCLSTP, CHDMEDEL K CHCLAMT,C HAMTDED,CH COST,CHOTH ER,Y,CHTYP EP,CHT,CHS ,CHIN,J,J1 ,J2 K CHPR OCED,CHNDC ,CHDIAG,CH CHARGE,CHA LLOW,CHRES ,CHRESULT, CHICF,CHCC A K CHQSTA T,CHQNAM,C HDMEDEL,CH DELAA,CHDR G,CHDRGOK, CHDRGSTAT, CHVPMT,CHB PMT K CHBD YDT,CHFDYD T,CHFCYDT, CHBDM,CHFD M,CHFCM,CH RYR,CHRSYR ,CHDFNI,CH DFNJQ5 Q Q :$D(VIEWFL ) S %ZIS=" Q",IOP="Q; "_CHMFION D ^%ZIS Q: POP S ZTRT N="^CHMF35 1P",ZTDTH= $H,ZTIO=CH MFION,ZTSA VE("^TMP($ J,")="" D ^%ZTLOAD Q RESET S (D FN,BFN,VFN ,X)=-1 S V FN="" S (C HCLN,CHCLS T,CHASOB,C HTYPE,CHDA TSER)="" S (CHTOTAL, CHCALCT,CH VFNAM,CHDF NAM,CHBFNA M,CHCLSTP, CHDMEDEL)= "" QGETJ I CHS="DME" I $D(@(GL PAY_"I,""D ME"")")) S CHDMEDEL= $P(@(GLPAY _"I,""DME" ")"),"^",1 ),CHDELAA= $P(@(GLPAY _"I,""DME" ")"),"^",2 ) S J1=J1+ 1,^TMP($J, "MP",CHCLN ,J1)="^^De liv^"_CHDM EDEL_"^"_C HDELAA_"^ " Q F J=0: 0 S J=$O(@ (GLPAY_"I, CHS,J)")) Q:'J S J1 =J1+1 D:CH T="INP" ^C HMF351I D: CHT'="INP" ^CHMF351E ;^CHMF351 E GETS PRO CED CODE,C HARGES,DIA GNOS,RESUL T AND SETS TASK QOLD CAT S PGDT =0 S PGDT= $O(@(GLELG _"DFN,100, BFN,108,PG DT)")) Q:' PGDT Q:'$D (@(GLELG_" DFN,100,BF N,108,PGDT ,0)")) S P GDAT=$P(@( GLELG_"DFN ,100,BFN,1 08,PGDT,0) "),"^",1) Q:PGDAT<29 21001 Q:PG DAT>293123 2 S PGDOS= $P(@(GLPAY _"I,0)")," ^",8) I $P (@(GLPAY_" I,0)"),"^" ,7)=1 S:$D (@(GLPAY_" I,""INP"") ")) PGDOS= $P(@(GLPAY _"I,""INP" ")"),"^",1 ) S:'$D(PG DOS) PGDOS ="" Q:PGDO S<2921001 Q:PGDOS>29 31232 S PG DOS=293010 1 I PGDAT< 2931001 D Q .I (PGD OS>2920930 )&(PGDOS<2 931001) S PGDOS=2930 101 .S CHD EDDT=PGDOS I PGDOS>2 930930 S P GDOS=29401 01,CHDEDDT =PGDOS Q ; EDI S:'$D( ZHI) ZHI=0 n ZRX S Z CL="" S ZC L=$O(@(GLP AY_"""B"", CHCLN,0)") ) Q:'ZCL Q :'$D(@(GLP AY_"ZCL,"" ZEMC"")")) S EDITYP= "" S EDITY P=$O(@(GLP AY_"ZCL,"" ZEMC"",EDI TYP)")) S: EDITYP="" EDITYP="Un known" ;St art CR# DE V009373 ; Determine if it's a COB SXC Cl aim I EDIT YP="SXC" D .S ZRX=$O (@(GLPAY_" ZCL,""ZEMC "",EDITYP, """")")) Q :ZRX="" .S ZRX=+$G(@ (GLPAY_"ZC L,""ZEMC"" ,EDITYP,ZR X)")) .Q:Z RX=""!(ZRX =0) .I $P( $G(^CHMXRX (ZRX,0))," ^",8)="Y" S EDITYP=" SXCCOB" .I $P($G(^CH MXRX(ZRX,0 )),"^",8)= "K" S EDIT YP="MCDSXC " .I $P($G (^CHMXRX(Z RX,0)),"^" ,8)="Z" S EDITYP="CI TISXC"; AD DED "CITIS XC" EDITYP E 3/8/2012 ;End CR# DEV009373 F ZI=0:0 S ZI=$O(^TM P($J,"QUE" ,CHCLN,ZI) ) Q:'ZI S ZHI=ZI S ZI=ZHI+1,^ TMP($J,"QU E",CHCLN,Z I)="EDI: " _EDITYP Q | |
7 | ||
8 | New versio n (New or changed po rtions; Hi ghlight al l of the f ollowing: New - Bol d, Deleted - Striket hru, Chang ed - Itali cs) | |
9 | ||
10 | CHMF351D ; DEH/DEN;CH AMPVA POST -PROC CLAI M REPORT C ALC;03/01/ 99 9:37 AM ;;1.0;CHA MPVA SYSTE M;;APRIL 1 1,2011;Bui ld 10 ;CPT (S) - 1100 8*, #12621 (RLC) ;CP TS #12531 BY DTP (5- SEP-97) ;D EV011069 1 /13/2011 A EB ;CR# DE V009373 - Modified r outine to factor COB PART D 5/ 11/2011 ;E NC#009375 - ADDED "C ITISXC" ED ITYPE AS P ART OF CIT I IMPLEMEN TATION ;DE V007820 EW 10/6/11 A DDING AUTO DISTRIBUT ION FLAG ; CFS 10/18/ 2017 CPE00 5-095 - Ad d total pa yments of all claims for Curre nt and Ori ginal PDI' s. ;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;; ; DL B 11/21/20 14 THIS RO UTINE USES INDIRECT ADDRESSING FOR THE ; ^CHMPAY, CHMDFN, A ND OTHER G LOBAL FILE S. SETUP F OR THE IND IRECTION ; IS PERFOR MED IN BY THE PROGTY PE^CHFCD00 1 FUNCTION . ; THE I NDIRECTION DEFINITIO NS ARE: ; GLPAY="^CH MPAY(" ; G LELG="^AHC HVA(" ; GL DFN="^CHMD FN(" ; GLP AYH="^CHMP AYH(" ; GL PAYW="^CHM PAYW(" ; G LEOB="^CHM EOBQ(" ;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;VIE W D RESET K CHPDIK,F ILE S X1=I D PROGTYP ^CHFCD001 G:'$D(@(GL PAY_"I,0)" )) END S X =@(GLPAY_" I,0)") S C HCLN=$P(X, "^",1),CHC LST=$P(X," ^",2) G EN D:'$D(^CHM DIC(741002 .94,CHPGPT ,0)) S CHP ROG=$P(^(0 ),"^",2) S VFN=$P(X, "^",3),CHA SOB=$P(X," ^",5),CHTY PE=$P(X,"^ ",7) S CHD ATSER=$P(X ,"^",8),DF N=$P(X,"^" ,21),BFN=$ P(X,"^",22 ) S:DFN="" DFN=-1 S: BFN="" BFN =-1 S CHPO S="" ;,AUT ODIST="" I $D(@(GLPA Y_"I,""COM MON"")")) D .S POS=$ P(@(GLPAY_ "I,""COMMO N"")"),"^" ,2) .;S AU TODIST=$P( @(GLPAY_"I ,""COMMON" ")"),"^",1 8) ;DEV007 820 EW 10/ 6/11 .;I $ $DSLA^CHTF LIB2(I)=0 S AUTODIST =1 ;IF PRE SLA .I P OS I $D(^C HMDIC(7410 02.11,POS, 0)) S CHPO S=$E($P(^( 0),"^",2), 1,14) ; UP TO THIS P OINT HAVE THE 0 NODE ;FOLLOWIN G GET CLAI M #,DED,CO ST,OTHER I NS,TOTAL,C ALC S X="" S:$D(@(GL PAY_"I,1)" )) X=@(GLP AY_"I,1)") S CHPR="" ,CHPR=$P(X ,"^",29) ; SKD 11-1-0 6 MC284 S CHCLAMT=$P (X,"^",1), CHAMTDED=$ P(X,"^",5) S CHCOST= $P(X,"^",6 ),CHOTHER= $P(X,"^",7 ),CHVPMT=$ P(X,"^",14 ),CHBPMT=$ P(X,"^",15 ),CHCCA=$P (X,"^",18) ;GETS DED AND CAT C AP INFO FR OM CLAIM F ORM IF PRE SENT S (C HBDYTD,CHF DYTD,CHFCY TD,CHBDYTD O,CHFDYTDO ,CHFCYTDO) ="",(CHBDM ,CHFDM,CHF CM,CHICF)= 0 S CHBDYT DO=$P(X,"^ ",19),CHBD YTD=$P(X," ^",20),CHB DM=$P(X,"^ ",21),CHFD YTDO=$P(X, "^",22),CH FDYTD=$P(X ,"^",23),C HFDM=$P(X, "^",24),CH FCYTDO=$P( X,"^",25), CHFCYTD=$P (X,"^",26) ,CHFCM=$P( X,"^",27) I (CHBDYTD O'="")!(CH BDYTD'="") !(CHFDYTDO '="")!(CHF DYTD'="")! (CHFCYTDO' ="")!(CHFC YTD'="") S CHICF=0 S XCOM="" S :$D(@(GLPA Y_"I,""COM MON"")")) XCOM=@(GLP AY_"I,""CO MMON"")") S CHTOTAL= $P(XCOM,"^ ",1),CHBPM =$P(XCOM," ^",3),CHCA LCT=$P(XCO M,"^",7),C HDRG=$P(XC OM,"^",8), CHDRGOK=$P (XCOM,"^", 9) S CHDRG STAT="" I CHDRGOK'=" " S CHDRGS TAT=$S(CHD RGOK=0:"Re ject",CHDR GOK=1:"Acc ept",CHDRG OK=2:"Q. A . Accept", CHDRGOK=3: "Miss. Dat a",CHDRGOK =4:"QA REJ ECT",CHDRG OK=5:"PAO Issue",CHD RGOK=-1:"E RROR",1:"" ) ;AEB 1/1 3/2011 DEV 011069 ADD ED 4&5 ;FO LLOWING GE TS THE PDI NUMBERS S J=0 F K=0 :0 S J=$O( @(GLPAY_"I ,""PDI"",J )")) Q:J'? 1N.N D .Q :'$D(@(GLP AY_"I,""PD I"",J,0)") ) .S ZPDI= $P(@(GLPAY _"I,""PDI" ",J,0)")," ^",1) Q:ZP DI="" S B AT="" .I ' $D(PAIDARY ) D GETPYM NT(ZPDI,.P AIDARY) ;C PE005-095 .S BI=$O(^ CHMIMPB("C ",ZPDI,0)) I BI'="" S:$D(^CHMI MPB(BI,0)) BAT=$P(^( 0),"^",1) .S CHPDI(J )=ZPDI_" B atch: "_BA T ;FOLLOWI NG GETS BE NEFICIARY & FAMILY D EDUCT & CA T CAP FROM DFN FILE IF NEEDED S CHDEDDT= CHDATSER S :$D(@(GLPA Y_"I,""INP "")")) CHD EDDT=$P(@( GLPAY_"I," "INP"")"), "^",1) D O LDCAT S CH CYR=+$E(CH DEDDT,1,3) +1700 G:CH ICF=1 L2 S (CHBDYTD, CHFDYTD,CH FCYTD,CHBD YTDO,CHFDY TDO,CHFCYT DO)="",(CH BDM,CHFDM, CHFCM)=0 S CHRSYR=(9 999999-($E (CHDEDDT,1 ,3)_"0000" )) G:CHRSY R="" L2 S CHDFNI=0 S CHDFNI=$O (@(GLDFN_" ""C"",I,CH DFNI)")) G :CHDFNI="" L2 S CHDF NJ=0 S CHD FNJ=$O(@(G LDFN_"""C" ",I,CHDFNI ,CHDFNJ)") ) G:CHDFNJ ="" L2 S:$ D(@(GLDFN_ "CHDFNI,10 ,CHRSYR,0) ")) CHFDYT DO=$P(@(GL DFN_"CHDFN I,10,CHRSY R,0)"),"^" ,2),CHFCYT DO=$P(@(GL DFN_"CHDFN I,10,CHRSY R,0)"),"^" ,4) S:$D(@ (GLDFN_"CH DFNI,10,CH RSYR,0)")) CHFDYTD=$ P(@(GLDFN_ "CHDFNI,10 ,CHRSYR,0) "),"^",2), CHFCYTD=$P (@(GLDFN_" CHDFNI,10, CHRSYR,0)" ),"^",4) S :$D(@(GLDF N_"CHDFNI, 1,CHRSYR,0 )")) CHFDY TDO=$P(@(G LDFN_"CHDF NI,1,CHRSY R,0)"),"^" ,2),CHFCYT DO=$P(@(GL DFN_"CHDFN I,1,CHRSYR ,0)"),"^", 4) S:$D(@( GLDFN_"CHD FNI,1,CHRS YR,0)")) C HFDYTD=$P( @(GLDFN_"C HDFNI,1,CH RSYR,0)"), "^",2),CHF CYTD=$P(@( GLDFN_"CHD FNI,1,CHRS YR,0)"),"^ ",4) ;S:$D (@(GLDFN_" CHDFNI,1,C HRSYR,0)") ) CHFDYTDO =$P(@(GLDF N_"CHDFNI, 1,CHRSYR,0 )"),"^",3) ,CHFCYTDO= $P(@(GLDFN _"CHDFNI,1 ,CHRSYR,0) "),"^",5) S:$D(@(GLD FN_"CHDFNI ,100,CHDFN J,10,CHRSY R,0)")) CH BDYTDO=$P( @(GLDFN_"C HDFNI,100, CHDFNJ,10, CHRSYR,0)" ),"^",2) S :$D(@(GLDF N_"CHDFNI, 100,CHDFNJ ,1,CHRSYR, 0)")) CHBD YTD=$P(@(G LDFN_"CHDF NI,100,CHD FNJ,1,CHRS YR,0)"),"^ ",2),CHBDM =$P(@(GLDF N_"CHDFNI, 100,CHDFNJ ,1,CHRSYR, 0)"),"^",3 )L2 ;FOLLO WING GET N AMES,STATU S,ASG BENE ,DATE S (C HVFNAM,CHD FNAM,CHBFN AM,CHMEDNA M,CHTPL,CH PZIP,CHOHI AD,CHOHIPB ,CHMED)="" ;MTN0131 63F EW BUG BEN39 6/2 9/12 I VFN '="" S:$D( ^CHMVEN(VF N,0)) CHVF NAM=$P(^(0 ),"^",1) D :$D(@(GLPA Y_"I,7)")) .S:$P(@(G LPAY_"I,7) "),"^",11) '="" CHOHI PB=$P(@(GL PAY_"I,7)" ),"^",11) ;MTN013163 F EW BUG B EN39 6/29/ 12 .S:$P(@ (GLPAY_"I, 7)"),"^",1 0)'="" CHO HIAD=$P(@( GLPAY_"I,7 )"),"^",10 ) ;MTN0131 63F EW BUG BEN39 6/2 9/12 .S:$P (@(GLPAY_" I,7)"),"^" ,9)'="" CH TPL=$P(@(G LPAY_"I,7) "),"^",9) .S:$P(@(GL PAY_"I,7)" ),"^",8)'= "" CHPZIP= $P(@(GLPAY _"I,7)")," ^",8) .S:$ P(@(GLPAY_ "I,7)"),"^ ",2)'="" C HMED=$P(@( GLPAY_"I,7 )"),"^",2) ;MTN01316 3F EW BUG BEN39 6/29 /12 .Q:$P( @(GLPAY_"I ,7)"),"^", 1)="" S M DPT=$P(@(G LPAY_"I,7) "),"^",1) .S:$D(^CHM VEN(MDPT,0 )) CHMEDNA M=$P(^(0), "^",1) S:$ D(@(GLELG_ "DFN,0)")) CHDFNAM=$ P(@(GLELG_ "DFN,0)"), "^",1) S ( CHBFNAM,CH BSEX,CHBDO B)="" I $D (@(GLELG_" DFN,100,BF N,0)")) D .S BENREC= "",BENREC= @(GLELG_"D FN,100,BFN ,0)") .S C HBFNAM=$P( BENREC,"^" ,1) .S CHB SEX=$P(BEN REC,"^",2) .S CHBDOB =$P(BENREC ,"^",3) .S CHBDOB=$E (CHBDOB,4, 5)_"/"_$E( CHBDOB,6,7 )_"/"_$E(C HBDOB,2,3) I CHCLST' >6 S CHCLS TP=$S(CHCL ST=0:"Reje cted",CHCL ST=1:"In-P rogress",C HCLST=2:"P ayment Req .",CHCLST= 3:"Check I ssued",CHC LST=4:"Com plete",CHC LST=5:"Adj udicated", CHCLST=6:" Rej Capp/C alm",1:"") I CHCLST> 6 S CHCLST P=$S(CHCLS T=7:"Admin . Susp",CH CLST=8:"Ap p Capp/Cal m",CHCLST= 9:"Manual Proc",1:"" ) S CHASOB =$S(CHASOB =1:"Yes",1 :"No") S Y =CHDATSER X ^DD("DD" ) S CHDATS ER=Y ; HAV E THE 1 NO DE, COMMON NODE. GET THE TYPE AND THAT W ILL ; DETE RMINE WHAT NODE TO $ O ON TO SE T UP THE O THER ^%ZTS K NODE. S (CHTYPEP,C HT,CHS)="" S CHTYPEP =$S(CHTYPE =1:"Inpati ent",CHTYP E=2:"Outpa tient",CHT YPE=3:"Pha rmacy",CHT YPE=4:"Dur able Medj. ",CHTYPE=5 :"Dental", CHTYPE=6:" Travel",1: "Other") ; LOOPING TH RU THE APP ROPRIATE N ODE. S J1= 0 S CHT=$S (CHTYPE=1: "INP",CHTY PE=2:"OPT" ,CHTYPE=3: "PHAR",CHT YPE=4:"DME ",CHTYPE=5 :"DEN",CHT YPE=6:"OPT ",CHTYPE=7 :"OPT",1:" ") I CHT=" OPT" S CHS ="OPT-DX" D GETJ S C HS="OPT-PR OC" D GETJ S CHS="PH ARM" D GET J G L5 I C HT="INP" S CHS="INP- DX" D GETJ S CHS="IN P-PROC" D GETJ S CHS ="INP-ITEM " D GETJ S CHS="INP- NC" D GETJ G L5 I CH T="DEN" S CHS="DEN-P ROC" D GET J S CHS="D EN-DX" D G ETJ G L5 I CHT="DME" S CHS="DM E" D GETJ S CHS="DME -DX" D GET J S CHS="D ME-SUPPLY" D GETJ G L5 I CHT=" PHAR" S CH S="PHARM" D GETJ G L 5L5 S ^TMP ($J,"CL",C HCLN)=CHCL STP_"^"_CH VFNAM_"^"_ CHTYPEP_"^ "_CHASOB_" ^"_CHDATSE R_"^"_CHDF NAM_"^"_CH BFNAM_"^"_ CHTOTAL_"^ "_CHCALCT_ "^"_CHAMTD ED_"^"_CHC OST ;S ^TM P($J,"CL", CHCLN)=^TM P($J,"CL", CHCLN)_"^" _CHOTHER_" ^"_CHCLAMT _"^"_CHBPM _"^"_CHVPM T_"^"_CHBP MT_"^"_CHC CA_"^"_CHI CF_"^"_CHM EDNAM_"^"_ CHPOS_"^"_ CHBSEX_"^" _CHBDOB_"^ "_CHPROG_" ^"_CHPR_"^ "_CHTPL_"^ "_CHPZIP ; SKD 11-1-0 6 MC284 CH PR (24P) S ^TMP($J," CL",CHCLN) =^TMP($J," CL",CHCLN) _"^"_CHOTH ER_"^"_CHC LAMT_"^"_C HBPM_"^"_C HVPMT_"^"_ CHBPMT_"^" _CHCCA_"^" _CHICF_"^" _CHMEDNAM_ "^"_CHPOS_ "^"_CHBSEX _"^"_CHBDO B_"^"_CHPR OG_"^"_CHP R_"^"_CHTP L_"^"_CHPZ IP_"^"_CHO HIAD_"^"_C HOHIPB_"^" _CHMED ;M TN013163F EW BUG BEN 38 6/29/12 S:((CHCLS TP'="In-Pr ogress")!( $D(^CHMNHQ ("C",I)))) ^TMP($J," DED",CHCLN )=CHBDYTD_ "^"_CHBDYT DO_"^"_CHF DYTD_"^"_C HFDYTDO_"^ "_CHFCYTD_ "^"_CHFCYT DO_"^"_CHB DM_"^"_CHF DM_"^"_CHF CM_"^"_CHC YR ;;AEB 1 -19-2017 T ESTING CRM MOD LINE ADDED TO E NSURE INPR OGRESS CLA IMS GET CA T CAP AND DED I $D( TESTFLG) I '$D(^TMP( $J,"DED",C HCLN)) S ^ TMP($J,"DE D",CHCLN)= CHBDYTD_"^ "_CHBDYTDO _"^"_CHFDY TD_"^"_CHF DYTDO_"^"_ CHFCYTD_"^ "_CHFCYTDO _"^"_CHBDM _"^"_CHFDM _"^"_CHFCM _"^"_CHCYR ; S DISCH ="" I CHTY PE=1 S DIS CH="" S:$D (@(GLPAY_" I,""INP"") ")) DISCH= $P(@(GLPAY _"I,""INP" ")"),"^",1 ) S:DISCH' ="" ^TMP($ J,"DISCH", CHCLN)=DIS CH S (METH ,CHMETH)=" " I $D(@(G LPAY_"I,"" COMMON"")" )) I CHTYP E=1 S METH =$P(@(GLPA Y_"I,""COM MON"")")," ^",16) S C HMETH=$S(M ETH=0:"PPS ",METH=1:" CTC",METH= 2:"Item",M ETH=3:"LVM H",METH=4: "HVMH",MET H=10:"RTC" ,1:"") S:C HTYPE=1 ^T MP($J,"INP ",CHCLN)=C HDRG_"^"_C HDRGSTAT_" ^"_CHMETH_ "^"_METH S J=0 F K=0 :0 S J=$O( CHPDI(J)) Q:'J S ^T MP($J,"PDI ",CHCLN,J) =CHPDI(J) ;D:$P(^TMP ($J,1),"^" ,4)'="" QU E D ^CHMF3 51F ;CHECK S FOR AUDI T SUP,EOB, MCCR,MISS DATA,PROB SUP,QA D ^ CHMF351G ; CHECKS VEN DOR,ELEGIB ,SNA CALM, SNA CAPP,R EOPEN,DUPL ICATE D ^C HMF351H ;C HECKS REOP EN QUEUE,W ORKMANS CO MP,GROUPER OUT,OBLIG ATION D ^C HMF351J ;C HECKS ALL REJECTION PIECES D E DIEND K I, X,CHCLN,CH CLST,CHASO B,CHTYPE,C HDATSER,DF N,BFN,VFN K CHTOTAL, CHCALCT,CH VFNAM,CHDF NAM,CHBFNA M,CHCLSTP, CHDMEDEL K CHCLAMT,C HAMTDED,CH COST,CHOTH ER,Y,CHTYP EP,CHT,CHS ,CHIN,J,J1 ,J2 K CHPR OCED,CHNDC ,CHDIAG,CH CHARGE,CHA LLOW,CHRES ,CHRESULT, CHICF,CHCC A K CHQSTA T,CHQNAM,C HDMEDEL,CH DELAA,CHDR G,CHDRGOK, CHDRGSTAT, CHVPMT,CHB PMT K CHBD YDT,CHFDYD T,CHFCYDT, CHBDM,CHFD M,CHFCM,CH RYR,CHRSYR ,CHDFNI,CH DFNJQ5 Q Q :$D(VIEWFL ) S %ZIS=" Q",IOP="Q; "_CHMFION D ^%ZIS Q: POP S ZTRT N="^CHMF35 1P",ZTDTH= $H,ZTIO=CH MFION,ZTSA VE("^TMP($ J,")="" D ^%ZTLOAD Q RESET S (D FN,BFN,VFN ,X)=-1 S V FN="" S (C HCLN,CHCLS T,CHASOB,C HTYPE,CHDA TSER)="" S (CHTOTAL, CHCALCT,CH VFNAM,CHDF NAM,CHBFNA M,CHCLSTP, CHDMEDEL)= "" QGETJ I CHS="DME" I $D(@(GL PAY_"I,""D ME"")")) S CHDMEDEL= $P(@(GLPAY _"I,""DME" ")"),"^",1 ),CHDELAA= $P(@(GLPAY _"I,""DME" ")"),"^",2 ) S J1=J1+ 1,^TMP($J, "MP",CHCLN ,J1)="^^De liv^"_CHDM EDEL_"^"_C HDELAA_"^ " Q F J=0: 0 S J=$O(@ (GLPAY_"I, CHS,J)")) Q:'J S J1 =J1+1 D:CH T="INP" ^C HMF351I D: CHT'="INP" ^CHMF351E ;^CHMF351 E GETS PRO CED CODE,C HARGES,DIA GNOS,RESUL T AND SETS TASK QOLD CAT S PGDT =0 S PGDT= $O(@(GLELG _"DFN,100, BFN,108,PG DT)")) Q:' PGDT Q:'$D (@(GLELG_" DFN,100,BF N,108,PGDT ,0)")) S P GDAT=$P(@( GLELG_"DFN ,100,BFN,1 08,PGDT,0) "),"^",1) Q:PGDAT<29 21001 Q:PG DAT>293123 2 S PGDOS= $P(@(GLPAY _"I,0)")," ^",8) I $P (@(GLPAY_" I,0)"),"^" ,7)=1 S:$D (@(GLPAY_" I,""INP"") ")) PGDOS= $P(@(GLPAY _"I,""INP" ")"),"^",1 ) S:'$D(PG DOS) PGDOS ="" Q:PGDO S<2921001 Q:PGDOS>29 31232 S PG DOS=293010 1 I PGDAT< 2931001 D Q .I (PGD OS>2920930 )&(PGDOS<2 931001) S PGDOS=2930 101 .S CHD EDDT=PGDOS I PGDOS>2 930930 S P GDOS=29401 01,CHDEDDT =PGDOS Q ; EDI S:'$D( ZHI) ZHI=0 n ZRX S Z CL="" S ZC L=$O(@(GLP AY_"""B"", CHCLN,0)") ) Q:'ZCL Q :'$D(@(GLP AY_"ZCL,"" ZEMC"")")) S EDITYP= "" S EDITY P=$O(@(GLP AY_"ZCL,"" ZEMC"",EDI TYP)")) S: EDITYP="" EDITYP="Un known" ;St art CR# DE V009373 ; Determine if it's a COB SXC Cl aim I EDIT YP="SXC" D .S ZRX=$O (@(GLPAY_" ZCL,""ZEMC "",EDITYP, """")")) Q :ZRX="" .S ZRX=+$G(@ (GLPAY_"ZC L,""ZEMC"" ,EDITYP,ZR X)")) .Q:Z RX=""!(ZRX =0) .I $P( $G(^CHMXRX (ZRX,0))," ^",8)="Y" S EDITYP=" SXCCOB" .I $P($G(^CH MXRX(ZRX,0 )),"^",8)= "K" S EDIT YP="MCDSXC " .I $P($G (^CHMXRX(Z RX,0)),"^" ,8)="Z" S EDITYP="CI TISXC" ; ADDED "CIT ISXC" EDIT YPE 3/8/20 12 ;End CR # DEV00937 3 F ZI=0:0 S ZI=$O(^ TMP($J,"QU E",CHCLN,Z I)) Q:'ZI S ZHI=ZI S ZI=ZHI+1 ,^TMP($J," QUE",CHCLN ,ZI)="EDI: "_EDITYP Q ;GETPYMN T(PDI,PAID ARY) ;Get the total payment am ount of al l claims f or Origina l & Curren t PDIs. CP E005-095. S PDI=$G(P DI),PAIDAR Y=$G(PAIDA RY) N ARYC NT,IEN,CHM FPDI,CHMPD I,CHSUM,CH TOTSUM,CUR RPDI I $D( ^CHMIMG("E -FIRST",PD I)) D .S C HMPDI=$O(^ CHMIMG("E- FIRST",PDI ,"")) .S C URRPDI=$O( ^CHMIMG("E -ALL",CHMP DI,""),-1) .S PAIDAR Y(1)=CURRP DI ;Curre nt PDI alw ays first. .I $D(^CH MIMG("E-AL L",CHMPDI) ) D ..S CH MFPDI=0,AR YCNT=2 ..F S CHMFPD I=$O(^CHMI MG("E-ALL" ,CHMPDI,CH MFPDI)) Q: CHMFPDI="" D ...D T OTPYMNT(CH MFPDI,.ARY CNT,.PAIDA RY) ...I A RYCNT'=^CH MIMG("E-AL L",CHMPDI, 0) S ARYCN T=ARYCNT+1 ..S PAIDA RY=ARYCNT I '$D(^CHM IMG("E-FIR ST",PDI)) D .S PAIDA RY(1)=PDI .D TOTPYMN T(PDI,.ARY CNT,.PAIDA RY) .S PAI DARY=1 Q ; TOTPYMNT(C HMFPDI,ARY CNT,PAIDAR Y) ;CPE005 -095 N IEN ,CHSUM,CHT OTSUM S CH TOTSUM=0 S IEN="" F S IEN=$O( ^CHMPAY("C ",CHMFPDI, IEN)) Q:IE N="" D .S CHSUM=$P( $G(^CHMPAY (IEN,1))," ^") .S CHT OTSUM=CHTO TSUM+CHSUM ;Get the sum of al l claims f or this PD I. I CHMFP DI=$P(PAID ARY(1),"^" ) S PAIDAR Y(1)=PAIDA RY(1)_"^"_ CHTOTSUM Q ;Always put Curren t PDI on t op. S PAID ARY(ARYCNT )=CHMFPDI_ "^"_CHTOTS UM Q | |
11 | ||
12 | ||
13 | Difference s | |
14 | ||
15 | See highli ghted info above. | |
16 | ||
17 | ||
18 | Passed XIN DEX? (Y / N): Y |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.