270. EPMO Open Source Coordination Office Redaction File Detail Report

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

270.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHPACSXC.m Mon Nov 5 16:43:20 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHPACSXC.m Mon Nov 5 17:54:40 2018 UTC

270.2 Comparison summary

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

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

270.4 Active regular expressions

No regular expressions were active.

270.5 Comparison detail

  1   CHPACSXC   ;JPN/SXC;P RE-AUTH CO NVERSION F OR SXC LOO PING THROU GH ^ACHHVA  GLOBAL;10 /16/07  11 :55 AM
  2       ;V1.0; CHAMPVA SY STEM;;JUNE  25, 2015
  3       ;THIS  ROUINE IS  A PRE-AUTH  CONVERSIO N ROUTINE  FOR SXC TH AT WILL LO OP 
  4       ;THROU GH THE ^AC HHCA GLOBA L TO MAKE  SURE THERE  IS A BENE  VALUE THE N
  5       ;SAVE  THE NAME O F THE BENE  AND THE B ENE'S SSN
  6       ;DEF01 6554 REPLA CE DECNET  WITH FTP      06/25/2 015  DRW
  7   START ; PR OGRAM WILL  START HER E
  8    D INIT
  9    D LOOP
  10    D OUTPUT
  11    D END
  12    Q      ;P ROGRAM END S HERE
  13   INIT ;INIT IALIZES VA RAIBLES
  14    S (DFN,BF N,PCNT)=0, CHLEN=50
  15    S (CHBNAM E,CHBSSN,C HB100,CHBE NLN)=""
  16    K ^CHMZHO LD("SXC")
  17    X "D $SYS TEM.Proces s.SetZEOF( 1)"                              ;;DEF01655 4 OPEN AND  CLOSE MOD IFIED  07/ 30/2015
  18    Q
  19   LOOP ;LOOP S THROUGH  THE GLOBAL  ^ACHHVA A ND STORES  THE VALID  INFORMATIO N INTO A T MP GLOBAL
  20    F  S DFN= $O(^AHCHVA (DFN)) Q:D FN=""  D
  21    . S CHB10 0=$G(^AHCH VA(DFN,100 ,1,0))
  22    . Q:CHB10 0=""
  23    . S CHBNA ME=$P(CHB1 00,"^",1)
  24    . I CHBNA ME="" S CH BNAME="NO  NAME"
  25    . S CHBSS N=$P(CHB10 0,"^",9)
  26    . I CHBSS N="" S CHB SSN="NO SS N"
  27    . D BENEC OM
  28    . I CHBCH K'=1 Q         ;CHKS  THE BENE C OMMENTS FO R SPECIFIC  WORDS
  29    . D PADBL NKS
  30    . S ^CHMZ HOLD("SXC" ,DFN)=CHBN AME_CHBSSN
  31    . S PCNT= PCNT+1
  32    . I PCNT= 1 W "Proce ssing"
  33    . I PCNT# 1000=0 W " ."
  34    . Q
  35    Q
  36   OUTPUT ;WR ITES THE I NFORMATION  OUT TO A  FILE ON FS 3BIG
  37    S DFN=0,D ATA=""
  38    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]PRE_AUTH_ SXC.TXT"
  39    ;O FIO C  FIO:"D"
  40    ;O FIO:"N WS"
  41    ;;NEW LIN E FOR DEF0 16554 FOLL OWS:
  42    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  43    S FILENM= "PRE_AUTH_ SXC.TXT"
  44    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M
  45    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM
  46    I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") W "F ILE NOT AV AILABLE AT  THIS MOME NT" Q 
  47    F  S DFN= $O(^CHMZHO LD("SXC",D FN)) Q:DFN =""  D
  48    . S DATA= $G(^CHMZHO LD("SXC",D FN))
  49    . U FIO W  !,DATA
  50    . Q
  51    ;C FIO
  52    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  53    S FLDER=" /FS3BIG" 
  54    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ",FLDER,"P UT")
  55    X "D $SYS TEM.Proces s.SetZEOF( 0)"                 ; ;DEF016554  CLOSE MOD IFIED 07/3 0/2015
  56    Q
  57   PADBLNKS ;  WILL MAKE  THE NAME  FIELD A SE T LENGTH O F 50 CHARA CTERS
  58    F I=1:1:( CHLEN-$L(C HBNAME)) S  CHBNAME=C HBNAME_" "
  59    S CHBNAME =$E(CHBNAM E,1,CHLEN)
  60    Q
  61   BENECOM ;C HECKS BENE  COMMENTS  TO SEE IF  MED DOC RE C'D IS THE RE
  62    S (CHBCJ, CHBCK,CHBC L,CHBCHK)= 0
  63    F  S CHBC J=$O(^CHBE NCOM(DFN,1 00,CHBCJ))  Q:CHBCJ=" "  D
  64    . I CHBCH K=1 Q
  65    . F  S CH BCK=$O(^CH BENCOM(DFN ,100,CHBCJ ,200,CHBCK )) Q:CHBCK =""  D
  66    .. F  S C HBCL=$O(^C HBENCOM(DF N,100,CHBC J,200,CHBC K,300,CHBC L)) Q:CHBC L=""  D
  67    ... S CHB ENLN=$P($G (^CHBENCOM (DFN,100,C HBCJ,200,C HBCK,300,C HBCL,0))," ^",1)
  68    ... D UPP ER(CHBENLN )
  69    ... I ULT XT["MED DO C" S CHBCH K=1
  70    ... I ULT XT["REC'D  MED" S CHB CHK=1
  71    ... Q
  72    Q
  73   UPPER(TXT)  ;CONVERTS  STRING TO  UPPER CAS E
  74    S UPPER=" ABCDEFGHIJ KLMNOPQRST UVWXYZ"
  75    S lower=" abcdefghij klmnopqrst uvwxyz"
  76    S ULTXT=$ TR(TXT,low er,UPPER)
  77    Q ULTXT
  78   END ;KILLS  THE LOCAL  VARIABLES
  79    K CHBNAME ,CHBSSN,CH B100,CHBEN LN,PCNT,CH LEN,CHBCHK ,CHBCJ,CHB CK,CHBCL,C HBCHK
  80    K ULTXT,C HBENLN,UPP ER,lower
  81    Q