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

180.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCPT5.m Mon Nov 5 16:44:03 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMLCPT5.m Mon Nov 5 17:50:04 2018 UTC

180.2 Comparison summary

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

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

180.4 Active regular expressions

No regular expressions were active.

180.5 Comparison detail

  1   CHMLCPT5 ; JEH/HAC;SE T END DATE  OF CPT CO DES IN SER VICE FILE  YRLY UPDAT E;12/21/07   11:40 AM
  2    S (CHADD, CHCHA,CHDE L)=0
  3    S CHENDDT ="" ;ADD P ROMPT FOR  TERMINATIO N DATE DPT
  4    ;
  5    W !! S %D T="AEX",%D T("A")="En ter termin ation date : (MM/DD/Y Y) " D ^%D T Q:X=""   Q:Y=-1  S  CHENDDT=Y   ; DPT
  6    S DIR(0)= "Y",DIR("B ")="NO"
  7    S DIR("A" )="*ONLY*  TO SET ENV IR AND REA D IN DATA"  D ^DIR K  DIR
  8    Q:$D(DIRU T)
  9    I Y=1 D
  10    .D SENV
  11    .D TMPHLD  ;READ IN  DATE AN ST ORE IN TEM P GBL - ^C HMZHOLD("C PT-DEL-LIS T")
  12    D DSPLY
  13    ;D DEL
  14    D END
  15    Q
  16   DSPLY ;DIS PLY CODES  NEEDING TO  BE DELETE D
  17    S DIR(0)= "Y",DIR("B ")="YES"
  18    S DIR("A" )="*ONLY*  display CP T codes ne eding dele tion date"  D ^DIR K  DIR
  19    W !
  20    Q:$D(DIRU T)
  21    S DONLY=Y
  22    S CTR=0
  23    U 0 W:'$D (^CHMZHOLD ("CPT-DEL- LIST")) !, "*** TEMP  GLOBAL ^CH MZHOLD(""C PT-DEL-LIS T"") DOES  NOT EXIST  ***" H 5
  24    W !,"CPT  Codes tage d to have  end date a ssigned.", !
  25    S IVAL=0  F  S IVAL= $O(^CHMSER V(IVAL)) Q :'IVAL  D
  26    .I $D(^CH MSERV(IVAL ,0)) D
  27    ..I $P(^C HMSERV(IVA L,0),"^",5 )="CPT" D
  28    ...S CODE ="" S CODE =$P(^CHMSE RV(IVAL,0) ,"^",1)
  29    ...I '$D( ^CHMZHOLD( "CPT-DEL-L IST",CODE) ) D
  30    ....S JVA L=0 S JVAL =$O(^CHMSE RV(IVAL,1, JVAL)) Q:' JVAL
  31    ....I $D( ^CHMSERV(I VAL,1,JVAL ,0)) D
  32    .....I $P (^CHMSERV( IVAL,1,JVA L,0),"^",1 )="" D
  33    ......W ! ,?5,CODE,? 20,"IVAL =  ",IVAL
  34    ......S C TR=CTR+1
  35    ......I D ONLY=0 D C DEL
  36    ....I '$D (^CHMSERV( IVAL,1,JVA L,0)) D
  37    .....W !, ?5,CODE,?2 0,"IVAL =  ",IVAL
  38    .....S CT R=CTR+1
  39    .....I DO NLY=0 D CD EL
  40    W !!,"CTR  = ",CTR
  41    Q
  42   TMPHLD ;RE AD IN DATE  AN STORE  IN TEMP GB L - ^CHMZH OLD("CPT-D EL-LIST")
  43    ;O IO:"R" :5
  44    ;S $ZE="" ,$ZT="ETMP HLD^CHMLCP T5"
  45    ;I '$T W  !!,"NOT AB LE TO OPEN  FILE" G E ND
  46    I '$$OPEN FIRD^CHTFL IB9(.FIO," FIO") Q
  47    F  U FIO  R REC G:$$ STATUS^%ZI SH END D
  48    .S CODE=$ E(REC,1,5)
  49    .S ^CHMZH OLD("CPT-D EL-LIST",C ODE)=""
  50    Q
  51   ETMPHLD ;
  52    ;C IO
  53    Q
  54   CDEL ;ADD  DELETE DAT E TO CPT C ODE
  55    S A="" S  A=CODE_"Z"
  56    ;                      CHANGE D ELETE DATE  TO END OF  CURRENT Y EAR   ---v
  57    I '$D(^CH MSERV(IVAL ,1,JVAL,0) ) S $P(^CH MSERV(IVAL ,1,JVAL,0) ,U,1)=CHEN DDT,^CHMZH OLD("CPT-D ELETE",A)= ""  ;DPT
  58    ;I '$D(^C HMSERV(IVA L,1,JVAL,0 )) S $P(^C HMSERV(IVA L,1,JVAL,0 ),U,1)=310 1231,^CHMZ HOLD("CPT- DELETE",A) =""
  59    ;                    CHANGE DEL ETE DATE T O END OF C URRENT YEA R   ---v
  60    I ^CHMSER V(IVAL,1,J VAL,0)=""  S $P(^CHMS ERV(IVAL,1 ,JVAL,0),U ,1)=CHENDD T,^CHMZHOL D("CPT-DEL ETE",A)=""   ;DPT
  61    ;I ^CHMSE RV(IVAL,1, JVAL,0)=""  S $P(^CHM SERV(IVAL, 1,JVAL,0), U,1)=31012 31,^CHMZHO LD("CPT-DE LETE",A)=" "
  62    W !,"CODE  = ",CODE, " - Deleti on date ha s been set "
  63    Q
  64   END ;
  65    ;C:$D(IO)  IO
  66    D CLOSEF^ CHTFLIB9(F IO,"FIO")
  67    Q
  68   SENV ;SET  ENVIRONMEN T
  69    K ^CHMZHO LD("CPT-DE L-LIST")
  70    S AYGSYS= XQVOL
  71    S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V")
  72    S ENVIR=A YGSYS
  73    S DIR("B" )=ENVIR
  74    S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V"
  75    S DIR("L" ,1)="Selec t one of t he followi ng environ ments"
  76    S DIR("L" ,2)=""
  77    S DIR("L" ,3)="   1   LIVE"
  78    S DIR("L" ,4)="   2   TRAIN"
  79    S DIR("L" ,5)="   3   TEST"
  80    S DIR("L" ,6)="   4   DEV"
  81    S DIR("L" ,7)=""
  82    S DIR("L" )="   ^    QUIT"
  83    D ^DIR K  DIR
  84    Q:$D(DUOU T)
  85    Q:Y=""
  86    Q:Y="^"!( Y="")
  87    S ENVIR=Y (0)
  88    ;S $ZE="" ,$ZT="END"
  89    ;SET CPT  FILE NAME
  90    S DIR(0)= "F^3:50"
  91    S DIR("A" )="Enter d elete CPT  file name  (SHORTU.tx t)" D ^DIR  K DIR
  92    Q:$D(DUOU T)
  93    Q:Y="^"!( Y="")
  94    S CNAME=Y  K DIR
  95    ;S IO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME     ; NAME OF  CPT FILE
  96    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  97    S FILENM2 =CNAME
  98    S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M2
  99    I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2
  100    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG /CODEUPDT/ CPT4UPDT", "GET")
  101    Q
  102   DSPLYDC ;D ISPLAY DEL ETED CODES
  103    S I=0 F   S I=$O(^CH MSERV(I))  Q:'I  D
  104    .Q:'$D(^C HMSERV(I,0 ))
  105    .Q:$P(^CH MSERV(I,0) ,"^",5)'=" CPT"
  106    .S J=0 F   S J=$O(^C HMSERV(I,1 ,J)) Q:'J   D
  107    ..I $D(^C HMSERV(I,1 ,J,0)) D
  108    ...W !,"I  = ",I,?20 ,^CHMSERV( I,1,J,0)
  109    ..E  W !, "I = ",I,? 30,"*** MI SSING 0 I, 1,J,0 NODE  ***"