279. EPMO Open Source Coordination Office Redaction File Detail Report

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

279.1 Files compared

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

279.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 184
Changed 2 8
Inserted 0 0
Removed 0 0

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

279.4 Active regular expressions

No regular expressions were active.

279.5 Comparison detail

  1   CHTEROHI   ;Report Te rtiary OHI  Claims 
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;YJK;02/1 0/11;MTN01 1238-02 
  4    ;DEV01289 3 1/14/201 4 DGC - MO D DECNET
  5    ;MTN02426 5 09/23/15  SBB - Fix  the DECNE T routines  that have  a typo
  6    ;
  7    ;S ZTRTN= "START^CHT EROHI",ZTD ESC="TERTI ARY-OHI-CL AIMS-RPT"
  8    ;S ZTIO=" "
  9    ;D ^%ZTLO AD
  10    ;W !!,"Ta sk Number  = ",ZTSK
  11    ;Q
  12   START; 
  13    K ^CHMZHO LD($J,"TER TIARY OHI" )
  14    S WPDI=0
  15    S T=$C(9)
  16   GETPDI ;
  17    S FOUND=0
  18    S WPDI=$O (^CHMIMG(" OCR-READY" ,WPDI)) G: 'WPDI!(WPD I="")!('$D (WPDI)) EN D
  19    ;G:'($G(W PDI)) END
  20    I $E(WPDI ,8,9)'="91 " G GETPDI
  21    I $P($G(^ CHMIMAGE(W PDI,"BUFF" )),"^",1)' ="MEDCOB"  G GETPDI ;  MedicareC rossover P DI
  22    S J=0
  23   GETDFN ;CH MIMAGE(I,1 ,J,2,K,10)  
  24    S J=$O(^C HMIMAGE(WP DI,1,J)) G :'J GETPDI
  25    I '$D(^CH MIMAGE(WPD I,1,J)) G  GETPDI
  26    S K=0
  27   GETBFN ;
  28    S K=$O(^C HMIMAGE(WP DI,1,J,2,K )) G:'K GE TDFN
  29    I '$D(^CH MIMAGE(WPD I,1,J,2,K) ) G GETBFN
  30    I '$D(^CH MIMAGE(WPD I,1,J,2,K, 10)) G GET BFN
  31    ;
  32    S WDFN=$P (^CHMIMAGE (WPDI,1,1, 2,1,10),"^ ",1)
  33    S WBFN=$P (^CHMIMAGE (WPDI,1,1, 2,1,10),"^ ",2)
  34    I '$D(WDF N)!('$D(WB FN)) G GET BFN
  35    I '$D(^AH CHVA(WDFN, 100,WBFN,0 )) G GETBF N
  36    S BNAME=$ P(^AHCHVA( WDFN,100,W BFN,0),"^" ,1)
  37    D OHITOC
  38    G GETPDI
  39   END
  40    D PRINT
  41    K ^CHMZHO LD($J,"TER TIARY OHI" )
  42    K WPDI,FO UND,WDFN,W BFN,SN,BN, K1,PFILE
  43    Q
  44    ;
  45   OHITOC ;CH MDFN(I,100 ,J,2,K,0) 
  46    S SN=0
  47   O1 S SN=$O (^CHMDFN(" B",WDFN,SN )) Q:'SN
  48    S BN=0,BN =$O(^CHMDF N(SN,100," B",WBFN,BN )) G:'BN O 1
  49    S K1=9999 9  ; Get t he latest  only
  50   O2 S K1=$O (^CHMDFN(S N,100,BN,2 ,K1),-1) G :'K1 O1
  51    I '$D(^CH MDFN(SN,10 0,BN,2,K1, 0)) G O1
  52    S OHITOC= $P(^CHMDFN (SN,100,BN ,2,K1,0)," ^",3)
  53    I OHITOC= 10!(OHITOC =12)!(OHIT OC=23)!(OH ITOC=24) S  FOUND=1
  54    I 'FOUND  G O1
  55    S ^CHMZHO LD($J,"TER TIARY OHI" ,WPDI)=WPD I_"^"_BNAM E_"^"_OHIT OC
  56    Q
  57   PRINT  ; 
  58    I '$D(DUZ ) S DUZ=1
  59    D NOW^%DT C
  60    S Y=% D D D^%DT S DT IME=Y
  61    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)
  62    ;
  63    ;DGC 1/14 /2014 DEV0 12893 - BE GIN
  64    ;I CHUCI= "HAC" S PF ILE="HACFS 3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.TERTIARY _OHI_CLAIM S]"_"DUZ"_ DUZ_".txt"
  65    ;I CHUCI' ="HAC" S P FILE="HACF S3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.TERTIARY _OHI_CLAIM S_TEST]"_" DUZ"_DUZ_" .txt"
  66    ;O PFILE: "NWS":5 
  67    ;I '$T U  0 W !,"Err or Opeing  Output fil e!!!" Q
  68    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  69    X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893
  70    S FILENM2 =""_"DUZ"_ DUZ_".txt"
  71    S PFILE=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM2
  72    I CHUCI'= "HAC" S PF ILE="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2
  73    I '$$OPEN FIWR^CHTFL IB9(.PFILE ,"PFILE")  X "D $SYST EM.Process .SetZEOF(0 )" Q ;DGC  7/30/2015  DEV012893
  74    ;DGC 1/14 /2014 DEV0 12893 - EN D
  75    ;
  76    S REC="" 
  77    U PFILE W  "PDI"_T_" BENEFICIAR Y_NAME"_T_ "OHI_TOC"_ T_"RUN DAT E/TIME: "_ DTIME
  78    S CNT=0
  79    S REC=$O( ^CHMZHOLD( $J,"TERTIA RY OHI",RE C))
  80    F  Q:('$D (REC))!(RE C="")!('RE C)  D
  81    .S XPDI=$ P(^CHMZHOL D($J,"TERT IARY OHI", REC),"^",1 )
  82    .S XNAME= $P(^CHMZHO LD($J,"TER TIARY OHI" ,REC),"^", 2)
  83    .S XTOC=$ P(^CHMZHOL D($J,"TERT IARY OHI", REC),"^",3 )
  84    .U PFILE  W !,XPDI_T _XNAME_T_X TOC
  85    .S CNT=CN T+1
  86    .S REC=$O (^CHMZHOLD ($J,"TERTI ARY OHI",R EC))
  87    .Q
  88    U PFILE W  !," TOTAL  = "_CNT
  89    ;C PFILE   DGC 1/14/ 2014 DEV01 2893 - BEG IN
  90    D CLOSEF^ CHTFLIB9(P FILE,"PFIL E")
  91    X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893
  92    I CHUCI=" HAC" D FTP FILE^CHTFL IB9(PFILE, " DNS     fs3. DNS             ","/FS3BIG /COMMO_RPT S/TERTIARY _OHI_CLAIM S","PUT")
  93    I CHUCI'= "HAC" D FT PFILE^CHTF LIB9(PFILE ," DNS     fs3. DNS             ","/FS3BIG /COMMO_RPT S/TERTIARY _OHI_CLAIM S_TEST","P UT")
  94    ;DGC 1/14 /2014 DEV0 12893 - EN D
  95    U 0 W !!, "The repor t is compl ete.  The  file is in  FS3BIG\CO MMO_RPTS\T ERTIARY_OH I_CLAIMS", !!
  96    Q