77. EPMO Open Source Coordination Office Redaction File Detail Report

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

77.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLSREPT.m Mon Nov 5 16:39:37 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLSREPT.m Mon Nov 5 17:41:54 2018 UTC

77.2 Comparison summary

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

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

77.4 Active regular expressions

No regular expressions were active.

77.5 Comparison detail

  1   CHLSREPT ; AHJ/DEN;CH AMPVA SERV ICES FILE  DATA TO FS 3BIG XLS F ILE
  2    ;V1.0
  3    ;
  4    ;R1922435 6FY18 DEV0 16554 DPT  REMOVE DEC NET 3/13/1 8
  5    S U="^"
  6    S T=$C(9)
  7    D NOW^%DT C S RUNTIM E=%
  8    S Y=$E(RU NTIME,1,7)
  9    S TODAY=Y
  10    S Y=TODAY  D DD^%DT  S TODAY=Y
  11   START ;
  12    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DPT  DEV016554  R19224356F Y18
  13    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ;D PT DEV0165 54 R192243 56FY18
  14    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DPT DE V016554 R1 9224356FY1 8
  15    S FILENM= "CHAMPVA_S ERVICES.TX T" ;DEV016 554 DPT R1 9224356FY1 8
  16    S FIO=FOL DER_FILENM   ;DEV0165 54 DPT
  17    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q ;D PT MTN0186 31    DEV0 16554 R192 24356FY18
  18    I '$T S $ ZE="UNABLE  TO OPEN F IO FILE--R EPORT NOT  WRITTEN" ; DPT MTN018 631    DEV 016554
  19    ;O FIO C  FIO:"D"
  20    ;O FIO:"N WV"
  21    S CHSTOP= 0,SORT=0,C T=0
  22    S IN=0
  23    U FIO W " CHAMPVA SE RVICES COD ES="_TODAY ,!
  24    U FIO W ! ,"SERVICE  CODE"_T_"       TYPE" _T_"DUZ"_T _"DATE ADD ED"_T_"PRI NT SWITCH( Y/N)",!
  25    ;U FIO W  "SERVICE C ODE"_T_"      TYPE"_T _"PRINT SW ITCH(Y/N)" ,!
  26    S SERVCD= 0
  27   A1 ;
  28    S SERVCD= $O(^CHMSER V("B",SERV CD)) I SER VCD="" G E ND    
  29    S I=0
  30   A11 ;
  31    S I=$O(^C HMSERV("B" ,SERVCD,I) ) G:'$D(I)  A1
  32    ;
  33   A2 ;
  34    G:'$D(^CH MSERV(I,0) ) A11
  35    S DATA=^C HMSERV(I,0 )
  36    ;W !!,I
  37    ;W !,DATA
  38    S PEOBSW= $P(DATA,U, 4)
  39    ;I PEOBSW ="" G A1
  40    I PEOBSW= 0 G OVER
  41    I PEOBSW= 1 G OVER
  42    G A1
  43   OVER ;
  44    I PEOBSW= 0 S PEOBSW ="Y"
  45    I PEOBSW= 1 S PEOBSW ="N"
  46    ;
  47    S PDUZ=$P (DATA,U,7)
  48    S PDATE=$ P(DATA,U,8 )
  49    S PCDTYPE =$P(DATA,U ,5)
  50    ;
  51   A22 ;
  52    ;
  53    ;   CONVE RT DATE HE RE
  54    S Y=PDATE  D DD^%DT  S PDATE=Y
  55    ;
  56    S PSERVCD =SERVCD_"        "
  57    U FIO W P SERVCD_T_$ J(PCDTYPE, 18)_T_PDUZ _T_PDATE_T _PEOBSW_T, !
  58    ;U FIO W  PSERVCD_T_ $J(PCDTYPE ,18)_T_PEO BSW_T,!
  59    S CT=CT+1
  60    G A1
  61   QEND ;
  62   END ;W !,C T
  63    S ^CHMZHO LD("CHMSER V-COUNT-EN C001671")= CT
  64    U FIO W ! ,"   COUNT  = ",CT
  65    D CLOSEF^ CHTFLIB9(F IO,"FIO") 
  66    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT
  67    H 3
  68    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  69    ;C FIO
  70    W !,"REPO RT COMPLET ED ON FS3B IG TITLED  "_FILENM H ANG 5
  71    Q
  72    Q