32. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 12/7/2017 6:28:37 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.

32.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 CHMKPDI2 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 CHMKPDI2 Developer Form.docx Thu Dec 7 23:08:47 2017 UTC

32.2 Comparison summary

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

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

32.4 Active regular expressions

No regular expressions were active.

32.5 Comparison detail

  1   Routine Na me:  _____ __CHMKPDI2 ___
  2   Developer  Name(s):   _________C indy Stile s_____
  3   Associated  User Stor y/Stories:     ______ _CPE005-09 5_
  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   CHMKPDI2 ; DEH/DEN;VI EW PPR FOR  PDI;09/24 /97 4:57 P M ;;1.0;CH AMPVA SYST EM;;JULY 4 , 1990;Bui ld 10 ;V1. 0 ;CPTS #1 2621 (RLC) , #15932 ( Y2K) ;GET  PDI ;DEV00 7820 EW 3/ 16/12Q1 X  CHRESET W  "VIEWING O F PPR" S D X=1,DY=5 X  XY S DIC= 741000.2,D IC(0)="AQM E" D ^DIC  K DIC G EN D:$D(DUOUT ) I Y=-1 I  '$D(^UTIL ITY($J,1))  G END I Y =-1 I $D(^ UTILITY($J ,1)) G END  ;S CLPDI= $P(Y,U,1), CHPRGPT=$E (CLPDI,6,7 ) D GTPRG^ CHMKPDI1 ; Y2K ;S CLP DI=$P(Y,U, 1),CHPRGPT =$$TYPE^CH MFPDI2(CLP DI) D GTPR G^CHMKPDI1  S CLPDI=$ P(Y,U,1) S  CHPRGPT=$ $TYPE^CHMF PDI2(CLPDI ) S:CHPRGP T'="" PRGF LG="" I '$ D(PRGFLG)  I '$D(^UTI LITY($J,1) ) D  G Q1  .W !!,"INV ALID PDI S ELECTED. P LEASE TRY  AGAIN." .R  X:3 .X CH RESET W !, "PRINTING  OF PPR'S F OR A PDI"  .Q K CLMAR RY D CLMAR RY^CHFCD00 1(CLPDI) I  '$D(PRGFL G) I $D(^U TILITY($J, 1)) G END  ; ;GET CLA IMS K CHUT IL S CHARY PT=0,CCNT= 0PDI1 ; ;K  FILE,FILE 0 ;S FILE= "^"_GLPAY_ """C"","_C LPDI_","_C LPDIPTR_") ",CLPDIPTR =$O(@FILE)  G:'CLPDIP TR PDI2 ;S  CLNUM=CLP DIPTR S CH ARYPT=$O(C LMARRY(CHA RYPT)) G:' CHARYPT PD I2 S CLMPT =CLMARRY(C HARYPT) G: CLMPT="" P DI1 S X1=C LMPT D PRO GTYP^CHFCD 001 I $D(@ (GLPAY_"CL MPT,0)"))  I $P(@(GLP AY_"CLMPT, 0)"),U,2)= 10 G PDI1  S CCNT=CCN T+1 S CHUT IL(CLMPT)= CLMPT_"^"_ $P(@(GLPAY _"CLMPT,0) "),U,1) G  PDI1PDI2 ; VIEW PPRS  W !!,"NUMB ER OF CLAI MS = "_CCN T W !,"PRE SS ANY KEY  TO CONTIN UE " R X S  CLNUM="", EXFLG=0PDI 3 S CLNUM= $O(CHUTIL( CLNUM)) G  END:'CLNUM  K CHMFCLM S,CHMCL,CI ,I S CHMFC LMS($P(CHU TIL(CLNUM) ,"^",2))=+ CHUTIL(CLN UM),CHMCL( $P(CHUTIL( CLNUM),"^" ,2))="",CI =+CHUTIL(C LNUM) S CH MFQQ=$P(CH UTIL(CLNUM ),"^",2),I =+CHUTIL(C LNUM) S CH MFQ(CHMFQQ )=CI,CHCCL M=CI S PPR FL=1,VIEWF L=1,CL=0 D  VIEW G:EX FLG=1 END  G PDI3 Q ; END D DSPL Y80^CHMKPP R2 X CHRES ET K CHMFQ Q,VIEWFL,P PRFL Q;DEV 007820 EW  3/16/12VIE W K ^TMP($ J) D DSPLY ^CHMKPPR2, VIEW^CHMF3 51D,V1^CHM F351P ;DEV 007820 EW  3/16/12 W  !!,"Press  <RETURN> t o continue , <^> to e xit." R X  S:X="^" EX FLG=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   CHMKPDI2 ; DEH/DEN;VI EW PPR FOR  PDI;09/24 /97 4:57 P M ;;1.0;CH AMPVA SYST EM;;JULY 4 , 1990;Bui ld 10 ;V1. 0 ;CPTS #1 2621 (RLC) , #15932 ( Y2K) ;GET  PDI ;DEV00 7820 EW 3/ 16/12 ;CFS  10/18/201 7 CPE005-0 95 - Kill  PAIDARY us ed to gath er totals  of all cla ims for Or iginal and  Current P DI's.Q1 X  CHRESET W  "VIEWING O F PPR" S D X=1,DY=5 X  XY S DIC= 741000.2,D IC(0)="AQM E" D ^DIC  K DIC G EN D:$D(DUOUT ) I Y=-1 I  '$D(^UTIL ITY($J,1))  G END I Y =-1 I $D(^ UTILITY($J ,1)) G END  ;S CLPDI= $P(Y,U,1), CHPRGPT=$E (CLPDI,6,7 ) D GTPRG^ CHMKPDI1 ; Y2K ;S CLP DI=$P(Y,U, 1),CHPRGPT =$$TYPE^CH MFPDI2(CLP DI) D GTPR G^CHMKPDI1  S CLPDI=$ P(Y,U,1) S  CHPRGPT=$ $TYPE^CHMF PDI2(CLPDI ) S:CHPRGP T'="" PRGF LG="" I '$ D(PRGFLG)  I '$D(^UTI LITY($J,1) ) D  G Q1  .W !!,"INV ALID PDI S ELECTED. P LEASE TRY  AGAIN." .R  X:3 .X CH RESET W !, "PRINTING  OF PPR'S F OR A PDI"  .Q K CLMAR RY D CLMAR RY^CHFCD00 1(CLPDI) I  '$D(PRGFL G) I $D(^U TILITY($J, 1)) G END  ; ;GET CLA IMS K CHUT IL S CHARY PT=0,CCNT= 0PDI1 ; ;K  FILE,FILE 0 ;S FILE= "^"_GLPAY_ """C"","_C LPDI_","_C LPDIPTR_") ",CLPDIPTR =$O(@FILE)  G:'CLPDIP TR PDI2 ;S  CLNUM=CLP DIPTR S CH ARYPT=$O(C LMARRY(CHA RYPT)) G:' CHARYPT PD I2 S CLMPT =CLMARRY(C HARYPT) G: CLMPT="" P DI1 S X1=C LMPT D PRO GTYP^CHFCD 001 I $D(@ (GLPAY_"CL MPT,0)"))  I $P(@(GLP AY_"CLMPT, 0)"),U,2)= 10 G PDI1  S CCNT=CCN T+1 S CHUT IL(CLMPT)= CLMPT_"^"_ $P(@(GLPAY _"CLMPT,0) "),U,1) G  PDI1PDI2 ; VIEW PPRS  W !!,"NUMB ER OF CLAI MS = "_CCN T W !,"PRE SS ANY KEY  TO CONTIN UE " R X S  CLNUM="", EXFLG=0 K  PAIDARY  ; CPE005-069 PDI3 S CLN UM=$O(CHUT IL(CLNUM))  G END:'CL NUM K CHMF CLMS,CHMCL ,CI,I S CH MFCLMS($P( CHUTIL(CLN UM),"^",2) )=+CHUTIL( CLNUM),CHM CL($P(CHUT IL(CLNUM), "^",2))="" ,CI=+CHUTI L(CLNUM) S  CHMFQQ=$P (CHUTIL(CL NUM),"^",2 ),I=+CHUTI L(CLNUM) S  CHMFQ(CHM FQQ)=CI,CH CCLM=CI S  PPRFL=1,VI EWFL=1,CL= 0 D VIEW G :EXFLG=1 E ND G PDI3  Q ;END D D SPLY80^CHM KPPR2 X CH RESET K CH MFQQ,VIEWF L,PPRFL,PA IDARY Q  ; DEV007820  EW 3/16/12 VIEW K ^TM P($J) D DS PLY^CHMKPP R2,VIEW^CH MF351D,V1^ CHMF351P ; DEV007820  EW 3/16/12  W !!,"Pre ss <RETURN > to conti nue, <^> t o exit." R  X S:X="^"  EXFLG=1 Q
  11  
  12  
  13   Difference s
  14  
  15   See highli ghted info  above.
  16  
  17  
  18   Passed XIN DEX?  (Y /  N):  Y