12. EPMO Open Source Coordination Office Redaction File Detail Report

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

12.1 Files compared

# Location File Last Modified
1 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\932451-CPE005-033 TOB FC 8 Original PDI Is Not Valid Developer Form CPE005-033.docx Thu Dec 7 15:13:26 2017 UTC
2 OSCIF_CPEE_Sprint_1 and 2.zip\Build_4_Sprint_2\932451-CPE005-033 TOB FC 8 Original PDI Is Not Valid Developer Form CPE005-033.docx Thu Dec 7 20:47:14 2017 UTC

12.2 Comparison summary

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

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

12.4 Active regular expressions

No regular expressions were active.

12.5 Comparison detail

  1   Routine Na me:  CHMFA DR4
  2   Developer  Name(s):   Anthony Fe aster
  3   Associated  User Stor y/Stories:   CPE005-0 33
  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   CH1 D ^CHM FA008 I $D (CHMFBAD)  D  G CRO0  .D KLOCK^C HMFADR1 .D  REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 .S CHMQN AM="CHMBAD Q(",CHMIN= 1 K CHMOUT  D ^CHMIS0 41 Q I $D( CHMFPAUS)  D SETPD^CH MFADR1 Q I  $D(CHMFKI L) D  Q
  7    .S FKIL=1  .D SETPRO D^CHMFADR1  .D KLOCK^ CHMFADR1 . D DELST1^C HMFADR1 .D  SBOCRRDY^ CHMFADR1 . S $P(^CHMI MG(CHMFPDI ,0),"^",3) ="" .S $P( ^CHMIMG(CH MFPDI,0)," ^",4)="" . I $D(^CHMI MG(CHMFPDI ,"PAUSE"))  K ^CHMIMG (CHMFPDI," PAUSE")
  8    I $D(CHMF KIL) D  Q  .D SETPROD ^CHMFADR1  .D KLOCK^C HMFADR1 .D  DELST1^CH MFADR1 .D  OCRRRDY^CH MFADR1 .S  $P(^CHMIMG (CHMFPDI,0 ),"^",3)=" " .S $P(^C HMIMG(CHMF PDI,0),"^" ,4)="" .I  $D(^CHMIMG (CHMFPDI," PAUSE")) K  ^CHMIMG(C HMFPDI,"PA USE")
  9  
  10   SB1 D ^CHM FA008 I $D (CHMFBAD)  D  G SB0 . D KLOCK^CH MFADR1 .D  REMV^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D KILA LL^CHMFADR 1 .S CHMQN AM="IMAGE( ",CHMOUT=1  K CHMIN D  ^CHMIS041  .S CHMQNA M="CHMBADQ (",CHMIN=1  K CHMOUT  D ^CHMIS04 1 Q I $D(C HMFPAUS) D  SETPD^CHM FADR1 Q I  $D(CHMFKIL ) D  Q  .S  FKIL=1 .D  SETPROD^C HMFADR1 .D  KLOCK^CHM FADR1 .D D ELST1^CHMF ADR1 .D SB OCRRDY^CHM FADR1 .S $ P(^CHMIMG( CHMFPDI,0) ,"^",3)=""  .S $P(^CH MIMG(CHMFP DI,0),"^", 4)="" .I $ D(^CHMIMG( CHMFPDI,"P AUSE")) K  ^CHMIMG(CH MFPDI,"PAU SE")
  11  
  12  
  13   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)
  14   CH1 D ^CHM FA008 I $D (CHMFBAD)  D  G CRO0  .D KLOCK^C HMFADR1 .D  REMV^CHMF ADR1 .D DE LST1^CHMFA DR1 .D KIL ALL^CHMFAD R1 .S CHMQ NAM="IMAGE (",CHMOUT= 1 K CHMIN  D ^CHMIS04 1 .S CHMQN AM="CHMBAD Q(",CHMIN= 1 K CHMOUT  D ^CHMIS0 41 Q I $D( CHMFPAUS)  D SETPD^CH MFADR1 Q I  $D(CHMFKI L) D  Q
  15    .;AJF 10/ 05/2017 CP E005-033   .N CHMFTOB  .S CHMFTO B=$$TOB^CH MFADR2(CHM FPDI,CHMFP GNM,CHMFIM AG) .I $E( CHMFTOB,3) =8 D CHRJ  Q:$D(CHREJ ) .S FKIL= 1 .D SETPR OD^CHMFADR 1 .D KLOCK ^CHMFADR1  .D DELST1^ CHMFADR1 . D SBOCRRDY ^CHMFADR1  .S $P(^CHM IMG(CHMFPD I,0),"^",3 )="" .S $P (^CHMIMG(C HMFPDI,0), "^",4)=""  .I $D(^CHM IMG(CHMFPD I,"PAUSE") ) K ^CHMIM G(CHMFPDI, "PAUSE")
  16    
  17  
  18   SB1 D ^CHM FA008 I $D (CHMFBAD)  D  G SB0 . D KLOCK^CH MFADR1 .D  REMV^CHMFA DR1 .D DEL ST1^CHMFAD R1 .D KILA LL^CHMFADR 1 .S CHMQN AM="IMAGE( ",CHMOUT=1  K CHMIN D  ^CHMIS041  .S CHMQNA M="CHMBADQ (",CHMIN=1  K CHMOUT  D ^CHMIS04 1 Q I $D(C HMFPAUS) D  SETPD^CHM FADR1 Q I  $D(CHMFKIL ) D  Q .;A JF 10/05/2 017 CPE005 -033  .N C HMFTOB .S  CHMFTOB=$$ TOB^CHMFAD R2(CHMFPDI ,CHMFPGNM, CHMFIMAG)  .I $E(CHMF TOB,3)=8 D  CHRJ Q:$D (CHREJ) .S  FKIL=1 .D  SETPROD^C HMFADR1 .D  KLOCK^CHM FADR1 .D D ELST1^CHMF ADR1 .D SB OCRRDY^CHM FADR1 .S $ P(^CHMIMG( CHMFPDI,0) ,"^",3)=""  .S $P(^CH MIMG(CHMFP DI,0),"^", 4)="" .I $ D(^CHMIMG( CHMFPDI,"P AUSE")) K  ^CHMIMG(CH MFPDI,"PAU SE")
  19  
  20  
  21  
  22   Difference s
  23  
  24  
  25    .;AJF 10/ 05/2017 CP E005-033   .N CHMFTOB  .S CHMFTO B=$$TOB^CH MFADR2(CHM FPDI,CHMFP GNM,CHMFIM AG) .I $E( CHMFTOB,3) =8 D CHRJ  Q:$D(CHREJ )
  26  
  27  
  28   CHRJ ;Proc ess for Re jecting in valid PDI  ;AJF 10/05 /2017 CPE0 05-033  N  CHR,DIC,DA ,X,DA,DLAY GO S DY=15 ,DX=20 X X Y W "Do yo u want to  reject thi s PDI? (Y/ N) //No "  R CHR:10 Q :$E($$UP^X LFSTR($G(C HR)),1)'=" Y" D CSTAT ^CHMXPUTL( CHMFPDI,"F 2:464:736" ) ;FIND IE N for CHMX CLE Buffer  file S J1 =$Q(^CHMXC LE("PDI",C HMFPDI)),J 2=$TR(J1," ""","*"),J 3=$P(J2,"* ",9) ;Add  E33a Error  code to t his PDI S  DIC="^CHMX CLE("_J3_" ,101,",DA( 1)=J3,DIC( 0)="L",DLA YGO=741210 .12,X=106  D FILE^DIC N ;CHRJ2 ;  Reject PD I S FKIL=1 ,CHREJ=1 D  SETPROD^C HMFADR1 D  KLOCK^CHMF ADR1 D DEL ST1^CHMFAD R1 ; Q
  29  
  30  
  31   Passed XIN DEX?  (Y /  N):  Yes