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

128.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKFMPP.m Mon Nov 5 16:43:33 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKFMPP.m Mon Nov 5 17:48:57 2018 UTC

128.2 Comparison summary

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

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

128.4 Active regular expressions

No regular expressions were active.

128.5 Comparison detail

  1   CHMKFMPP ; 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 ^CHMZH OLD("FMP-F Y05")
  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    ;
  16    ;S DFN=49 8658
  17    ;
  18    S NAME=0
  19    S DFN=0
  20   L1 S TOTCN T=TOTCNT+1
  21   GETNM ;
  22    S NAME=$O (^CHMZHOLD ("FMP-CLAI MS-DAYS",N AME)) G:NA ME="" END
  23    S DFN=0
  24   GETDFN ;
  25    S DFN=$O( ^CHMZHOLD( "FMP-CLAIM S-DAYS",NA ME,DFN)) G :'DFN GETN M
  26    S ADFN=DF N
  27    ;NEED TO  GET BFN HE RE
  28    S ADFN=$O (^AHCHVA(A DFN,100))
  29    S ABFN=0
  30   L2 S ABFN= $O(^AHCHVA (ADFN,100, ABFN)) G:' ABFN L1
  31    ;      
  32    ;W !," DF N=",DFN,"   BFN=",BFN
  33    G L2:'$D( ^AHCHVA(AD FN,100,ABF N,0)),L2:' $D(^AHCHVA (ADFN,100, ABFN,1))
  34    ;
  35   N22 ;
  36    ;G L1
  37   NEXT1 ;
  38    S NAMELAB =^AHCHVA(D FN,0)
  39    ;******** ********** ******CHEC K FMP ADDR ESS
  40    G:'$D(^AH CHVA(DFN,1 1)) L1
  41    ;I DFN=49 1175 G L1
  42    ;I DFN=48 9887 G L1
  43    S ADDRLAB =^AHCHVA(D FN,11)
  44   N2 ;
  45    S STATE=$ P(ADDRLAB, U,4)
  46    S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2)
  47    ;
  48    S (ADDR1, ADDR2,ADDR 3,ADDR4,AD DR5,ADDR6) =""
  49    S ADDR1=$ P(NAMELAB, U,1)
  50    S ADDR2=$ P(ADDRLAB, U,1)
  51    S ADDR3=$ P(ADDRLAB, U,2)
  52    S ADDR4=$ P(ADDRLAB, U,8)
  53    S ADDR5=$ P(ADDRLAB, U,3)
  54    S ADDR6=" "
  55    S ZIP1=$P (ADDRLAB,U ,5)
  56    S ZIP=ZIP 1
  57    I $L(ZIP1 )>5 S ZIP2 =$E(ZIP1,1 ,5) S ZIP3 =$E(ZIP1,6 ,9) S ZIP= ZIP2_"-"_Z IP3
  58    I STATE=" " D
  59    .S COUNTR Y=$P(ADDRL AB,U,6)
  60    .S:COUNTR Y COUNTRY= $P(^DIC(5, COUNTRY,0) ,U,1)
  61    .S ADDR6= COUNTRY
  62    I $P(ADDR LAB,U,3)=" " G ADD2
  63    S:$P(ADDR LAB,U,3)'= "APO" ADDR 6=$P(ADDRL AB,U,3)_", "_STATE_"  "_ZIP
  64    S:$P(ADDR LAB,U,3)=" APO" ADDR6 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP
  65    S:$P(ADDR LAB,U,3)=" FPO" ADDR6 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP
  66    ;
  67   ADD2 ;I AD DR2="" S A DDR2=ADDR6  S ADDR3=" " S ADDR4= "" S ADDR5 ="" S ADDR 6=""
  68    ;I ADDR3= "" S ADDR3 =ADDR6 S A DDR4="" S  ADDR5="" S  ADDR6=""
  69    ;I ADDR4= "" S ADDR4 =ADDR6 S A DDR5="" S  ADDR6=""
  70    ;I ADDR5= "" S ADDR5 =ADDR6 S A DDR6=""
  71    ;
  72    S T=$C(9)
  73    I STATE'= "" D
  74    .S TMPS=A DDR1_T_ADD R2_T_ADDR3 _T_ADDR4_T _ADDR5
  75    ;
  76    I STATE=" AE" S STAT E=""
  77    I STATE=" AA" S STAT E=""
  78    S FMPCNT= FMPCNT+1
  79    S T=$C(9)
  80    S TMPS=AD DR1_T_ADDR 2_T_ADDR3_ T_ADDR4_T_ ADDR5_T_AD DR6
  81    S TEMP=AD DR1_U_ADDR 2_U_ADDR3_ U_ADDR4_U_ ADDR5_U_AD DR6
  82    S ^CHMZHO LD("FMP-FY 03",ADDR1, CNT)=TEMP
  83    ;W !," CL AIM DATE=    ",TFMDT, "     DFN= ",DFN,"  " ,$P(NAMELA B,U,1)
  84    ;
  85    ;U FIO W  !,TMPS
  86    W !,TMPS
  87    ;
  88    G L1
  89    Q
  90   ADD1 I $E( ADDR3,1,1) '="" S ADD R2=ADDR3
  91    G ADD2
  92   SBRS R Y:$ S($D(DTIME ):DTIME,1: 60)
  93    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  94   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  95    I IOZFO=Y  W:$D(IOZF ) # S (DFO UT,Y)="" Q
  96    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  97    Q
  98   END ;
  99    ;W !!,"TO TAL COUNT   =  ",FMPC NT
  100    ;C FIO
  101    ;
  102    Q