34. EPMO Open Source Coordination Office Redaction File Detail Report

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.

34.1 Files compared

# 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

34.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 36
Changed 0 0
Inserted 0 0
Removed 0 0

34.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

34.4 Active regular expressions

No regular expressions were active.

34.5 Comparison detail

  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