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

13.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPORP1.m Mon Nov 5 16:44:05 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHBPORP1.m Tue Nov 6 21:46:48 2018 UTC

13.2 Comparison summary

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

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

13.4 Active regular expressions

No regular expressions were active.

13.5 Comparison detail

  1   CHBPORP1 ; CVA/AEB:FI NDS INP CL AIMS WIT P R/OHI FOR  A DATE RAN GE ;12/27/ 06  8:04 A M
  2    ;;1.0
  3    ;;SBB-DEF 016554-12/ 24/13 - Up dating wit h PST API  function c alls
  4    ;;SBB-DEF 016554-07/ 30/15 - Ad ding chang es for DEC NET
  5    ;CHBGDT -  DATE TO S TART ON
  6    ;CHENDT -  DATE TO E ND ON
  7    ;CHCI - P OINTER INT O ^CHMPAY
  8    ;CHPDIDT  - DATE PDI  CREATED F ORM ^CHMIM G(PDI,"DOC "
  9    ;CHPPDIDT  - PRINTAB LE DATE
  10    ;CHCLMNM  - CLAIM NU MBER FROM  ^CHMPAY
  11    ;DFN - SP ONSOR POIN TER TO ^AH CHVA
  12    ;BFN - BE NE POINTER  TO ^AHCHV A
  13    ;BNAME -  BENE NAME  FROM ^AHCH VA
  14    ;CHPRAMT  - PATIENT  RESPONSIBI LITY AMOUN T
  15   STDT ;
  16    K ^CHMZHO LD($J,"INP T/OHI/PR")
  17   ST1 S DIR( 0)="D" S D IR("A")="E nter START  date (mm/ dd/yy)" D  ^DIR
  18    S CHBGDT= Y
  19    I CHBGDT< 3000000 D   G STDT
  20    .W !,"Dat e range mu st be afte r 2000.  P lease try  again.",!
  21    .Q
  22    G:CHBGDT= "^" QEND
  23    G:$D(DFOU T) QEND G: $D(DUOUT)  QEND
  24    S CHBGDT= Y
  25   ST2 S DIR( 0)="D" S D IR("A")="E nter END d ate (mm/dd /yy)" D ^D IR
  26    S CHENDT= Y
  27    I CHENDT< 3000000 D   G ST2
  28    .W !,"Dat e range mu st be afte r 2000.  P lease try  again.",!
  29    .Q
  30    I CHENDT< CHBGDT D   G ST2
  31    .W !,"End  date must  be after   "_$$FMTE^ XLFDT(CHBG DT,"5D")_" .  Please  try again. "
  32    .Q
  33    G:CHENDT= "^" QEND
  34    G:$D(DFOU T) QEND G: $D(DUOUT)  ST1
  35    W !
  36    S CHFIO=" "
  37    S ZTSAVE( "CHFIO")=" "
  38    S ZTSAVE( "CHBGDT")= "",ZTSAVE( "CHENDT")= ""
  39    S ZTRTN=" CALC^CHBPO RP1",ZTDES C="CHAMPVA  INPT CLAI MS WITH OH I/PR",ZTIO =""
  40    D ^%ZTLOA D
  41    ;D CALC^C HBPORP1
  42   QEND K CHF Y,ION
  43    Q
  44   CALC ;
  45    S U="^"
  46    S CHTX1=$ $FMJUL^CHT FLIB(CHBGD T)
  47    S CHTX2=$ $FMJUL^CHT FLIB(CHEND T)
  48    ; 15 Digi t PDI
  49    S PDI=$$C EN2^CHMFPD I2(CHTX1)_ CHTX1_"000 00000"
  50    S PDI2=$$ CEN2^CHMFP DI2(CHTX2) _CHTX2_"99 999999"
  51           D  START
  52    D PRNT
  53    Q
  54   START ;
  55   A S PDI=$O (^CHMIMG(P DI)) Q:PDI =""  Q:PDI >PDI2
  56    G:'$D(^CH MIMG(PDI,0 )) A
  57    G:$P(^CHM IMG(PDI,0) ,"^",6)'=4  A  ;GET O NLY COMPLE TED SUBMIS SIONS
  58    G:'$D(^CH MIMG(PDI,1 )) A  ;SKI P IF NO CL AIMS
  59    S CHPDICL =0
  60   A2 S CHPDI CL=$O(^CHM IMG(PDI,1, CHPDICL))  G:'CHPDICL  A
  61    G:'$D(^CH MIMG(PDI,1 ,CHPDICL,0 )) A2
  62    G:'$D(^CH MIMG(PDI," DOC")) A2
  63    S CHDOCDT =$$JULFM^C HTFLIB($E( PDI,3,7))
  64    S CHCI=$P (^CHMIMG(P DI,1,CHPDI CL,0),"^", 1) G:'CHCI  A2
  65    G:CHCI=""  A2 S X1=C HCI D PROG TYP^CHFCD0 01
  66    G:'$D(@(G LPAY_"CHCI ,0)")) A2  G:'$D(@(GL PAY_"CHCI, 1)")) A2
  67    G:$P(@(GL PAY_"CHCI, 0)"),"^",2 )'=4 A2  ; MUST BE CO MPLETED CL AIMS
  68    G:$P(@(GL PAY_"CHCI, 0)"),"^",7 )'=1 A2  ; MUST BE IN PATIENT CL AIMS
  69    G:$P(@(GL PAY_"CHCI, 1)"),"^",2 9)="" A2   ;PATIENT R ESPONSIBIL ITY GREATE R THEN 0
  70    S CHPRAMT =$P(@(GLPA Y_"CHCI,1) "),"^",29)
  71    S CHCLMNM =$P(@(GLPA Y_"CHCI,0) "),"^",1)
  72    S DFN=$P( @(GLPAY_"C HCI,0)")," ^",21) G:D FN="" A2   ;NO SPONSO R DEFINED
  73    S BFN=$P( @(GLPAY_"C HCI,0)")," ^",22) G:B FN="" A2   ;NO BENE D EFINED
  74    G:'$D(@(G LPAY_"CHCI ,""COMMON" ")")) A2
  75    I ($P(@(G LPAY_"CHCI ,""COMMON" ")"),"^",1 6)'=0) I ( $P(@(GLPAY _"CHCI,""C OMMON"")") ,"^",16)'= 1) G A2
  76    G:'$D(^AH CHVA(DFN,1 00,BFN,0))  A2
  77    S BNAME=$ P(^AHCHVA( DFN,100,BF N,0),"^",1 )
  78    S ^CHMZHO LD($J,"INP T/OHI/PR", CHCI)=CHDO CDT_"^"_CH CLMNM_"^"_ BNAME_"^"_ CHPRAMT
  79    G A2
  80   PRNT ;
  81    S IOFILE= "HAC_HFS$: [SCR.TEMP_ FILES]INPA TIENT_OHI_ CLAIMS_REP ORT.TXT"
  82    ;DEF01655 4 SBB 12/2 4/13  - Co nverting f rom DECNET  to FTP.
  83    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  84    I UCI'="H AC" S IOFI LE="HAC_HF S$:[DSMMAN AG.CHAMPVA ]INPATIENT _OHI_CLAIM S_REPORT_" _UCI_".TXT "
  85    ;DEF01655 4-12/24/13 -SBB call  OPEN^%ZISH  to open t he file
  86    ;O IOFILE :"NWS"
  87    ;SBB 07/3 0/15 DEF01 6554
  88       X "D $ SYSTEM.Pro cess.SetZE OF(1)"
  89    I '$$OPEN FIWR^CHTFL IB9(.IOFIL E,"IOFILE" ) X "D $SY STEM.Proce ss.SetZEOF (0)" Q
  90    S T=$C(9)    ;UNCOMM ENT TO WRI TE TO FILE
  91    ;S T="    "  ;UNCOMM ENT TO WRI TE TO SCRE EN
  92           D  HEAD
  93           S  CHCLMPT=0
  94   PR1 S CHCL MPT=$O(^CH MZHOLD($J, "INPT/OHI/ PR",CHCLMP T)) G:'CHC LMPT PEND
  95    U IOFILE  W !
  96    U IOFILE  W $$FMTE^X LFDT($P(^C HMZHOLD($J ,"INPT/OHI /PR",CHCLM PT),"^",1) ,"5D")_T    ;WIRTE DO C DATE
  97    U IOFILE  W $P(^CHMZ HOLD($J,"I NPT/OHI/PR ",CHCLMPT) ,"^",2)_T   ;WRITE CL AIM NUMBER
  98    U IOFILE  W $P(^CHMZ HOLD($J,"I NPT/OHI/PR ",CHCLMPT) ,"^",3)_T  ;WRITE BEN E NAME
  99    U IOFILE  W $P(^CHMZ HOLD($J,"I NPT/OHI/PR ",CHCLMPT) ,"^",4)  ; WRITE PR A MOUNT
  100    G PR1
  101   PEND    ;
  102    ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH  to close  file
  103    ;C IOFILE
  104    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [SCR.TEMP_ FILES]REC_ COPY.COM/P ARAM=("_IO FILE_")") 
  105    D CLOSEF^ CHTFLIB9(I OFILE,"IOF ILE")
  106    ;SBB 07/3 0/15 DEF01 6554
  107       X "D $ SYSTEM.Pro cess.SetZE OF(0)"
  108    D FTPFILE ^CHTFLIB9( IOFILE," DNS     . DNS             ","/FS3BIG ","PUT")
  109    K CHPT,CH DUZ,CHPTDT ,CHSTDT,CH EDDT,%DT,C HCLNUM,Y,D FN,BFN,PRG PT
  110    K ^CHMZHO LD($J,"INP T/OHI/PR") ,CHCLMPT,T ,CHPDICL,P DI,CHCI,CH DOCDT,CHPR AMT
  111    K BNAME,C HCLMNM,CHT X1,CHTX2,P DI2,CHBGDT ,CHENDT
  112           Q
  113   HEAD ;
  114    U IOFILE
  115    W "CHAMPV A INPATIEN T CLAIMS W ITH PR AND  OHI",!
  116    W "From " _$$FMTE^XL FDT(CHBGDT ,"5D")_" t o "_$$FMTE ^XLFDT(CHE NDT,"5D"), !
  117    W "PDI DA TE"_T_"CLA IM #"_T_"B ENE NAME"_ T_"PATIENT  RESPONSIB ILITY"
  118    Q
  119    
  120