Produced by Araxis Merge on 12/7/2017 6:28:41 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 | CHMKPPR2 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 | CHMKPPR2 Developer Form.docx | Thu Dec 7 23:10:28 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: _____ __CHMKPPR2 ___ | |
2 | Developer Name(s): _________C indy Stile s_____ | |
3 | Associated User Stor y/Stories: _____C PE005-095_ __ | |
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 | ZCFSCHMKPP R2a ;DEH/D EN;CHAMPVA SEARCH CL AIM FILE S END TO BC; 11/05/97 4 :13 PM ;;1 .0;CHAMPVA SYSTEM;;J ULY 4, 199 0;Build 10 ;V1.0 ;CP TS # 12621 (RLC) ;BM J DEF01283 0 Fix the <UNDEFINED >ST3+4^CHM KPPR1 erro r ; DEV007 820 EW 2/2 3/11 CHANG E DISPLAY TO 132 FOR PPR WITH LINE LEVEL DATAQ1 X CHRESET W !,"VIEWING OF PPR"ST 1 W !!,"Se lect CLAIM OR PDI NU MBER: " D CSBRS^CHSC 2 S:Y'="" Y=$TR(Y,"a bcdefghijk lmnopqrstu vwxyz","AB CDEFGHIJKL MNOPQRSTUV WXYZ") G:( $D(DTOUT)) !($D(DFOUT ))!($D(DUO UT)) END I $D(DQOUT) W !!,"Ent er a valid claim or PDI number ." R X:3 D TITLE G S T1 G:Y="" END I Y=" " D .Q:'$D (^DISV("PP R",DUZ)) . S Y=$P(^DI SV("PPR",D UZ),"^",1) .W Y R X: 1 ;I $D(^C HMPAY("C", Y)) S DIC= "^CHMPAY(" ,DIC(0)="M NQE",X=Y D ^DIC G:Y= -1 ST1 S Y =$P(Y,"^", 2) G:$D(DU OUT) END ; I $D(^CHNV PAY("C",Y) ) S DIC="^ CHNVPAY(", DIC(0)="MN QE",X=Y D ^DIC G:Y=- 1 ST1 S Y= $P(Y,"^",2 ) G:$D(DUO UT) END I $L(Y)>10 D G:$D(DUO UT) END G: $D(DFOUT) END .K CLM ARRY S TMP PDI=Y D CL MARRY^CHFC D001(Y) .Q :'$D(CLMAR RY) .W !," #"," "," P DI "," "," Claim #" . S PT=0ST2 .S PT=$O(C LMARRY(PT) ) G:'PT ST 3 .S TCLMP T=$P(CLMAR RY(PT),"^" ,1) S X1=T CLMPT D PR OGTYP^CHFC D001 .S TC LMNUM=$P(@ (GLPAY_"TC LMPT,0)"), "^",1) .W !,PT," ",T MPPDI," ", TCLMNUM .S LPT=PT G ST2ST3 .W !,"Enter t he number to select: " D CSBRS ^CHSC2 .I $D(DQOUT) W !,"Enter the numbe r to selec t." G ST3 .Q:$D(DUOU T) Q:$D(DF OUT) .I (Y <1)!(Y>LPT ) W !,"Ent er a numbe r between 1 and "_LP T G ST3 .I '$D(CLMAR RY(Y)) W ! ,"Enter a number bet ween 1 and "_LPT G S T3 ;BMJ DE F012830 Ad ded this l ine to fix the undef ined error .S TCLMPT =$P(CLMARR Y(Y),"^",1 ) S X1=TCL MPT D PROG TYP^CHFCD0 01 .S Y=$P (@(GLPAY_" TCLMPT,0)" ),"^",1) . Q ST4 I '$ D(^CHMINDE X("B",Y)) W *7," ??" R X:3 D T ITLE G ST1 S I1=0,I1 =$O(^CHMIN DEX("B",Y, I1)) I 'I1 W *7," ?? " R X:3 D TITLE G ST 1 I '$D(^C HMINDEX(I1 ,0)) W *7, " ??" R X: 3 D TITLE G ST1 S X1 =I1 D PROG TYP^CHFCD0 01 ;S CHPG PT=$P(^CHM INDEX(I1,0 ),U,2) I C HPGPT="" W *7," ??" R X:3 D TI TLE G ST1 I '$D(^CHM DIC(741002 .94,CHPGPT ,0)) W *7, " ??" R X: 3 D TITLE G ST1 S CH PROG=$P(^C HMDIC(7410 02.94,CHPG PT,0),"^", 2) I '$D(^ CHMDIC(741 002.94,CHP GPT,1)) W *7," ??" R X:3 D TIT LE G ST1 ; S GLREC=^C HMDIC(7410 02.94,CHPG PT,1) ;S G LPAY=$P(GL REC,"^",1) ,GLELG=$P( GLREC,"^", 2),GLDFN=$ P(GLREC,"^ ",3) ;S GL PAYH=$P(GL REC,"^",4) ,GLPAYW=$P (GLREC,"^" ,5) ;K FIL E S FILE=" ^"_GLPAY_I 1_",""ZFI" ")" I $D(@ (GLPAY_"I1 ,""ZFI"")" )) W !!,"T his claim is from Bl ue Cross/B lue Shield !" R X:3 G Q1 K CHMF CLMS,CHMCL ,CI,I S CH MFCLMS(Y)= I1,CHMCL(Y )="",CI=I1 S CHMFQQ= Y,I=I1 S ^ DISV("PPR" ,DUZ)=Y ;C OMMENT OFF THE PREVI OUS LINE I F YOU WANT THE CLAIM TO GO TO BENE CALCS END S DX=1 F DY=1:1: 24 X XY W @CHEEL S D X=3,DY=10 X XY R X:4 S CHMFI=C I,CHMFPP=" 180B" D ^C HMFWK02 S CHMFQ(CHMF QQ)=CI ;CO MMENT OFF THE PREVIO US LINE IF YOU WANT THE CLAIM TO GO TO B ENE CALC S PPRFL=1,V IEWFL=1,CL =0 D VIEW G Q1END D DSPLY80 X CHRESET K CHMFQQ,VIE WFL,PPRFL, ^TMP($J),R EJLN($J),A UTODIST Q ;VIEW K ^T MP($J) D V IEW^CHMF35 1D,V1^CHMF 351P VIEW K ^TMP($J) D DSPLY,V IEW^CHMF35 1D,V1^CHMF 351P ; DEV 007820 EW 1/25/11 W !!,"Press <RETURN> t o continue ." R X QTI TLE W @IOF ,!,"VIEWIN G OF PPR" Q ;DSPLY ; DEV007820 EW 1/25/1 1 CHANGE D ISPLAY TO 132 FOR PP R WITH LIN E LEVEL DA TA I $D(PF LG) X ^%ZO SF("ZSETWI DE") S X=1 32 X ^%ZOS F("RM") S :'$D(SCRW) SCRW="" S :'$D(SCRN) SCRN="" I SCRW="" S SCRW="" S :$D(^%ZIS( 2,IOST(0), 554001)) S CRW=$P(^(5 54001),U,2 ) I SCRN=" " S SCRN=" " S:$D(^%Z IS(2,IOST( 0),554001) ) SCRN=$P( ^(554001), U,1) S X=1 32 X ^%ZOS F("RM") W @SCRW QDSP LY80 ; DEV 007820 EW 1/25/11 CH ANGE DISPL AY FROM 13 2 FOR PPR WITH LINE LEVEL DATA S:'$D(SCR W) SCRW="" S:'$D(SCR N) SCRN="" ;BUG PPR4 EW 4/11/12 I SCRW="" S SCRW="" S:$D(^%ZI S(2,IOST(0 ),554001)) SCRW=$P(^ (554001),U ,2) ;BUG P PR4 EW 4/1 1/12 S X=8 0 X ^%ZOSF ("RM") W @ SCRW W @$P (^%ZIS(2,I OST(0),554 001),"^",1 ) 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 | CHMKPPR2 ; DEH/DEN;CH AMPVA SEAR CH CLAIM F ILE SEND T O BC;11/05 /97 4:13 P M ;;1.0;CH AMPVA SYST EM;;JULY 4 , 1990;Bui ld 10 ;V1. 0 ;CPTS # 12621 (RLC ) ;BMJ DEF 012830 Fix the <UNDE FINED>ST3+ 4^CHMKPPR1 error ; D EV007820 E W 2/23/11 CHANGE DIS PLAY TO 13 2 FOR PPR WITH LINE LEVEL DATA ;CFS 10/1 8/2017 CPE 005-095 - Kill PAIDA RY used to gather to tals of al l claims f or Origina l and Curr ent PDI's. Q1 X CHRES ET W !,"VI EWING OF P PR"ST1 W ! !,"Select CLAIM OR P DI NUMBER: " D CSBRS ^CHSC2 S:Y '="" Y=$TR (Y,"abcdef ghijklmnop qrstuvwxyz ","ABCDEFG HIJKLMNOPQ RSTUVWXYZ" ) G:($D(DT OUT))!($D( DFOUT))!($ D(DUOUT)) END I $D(D QOUT) W !! ,"Enter a valid clai m or PDI n umber." R X:3 D TITL E G ST1 G: Y="" END I Y=" " D . Q:'$D(^DIS V("PPR",DU Z)) .S Y=$ P(^DISV("P PR",DUZ)," ^",1) .W Y R X:1 ;I $D(^CHMPAY ("C",Y)) S DIC="^CHM PAY(",DIC( 0)="MNQE", X=Y D ^DIC G:Y=-1 ST 1 S Y=$P(Y ,"^",2) G: $D(DUOUT) END ;I $D( ^CHNVPAY(" C",Y)) S D IC="^CHNVP AY(",DIC(0 )="MNQE",X =Y D ^DIC G:Y=-1 ST1 S Y=$P(Y, "^",2) G:$ D(DUOUT) E ND I $L(Y) >10 D G:$ D(DUOUT) E ND G:$D(DF OUT) END . K CLMARRY S TMPPDI=Y D CLMARRY ^CHFCD001( Y) .Q:'$D( CLMARRY) . W !,"#"," "," PDI ", " ","Claim #" .S PT= 0ST2 .S PT =$O(CLMARR Y(PT)) G:' PT ST3 .S TCLMPT=$P( CLMARRY(PT ),"^",1) S X1=TCLMPT D PROGTYP ^CHFCD001 .S TCLMNUM =$P(@(GLPA Y_"TCLMPT, 0)"),"^",1 ) .W !,PT, " ",TMPPDI ," ",TCLMN UM .S LPT= PT G ST2ST 3 .W !,"En ter the nu mber to se lect: " D CSBRS^CHSC 2 .I $D(DQ OUT) W !," Enter the number to select." G ST3 .Q:$D (DUOUT) Q: $D(DFOUT) .I (Y<1)!( Y>LPT) W ! ,"Enter a number bet ween 1 and "_LPT G S T3 .I '$D( CLMARRY(Y) ) W !,"Ent er a numbe r between 1 and "_LP T G ST3 ;B MJ DEF0128 30 Added t his line t o fix the undefined error .S T CLMPT=$P(C LMARRY(Y), "^",1) S X 1=TCLMPT D PROGTYP^C HFCD001 .S Y=$P(@(GL PAY_"TCLMP T,0)"),"^" ,1) .Q ST4 I '$D(^CH MINDEX("B" ,Y)) W *7, " ??" R X: 3 D TITLE G ST1 S I1 =0,I1=$O(^ CHMINDEX(" B",Y,I1)) I 'I1 W *7 ," ??" R X :3 D TITLE G ST1 I ' $D(^CHMIND EX(I1,0)) W *7," ??" R X:3 D T ITLE G ST1 S X1=I1 D PROGTYP^C HFCD001 ;S CHPGPT=$P (^CHMINDEX (I1,0),U,2 ) I CHPGPT ="" W *7," ??" R X:3 D TITLE G ST1 I '$D (^CHMDIC(7 41002.94,C HPGPT,0)) W *7," ??" R X:3 D T ITLE G ST1 S CHPROG= $P(^CHMDIC (741002.94 ,CHPGPT,0) ,"^",2) I '$D(^CHMDI C(741002.9 4,CHPGPT,1 )) W *7," ??" R X:3 D TITLE G ST1 ;S GLR EC=^CHMDIC (741002.94 ,CHPGPT,1) ;S GLPAY= $P(GLREC," ^",1),GLEL G=$P(GLREC ,"^",2),GL DFN=$P(GLR EC,"^",3) ;S GLPAYH= $P(GLREC," ^",4),GLPA YW=$P(GLRE C,"^",5) ; K FILE S F ILE="^"_GL PAY_I1_"," "ZFI"")" I $D(@(GLPA Y_"I1,""ZF I"")")) W !!,"This c laim is fr om Blue Cr oss/Blue S hield!" R X:3 G Q1 K CHMFCLMS, CHMCL,CI,I S CHMFCLM S(Y)=I1,CH MCL(Y)="", CI=I1 S CH MFQQ=Y,I=I 1 S ^DISV( "PPR",DUZ) =Y ;COMMEN T OFF THE PREVIOUS L INE IF YOU WANT THE CLAIM TO G O TO BENE CALCSEND S DX=1 F DY =1:1:24 X XY W @CHEE L S DX=3,D Y=10 X XY R X:4 S CH MFI=CI,CHM FPP="180B" D ^CHMFWK 02 S CHMFQ (CHMFQQ)=C I ;COMMENT OFF THE P REVIOUS LI NE IF YOU WANT THE C LAIM TO GO TO BENE C ALC S PPRF L=1,VIEWFL =1,CL=0 D VIEW G Q1E ND D DSPLY 80 X CHRES ET K CHMFQ Q,VIEWFL,P PRFL,^TMP( $J),REJLN( $J),AUTODI ST Q ;VIEW K ^TMP($J ) D VIEW^C HMF351D,V1 ^CHMF351P VIEW K ^TM P($J),PAID ARY D DSPL Y,VIEW^CHM F351D,V1^C HMF351P ; DEV007820 EW 1/25/11 K PAIDARY W !!,"Pre ss <RETURN > to conti nue." R X QTITLE W @ IOF,!,"VIE WING OF PP R" Q ;DSPL Y ; DEV007 820 EW 1/2 5/11 CHANG E DISPLAY TO 132 FOR PPR WITH LINE LEVEL DATA I $D (PFLG) X ^ %ZOSF("ZSE TWIDE") S X=132 X ^% ZOSF("RM") S:'$D(SCR W) SCRW="" S:'$D(SCR N) SCRN="" I SCRW="" S SCRW="" S:$D(^%ZI S(2,IOST(0 ),554001)) SCRW=$P(^ (554001),U ,2) I SCRN ="" S SCRN ="" S:$D(^ %ZIS(2,IOS T(0),55400 1)) SCRN=$ P(^(554001 ),U,1) S X =132 X ^%Z OSF("RM") W @SCRW QD SPLY80 ; D EV007820 E W 1/25/11 CHANGE DIS PLAY FROM 132 FOR PP R WITH LIN E LEVEL DA TA S:'$D(S CRW) SCRW= "" S:'$D(S CRN) SCRN= "" ;B UG PPR4 EW 4/11/12 I SCRW="" S SCRW="" S :$D(^%ZIS( 2,IOST(0), 554001)) S CRW=$P(^(5 54001),U,2 ) ;BUG PPR 4 EW 4/11/ 12 S X=80 X ^%ZOSF(" RM") W @SC RW W @$P(^ %ZIS(2,IOS T(0),55400 1),"^",1) 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.