57. EPMO Open Source Coordination Office Redaction File Detail Report

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

57.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHIGA3.m Mon Nov 5 16:44:11 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHIGA3.m Fri Nov 9 01:24:02 2018 UTC

57.2 Comparison summary

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

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

57.4 Active regular expressions

No regular expressions were active.

57.5 Comparison detail

  1   CHIGA3 ;CV A/AEB;FIND S claims w ith omre t hen 1 unit ;01/26/99   5:04 PM
  2    ;;1.0
  3   QUE ;
  4            W  #,"GENERA TE REPORT  FOR IG REQ UEST ON 2/ 24/2006"
  5            W  !,"PLEASE  SELECT A  PRINTER",! ! S IOP="Q " D ^%ZIS  G:POP QEND
  6            S  CHFIO=ION
  7            S  ZTSAVE("C HFIO")=""
  8            S  ZTRTN="ST ART^CHIGA3 ",ZTDESC=" CHAMPVA DU P PAYMENTS  FOR A FY" ,ZTIO=""
  9            ; D ^%ZTLOAD
  10            ; W !!,"YOUR  TASK NUMB ER IS : ", ZTSK
  11            D  START^CHI GA3
  12   QEND K CHF Y,ION
  13            Q
  14   START ;
  15            S  CHFBDT=30 50801  ;FI LEMAN BEG  DATE
  16            S  CHFEDT=30 50831  ;FI LEMAN END  DATE
  17            S  U="^" K ^ CHMZHOLD(" IG_DECMIAL _7/2005"), ARAY
  18            ; S CHBDT=20 0518200000 000,CHEDT= 2005212999 99999
  19            S  CHBJDT=$E ($$FMJUL^C HTFLIB(CHF BDT),3,5)   ;BEGIN JU LIAN DATE
  20            S  CHEJDT=$E ($$FMJUL^C HTFLIB(CHF EDT),3,5)   ;END JULI AN DATE
  21            S  CHBPYR=$P ($$FMTE^XL FDT(CHFBDT ,"5D"),"/" ,3)  ;BEGI N PDI YEAR
  22            S  CHEPYR=$P ($$FMTE^XL FDT(CHFBDT ,"5D"),"/" ,3)  ;END  PDI YEAR
  23            S  CHBDT=CHB PYR_CHBJDT _"00000000 "  ;BEGIN  PDI NUMBER
  24            S  CHEDT=CHE PYR_CHEJDT _"99999999 "  ;END PD I NUMBER
  25            S  CHPDIDT=C HBDT,CNT=0 ,CT1=0,CT2 =0,CT3=0
  26   A S CHPDID T=$O(^CHMI MG(CHPDIDT )) G:CHPDI DT="" ST1  G:CHPDIDT> CHEDT ST1
  27            G :'$D(^CHMI MG(CHPDIDT ,0)) A
  28            ; CNT - TOTA L NUMBER O F OCR CLAI MS
  29            ; CT1 - TOTA L NUMBER O F OCR CLAI MS OVER 1  UNIT
  30            ;
  31            ; 94 CVA OCR
  32            ; 95 SB OCR
  33            ; 96 CWVV OC R
  34            I  $E(CHPDID T,8,9)'=94  I $E(CHPD IDT,8,9)'= 95 I $E(CH PDIDT,8,9) '=96 G A   ;MUST BE O CR SUBMISS ION
  35            G :$P(^CHMIM G(CHPDIDT, 0),"^",6)' =4 A  ;SUB MISSION MU ST BE COMP LETE
  36            G :'$D(^CHMI MG(CHPDIDT ,1,0)) A   ;MUST HAVE  CLAIMS
  37            S  CHIMGCL=0 ,CNT=CNT+1
  38   A2 S CHIMG CL=$O(^CHM IMG(CHPDID T,1,CHIMGC L)) G:'CHI MGCL A
  39            G :'$D(^CHMI MG(CHPDIDT ,1,CHIMGCL ,0)) A2
  40            S  CI=$P(^CH MIMG(CHPDI DT,1,CHIMG CL,0),"^", 1) G:'CI A 2
  41            G :'$D(^CHMP AY(CI,0))  A2  ;SKIP  IF NO CLAI M
  42            S  REC=^CHMP AY(CI,0) I  $P(REC,"^ ",2)=10 G  A2
  43            F  CHS="OPT- PROC","PHA RM" D CHK
  44            G  A2
  45   ST1 S %ZIS ="Q",IOP=" Q;"_CHFIO  D ^%ZIS G: POP END
  46    S ZTRTN=" PRT^CHIGA3 ",ZTDTH=$H
  47    K ZTIO S  ZTSAVE("CH FY")=""
  48    S ZTSAVE( "CHBDT")=" ",ZTSAVE(" CHEDT")=""
  49    ;D ^%ZTLO AD
  50    D PRT^CHI GA3
  51    Q
  52   END K CHPT ,CHDUZ,CHP TDT,CHSTDT ,CHEDDT,%D T,CHCLNUM, Y,DFN,BFN, PRGPT
  53    Q
  54   PRT ;REMOV E ENTRIES  WITHOUT DU PLICATES
  55    S T=$C(9)   ;USE TO  SET DELIMI TER TO TAB
  56    ;FTP  IP                /USER=
