40. EPMO Open Source Coordination Office Redaction File Detail Report

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

40.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCR9892.m Mon Nov 5 16:45:16 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHCR9892.m Wed Nov 7 14:05:39 2018 UTC

40.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 172
Changed 2 6
Inserted 0 0
Removed 0 0

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

40.4 Active regular expressions

No regular expressions were active.

40.5 Comparison detail

  1   CHCR9892 ; HAC/SKD;DE V009892: A  report of  the compl eted claim s with OHI  amt but n o PR amt a nd $0 paid . 7-28-10   
  2    ;;1.0;CHA MPVA SYSTE M;;JULY 4,  1990;
  3    ;;DEF0165 54, SBB, 1 1/26/13 -  Modified W riting to  a file as  per VHA st andard.
  4    ;;                                 Convert ing from D ECNET to F TP.
  5    ;;DEF0165 54, SBB, 0 7/30/15 -  Adding cha nges for D ECNET
  6    ;
  7   START ;
  8    K ^CHMZHO LD("ZSKD", "DEV009892 ")
  9    S I="A"
  10    F  S I=$O (^CHMPAY(I ),-1) Q:I< 40000000  
  11    .Q:$P($G( ^CHMPAY(I, 0)),U,2)'= 4
  12    .Q:$P($G( ^CHMPAY(I, 1)),U,7)=" "
  13    .Q:$P($G( ^CHMPAY(I, 1)),U,29)' =""
  14    .Q:+$P($G (^CHMPAY(I ,"COMMON") ),U,7)=0    ;ALLOWED= 0
  15    .Q:$P($G( ^CHMPAY(I, "COMMON")) ,U,7)=$P($ G(^CHMPAY( I,1)),U,5)    ;ALLOWE D=DED
  16    .Q:$P($G( ^CHMPAY(I, 1)),U,1)'= 0
  17    .Q:$P($G( ^CHMPAY(I, "COMMON")) ,U,1)=""
  18    .S (BILLE D,ALLOWED, CS,DED,CAL PR,PAID)=" "
  19    .S BILLED =$P($G(^CH MPAY(I,"CO MMON")),U, 1)
  20    .S ALLOWE D=$P($G(^C HMPAY(I,1) ),U,7)
  21    .Q:BILLED '>ALLOWED    
  22    .S CS=$P( $G(^CHMPAY (I,1)),U,6 )
  23    .S DED=$P ($G(^CHMPA Y(I,1)),U, 5)
  24    .S PAID=$ P($G(^CHMP AY(I,1)),U ,1)
  25    .S CALPR= $P($G(^CHM PAY(I,"COM MON")),U,1 )-$P($G(^C HMPAY(I,1) ),U,7)
  26    .Q:$G(DED )'<$G(CALP R)    ;DED  NL PR
  27    .Q:$G(CS) '<$G(CALPR )    ;CS N L PR
  28    .Q:$D(^CH MPAY(I,4," B",162))
  29    .Q:'$D(^C HMLIMBO("D ",I))
  30    .Q:$P($G( ^CHMPAY(I, 6)),U,2)'= ""   ;REOP EN
  31    .S PR="", J=0
  32    .F  S J=$ O(^CHMPAYH (I,101,J))  Q:'J  Q:$ G(PR)  D
  33    ..I $D(^C HMPAYH(I,1 01,J,1)) S  PR=$P($G( ^CHMPAYH(I ,101,J,1)) ,U,29) Q
  34    .S ^CHMZH OLD("ZSKD" ,"DEV00989 2",I)=$P($ G(^CHMPAY( I,0)),U,1) _U_$G(BILL ED)_U_$G(A LLOWED)_U_ $G(PR)_U_$ G(DED)_U_$ G(CS)_U_$G (PAID)
  35    D PRINT
  36    Q
  37   PRINT ;
  38    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  39    ;DEF01655 4 SBB 11/2 6/13  - Co nverting f rom DECNET  to FTP.
  40    ;S FILELO C="HACFS3" "
D NS      Welcome1!" "::d:[FS3B IG]"
  41    ;I UCI'=" HAC" S FIL ELOC="HACF S3""
