49. EPMO Open Source Coordination Office Redaction File Detail Report

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

49.1 Files compared

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

49.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 134
Changed 2 6
Inserted 0 0
Removed 0 0

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

49.4 Active regular expressions

No regular expressions were active.

49.5 Comparison detail

  1   CHGPIAN  ; CVA/DPT SM SA  ;;1.0; CHAMPVA SY STEM;;OCT  28,2014;
  2     ; LIST a lphanumeri c GPIs and  associate d NDCs
  3    ;VARIBLES  
  4           ;G PI - GENER IC PRODUCT  IDENTIFIE R
  5    ;NDC- PHA RMACY CODE  
  6   ZSET  ;
  7    S:'$D(DUZ ) DUZ=1,DU Z(0)="" I  '$D(DT) S  %DT="",X=" T" D ^%DT  S DT=Y
  8    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  9    I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS
  10   SGPI
  11    S IEN=1,G PI="",CTR= 0,G2=""
  12   SGPI2 S IE N=$O(^CHMP DX(IEN)) G :'IEN EGPI X  
  13    I '$D(^CH MPDX(IEN,0 )) G EGPIX
  14    G:IEN=741 004.01 EGP IX 
  15    G:'$D(^CH MPDX(IEN,1 1)) SGPI2
  16    I $D(^CHM PDX(IEN,11 )) S GPI=$ P(^CHMPDX( IEN,11),"^ ",1) S G2= $P(^CHMPDX (IEN,11)," ^",2)
  17    S NDC=$P( ^CHMPDX(IE N,1),"^",1 )
  18    I GPI'?.N  D
  19     .S ^CHMZ HOLD("AN-G PI",GPI,ND C)=""
  20     .S CTR=C TR+1 ;W !, GPI,"  ",G 2
  21    G SGPI2
  22   EGPIX 
  23    K IEN,GPI  
  24    D NOW^%DT C S DT=X,T ODAY=$$FMT E^XLFDT(DT ,"7DZ"),TO DAY=$TR(TO DAY,"/",""
  25    S DTE=$$F MTE^XLFDT( %,5)         
  26    S TIME=$P ($$NOW^XLF DT,".",2)    
  27    S FILENM= "ALPHANGPI _"_TODAY_" _"_TIME_". txt"  
  28    S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" 
  29    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) 
  30    I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" 
  31    S FILE=FO LDER_FILEN M  
  32    I '$$OPEN FIWR^CHTFL IB9(.FILE, "FILE") Q   
  33   PRGPI
  34    S (PG,CNT ,GPICNT)=0
  35    I '$D(^CH MZHOLD("AN -GPI")) U  0 W !,"NO  ALPHANUMER IC GPIS FO UND" G END GPI
  36    D HEADGPI
  37   PRGPI1
  38    S CHGPI=0
  39   PGPI1 S CH GPI=$O(^CH MZHOLD("AN -GPI",CHGP I))  G:'CH GPI ENDGPI  
  40    S GPICNT= GPICNT+1
  41    S CHNDC=0
  42   PGPI2 S CH NDC=$O(^CH MZHOLD("AN -GPI",CHGP I,CHNDC))  G:'CHNDC P GPI1
  43    I $Y>40 D
  44    .U FILE W  @IOF
  45    .D HEADGP I
  46    .Q
  47    U FILE W  !,?5,CHGPI ,?30,CHNDC  
  48    G PGPI2
  49   HEADGPI
  50    U FILE W  !,"LIST OF  GPIS THAT  ARE ALPHA NUMERIC AN D ASSOCIAT ED NDCS"
  51    U FILE W  !,$P(DTE," @",1) S DT M=$P(DTE," @",2) W !, $E(DTM,1,5 ) U FILE W  !,DUZ
  52    U FILE W  !,?5,"GPI" ,?30,"NDC"
  53    Q
  54   ENDGPI 
  55    D CLOSEF^ CHTFLIB9(F ILE,"FILE"
  56    D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  57    D NOTIFYG PI
  58    U 0 W !," TOTAL GPIS  IN REPORT  CONTAININ G ALPHA CO DE = ",GPI CNT
  59    U 0 W !," TOTAL ENTR IES IN REP ORT = ",CT R
  60    K ^CHMZHO LD("AN-GPI "),PG,CNT, CTR,CHGPI, CHNDC
  61    Q
  62   NOTIFYGPI
  63       S XMY(" PII             ")=""    
  64    ;S XMY("P II           ")=""   
  65    S XMDUZ=D UZ,XMSUB=" ALPHNUMERI C GPI repo rt on "_$$ FMTE^XLFDT (DT,"5D")    
  66    S TEXT(1) ="LIST OF  ALPHANUMER IC GPIS."   
  67    S TEXT(2) ="and is l ocated on  [FS3BIG\]. "_FILE 
  68    D ^XMD  
  69    K XMY,XMD UZ,TEXT,XM TEXT,XMSUB  
  70    Q