9. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:33:41 AM Central 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.

9.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPACR1.m Mon Nov 5 16:42:27 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPACR1.m Mon Nov 5 17:37:05 2018 UTC

9.2 Comparison summary

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

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

9.4 Active regular expressions

No regular expressions were active.

9.5 Comparison detail

  1   CHBPACR1 ; CVA/AEB;CH K TO VERIF Y TRANSMIS SION TO AU STIN HAS O CCURED;10/ 09/08  8:2 9 AM
  2    ;V1.0
  3           ;C HTDT - STA RT DATE
  4           ;C HEDT - END  DATE
  5           ;C HIVAL I PO INTER TO ^ CHBPACL
  6           ;T MP(1) LOG  DATE,TMP(2 )=EOB,TMP( 3)=EOB1,TM P(4)=ZEOB, TMP(5)=CAP P
  7           ;T MP(6)=CALM ,TMP(7)=CA PP VTXT,TM P(8)=CLAM  VTXT,TMP(9 )=S741CH21
  8           ;T MP(10)=S74 1CH22,TMP( 11)=S741CH 23,TMP(12) =S741CH24, TMP(13)=S7 41CH27
  9           ;T MP(14)=DUZ ,TMP(15)=D ATE SENT O R RECEV'D
  10    S ZTRTN=" A^CHBPACR1 ",ZTDESC=" CHECK FOR  AAC "
  11    S ZTIO=""  D ^%ZTLOA D
  12    W !!,"You r task num ber is ",Z TSK
  13    Q
  14   A I '$D(DT ) D NOW^%D TC S DT=X
  15    I DT="" D  NOW^%DTC  S DT=X
  16    K TMP F I =1:1:13 S  TMP(I)=0   ;SET ALL F ILES TO NO T RECEIVED
  17    S $P(TMP( 1),"^",2)  ="LOG DATE ",$P(TMP(2 ),"^",2)=" EOB"
  18    S $P(TMP( 3),"^",2)= "EOB1",$P( TMP(4),"^" ,2)="ZEOB"
  19    S $P(TMP( 5),"^",2)= "CAPP",$P( TMP(6),"^" ,2)="CALM"
  20    S $P(TMP( 7),"^",2)= "CAPP VTXT ",$P(TMP(8 ),"^",2)=" CALM VTXT"
  21    S $P(TMP( 9),"^",2)= "S741CH21" ,$P(TMP(10 ),"^",2)=" S741CH22"
  22    S $P(TMP( 11),"^",2) ="S741CH23 ",$P(TMP(1 2),"^",2)= "S741CH24"
  23    S $P(TMP( 13),"^",2) ="S741CH27 "
  24    S CHTDT=D T-1
  25   A1 S CHTDT =$O(^CHBPA CL("B",CHT DT)) G:'CH TDT END
  26    S CHIVAL= 0
  27   A2 S CHIVA L=$O(^CHBP ACL("B",CH TDT,CHIVAL )) G:'CHIV AL A1
  28    G:'$D(^CH BPACL(CHIV AL,0)) A2
  29    F I=2:1:1 3 S $P(TMP (I),"^",1) =$P(TMP(I) ,"^",1)+$P (^CHBPACL( CHIVAL,0), "^",I)
  30    G A2
  31   END ;
  32    F CHSORT= 2:1:13 I $ P(TMP(CHSO RT),"^",1) =0 D
  33    .S TMP("E XCEP",CHSO RT)=$P(TMP (CHSORT)," ^",2)
  34    .Q
  35    D MAIL  ; SEND MAILM AN MESSAGE  AND OUTLO OK MESSAGE S
  36           Q
  37   MAIL S TMP CT=1
  38    S ^TMP($J ,"BATCH-FI LES",TMPCT )="",TMPCT =TMPCT+1
  39    S ^TMP($J ,"BATCH-FI LES",TMPCT )="The sta tus for th e AITC fil e transfer  process o n  "_$$FMT E^XLFDT(DT ,"1D")
  40    S TMPCT=T MPCT+1
  41    S ^TMP($J ,"BATCH-FI LES",TMPCT )="is as f ollows:"
  42    I '$D(TMP ("EXCEP"))  S TMPCT=T MPCT+1,^TM P($J,"BATC H-FILES",T MPCT)="All  files sen t or retur ned." G M1 0
  43    I $D(TMP( "EXCEP"))  D
  44    .S IV=0
  45   M1 .S IV=$ O(TMP("EXC EP",IV)) Q :'IV
  46    .S TMPCT= TMPCT+1,^T MP($J,"BAT CH-FILES", TMPCT)="Th e "_TMP("E XCEP",IV)_ " File has  not been  sent or re ceived."
  47    .G M1
  48    .Q
  49   M10 S XMDU Z=.5,XMY(" 9887")="", XMY("23249 ")=""="",X MY("58243" )=""
  50    S XMY(" PII             ")=""
  51    S XMY(" PII                    ")=""
  52    ;S XMY(" P I               ")=""
  53    ;S XMY(" PII                  ")=""
  54    S XMTEXT= "^TMP($J," "BATCH-FIL ES"","
  55    S XMSUB=" DAILY BATC H CHECK LI ST" D ^XMD
  56    Q