41. EPMO Open Source Coordination Office Redaction File Detail Report

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

41.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHDICNT.m Mon Nov 5 16:39:41 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHDICNT.m Mon Nov 5 17:38:06 2018 UTC

41.2 Comparison summary

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

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

41.4 Active regular expressions

No regular expressions were active.

41.5 Comparison detail

  1   CHDICNT ;C VA/DTP;DIC  COUNT UTI LITY-REPOR TS NEW DIC -FLAGGED B ENES FOR W EEK, NO OF  DIC "EA"  FOR WEEK;1 0/11/02  1 1:18 AM
  2    ;;1.0; 
  3    ;;THIS RO UTINE IS R UN OUT OF  THE REPETI TIVE QUEUE  ONCE PER  WEEK ON WE DNESDAY AT  11:59 P.M .
  4    ;;LOOP TH RU ^CHMZHO LD("DIC-FL AG-CNT" BY  DATE/TIME  AND ADD U P NUMBER O F DIC FLAG GED BENES  FOR LAST W EEK NOT AL L READY CO UNTED
  5    ;;IF $P-2  OF NODE S ET TO 1, F LAGGED BEN ES HAVE BE EN COUNTED
  6    ;;ONCE BE NES COUNTE D FOR THAT  DATE/TIME , SET $P-2  OF NODE T O 1
  7    ;;LOOP TH RU ^AHCHVA ("DIC") X- REF, COUNT  NUMBER OF  BENES IN  THIS X-REF  WITH "EA"  STATUS IN  CHDICEA V ARIABLE
  8    ;;SET CUR RENT "EA"- "DIC" COUN T IN ^CHMZ HOLD("DIC- EA",DATE)  NODE
  9    ;;SUBTRAC T LAST COU NT FROM CU RRENT COUN T FOR A WE EKLY COUNT
  10    ;;REPORT  NUMBER OF  NEWLY FLAG GED DIC BE NES (CHDIC FL) AND DI FFERENCE B ETWEEN CHD ICEA COUNT  AND LAST  WEEK'S COU NT (CHDICN EA)
  11    ;;EMAIL T HESE FIGUR ES TO BOBB I BEGAY AN D JANE BLU E IN MS EX CHANGE
  12   CQUE S ZTI O=""
  13    S ZTRTN=" START^CHDI CNT",ZDESC ="DIC COUN TS",ZTDTH= $H
  14    D ^%ZTLOA D
  15    D HOME^%Z IS
  16    Q
  17    ; 
  18   START S (C HDICFL,CHD ICEA)=0,CH DT=0
  19    S:$D(^CHM ZHOLD("DIC -FLAG-CNT" ,"LAST D/T M")) CHDT= $P(^CHMZHO LD("DIC-FL AG-CNT","L AST D/TM") ,"^",1)
  20   S1 S CHDT= $O(^CHMZHO LD("DIC-FL AG-CNT",CH DT)) G:'CH DT EACNT
  21    G:$P(^CHM ZHOLD("DIC -FLAG-CNT" ,CHDT),"^" ,2)=1 S1
  22    S CHDICFL =CHDICFL+$ P(^CHMZHOL D("DIC-FLA G-CNT",CHD T),"^",1)
  23    S $P(^CHM ZHOLD("DIC -FLAG-CNT" ,CHDT),"^" ,2)=1
  24    G S1
  25    ; 
  26   EACNT D NO W^%DTC S C HDT=%
  27    S ^CHMZHO LD("DIC-FL AGGED",CHD T)=CHDICFL
  28    S ^CHMZHO LD("DIC-FL AG-CNT","L AST D/TM") =CHDT
  29    S CHDFN=0
  30   E1 S CHDFN =$O(^AHCHV A("DIC",CH DFN)) G:'C HDFN RCDEA
  31    S CHBFN=0
  32   E2 S CHBFN =$O(^AHCHV A("DIC",CH DFN,CHBFN) ) G:'CHBFN  E1
  33    G:'$D(^AH CHVA(CHDFN ,100,CHBFN ,0)) E2
  34    G:$P(^AHC HVA(CHDFN, 100,CHBFN, 0),"^",5)' ="EA" E2
  35    S CHDICEA =CHDICEA+1
  36    G E2
  37    ; 
  38   RCDEA S CH LDT=999999 9
  39   R1 S CHLDT =$O(^CHMZH OLD("EA-DI C",CHLDT), -1)
  40    G:'$D(^CH MZHOLD("EA -DIC",CHLD T)) R1
  41    S CHCMPCN T=^CHMZHOL D("EA-DIC" ,CHLDT)
  42    S ^CHMZHO LD("EA-DIC ",$E(CHDT, 1,7))=CHDI CEA
  43    S CHDICNE A=CHDICEA- CHCMPCNT
  44    D MMSG
  45    K CHDICEA ,CHDICNEA, CHDICFL,CH DT,CHCFNO, CHDFN,CHBF N,CHLDT,CH CMPCNT Q
  46    ; 
  47   MMSG Q:'$D (CHDICNEA)   Q:'$D(CH DICFL)
  48    D NOW^%DT C S Y=$E(% ,1,7) X ^D D("DD") S  CHDTPR=Y
  49    F I=1:1 S  X=$P($T(M 1TX1+I),"; ",2) Q:X=" END"  D MB LD
  50    D M1TAB
  51    D M1SND K  ^UTILITY( $J,"M1")
  52    Q
  53    ; 
  54   M1TX1 ;
  55    ;The foll owing DIC  counts are  being rep orted for  the week.
  56    ;Please c ontact Dan  Powell, e xt. 7528,  if you sus pect a pro blem
  57    ;with the  counts.
  58    ;
  59    ;END
  60   MBLD D SPA CE I '$D(^ UTILITY($J ,"M1",1))  S HOLDJ=0
  61    S JJ=HOLD J+1 S ^UTI LITY($J,"M 1",1,JJ,0) =X,HOLDJ=J J
  62    Q
  63    ; 
  64   SPACE S LE N=$L(X) S  TIMES=74-L EN,SPACE=" " F KK=1:1 :TIMES S S PACE=SPACE _" "
  65    S X=X_SPA CE
  66    Q
  67    ; 
  68   M1SND S XM SUB="WEEKL Y DIC BENE  COUNTS",X MDUZ=DUZ
  69    S XMTEXT= "^UTILITY( $J,""M1"", 1,"
  70    ;S DOMN=" PII                      ",XMY(DOMN )=""
  71    S DOMN="
P II                        ",XMY(DOMN )=""
  72    ;S DOMN=" PII                     ",XMY(DOMN )=""
  73    S DOMN=" PII                        ",XMY(DOMN )=""
  74    ;S DOMN=" PII                           ",XMY(DOMN )=""
  75    S DOMN="P II                            ",XMY(DOMN )=""
  76    S U="^" D  ^XMD
  77    Q
  78    ; 
  79   M1TAB S X= "The numbe r of new b enes flagg ed as 'DIC ' for the  week: "_CH DICFL
  80    D MBLD
  81    S X="" D  MBLD
  82    S X="The  number of  new eligib le 'DIC' b enes for t he week: " _CHDICNEA
  83    D MBLD
  84   M1L3 S X=" " D MBLD
  85    S X="Repo rted good  for week e nding:  "_ CHDTPR
  86    D MBLD
  87    S X="" D  MBLD Q
  88    ;