126. EPMO Open Source Coordination Office Redaction File Detail Report

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

126.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKFMPB.m Mon Nov 5 16:41:35 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKFMPB.m Mon Nov 5 17:48:56 2018 UTC

126.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 218
Changed 2 4
Inserted 0 0
Removed 0 0

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

126.4 Active regular expressions

No regular expressions were active.

126.5 Comparison detail

  1   CHMKFMPB ; AHJ/DEN;FM P LABELS F Y03
  2    ;V1.0
  3    S (CLMCNT ,FMPCNT,TO TCNT,ACNT, BCNT,CCNT, FMPCNT)=0
  4    S (ZIP,SW ,SW1,SW2,S W33,SW4)=0
  5    S U="^"
  6    ;INPUT =  ^CHMZHOLD( "FMP926",C HVET,CHVET PRT) FROM  ZALFMP07
  7    ;OUTPUT =  ^CHMZHOLD ("FMP-FY03 ") TO ZALF MP13 PRINT  STICKY LA BLELS
  8    ;OUTPUT =  FMP-CLAIM S-NA08.TXT  TO BURN C D
  9   A2 ;
  10    ;
  11    K ^CHMZHO LD("FMP-FY 05")
  12    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]FMP-CLAIM S-NA08.TXT "
  13    ;O FIO C  FIO:"D"
  14    ;O FIO:"N WS"
  15    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  16    S FILENM2 ="FMP-CLAI MS-NA08.TX T"
  17    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  18    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  19    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  20    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") Q
  21    ;
  22    ;S DFN=49 8658
  23    ;
  24    S NAME=0
  25    S DFN=0
  26   L1 S TOTCN T=TOTCNT+1
  27   GETNM ;
  28    S NAME=$O (^CHMZHOLD ("FMP-CLAI MS-DAYS",N AME)) G:NA ME="" END
  29    S DFN=0
  30   GETDFN ;
  31    S DFN=$O( ^CHMZHOLD( "FMP-CLAIM S-DAYS",NA ME,DFN)) G :'DFN GETN M
  32    S ADFN=DF N
  33    ;NEED TO  GET BFN HE RE
  34    S ADFN=$O (^AHCHVA(A DFN,100))
  35    S ABFN=0
  36   L2 S ABFN= $O(^AHCHVA (ADFN,100, ABFN)) G:' ABFN L1
  37    ;      
  38    ;W !," DF N=",DFN,"   BFN=",BFN
  39    G L2:'$D( ^AHCHVA(AD FN,100,ABF N,0)),L2:' $D(^AHCHVA (ADFN,100, ABFN,1))
  40    ;
  41   N22 ;
  42    ;G L1
  43   NEXT1 ;
  44    S NAMELAB =^AHCHVA(D FN,0)
  45    ;******** ********** ******CHEC K FMP ADDR ESS
  46    G:'$D(^AH CHVA(DFN,1 1)) L1
  47    ;I DFN=49 1175 G L1
  48    ;I DFN=48 9887 G L1
  49    S ADDRLAB =^AHCHVA(D FN,11)
  50   N2 ;
  51    S STATE=$ P(ADDRLAB, U,4)
  52    S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2)
  53    ;
  54    S (ADDR1, ADDR2,ADDR 3,ADDR4,AD DR5,ADDR6) =""
  55    S ADDR1=$ P(NAMELAB, U,1)
  56    S ADDR2=$ P(ADDRLAB, U,1)
  57    S ADDR3=$ P(ADDRLAB, U,2)
  58    S ADDR4=$ P(ADDRLAB, U,8)
  59    S ADDR5=$ P(ADDRLAB, U,3)
  60    S ADDR6=" "
  61    S ZIP1=$P (ADDRLAB,U ,5)
  62    S ZIP=ZIP 1
  63    I $L(ZIP1 )>5 S ZIP2 =$E(ZIP1,1 ,5) S ZIP3 =$E(ZIP1,6 ,9) S ZIP= ZIP2_"-"_Z IP3
  64    I STATE=" " D
  65    .S COUNTR Y=$P(ADDRL AB,U,6)
  66    .S:COUNTR Y COUNTRY= $P(^DIC(5, COUNTRY,0) ,U,1)
  67    .S ADDR6= COUNTRY
  68    I $P(ADDR LAB,U,3)=" " G ADD2
  69    S:$P(ADDR LAB,U,3)'= "APO" ADDR 6=$P(ADDRL AB,U,3)_", "_STATE_"  "_ZIP
  70    S:$P(ADDR LAB,U,3)=" APO" ADDR6 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP
  71    S:$P(ADDR LAB,U,3)=" FPO" ADDR6 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP
  72    ;
  73   ADD2 ;I AD DR2="" S A DDR2=ADDR6  S ADDR3=" " S ADDR4= "" S ADDR5 ="" S ADDR 6=""
  74    ;I ADDR3= "" S ADDR3 =ADDR6 S A DDR4="" S  ADDR5="" S  ADDR6=""
  75    ;I ADDR4= "" S ADDR4 =ADDR6 S A DDR5="" S  ADDR6=""
  76    ;I ADDR5= "" S ADDR5 =ADDR6 S A DDR6=""
  77    ;
  78    S T=$C(9)
  79    I STATE'= "" D
  80    .S TMPS=A DDR1_T_ADD R2_T_ADDR3 _T_ADDR4_T _ADDR5
  81    ;
  82    I STATE=" AE" S STAT E=""
  83    I STATE=" AA" S STAT E=""
  84    S FMPCNT= FMPCNT+1
  85    S T=$C(9)
  86    S TMPS=AD DR1_T_ADDR 2_T_ADDR3_ T_ADDR4_T_ ADDR5_T_AD DR6
  87    S TEMP=AD DR1_U_ADDR 2_U_ADDR3_ U_ADDR4_U_ ADDR5_U_AD DR6
  88    S ^CHMZHO LD("FMP-FY 03",ADDR1, CNT)=TEMP
  89    ;W !," CL AIM DATE=    ",TFMDT, "     DFN= ",DFN,"  " ,$P(NAMELA B,U,1)
  90    ;
  91    U FIO W ! ,TMPS
  92    ;W !,TEMP
  93    ;
  94    G L1
  95    Q
  96   ADD1 I $E( ADDR3,1,1) '="" S ADD R2=ADDR3
  97    G ADD2
  98   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  99    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  100   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  101    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  102    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  103    Q
  104   END ;
  105    ;W !!,"TO TAL COUNT   =  ",FMPC NT
  106    ;C FIO
  107    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  108    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  109    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  110    ;
  111    Q