181. EPMO Open Source Coordination Office Redaction File Detail Report

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

181.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCPTD.m Mon Nov 5 16:39:54 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCPTD.m Mon Nov 5 17:50:04 2018 UTC

181.2 Comparison summary

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

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

181.4 Active regular expressions

No regular expressions were active.

181.5 Comparison detail

  1   CHMLCPTD ; JEH/HAC;SE T DELETE D ATE OF CPT  CODES IN  SERVICE FI LE;02/02/0 7  11:40 A M
  2    S (CHADD, CHCHA,CHDE L)=0
  3    
  4    ;                     v--- CHAN GE TO CURR ENT EFFECT IVE YEAR
  5    ;S A="",D A=9999999- 3070101,U= "^"
  6    ;K ^%ZSTA T("AI-COPY ","CPT")
  7    ;S K=$P(^ CHMSERV(0) ,U,3)+1
  8    ; 
  9    ;
  10    D SENV
  11    D DEL
  12    C IO
  13    Q
  14   DEL ;
  15    S CTR=0
  16    ;O IO:"R" :5
  17    ;S $ZE="" ,$ZT="END"
  18    ;I '$T W  !!,"NOT AB LE TO OPEN  FILE" G E ND
  19    I '$$OPEN FIRD^CHTFL IB9(.FIO," FIO") Q
  20    F  U FIO  R REC G:$$ STATUS^%ZI SH END D
  21    .S CTR=CT R+1
  22    .;Q:CTR>2
  23    .U 0 W !, CTR,?10,RE C
  24    .S REC2=" " S REC2=$ O(^CHMSERV ("B",REC,R EC2))
  25    .S J=0 S  J=$O(^CHMS ERV(REC2,1 ,J)) Q:'J
  26    .;IN DEL
  27    .S A=""
  28    .S A=REC_ "Z"
  29    .;          CHANGE D ELETE DATE  TO END OF  CURRENT Y EAR   ---v
  30    .I '$D(^C HMSERV(REC 2,1,J,0))  S $P(^CHMS ERV(REC2,1 ,J,0),U,1) =3061231,^ CHMZHOLD(" CPT-DELETE ",A)=""
  31    .;        CHANGE DEL ETE DATE T O END OF C URRENT YEA R   ---v
  32    .I ^CHMSE RV(REC2,1, J,0)="" S  $P(^CHMSER V(REC2,1,J ,0),U,1)=3 061231,^CH MZHOLD("CP T-DELETE", A)=""
  33    .U 0 W ?2 0,"REC2 =  ",REC2," J  = ",J
  34   END ;
  35    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  36    Q
  37   SENV ;SET  ENVIRONMEN T
  38    S AYGSYS= XQVOL
  39    S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  40    S ENVIR=A YGSYS
  41    S DIR("B" )=ENVIR
  42    S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V"
  43    S DIR("L" ,1)="Selec t one of t he followi ng environ ments"
  44    S DIR("L" ,2)=""
  45    S DIR("L" ,3)="   1   LIVE"
  46    S DIR("L" ,4)="   2   TRAIN"
  47    S DIR("L" ,5)="   3   TEST"
  48    S DIR("L" ,6)="   4   DEV"
  49    S DIR("L" ,7)=""
  50    S DIR("L" )="   ^    QUIT"
  51    D ^DIR K  DIR
  52    Q:$D(DUOU T)
  53    Q:Y=""
  54    Q:Y="^"!( Y="")
  55    S ENVIR=Y (0)
  56    S $ZE="", $ZT="END"
  57    ;SET CPT  FILE NAME
  58    S DIR(0)= "F^3:50"
  59    S DIR("A" )="Enter d elete CPT  file name  (DLTD_CPT_ 2006_CODES .txt)" D ^ DIR K DIR
  60    Q:$D(DUOU T)
  61    Q:Y="^"!( Y="")
  62    S CNAME=Y  K DIR
  63    ;S IO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME     ; NAME OF  CPT FILE
  64    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  65    S FILENM2 =CNAME
  66    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  67    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  68    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG /CODEUPDT/ CPT4UPDT", "GET")
  69    Q