4. EPMO Open Source Coordination Office Redaction File Detail Report

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

4.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CH835EFT.m Mon Nov 5 16:44:28 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CH835EFT.m Mon Nov 5 17:36:38 2018 UTC

4.2 Comparison summary

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

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

4.4 Active regular expressions

No regular expressions were active.

4.5 Comparison detail

  1   CH835EFT ; HR/JBM;Che ck for val id EFT.
  2    ;;1.0;CHA MPVA SYSTE M;;MARCH 2 4, 2011;Bu ild 10
  3    ;  If cla im flagged  for EFT a nd vendor  is missing  EFT infor mation the n;;;;;Buil d 11
  4    ;  send f iscal an e mail and l eave in st atus of ze ro - needs  835 sent.
  5    ;HR - Tea m Track #:  5592
  6    ;HR - New  835 Routi ne that re places the  old CHEDI * Routines
  7    ;MTN01404 0 12/20/11  JEH - Cha nge Email  list for M issing Ven dor EFT re port
  8    ; DEV7820  DLB COMME NTED THE E XISTING CO DE, ADDED  PARAMETERS  TO LOAD()
  9    ;JEH 2/1/ 11 DEV0078 20 - SLLA
  10    Q
  11    ;
  12    ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;
  13    ; NOEFT()  DETERMINE S IF THE R EQUIRED EF T BANKING  INFORMATIO N IS AVAIL ABLE,
  14    ;          AND IF NO T, ABORTS  THE 835 RE CORD GENER ATION FOR  THE CLAIM.
  15    ;                        1) RET URN 0 IF P AYMENT AMO UNT=0
  16    ;                        2) RET URN 0 IF E FT INDICAT OR IS NOT  VENDOR ONL
  17    ;                        3) RET URN 0 IF V ENDOR ID I S NULL
  18    ;                        4) RET URN 1 IF 1 -3 SATISFI ED, BUT NO  EFT INFO  AVAILABLE
  19    ;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;
  20    ;
  21   NOEFT(INI)
  22    ; INPUT P arameter I NI - I val ue from CH MEDI
  23    ; OUTPUT  NOEFT -
  24    N CI,X1,F OUND,NOEFT ,CLM,CHPDI ,CHEFTCK,C HVID,VREC
  25    S NOEFT=0   ;Initial ize flag.
  26    I +$P(^CH MEDI(INI,0 ),"^",4)=0  G NOEFTX          ;  ^04   CHK  AMT  NUMER IC  0-9999 999999
  27    ; NEW var s called b y PROGTYP^ CHFCD001 s o it does  interfere  with
  28    ; vars al ready defi ned before  this func tion is ca lled
  29    N CHPGPT, CHUCIPT,GL PAY,GLELG, GLDFN,GLPA YH,GLPAYW, GLEOB,CHUC I,CHSYS
  30    ; Get the  claim poi nter in ^C HMEDI(INI)  to check  EFT flag
  31    S CI=$P(^ CHMEDI(INI ,1,1,0),"^ ",1)                        ; ^0 1   CLAIM  NUMBER  PT   CHMPAY
  32    S X1=CI D  PROGTYP^C HFCD001
  33    S CHPDI=$ P(^CHMPAY( CI,"PDI",1 ,0),"^",1)         ;  UNDOCUMENT ED XREF FP R PDI (USE D IN LOAD( ))
  34    S CHEFTCK =$P($G(^CH MPAY(CI,7) ),"^",7)           ;  ^07 EFT IN DICATOR 1: VNDR ONLY  2:BENE ONL Y 3:BOTH
  35    S CLM=$P( $G(^CHMPAY (CI,0)),"^ ",1)                        ; ^0 1 CLAIM NU MBER  FT   1 TO 30
  36    G:CHEFTCK '=1 NOEFTX                                                 ; If n o eft on c laim then  go to exit
  37    S CHVID=$ $GETVID()                                                  ; get  vendor inf ormation
  38    I CHVID=" " G NOEFTX                                                 ; No v endor/repo rt error/d on't send  on 835 (Co nfirm w/ T ony)
  39    S VREC=$G (^CHMVEN(C HVID,3))
  40    I $P(VREC ,"^",1)="" !($P(VREC, "^",3)="")  D 
  41    .D LOAD(C HPDI,CLM,I NI,CHVID)
  42    .S NOEFT= 1
  43   NOEFTX
  44    Q NOEFT
  45    ;
  46   LOAD(CHPDI ,CLM,INI,C HVID)         ;No eft  error int o tmp glob al
  47    N X
  48    D NOW^%DT C
  49    S ^TMP($J ,"NOEFT",C HPDI)=CHPD I_"^"_CLM_ "^"_INI_"^ "_CHVID_"^ "_X  ;AEB   8/3/2005
  50    Q
  51   GETVID()   ; Get vend or id from  fms doc i d...compar e against  vendor lis t on first  claim
  52    N VID
  53    S VID=""
  54    I $P(^CHM EDI(INI,0) ,"^",5)]""  I $P(^CHM EDI(INI,0) ,"^",5)=$P (@(GLPAY_" CI,0)"),"^ ",3) D  G  GETVIDX
  55    .S VID=$P (^CHMEDI(I NI,0),"^", 5)                 ;  ^05   VEND OR PT  PT   CHMVEN
  56   GETVIDX
  57    Q VID
  58    ;
  59    ;
  60   EFTERR ;Em ail missin g vendors  and missin g EFT erro rs
  61    N PID,ZML ,DATA,CHPI D,VENCT
  62    S VENCT=0
  63    S CHNB=2, ZML(CHNB)= "Unknown V endor or m issing EFT  info ...C laims not  processed! ",CHNB=CHN B+2,ZML(CH NB)="  "
  64    S CHPDI=" "
  65    F  S CHPD I=$O(^TMP( $J,"NOEFT" ,CHPDI)) Q :CHPDI=""   D
  66    .S DATA=$ G(^TMP($J, "NOEFT",CH PDI))
  67    .S CHNB=C HNB+1,ZML( CHNB)="PDI                 = "_$ P(DATA,"^" ,1)
  68    .S CHNB=C HNB+1,ZML( CHNB)="CLA IM NUMBER      = "_$P (DATA,"^", 2)
  69    .S CHNB=C HNB+1,ZML( CHNB)="IVA L..^CHMEDI (""D"",0,I  = "_$P(DA TA,"^",3)
  70    .S CHNB=C HNB+1,ZML( CHNB)="VEN DOR ID..^C HMIMAGE(PD I,""P-VEN" "  = "_$P( DATA,"^",4 )
  71    .S CHNB=C HNB+1,ZML( CHNB)="DAT E & TIME R ECORDED               = "_$P(DAT A,"^",5)
  72    .S CHNB=C HNB+1,CHNB =CHNB+1,ZM L(CHNB)="- ---------- ---------- ---------- ---------- ---------- ---------- ---------- --------"
  73    .S VENCT= VENCT+1
  74    S CHNB=CH NB+1,ZML(C HNB)="TOTA L NUMBER O F VENDORS  TO CORRECT  "_VENCT
  75    S XMDUZ=. 5
  76    S XMY(" PII             ")=""     ;MTN014040  12/20/11  JEH - ADDE D PST EMAI L ADDRESS
  77    S XMY(XMD UZ)=""
  78    S XMY(DUZ )=""   ;JE H 2/1/11 D EV007820
  79    S XMTEXT= "ZML(",XMS UB="835 Un known Vend ors or Mis sing EFT I nfo"
  80    D ^XMD
  81    Q
  82    ;