33. EPMO Open Source Coordination Office Redaction File Detail Report

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

33.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 CHMKPPR1 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 CHMKPPR1 Developer Form.docx Thu Dec 7 23:09:42 2017 UTC

33.2 Comparison summary

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

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

33.4 Active regular expressions

No regular expressions were active.

33.5 Comparison detail

  1   Routine Na me:  _____ __CHMKPPR1 ___
  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   CHMKPPR1 ; CVA/PEJ;PP R PRINTOUT  LIST;02/1 1/98 11:57  AM ;;1.0; CHAMPVA SY STEM;;JULY  4, 1990;B uild 10 ;; V2.0; ;CPT (S) 11008*  JLR, #126 21* (RLC),  #13578 (R LC) ;BMJ D EF012830 F ix the <UN DEFINED>ST 3+4^CHMKPP R1 error   ;DEV7820 E W 3/18/11S TARTQ S U= "^" D ^CHM GSET X CHR ESET D TIT LEST0 W "< V>IEW OR < P>RINT? "  D CSBRS^CH SC2 G END: $D(DFOUT), END:$D(DUO UT) I $D(D QOUT) W !! ,"Please e nter 'V' t o View or  'P' to Pri nt.",!! G  ST0 G:Y=""  END I "Vv Pp"'[Y W * 7,*7,!!,"P lease ente r 'V' to V iew or 'P'  to Print. " R X:4 G  STARTQ I " Vv"[Y D ^C HMKPPR2 G  STARTQ W !  K ^CHMZHO LD($J) S C CNT=1ST1 W  !,"Select  CLAIM OR  PDI NUMBER : " D CSBR S^CHSC2 S: Y'="" Y=$T R(Y,"abcde fghijklmno pqrstuvwxy z","ABCDEF GHIJKLMNOP QRSTUVWXYZ ") G:($D(D TOUT))!($D (DFOUT))!( $D(DUOUT))  END I $D( DQOUT) W ! !,"Enter a  valid cla im or PDI  number." R  X:3 D TIT LE G ST1IC Q I Y="" I  '$D(^CHMZ HOLD($J,1) ) G END I  Y="" I $D( ^CHMZHOLD( $J,1)) G S T4 I Y=" "  D .Q:'$D( ^DISV("PPR ",DUZ)) .S  Y=$P(^DIS V("PPR",DU Z),"^",1)  .W Y ;I $D (^CHMPAY(" C",Y)) S D IC="^CHMPA Y(",DIC(0) ="MNQE",X= Y D ^DIC G :Y=-1 ST1  S Y=$P(Y," ^",2) G:$D (DUOUT) EN D ;I $D(^C HNVPAY("C" ,Y)) S DIC ="^CHNVPAY (",DIC(0)= "MNQE",X=Y  D ^DIC G: Y=-1 ST1 S  Y=$P(Y,"^ ",2) G:$D( DUOUT) END  I $L(Y)>1 0 D  G:$D( DUOUT) END  G:$D(DFOU T) END .K  CLMARRY S  TMPPDI=Y D  CLMARRY^C HFCD001(Y)  .Q:'$D(CL MARRY) .W  !,"#"," ", " PDI ","  ","Claim # " .S PT=0S T2 .S PT=$ O(CLMARRY( PT)) G:'PT  ST3 .S TC LMPT=$P(CL MARRY(PT), "^",1) S X 1=TCLMPT D  PROGTYP^C HFCD001 .S  TCLMNUM=$ P(@(GLPAY_ "TCLMPT,0) "),"^",1)  .W !,PT,"  ",TMPPDI,"  ",TCLMNUM  .S LPT=PT  G ST2ST3  .W !,"Ente r the numb er to sele ct: " D CS BRS^CHSC2  .I $D(DQOU T) W !,"En ter the nu mber to se lect." G S T3 .Q:$D(D UOUT) Q:$D (DFOUT) .I  (Y<1)!(Y> LPT) W !," Enter a nu mber betwe en 1 and " _LPT G ST3  .I '$D(CL MARRY(Y))  W !,"Enter  a number  between 1  and "_LPT  G ST3 ;BMJ  DEF012830  Added thi s line to  fix the un defined er ror  .S TC LMPT=$P(CL MARRY(Y)," ^",1) S X1 =TCLMPT D  PROGTYP^CH FCD001 .S  Y=$P(@(GLP AY_"TCLMPT ,0)"),"^", 1) .Q 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 C HPGPT=$P(^ CHMINDEX(I 1,0),U,2)  S X1=I1 D  PROGTYP^CH FCD001 I C HPGPT="" W  *7," ??"  R X:3 D TI TLE G ST1  S CLNUM=I1  S ^CHMZHO LD($J,CCNT ,CLNUM)=""  S CCNT=CC NT+1 S ^DI SV("PPR",D UZ)=Y G ST 1ST4 ; W ! ! S IOP="Q " D ^%ZIS  G:POP END  I ION'["/W " W !,"THI S REPORT R EQUIRES A  WIDE PRINT ER" G ST4  ;DEV7820 E W 3/18/11  S CHFIO=IO N S ZTRTN= "STARTC^CH MKPPR1" S  ZTDESC="PP RS FOR CLA IMS IN LIS T" S ZTIO= "" S ZTSAV E("CHFIO") ="" S ZTSA VE("^CHMZH OLD($J,")= "" S ZTSAV E("GLPAY") ="",ZTSAVE ("GLDFN")= "",ZTSAVE( "GLELG")=" " S ZTSAVE ("GLPAYH") ="",ZTSAVE ("GLPAYW") ="" D ^%ZT LOAD ;D HO ME^%ZISEND  K IOP,CHM FRS,CHMFPD I,CHMFCLMS ,CHMCL,CHM CCR,CI,CN, CLNUM,CCNT ,CHMFI,CHM FQQ,CHMFPP  ;W @IOF Q  ; ;STARTC  S U="^" S  CHPG=0 S  CCNT=0SA2  S CCNT=$O( ^CHMZHOLD( $J,CCNT))  G:'CCNT PQ UE S CLPTR =0,CLPTR=$ O(^CHMZHOL D($J,CCNT, CLPTR)) S  (CHCCLM,I) =CLPTR D G TPTR D ^CH MF351D G S A2 ;PQUE K  BNCLARY,^ CHMZHOLD($ J) S %ZIS= "Q" S IOP= "Q;"_CHFIO  D ^%ZIS G :POP CEND  K ZTIO S Z TRTN="PRIN T^CHMKPPR1 " S ZTSAVE ("^TMP($J, ")="" S ZT SAVE("GLPA Y")="",ZTS AVE("GLDFN ")="",ZTSA VE("GLELG" )="" S ZTS AVE("GLPAY H")="",ZTS AVE("GLPAY W")="" D ^ %ZTLOADCEN D Q ; ;PRI NT ;D ^CHM KMCR3 S EX FLG=0 K VI EWFL D ^CH MF351P Q ; TITLE W @I OF,!,"PRIN TING OF PP RS",!! Q ; GTPTR Q:'$ D(^CHMINDE X(CHCCLM))  Q:'$D(^CH MINDEX(CHC CLM,0)) S  X1=CHCCLM  D PROGTYP^ CHFCD001 Q  S CHPGPT= $P(^(0),U, 2) Q:CHPGP T="" Q:'$D (^CHMDIC(7 41002.94,C HPGPT,0))  S CHPROG=$ P(^(0),U,2 ) Q:'$D(^C HMDIC(7410 02.94,CHPG PT,1)) S G LREC=^(1)  S GLPAY=$P (GLREC,"^" ,1),GLELG= $P(GLREC," ^",2),GLDF N=$P(GLREC ,"^",3) S  GLPAYH=$P( GLREC,"^", 4),GLPAYW= $P(GLREC," ^",5) 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   CHMKPPR1 ; CVA/PEJ;PP R PRINTOUT  LIST;02/1 1/98 11:57  AM ;;1.0; CHAMPVA SY STEM;;JULY  4, 1990;B uild 10 ;; V2.0; ;CPT (S) 11008*  JLR, #126 21* (RLC),  #13578 (R LC) ;BMJ D EF012830 F ix the <UN DEFINED>ST 3+4^CHMKPP R1 error   ;DEV7820 E W 3/18/11  ;CFS 10/18 /2017 CPE0 05-095 - K ill PAIDAR Y used to  gather tot als of all  claims fo r Original  and Curre nt PDI's.S TARTQ S U= "^" D ^CHM GSET X CHR ESET D TIT LEST0 W "< V>IEW OR < P>RINT? "  D CSBRS^CH SC2 G END: $D(DFOUT), END:$D(DUO UT) I $D(D QOUT) W !! ,"Please e nter 'V' t o View or  'P' to Pri nt.",!! G  ST0 G:Y=""  END I "Vv Pp"'[Y W * 7,*7,!!,"P lease ente r 'V' to V iew or 'P'  to Print. " R X:4 G  STARTQ I " Vv"[Y D ^C HMKPPR2 G  STARTQ W !  K ^CHMZHO LD($J) S C CNT=1ST1 W  !,"Select  CLAIM OR  PDI NUMBER : " D CSBR S^CHSC2 S: Y'="" Y=$T R(Y,"abcde fghijklmno pqrstuvwxy z","ABCDEF GHIJKLMNOP QRSTUVWXYZ ") G:($D(D TOUT))!($D (DFOUT))!( $D(DUOUT))  END I $D( DQOUT) W ! !,"Enter a  valid cla im or PDI  number." R  X:3 D TIT LE G ST1IC Q I Y="" I  '$D(^CHMZ HOLD($J,1) ) G END I  Y="" I $D( ^CHMZHOLD( $J,1)) G S T4 I Y=" "  D .Q:'$D( ^DISV("PPR ",DUZ)) .S  Y=$P(^DIS V("PPR",DU Z),"^",1)  .W Y ;I $D (^CHMPAY(" C",Y)) S D IC="^CHMPA Y(",DIC(0) ="MNQE",X= Y D ^DIC G :Y=-1 ST1  S Y=$P(Y," ^",2) G:$D (DUOUT) EN D ;I $D(^C HNVPAY("C" ,Y)) S DIC ="^CHNVPAY (",DIC(0)= "MNQE",X=Y  D ^DIC G: Y=-1 ST1 S  Y=$P(Y,"^ ",2) G:$D( DUOUT) END  I $L(Y)>1 0 D  G:$D( DUOUT) END  G:$D(DFOU T) END .K  CLMARRY S  TMPPDI=Y D  CLMARRY^C HFCD001(Y)  .Q:'$D(CL MARRY) .W  !,"#"," ", " PDI ","  ","Claim # " .S PT=0S T2 .S PT=$ O(CLMARRY( PT)) G:'PT  ST3 .S TC LMPT=$P(CL MARRY(PT), "^",1) S X 1=TCLMPT D  PROGTYP^C HFCD001 .S  TCLMNUM=$ P(@(GLPAY_ "TCLMPT,0) "),"^",1)  .W !,PT,"  ",TMPPDI,"  ",TCLMNUM  .S LPT=PT  G ST2ST3  .W !,"Ente r the numb er to sele ct: " D CS BRS^CHSC2  .I $D(DQOU T) W !,"En ter the nu mber to se lect." G S T3 .Q:$D(D UOUT) Q:$D (DFOUT) .I  (Y<1)!(Y> LPT) W !," Enter a nu mber betwe en 1 and " _LPT G ST3  .I '$D(CL MARRY(Y))  W !,"Enter  a number  between 1  and "_LPT  G ST3 ;BMJ  DEF012830  Added thi s line to  fix the un defined er ror  .S TC LMPT=$P(CL MARRY(Y)," ^",1) S X1 =TCLMPT D  PROGTYP^CH FCD001 .S  Y=$P(@(GLP AY_"TCLMPT ,0)"),"^", 1) .Q 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 C HPGPT=$P(^ CHMINDEX(I 1,0),U,2)  S X1=I1 D  PROGTYP^CH FCD001 I C HPGPT="" W  *7," ??"  R X:3 D TI TLE G ST1  S CLNUM=I1  S ^CHMZHO LD($J,CCNT ,CLNUM)=""  S CCNT=CC NT+1 S ^DI SV("PPR",D UZ)=Y G ST 1ST4 ; W ! ! S IOP="Q " D ^%ZIS  G:POP END  I ION'["/W " W !,"THI S REPORT R EQUIRES A  WIDE PRINT ER" G ST4  ;DEV7820 E W 3/18/11  S CHFIO=IO N S ZTRTN= "STARTC^CH MKPPR1" S  ZTDESC="PP RS FOR CLA IMS IN LIS T" S ZTIO= "" S ZTSAV E("CHFIO") ="" S ZTSA VE("^CHMZH OLD($J,")= "" S ZTSAV E("GLPAY") ="",ZTSAVE ("GLDFN")= "",ZTSAVE( "GLELG")=" " S ZTSAVE ("GLPAYH") ="",ZTSAVE ("GLPAYW") ="" D ^%ZT LOAD ;D HO ME^%ZISEND  K IOP,CHM FRS,CHMFPD I,CHMFCLMS ,CHMCL,CHM CCR,CI,CN, CLNUM,CCNT ,CHMFI,CHM FQQ,CHMFPP  ;W @IOF Q  ; ;STARTC  S U="^" S  CHPG=0 S  CCNT=0 K P AIDARYSA2  S CCNT=$O( ^CHMZHOLD( $J,CCNT))  G:'CCNT PQ UE S CLPTR =0,CLPTR=$ O(^CHMZHOL D($J,CCNT, CLPTR)) S  (CHCCLM,I) =CLPTR D G TPTR D ^CH MF351D G S A2 ;PQUE K  BNCLARY,^ CHMZHOLD($ J) S %ZIS= "Q" S IOP= "Q;"_CHFIO  D ^%ZIS G :POP CEND  K ZTIO S Z TRTN="PRIN T^CHMKPPR1 " S ZTSAVE ("^TMP($J, ")="" S ZT SAVE("GLPA Y")="",ZTS AVE("GLDFN ")="",ZTSA VE("GLELG" )="" S ZTS AVE("GLPAY H")="",ZTS AVE("GLPAY W")="" D ^ %ZTLOADCEN D Q ; ;PRI NT ;D ^CHM KMCR3 S EX FLG=0 K VI EWFL D ^CH MF351P K P AIDARY Q ; TITLE W @I OF,!,"PRIN TING OF PP RS",!! Q ; GTPTR Q:'$ D(^CHMINDE X(CHCCLM))  Q:'$D(^CH MINDEX(CHC CLM,0)) S  X1=CHCCLM  D PROGTYP^ CHFCD001 Q  S CHPGPT= $P(^(0),U, 2) Q:CHPGP T="" Q:'$D (^CHMDIC(7 41002.94,C HPGPT,0))  S CHPROG=$ P(^(0),U,2 ) Q:'$D(^C HMDIC(7410 02.94,CHPG PT,1)) S G LREC=^(1)  S GLPAY=$P (GLREC,"^" ,1),GLELG= $P(GLREC," ^",2),GLDF N=$P(GLREC ,"^",3) S  GLPAYH=$P( GLREC,"^", 4),GLPAYW= $P(GLREC," ^",5) Q
  11  
  12  
  13   Difference s
  14  
  15   See highli ghted info  above.
  16  
  17  
  18   Passed XIN DEX?  (Y /  N):  Y