118. EPMO Open Source Coordination Office Redaction File Detail Report

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

118.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKAG5P.m Mon Nov 5 16:40:35 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKAG5P.m Mon Nov 5 17:48:34 2018 UTC

118.2 Comparison summary

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

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

118.4 Active regular expressions

No regular expressions were active.

118.5 Comparison detail

  1   CHMKAG5P ; CVA/CR;AGI NG OF CLAI MS REPORT  CALC/PRINT ;05/11/98   1:06 PM
  2    ;V1.0
  3    ;DPT MTN0 16163 3/12 /13 ADD SX C/CATARAMA N, REMOVE  ZZ IN GRP2  
  4    ;S CHBDT= 3020205
  5    ;S CHEDT= 3020205
  6    ;S MENUVA L="3^HAC S UMMARY^CHA MPVA,CITI, CFL,CVAF,C WVV,SB,FMP ^"
  7    K AGEARR
  8    D COMPILE
  9    D PRINT
  10    Q
  11   COMPILE S  CHDT=(CHBD T\1)-.0001
  12    S CHBBEG= "",CHBEND= ""
  13    S PRGMSTR =$P(MENUVA L,"^",3)
  14    S SUMFLG= +$P(MENUVA L,"^",4)
  15    F  S CHDT =$O(^CHAGE ("C",CHDT) ) Q:CHDT\1 >CHEDT  Q: 'CHDT  D
  16    .S CHB=0
  17    .F  S CHB =$O(^CHAGE ("C",CHDT, CHB)) Q:'C HB  D
  18    ..S:CHBBE G="" CHBBE G=CHB
  19    ..S CHBEN D=CHB
  20    ..F X=1:1  S PRGM=$P (PRGMSTR," ,",X) Q:PR GM=""  D
  21    ...S PRGM 1=PRGM
  22    ...S:SUMF LG PRGM1=" SUMMARY"
  23    ...S GRP= ""
  24    ...F  S G RP=$O(^CHA GE(CHB,PRG M,GRP)) Q: GRP=""  D
  25    ....S CAT =""  
  26    ....F  S  CAT=$O(^CH AGE(CHB,PR GM,GRP,CAT )) Q:CAT=" "  D  
  27    .....S TI ME="" 
  28    .....F  S  TIME=$O(^ CHAGE(CHB, PRGM,GRP,C AT,TIME))  Q:TIME=""   D    
  29    ......S C NT1=+$P(^C HAGE(CHB,P RGM,GRP,CA T,TIME),"^ ")
  30    ......S C NT2=+$P(^C HAGE(CHB,P RGM,GRP,CA T,TIME),"^ ",2)
  31    ......; D o not coun t time it  time is 0
  32    ......I T IME I TIME <CHLOW D  
  33    .......S  $P(AGEARR( PRGM1,GRP, CAT),"^",1 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",1)+CN T1
  34    .......S  $P(AGEARR( PRGM1,GRP, CAT),"^",4 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",4)+CN T2
  35    .......S  $P(AGEARR( PRGM1,GRP) ,"^",1)=$P ($G(AGEARR (PRGM1,GRP )),"^",1)+ CNT1
  36    .......S  $P(AGEARR( PRGM1,GRP) ,"^",4)=$P ($G(AGEARR (PRGM1,GRP )),"^",4)+ CNT2
  37    ......; D o not coun t time it  time is 0
  38    ......I T IME I TIME <CHMID D   ;TLH 6/5/0 7 DEV00027 1
  39    .......S  $P(AGEARR( PRGM1,GRP, CAT),"^",2 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",2)+CN T1  ;TLH 6 /5/07 DEV0 00271
  40    .......S  $P(AGEARR( PRGM1,GRP, CAT),"^",5 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",5)+CN T2  ;TLH 6 /5/07 DEV0 00271
  41    .......S  $P(AGEARR( PRGM1,GRP) ,"^",2)=$P ($G(AGEARR (PRGM1,GRP )),"^",2)+ CNT1  ;TLH  6/5/07 DE V000271
  42    .......S  $P(AGEARR( PRGM1,GRP) ,"^",5)=$P ($G(AGEARR (PRGM1,GRP )),"^",5)+ CNT2  ;TLH  6/5/07 DE V000271
  43    ......; D o not coun t time it  time is 0
  44    ......I T IME I TIME <CHHIGH D   
  45    .......S  $P(AGEARR( PRGM1,GRP, CAT),"^",3 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",3)+CN T1
  46    .......S  $P(AGEARR( PRGM1,GRP, CAT),"^",6 )=$P($G(AG EARR(PRGM1 ,GRP,CAT)) ,"^",6)+CN T2
  47    .......S  $P(AGEARR( PRGM1,GRP) ,"^",3)=$P ($G(AGEARR (PRGM1,GRP )),"^",3)+ CNT1
  48    .......S  $P(AGEARR( PRGM1,GRP) ,"^",6)=$P ($G(AGEARR (PRGM1,GRP )),"^",6)+ CNT2
  49    ......S $ P(AGEARR(P RGM1,GRP,C AT),"^",7) =$P($G(AGE ARR(PRGM1, GRP,CAT)), "^",7)+CNT 1
  50    ......S $ P(AGEARR(P RGM1,GRP,C AT),"^",8) =$P($G(AGE ARR(PRGM1, GRP,CAT)), "^",8)+(CN T1*TIME)
  51    ......S $ P(AGEARR(P RGM1,GRP,C AT),"^",9) =$P($G(AGE ARR(PRGM1, GRP,CAT)), "^",9)+(CN T2*TIME)
  52    ......S $ P(AGEARR(P RGM1,GRP), "^",7)=$P( $G(AGEARR( PRGM1,GRP) ),"^",7)+C NT1
  53    ......S $ P(AGEARR(P RGM1,GRP), "^",8)=$P( $G(AGEARR( PRGM1,GRP) ),"^",8)+( CNT1*TIME)
  54    ......S $ P(AGEARR(P RGM1,GRP), "^",9)=$P( $G(AGEARR( PRGM1,GRP) ),"^",9)+( CNT2*TIME)
  55    Q
  56   PRINT ;
  57    N PC
  58    S PG=0
  59    S PCNT=0
  60    I SUMFLG  F PRGM="SU MMARY" D P 1
  61    Q:SUMFLG
  62    F PC=1:1  S PRGM=$P( PRGMSTR,", ",PC) Q:PR GM=""  D
  63    .D P1
  64    Q
  65   P1 ;  
  66    ;S PCNT=P CNT+1
  67    ;I PCNT>2  D HDR S P CNT=1
  68    D HDR
  69    W !
  70    W PRGM
  71    D GRP1
  72    D GRP2
  73    D GRP3
  74    D GRP4
  75    W !
  76    Q
  77   GRP1 ;
  78    S GRP=1
  79    S VAR="AG EARR(PRGM, GRP,CAT)"
  80    F CAT="PR OVIDER","B ENE","REJE CT" S CATN M=CAT D DE T
  81    D SUM
  82    Q
  83   GRP2 ;
  84    W !
  85    S GRP=2
  86    S VAR="AG EARR(PRGM, GRP,CAT)" 
  87    F CAT="PA PER","EDI" ,"EDI RO", "OCR","CAT AMARAN" S  CATNM=CAT  D DET  ;KM L  user st ory 005-02 4a add EDI  RO catego ry
  88    D SUM
  89    Q
  90   GRP3 ;
  91    W !
  92    S GRP=3
  93    S VAR="AG EARR(PRGM, GRP,CAT)"
  94    F CAT=1:1 :$P(^CHMDI C(741002.0 5,0),"^",4 ) D 
  95    .S CATNM= $P(^CHMDIC (741002.05 ,CAT,0),"^ ",2)   
  96    .D DET
  97    D SUM
  98    Q
  99   GRP4 ;
  100    W !
  101    S GRP=4
  102    S VAR="AG EARR(PRGM, GRP,CAT)"
  103    S (CAT,CA TNM)="Not  Covered Sv c" D DET
  104    S (CAT,CA TNM)="Form  dt < Svc"  D DET
  105    S (CAT,CA TNM)="No D X/PX/NDC"  D DET
  106    S (CAT,CA TNM)="Clm  denied-oth " D DET
  107    S (CAT,CA TNM)="No O HI EOB" D  DET
  108    S (CAT,CA TNM)="No C VA Clm for m" D DET
  109    S (CAT,CA TNM)="Clm  not signed " D DET
  110    S (CAT,CA TNM)="Inel ig bene" D  DET
  111    S (CAT,CA TNM)="No p re-auth" D  DET
  112    S (CAT,CA TNM)="Clm  miss info"  D DET
  113    S (CAT,CA TNM)="Rej  0 Paid" D  DET
  114    S (CAT,CA TNM)="No R sn Cat Id"  D DET
  115    W ?8 F X= 1:1:15 W " -"
  116    W !
  117    S (CAT,CA TNM)="Paid " D DET
  118    S (CAT,CA TNM)="0 Pa id w/ rsn"  D DET
  119    S (CAT,CA TNM)="0 Pa id w/o rsn " D DET
  120    D SUM
  121    Q
  122   DET ;
  123    S (HAC14, HAC21,HAC3 0,AAC14,AA C21,AAC30, CLMTOT,HAC AVG,AACAVG )=0
  124    S CLMTOT= +$P($G(@VA R),"^",7)   ;TLH 6/5/ 07 DEV0002 71
  125    I CLMTOT> 0 D  
  126    .S HAC14= $P(@VAR,"^ ",1)/CLMTO T*100  ;TL H 6/5/07 D EV000271
  127    .S HAC21= $P(@VAR,"^ ",2)/CLMTO T*100  ;TL H 6/5/07 D EV000271
  128    .S HAC30= $P(@VAR,"^ ",3)/CLMTO T*100  ;TL H 6/5/07 D EV000271
  129    .S AAC14= $P(@VAR,"^ ",4)/CLMTO T*100  ;TL H 6/5/07 D EV000271
  130    .S AAC21= $P(@VAR,"^ ",5)/CLMTO T*100  ;TL H 6/5/07 D EV000271
  131    .S AAC30= $P(@VAR,"^ ",6)/CLMTO T*100  ;TL H 6/5/07 D EV000271
  132    .S HACAVG =$P(@VAR," ^",8)/CLMT OT  ;TLH 6 /5/07 DEV0 00271
  133    .S AACAVG =$P(@VAR," ^",9)/CLMT OT  ;TLH 6 /5/07 DEV0 00271
  134    W ?8,$E(C ATNM,1,15)
  135    W ?30,$J( HAC14,6,2)   ;TLH 6/5 /07 DEV000 271
  136    W ?40,$J( HAC21,6,2)   ;TLH 6/6 /07 DEV000 271
  137    W ?50,$J( HAC30,6,2)   ;TLH 6/6 /07 DEV002 71
  138    W ?65,$J( AAC14,6,2)   ;TLH 6/6 /07 DEV000 271
  139    W ?75,$J( AAC21,6,2)   ;TLH 6/6 /07 DEV000 271
  140    W ?85,$J( AAC30,6,2)   ;TLH 6/6 /07 DEV000 271
  141    W ?100,$J (HACAVG,6, 1)  ;TLH 6 /6/07 DEV0 00271
  142    W ?110,$J (AACAVG,6, 1)  ;TLH 6 /6/07 DEV0 00271
  143    W ?121,$J (CLMTOT,9)   ;TLH 6/6 /07 DEV000 271
  144    W !
  145    Q
  146   SUM ;
  147    W ?8
  148    F X=1:1:1 25 W "-"   ;TLH 6/6/0 7 DEV00027 1
  149    W !
  150    S CATNM=" TOTAL"
  151    S VAR="AG EARR(PRGM, GRP)"
  152    D DET
  153    Q
  154   HDR ;
  155    W @IOF
  156    S TITLE=" HEALTH ADM INISTRATIO N CENTER"
  157    S TAB1=13 2-$L(TITLE )/2  ;TLH  6/6/07 DEV 000271
  158    D NOW^%DT C S PG=PG+ 1,PAGE="Pa ge: "_PG
  159    W !,$$FMT E^XLFDT(X, "2D"),?TAB 1,TITLE,?1 22,PAGE  ; TLH 6/6/07  DEV000271
  160    W !,$E($P (%,".",2), 1,4),?53," Summary Ag ing of Cla ims"  ;TLH  6/6/07 DE V000271
  161    S TITLE2= $$FMTE^XLF DT(CHBDT,2 )_" - "_$$ FMTE^XLFDT (CHEDT\1,2 )
  162    S TAB1=13 2-$L(TITLE 2)/2  ;TLH  6/6/07 DE V000271
  163    W !,?TAB1 ,TITLE2
  164    S TITLE2= "Batch: "_ CHBBEG_" -  "_CHBEND
  165    S TAB1=13 2-$L(TITLE 2)/2  ;TLH  6/6/07 DE V000271
  166    W !,?TAB1 ,TITLE2
  167    I SUMFLG  D  
  168    .S TITLE3 =$P(MENUVA L,"^",2)_"  ("_$P(MEN UVAL,"^",3 )_")"
  169    .S TAB1=1 32-$L(TITL E3)/2  ;TL H 6/6/07 D EV000271
  170    .W !,?TAB 1,TITLE3
  171    W !!,?40, "HAC % Und er",?72,"H AC/AAC % U nder",?105 ,"Avg Days "  ;TLH 6/ 6/07 DEV00 0271
  172    W ?124,"T otal",!  ; TLH 6/6/07  DEV000271
  173    W "Progra m",?10,"Ca tegory",?3 0,CHLOW_"  Days",?40, CHMID_" Da ys",?50,CH HIGH_" Day s",?65,CHL OW_" Days"   ;TLH 6/6 /07 DEV000 271
  174    W ?75,CHM ID_" Days" ,?85,CHHIG H_" Days", ?103,"HAC" ,?110,"HAC /AAC",?124 ,"Claims", !  ;TLH 6/ 6/07 DEV00 0271
  175    F X=1:1:1 32 W "-"   ;TLH 6/6/0 7 DEV00027 1
  176    Q
  177    ;
  178   EDIRO(BATC H) ; user  stories 00 5-024a1, 0 05-024b1
  179    ; input -  BATCH - b atch # ass igned at t he 1st sub script of  ^CHAGE
  180    ; structu re of ^CHA GE = ^CHAG E(Batch#,P rogram,Sub missionTyp e,Sequence #)
  181    ; Batch#
  182    ; Program  - CHAMPVA  or SB (sp ina bifuda )
  183    ; Submiss ion Type -  1, 2, 3,  or 4
  184    ; Sequenc e#
  185    ; the 3rd  subscript  represent s submissi on type an d so for " EDI"
  186    ; the CHA MPVA Progr am  and Sp ina Bifuda  program 
  187    ; is alwa ys built w ith 2 subs cript in C HBPAGE rou tine
  188    ; note:   the origin al version  of the CH AGE global  was backe d up via ^ %GO before  this proc edure was  executed
  189    ;    back up re sides at C HAMPVA_USE R:[
D NS     LEYVAK] an d the name  of the fi le is CHAG E.GO
  190    N Y,PGM
  191    S Y=0
  192    F  S BATC H=$O(^CHAG E(BATCH))  Q:'BATCH   F PGM="CHA MPVA","SB"  S Y=$O(^C HAGE(BATCH ,PGM,2,"ED I",Y)) Q:' Y  D
  193    . S ^CHAG E(BATCH,PG M,2,"EDI R O",Y)=^CHA GE(BATCH,P GM,2,"EDI" ,Y)
  194    . K ^CHAG E(BATCH,PG M,2,"EDI", Y) ; remov e so it do esn't get  counted tw ice
  195    Q