A I /PASS=
A I
  57    S CHPRTMM =$P($$FMTE ^XLFDT(CHF BDT,"1D"), " ",1)
  58    S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]IG_DE CMIAL_"_CH PRTMM_".DA T"
  59    O FIO
  60    S PG=0 D  HEAD
  61    I '$D(^CH MZHOLD("IG _DECMIAL_7 /2005")) D   Q
  62    .U FIO W  !!!,"NO DU PLICATES F OUND"
  63    .;W !!!," NO DUPLICA TES FOUND"
  64    .Q
  65    S CHUTS=0 ,CHUCT=0
  66   P1 S CHUTS =$O(^CHMZH OLD("IG_DE CMIAL_7/20 05",CHUTS) ) G:CHUTS= "" PEND
  67    U FIO W ! ,"TOTAL NU MBER OF CL AIMS WITH  "_CHUTS_"  UNITS "_^C HMZHOLD("I G_DECMIAL_ 7/2005",CH UTS,0)
  68    S CHCI=0
  69   P2 S CHCI= $O(^CHMZHO LD("IG_DEC MIAL_7/200 5",CHUTS,C HCI)) G:'C HCI P1
  70    U FIO W ! ,T_$P(^CHM ZHOLD("IG_ DECMIAL_7/ 2005",CHUT S,CHCI),"^ ",1)_T_$P( ^CHMZHOLD( "IG_DECMIA L_7/2005", CHUTS,CHCI ),"^",2)
  71    S CHUCT=C HUCT+1
  72    G P2
  73   HEAD ;WRIT E HEADER O UT
  74    S PG=PG+1 ,TITLE="HE ALTH ADMIN ISTRATION  CENTER"
  75    ;S TAB=(8 0-$L(TITLE ))/2,CHBDT P=$$FMTE^X LFDT(CHBDT ,"5D"),CHE DTP=$$FMTE ^XLFDT(CHE DT,"5D")
  76    U FIO W ! ,TITLE 
  77    S TITLE=" CLAIMS WIT H MORE THA N ONE (1)  UNIT FROM  July 1, 20 05 THRU Ju ly 31, 200 5"
  78    S TAB=(80 -$L(TITLE) )/2
  79    U FIO W ! !,T_TITLE, !!!
  80    Q
  81   PEND ;
  82    U FIO W ! !,"TOTAL N UMBER OF O CR CLAIMS  "_CNT
  83    U FIO W ! ,"TOTAL NU MBER OF OC R CLAIMS W ITH MORE T HAN 10 UNI TS "_CHUCT  
  84    C FIO
  85    Q
  86   CHK ;
  87            S  CHPROCI=0 ,CHUNITS=0  K ARAY
  88   A3 S CHPRO CI=$O(^CHM PAY(CI,CHS ,CHPROCI))  G:'CHPROC I A3E
  89    Q:'$D(^CH MPAY(CI,CH S,CHPROCI, 0))
  90    S CHSERV= $P(^CHMPAY (CI,CHS,CH PROCI,0)," ^",1)
  91    G:CHSERV= "" A3
  92    I '$D(ARA Y(CHSERV))  D
  93    .S ARAY(C HSERV)=0
  94    .Q
  95    S ARAY(CH SERV)=ARAY (CHSERV)+1
  96    G A3
  97   A3E S CHSE RVI=0
  98   A3E1 S CHS ERVI=$O(AR AY(CHSERVI )) I 'CHSE RVI K ARAY  Q
  99    S CHUNITS =ARAY(CHSE RVI)
  100    I CHUNITS <10 G A3E1
  101    S CT1=CT1 +1
  102            I  '$D(^CHMZ HOLD("IG_D ECMIAL_7/2 005",CHUNI TS,0)) D
  103            . S ^CHMZHOL D("IG_DECM IAL_7/2005 ",CHUNITS, 0)=0
  104            I  '$D(^CHMZ HOLD("IG_D ECMIAL_7/2 005",CHUNI TS,CI)) S  ^CHMZHOLD( "IG_DECMIA L_7/2005", CHUNITS,0) =^CHMZHOLD ("IG_DECMI AL_7/2005" ,CHUNITS,0 )+1
  105            S  ^CHMZHOLD ("IG_DECMI AL_7/2005" ,CHUNITS,C I)=$P(REC, "^",1)_"^" _$P(($P(^C HMPAY(CI,0 ),"^",4)), "*",1)
  106    G A3E1