78. EPMO Open Source Coordination Office Redaction File Detail Report

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

78.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLTDACU.m Mon Nov 5 16:44:59 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLTDACU.m Mon Nov 5 17:41:57 2018 UTC

78.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 244
Changed 1 2
Inserted 0 0
Removed 0 0

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

78.4 Active regular expressions

No regular expressions were active.

78.5 Comparison detail

  1   CHLTDACU ; CVA/JLR;TD A UTILITY  ROUTINE;02 /25/99  8: 04 AM
  2    ;V2.0
  3    ; PT #161 21 (Y2K)
  4    ;MTN01390 8-01 12/12 /11 JEH -  CITI TDA u pdates, FI X MAILMAN  DISTRIBUTI ON LIST
  5   START ;
  6    D INIT
  7    D:'$D(^CH MIHQ("A-TD A-RUN-DATE ",CHYR)) S ETALL
  8    D:'$D(^CH MIHQ("A-TD A-RUN-DATE ",CHYR,CHM TH)) SETMT H     ;JEH  12/21/11  - ***TESTI NG*** COMM ENTED OFF  TO PREVENT  12/31 DAT E CREATION
  9    D SEPT
  10    D:'$D(QFL AG) COMPRE
  11   END K QFLA G,FL,CHYR, CHMTH,YY,X X,CHDT,HLD DT,X1,X2,X ,Y
  12    Q
  13    ;
  14   INIT I '$D (DT) D NOW ^%DTC S DT =$P(%,".", 1)
  15    ; Y2K - C HYR was a  2-digit YR ...fixed t o make it  compliant
  16    ;S CHYR=$ E(DT,2,3)
  17    S CHYR=$E (DT,1,3)
  18    S CHMTH=$ E(DT,4,5)
  19    Q
  20    ;
  21   SETALL ;
  22    ; Y2K S Y Y=2_CHYR_" 0128"
  23    S YY=CHYR _"0128"
  24    F CHDT=YY :100:YY+11 00 S HLDDT =CHDT K FL  F XX=1:1  D FNDDAT Q :$D(FL)
  25    Q
  26    ;
  27   SETMTH ;
  28    ;Y2K S CH DT=2_CHYR_ CHMTH_28 S  HLDDT=CHD T K FL F X X=1:1 D FN DDAT Q:$D( FL)
  29    S CHDT=CH YR_CHMTH_2 8 S HLDDT= CHDT K FL  F XX=1:1 D  FNDDAT Q: $D(FL)
  30    Q
  31    ;
  32   FNDDAT S X 1=CHDT,X2= XX D C^%DT C
  33    I $E(X,4, 5)'=$E(CHD T,4,5) S F L=1 D SETD AT Q
  34    S HLDDT=X
  35    Q
  36    ;
  37   SETDAT Q:$ E(HLDDT,4, 5)="09"
  38    S ^CHMIHQ ("A-TDA-RU N-DATE",CH YR,$E(HLDD T,4,5),HLD DT)="" Q
  39    ;
  40   SEPT K QFL AG Q:$E(DT ,4,5)'="09 "
  41    I '$D(^CH MIHQ("A-TD A-RUN-DATE ",CHYR,CHM TH)) D MES SGE S QFLA G=1
  42    Q
  43    ;
  44   COMPRE ;
  45    D:$D(^CHM IHQ("A-TDA -RUN-DATE" ,CHYR,CHMT H,DT)) QUE UE
  46    Q
  47    ;
  48   QUEUE S OP T=$O(^CHMT DA(9999999 9),-1) Q:' OPT
  49    Q:'$D(^CH MTDA(OPT,0 ))
  50    S BDATE=$ P(^CHMTDA( OPT,0),"^" ,3)
  51    S X1=BDAT E
  52    S X2=1
  53    D C^%DTC
  54    S TBDATE= X
  55    S EDATE=D T+1,TDATE= DT
  56    D ^CHLTDA C1
  57    Q
  58    ;
  59   MESSGE S ^ UTILITY($J ,"NO-DATE" ,1,1,0)="N o TDA run  date for S eptember h as been es tablished. "
  60    S ^UTILIT Y($J,"NO-D ATE",1,2,0 )="Please  enter a da te so TDA  can be pro cessed for  this mont h."
  61    S XMDUZ=. 5,XMSUB="N o TDA date  has been  set"
  62    S XMTEXT= "^UTILITY( $J,""NO-DA TE"",1,"
  63    ;S XMY(86 737)="",XM Y(58246)=" ",XMY(2488 )="",XMY(1 260)="",XM Y(2618)=""     ;MTN01 3908-01 12 /12/11 JEH
  64    S XMY(" PII             ")=""      ;MTN013908 -01 12/12/ 11 JEH
  65    S XMY("G. FTDA")=""    ;MTN0139 08-01 12/1 2/11 JEH
  66    ;S XMDUZ= 1948,XMY(1 948)="",XM SUB="No TD A date has  been set"
  67    S U="^" D  ^XMD
  68    Q
  69    ;
  70   DATES ;ENT ER/EDIT TD A RUN DATE S
  71    W @IOF,!! ,"TDA is s et to run  on the fol lowing dat es.",!
  72    S NODATES ="Currentl y there ar e no dates  set up to  run a TDA ."
  73    ;Y2K S YR =$E(DT,2,3 ),MN=$E(DT ,4,5)-1
  74    S YR=$E(D T,1,3),MN= $E(DT,4,5) -1
  75   D1 S MN=$O (^CHMIHQ(" A-TDA-RUN- DATE",YR,M N)) G:'MN  D3 S DAT=0
  76   D2 S DAT=$ O(^CHMIHQ( "A-TDA-RUN -DATE",YR, MN,DAT)) G :'DAT D1
  77    G:DAT<DT  D2
  78    K NODATES  S X=DAT D  DTPRT
  79    W !,"      ",Y
  80    G D2
  81   D3 W:$D(NO DATES) !?1 0,"*****   ",NODATES, "  *****"  W !!
  82   D4 K DIR
  83    S DIR(0)= "DOA^DT::X ",DIR("A") ="Enter da te for TDA  to run on : "
  84    D ^DIR G: X="" END G :X="^" END  G:X="^^"  END G:X="@ " D4
  85    ;Y2K S YR =$E(Y,2,3) ,MN=$E(Y,4 ,5),NDAT=Y ,X=NDAT D  DTPRT S PD AT=Y
  86    S YR=$E(Y ,1,3),MN=$ E(Y,4,5),N DAT=Y,X=ND AT D DTPRT  S PDAT=Y
  87    K FL D ED IT G:$D(FL ) DATES
  88    K ^CHMIHQ ("A-TDA-RU N-DATE",YR ,MN)
  89    S ^CHMIHQ ("A-TDA-RU N-DATE",YR ,MN,NDAT)= "" G DATES
  90   EDIT K DIR  I $D(^CHM IHQ("A-TDA -RUN-DATE" ,YR,MN)) D
  91    .W !!,"A  TDA run da te already  exists fo r the year  and month  entered."
  92    .W !,"Onl y one run  date a mon th is allo wed."
  93    W ! S MON TH=$P($T(T EXT+(+MN)) ,";",2)
  94    S DIR(0)= "DOA^DT::X ",DIR("A") ="TDA run  date for " _MONTH_":  "
  95    S DIR("B" )=PDAT
  96    D ^DIR
  97    I X="@" K  ^CHMIHQ(" A-TDA-RUN- DATE",YR,M N,NDAT) S  FL=1
  98    S:X="" FL =1 S:X="^"  FL=1 S:X= "^^" FL=1
  99    Q
  100   SBRS D CSB RS^CHSC2 Q    ;SKD, 9 -7-05
  101    R Y:$S($D (DTIME):DT IME,1:60)
  102    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  103   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  104    I IOZFO=Y  W:$D(IOZF ) @IOZF S  (DFOUT,Y)= "" Q
  105    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  106    Q
  107   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  108    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y
  109    Q
  110   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC
  111   TEXT ;
  112    ;January
  113    ;February
  114    ;March
  115    ;April
  116    ;May
  117    ;June
  118    ;July
  119    ;August
  120    ;Septembe r
  121    ;October
  122    ;November
  123    ;December