8. EPMO Open Source Coordination Office Redaction File Detail Report

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

8.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPACC.m Mon Nov 5 16:40:50 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPACC.m Mon Nov 5 17:37:05 2018 UTC

8.2 Comparison summary

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

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

8.4 Active regular expressions

No regular expressions were active.

8.5 Comparison detail

  1   CHBPACC ;C VA/JEH;LOA D ACCEPTD  CLMS FROM  RETURN FMS  ACC/REJ F ILE FROM A USTIN;04/1 3/98  3:21  PM
  2    ;
  3    ;JEH 2/29 /08 MTN004 438-01 - F IX $T LOGI C
  4    ;JEH 12/1 9/08 DEF00 6423 - Fix  Dup check  logic for  grabbing  FMP claims   
  5    ;JEH (DEF 007125) 4/ 23/09 - FI X DUP CHEC K LOGIC
  6    ;DEV01273 8-02 AEB 7 /25/2011 S KIP ID CG  - CG NOT U PLOADED
  7    ;JEH 1/3/ 13 DEF0170 35 - FIX D ATA IN 741 309 GLOBAL  
  8   START ;USE  QUEA^CHBP ACC TO QUE  ROUTINE T O RUN IN B ACKGROUND
  9    D INIT
  10    D GETADT
  11    Q:QNFLG=1
  12    D LOADACC
  13    Q:QNFLG=1
  14    D:$D(MMFL G2) MMMSG
  15    D END
  16    Q
  17   INIT ; INI TIALIZING
  18    S (CTR,DC TR)=0
  19    S QNFLG=0
  20    K MMFLG,M MFLG2
  21    S ^CHMZHO LD("BATCH_ DUP_CHK_RU NNING")="C HBPACC"
  22    Q
  23   GETADT ; G ETTING AAC  ACCEPT DA TE FROM IN PUT FILE
  24    ;D OPNFIL E S $ZE="" ,$ZT="ENDF L^CHBPACC"
  25    Q:$$OPNFI LE()=0
  26    S $ZE=""
  27    S $ZT="EN DFL^CHBPAC C"
  28    F  U IO R  REC Q:$E( REC,63,71) ["PAGE     2"
  29    C IO
  30    S X=$E(RE C,9,16) S  %DT="P" D  ^%DT S ACC DT=Y
  31    D NOW^%DT C S CHFLDT =%   ;D/T  FILE WAS L OADED INTO  ^CHBPACC  GBL
  32    Q       
  33   LOADACC ;  LOADING AC CEPTED REC ORDS INTO  ^CHBPACC G LOBAL
  34    S DUPDT=0   ;Indicat es if file  has been  processed
  35    ;D OPNFIL E S $ZE="" ,$ZT="ENDF L^CHBPACC"
  36    Q:$$OPNFI LE()=0  ;Q UIT IF FIL E NOT OPEN    ;JEH 2/ 29/08
  37    Q:QNFLG=1
  38    S $ZE=""
  39    S $ZT="EN DFL^CHBPAC C"
  40    F  U IO R  REC S CHS TAT=$E(REC ,1) D:CHST AT="A"
  41    .S REFDOC ="" S REFD OC=$E(REC, 61,62)
  42    .I REFDOC ="SO" D
  43    ..S (CHST AT,CHDOCID ,CHPRGM,CH CLM,CHPAYE E,CHCAT)=" "
  44    ..S CHDOC ID=$E(REC, 4,14) I CH DOCID'=""  I $D(^CHCG PAY(741850 .6,"B",CHD OCID)) Q   ;AEB 7/25/ 2011 SKIP  ID CG - CG  NOT UPLOA DED
  45    ..S CHCLM =$$TRIM^CH TFLIB($E(R EC,22,33))    ;JEH 1/ 3/13 DEF01 7035
  46    ..I $E(CH CLM,1,1)=" C" S CHCLM =$E(CHCLM, 4,10)         ; JEH 6 /25/07 FIX  TO GET NO N-CHAMPVA  CLAIM NUMB ERS   ;JEH  1/3/13 DE F017035
  47    ..;I $E(C HCLM,1,1)= "F" S CHCL M=$$TRIM^C HTFLIB($E( REC,22,33) )        ;  JEH 12/19 /08 FIX TO  GET FMP C LAIM NUMBE RS   ;JEH  1/3/13 DEF 017035
  48    ..S CHCLM I=0 S CHCL MI=$O(^CHM PAY("B",CH CLM,CHCLMI ))
  49    ..I CHCLM I'="" Q:$D (^CHMSNA(7 41008.6,"F ",CHCLMI))    ; QUIT  IF REISSUE  CLAIM/CHE CK
  50    ..S CHPRG M=$E(REC,2 2,24)
  51    ..S CHPAY EE=$E(REC, 33,41)
  52    ..S X=+$E (REC,44,58 )
  53    ..S CHAMT =0
  54    ..S:X'=0  CHAMT=$E(X ,1,($L(X)- 2))_"."_$E (X,($L(X)- 1),$L(X))
  55    ..I $D(^C HMSNA(7410 08.2,"AE", CHDOCID))  S CHCAT="P "    ; SET  CAT TYPE  TO PROVIDE R/VENDOR
  56    ..I $D(^C HMSNA(7410 08.3,"AE", CHDOCID))  S CHCAT="B "    ; SET  CAT TYPE  TO BENE/FM P
  57    ..I CHCAT ="" D  Q       ;JEH ( DEF007125)  4/23/09
  58    ...S ^CHM ZHOLD("POS _BP_DUPS", $J,CHCLM)= ACCDT_"^"_ CHDOCID_"^ "_CHPRGM_" ^"_CHPAYEE _"^"_CHCAT _"^"_CHFLD T
  59    ...S DCTR =DCTR+1
  60    ...K MMFL G
  61    ...S MMFL G2="Poss.  Dup Claim  Sent - mis sin CHCAT"
  62    ..I $D(^C HBPACC("B" ,CHCLM)) D
  63    ...S IVAL =0 F  S IV AL=$O(^CHB PACC("B",C HCLM,IVAL) ) Q:'IVAL   D
  64    ....;DUPL ICATE CHEC KS ARE DON E HERE
  65    ....I ACC DT'=$P(^CH BPACC(IVAL ,0),"^",3)  D    ;Che cks dates  to prevent  dups when  loading s ame file m ore than o nce
  66    .....S DU PDAT=0     ;File has  not run
  67    .....I (C HDOCID=$P( ^CHBPACC(I VAL,0),"^" ,2))&(CHAM T=$P(^CHBP ACC(IVAL,0 ),"^",5))& (CHPRGM=$P (^CHBPACC( IVAL,0),"^ ",6))&(CHC AT=$P(^CHB PACC(IVAL, 0),"^",7))  D
  68    ......S M MFLG=1
  69    ......S M MSG1="Dup  File Sent"
  70    .....I CH CAT=$P(^CH BPACC(IVAL ,0),"^",7)  D
  71    ......S M MFLG=1
  72    ......S M MSG2="Dup  Claim Sent "
  73    ....E  S  DUPDT=1     ;File has  run
  74    ....;
  75    ...I $D(M MFLG) D
  76    ....S ^CH MZHOLD("PO S_BP_DUPS" ,$J,CHCLM) =ACCDT_"^" _CHDOCID_" ^"_CHPRGM_ "^"_CHPAYE E_"^"_CHCA T_"^"_CHFL DT
  77    ....S DCT R=DCTR+1
  78    ....K MMF LG
  79    ....S MMF LG2=""
  80    ...I DUPD T=0 D UPDR CD
  81    ..E  D UP DRCD
  82    Q
  83   OPNFILE()  ; OPENING  INPUT FILE
  84    NEW OPNTS T
  85    S OPNTST= 0
  86    S IO="HAC _HFS$:[DSM MANAG.CHAM PVA]S741CH 22.1PART", U="^"
  87    O IO:"R": 5
  88    ;S $ZT="O ERR^CHBPAC C" S $ZE=" " U IO I $ ZE["NOTOPE N" Q   ;JE H 2/29/08
  89    S OPNTST= $T
  90    I $T=0 D  OERR
  91    Q OPNTST
  92   OERR ;
  93    W !!,"NOT  ABLE TO O PEN FILE:  ",IO,!!
  94    D KVAR
  95    S QNFLG=1   ;SETTING  QUIT NOW  FLAG
  96    S OPNTST= 0
  97    Q
  98   ENDFL ;
  99    C IO
  100    Q
  101   UPDRCD ;Up date globa l using UP DATE^DIE() :Updater
  102    U 0 W !," IN UPDRCD" ,?33,CHCLM
  103    S GBLIEN= +($P(^CHBP ACC(0),"^" ,3))+1
  104    S FDA(1,7 41309,"+1, ",.01)=CHC LM                 ;  CLAIM NUMB ER
  105    S FDA(1,7 41309,"+1, ",1)=CHDOC ID                 ;  FMS ID NUM BER
  106    S FDA(1,7 41309,"+1, ",2)=ACCDT            ; ACC ACCE PTED DATE
  107    S FDA(1,7 41309,"+1, ",3)=CHPAY EE                 ;  PAYEE NAME  (if prese nt)
  108    S FDA(1,7 41309,"+1, ",4)=CHAMT            ; PAYMENT  AMOUNT
  109    S FDA(1,7 41309,"+1, ",5)=CHPRG M          ; HAC PROG RAM
  110    S FDA(1,7 41309,"+1, ",6)=CHCAT            ; CLAIM CA TEGORY (P) rovider -v s- (B)ene
  111    S FDA(1,7 41309,"+1, ",7)=CHFLD T          ; DATE/TIM E FILE LOA DED INTO ^ CHBPACC GB L
  112    S FDAIEN( 1)=GBLIEN
  113    D UPDATE^ DIE("S","F DA(1)","FD AIEN","ORO UT(1)")
  114    S CTR=CTR +1
  115    Q
  116   MMMSG ; ME SSAGE ALER TING POSSI BLE DUPS
  117    S CNT=1,^ TMP($J,"PO SS-DUPL-CL MS",CNT)=" ",CNT=CNT+ 1
  118    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  **** ********** ********** ********** *",CNT=CNT +1
  119    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  ** R ETURN BATC H FILES PR OCESSED  * *",CNT=CNT +1
  120    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  ***                                ** *",CNT=CNT +1
  121    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  ****  POSSIBLE  DUPLICATE  CLAIMS *** *",CNT=CNT +1
  122    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  ***                                ** *",CNT=CNT +1
  123    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  **          FRO M ^CHBPACC          * *",CNT=CNT +1
  124    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  **** ********** ********** ********** *",CNT=CNT +1
  125    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1
  126    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  NUMB ER OF POSS IBLE DUPLI CATE CLAIM S: "_DCTR, CNT=CNT+1
  127    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1
  128    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  SEE  TEMP GLOBA L: ^CHMZHO LD(""POS_B P_DUPS""," _$J,CNT=CN T+1
  129    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1
  130    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  FILE  WAS LOADE D: "_CHFLD T,CNT=CNT+ 1
  131    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)="",CNT= CNT+1
  132    S:$D(MMSG 1) ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  Chec k the foll owing: "_M MSG1,CNT=C NT+1
  133    S:$D(MMSG 2) ^TMP($J ,"POSS-DUP L-CLMS",CN T)="  Chec k the foll owing: "_M MSG2,CNT=C NT+1
  134    S ^TMP($J ,"POSS-DUP L-CLMS",CN T)=""
  135    S XMTEXT= "^TMP($J," "POSS-DUPL -CLMS"","
  136    S XMDUZ=. 5
  137    S XMY(" PII                            ")=""
  138    S XMY(582 43)="",XMY (319955)=" "
  139    S XMY(" PII                   ")=""
  140    S XMSUB=" BP DUP CLA IMS CHK -  ^CHBPACC"  D ^XMD
  141    Q
  142   QUEA ;QUE  THIS ROUTI NE MANUALL Y.
  143    I '$D(DUZ ) S DUZ=58 243,DUZ(0) ="@"
  144    D NOW^%DT C S DT=X
  145    S DTIME=3 00
  146    S U="^"
  147    S CHFIO=" "
  148    S ZTRTN=" START^CHBP ACC",ZTDES C="LOADING  ACCPT CLM S FROM RET URN BATCH  FILE"
  149    S ZTIO="" ,ZTSAVE("C HFIO")=""
  150    D ^%ZTLOA D
  151    Q
  152   END ;
  153    C IO
  154    D KVAR
  155    Q
  156   KVAR ;KILL  VARIABLES
  157    K CTR,DCT R,MMFLG,MM FLG2
  158    K CHCLM,C HDOCID,ACC DT,CHPAYEE ,CHAMT,CHP RGM,CHCAT
  159    K FDA(1), FDAIEN(1), GBLIEN
  160    K PNFLG,O PNTST
  161    K ^CHMZHO LD("BATCH_ DUP_CHK_RU NNING")
  162    Q
  163