D NS       Welcome1!" "::d:[FS3B IG]TEST_"
  42    S FILENM= "CR9892.TX T"
  43    I UCI'="H AC" S FILE NM="TEST_" _FILENM
  44    S FILELOC ="HAC_HFS$ :[SCR.TEMP _FILES]"
  45    I UCI'="H AC" S FILE LOC="HAC_H FS$:[DSMMA NAG.CHAMPV A]"
  46    S FILE=FI LELOC_FILE NM
  47    ;DEF01655 4-11/26/13 -SBB use O PEN^%ZISH  to open fi le
  48    ;O FILE:" NWS":5 Q:' $T
  49    ;SBB 07/3 0/15 DEF01 6554
  50    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  51    I '$$OPEN FIWR^CHTFL IB9(.CHINF ILE,"CHINF ILE") X "D  $SYSTEM.P rocess.Set ZEOF(0)" Q
  52    ;
  53    D HEAD
  54    I '$D(^CH MZHOLD("ZS KD","DEV00 9892")) W  !,"There i s no claim  found mat ching the  criteria"  Q
  55    S I=0
  56    F  S I=$O (^CHMZHOLD ("ZSKD","D EV009892", I)) Q:'I   D
  57    .S (CL,BI LLED,ALLOW ED,PR,DED, CS,PAID)=" "
  58    .S CL=$P( $G(^CHMZHO LD("ZSKD", "DEV009892 ",I)),"^", 1)
  59    .S BILLED =$P($G(^CH MZHOLD("ZS KD","DEV00 9892",I)), "^",2)
  60    .S ALLOWE D=$P($G(^C HMZHOLD("Z SKD","DEV0 09892",I)) ,"^",3)
  61    .S PR=$P( $G(^CHMZHO LD("ZSKD", "DEV009892 ",I)),"^", 4)
  62    .S DED=$P ($G(^CHMZH OLD("ZSKD" ,"DEV00989 2",I)),"^" ,5)
  63    .S CS=$P( $G(^CHMZHO LD("ZSKD", "DEV009892 ",I)),"^", 6)
  64    .S PAID=$ P($G(^CHMZ HOLD("ZSKD ","DEV0098 92",I)),"^ ",7)
  65    .U FILE W  !,CL,?11, $J($FN(BIL LED,"",2), 13,2),?28, $J($FN(ALL OWED,"",2) ,14,2),?45 ,$J($FN(PR ,"",2),9,2 ),?60,$J($ FN(DED,"", 2),10,2),? 72,$J($FN( CS,"",2),1 0,2),?85,$ J($FN(PAID ,"",2),11, 2)
  66    ;DEF01655 4-11/26/13 -SBB use C LOSE^%ZISH  to close  file
  67    ;C FILE
  68    D CLOSEF^ CHTFLIB9(F ILE,"FILE" )
  69    ;SBB 07/3 0/15 DEF01 6554
  70    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  71    D FTPFILE ^CHTFLIB9( FILE," DNS    . DNS             ","/FS3BIG ","PUT")
  72    D KILLVAR
  73    Q
  74   HEAD ;
  75    I '$G(DUZ ) S DUZ=1
  76    U FILE W  #,!
  77    S TITLE1= "Health Ad ministrati on Center"  S TAB=((8 0-$L(TITLE 1))/2)
  78    D NOW^%DT C S CHDATE =$$FMTE^XL FDT(X,"5D" )
  79    U FILE W  "DUZ: ",DU Z,?TAB,TIT LE1,?68,CH DATE,!
  80    S TITLE2= "Report of  the compl eted OHI c laims with  the syste m deleted  PR amount  and $0 pai d"
  81    U FILE W  !,TITLE2
  82    U FILE W  !!
  83    U FILE W  !,"CLAIM #  ",?11,"BI LLED AMOUN T",?28,"AL LOWED AMOU NT",?45,"P R AMOUNT", ?60,"DEDUC TIBLE",?72 ,"COST SHA RE",?85,"A MOUNT PAID "
  84    U FILE W  !,"------- -",?11,"-- ---------- -",?28,"-- ---------- --",?45,"- --------", ?60,"----- -----",?72 ,"-------- --",?85,"- ---------- "
  85    U FILE W  !
  86    Q
  87   KILLVAR
  88    K I,CL,OR ,BILLED,AL LOWED,CS,D ED,CALPR,P AID,FILE,T ITLE1,TITL E2,CHDATE, TAB
  89    Q