269. EPMO Open Source Coordination Office Redaction File Detail Report

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

269.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHOIGPRT.m Mon Nov 5 16:43:26 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHOIGPRT.m Mon Nov 5 17:54:39 2018 UTC

269.2 Comparison summary

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

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

269.4 Active regular expressions

No regular expressions were active.

269.5 Comparison detail

  1   CHOIGPRT ; CVA/TLH;PR INTING OF  OIG REPORT ; 09/28/04  4:55 PM
  2    ;;V1.0
  3   START ;
  4    ;VARIBLE  LIST
  5    ;TCHBAMT. ...Total b illed amou nt
  6    ;TCHAAMT. ...Total a llowed amo unt
  7    ;TCHPDAMT ...Total p aid amount
  8    ;CT....Co unt 
  9    ;PG....Pa ge 
  10    ;DT...Dat e
  11    ;CHPGM... Program Na me
  12    ;CLNUM... Claim Numb er
  13    ;CHCPT... info from  CHMZHOLD f iles 
  14    ;CLMPT... Claim info  from CHMZ HOLD files
  15    ;CHVNAME. ..Vendor N ame 
  16    ;PNAME... .Veteran N ame
  17    ;PSSN...V eteran SSN
  18    ;CHDOS... Date of Se rvice 
  19    ;CHBAMT.. .Billed Am ount
  20    ;CHAAMT.. .Allowed A mount
  21    ;CHPDAMT. ..Paid Amo unt
  22    ;CHSTAT.. .Claim Sta tus
  23    ;TMPK.... Temporary  K value
  24    ;CHCNAME. ...Vendor  Location
  25    ;CCHBAMT. ...Country  Total Bil led Amount  
  26    ;CCHAAMT. ...County  Total Allo wed Amount
  27    ;CCHPDAMT ...County  Total Paid  Amount
  28    ;TMPL.... Temporary  value for  procedure/ descriptio n  
  29    ;LREC.... Line Recor d for proc edure info
  30    ;CHPCODE. ..Procedur e Code Num ber
  31    ;CHDESC.. .Procedure  code desc ription
  32    ;
  33   PRT ;
  34    S FIO="HA CFS3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]"_CHVNAME _" OIG.DAT "
  35    ;S FIO="H AC_HFS$:[D SMMANAG]OI G.DAT"
  36    O FIO:"NW S"
  37    ;
  38    SET TCHBA MT=0,TCHAA MT=0,TCHPD AMT=0,CT=0 ,PG=1 D NO W^%DTC S D T=X
  39    S CHPGM=" ",CHCNAME= ""
  40    I '$D(^CH MZHOLD(TMP J,"1095_OI G")) D HEA D G ENDP
  41    D HEAD
  42    ;S CHVNAM E=^CHMZHOL D(TMPJ,"10 95_OIG","V ENDOR")
  43   A1 SET CHP GM=$ORDER( ^CHMZHOLD( TMPJ,"1095 _OIG",CHPG M)) G:CHPG M="" ENDP
  44    S CHCPT=" ",(CCHBAMT ,CCHAAMT,C CHPDAMT)=0
  45   A2 S CHCPT =$O(^CHMZH OLD(TMPJ," 1095_OIG", CHPGM,CHCP T)) G:CHCP T="" A1
  46    S CHCNAME =""
  47    S:CHCPT=0  CHCNAME=" UNKNOWN"
  48    S:$D(^DIC (5,CHCPT,0 )) CHCNAME =$P(^DIC(5 ,CHCPT,0), "^",1)
  49    D HEAD1
  50    S CLMPT=" "
  51   A3 S CLMPT =$ORDER(^C HMZHOLD(TM PJ,"1095_O IG",CHPGM, CHCPT,CLMP T)) I CLMP T="" D  G  A2
  52    .U FIO W  !!,"TOTAL  BILLED "_C HCNAME_$C( 9)_"$"_$J( $FN(CCHBAM T,",",2),1 0)
  53    .U FIO W  !,"TOTAL A LLOWED "_C HCNAME_$C( 9)_"$"_$J( $FN(CCHAAM T,",",2),1 0)
  54    .U FIO W  !,"TOTAL P AID "_CHCN AME_$C(9)_ "$"_$J($FN (CCHPDAMT, ",",2),10)
  55    .S (CCHBA MT,CCHAAMT ,CCHPDAMT) =0
  56    .Q
  57    IF '$DATA (^CHMZHOLD (TMPJ,"109 5_OIG",CHP GM,CHCPT,C LMPT,0)) G OTO A3
  58    S REC=^CH MZHOLD(TMP J,"1095_OI G",CHPGM,C HCPT,CLMPT ,0)
  59    I CLMPT'[ "FMP" D
  60    .S X1=CLM PT D PROGT YP^CHFCD00 1
  61    .SET CLNU M=$PIECE(@ (GLPAY_"CL MPT,0)")," ^",1)
  62    I CLMPT[" FMP" S CLN UM=CLMPT
  63    SET PNAME =$PIECE(RE C,"^",1)
  64    SET PSSN= $PIECE(REC ,"^",2)
  65    SET CHDOS =$PIECE(RE C,"^",3)
  66    SET CHBAM T=$PIECE(R EC,"^",4)
  67    SET CHAAM T=$PIECE(R EC,"^",5)
  68    SET CHPDA MT=$PIECE( REC,"^",6)
  69    SET CHSTA T=$PIECE(R EC,"^",7)
  70    U FIO W ! ,$E(PNAME, 1,14)_$C(9 )_PSSN_$C( 9)_$$FMTE^ XLFDT(CHDO S,"5D")_$C (9)_CLNUM_ $C(9)_$J($ FN(CHBAMT, ",",2),8)_ $C(9)_$J($ FN(CHAAMT, ",",2),8)_ $C(9)_$J($ FN(CHPDAMT ,",",2),8) _$C(9)_CHS TAT
  71    SET CT=CT +1
  72    SET TCHBA MT=TCHBAMT +CHBAMT
  73    SET TCHAA MT=TCHAAMT +CHAAMT
  74    SET TCHPD AMT=TCHPDA MT+CHPDAMT
  75    SET CCHBA MT=CCHBAMT +CHBAMT
  76    SET CCHAA MT=CCHAAMT +CHAAMT
  77    SET CCHPD AMT=CCHPDA MT+CHPDAMT
  78    S TMPK=0
  79   A4 S TMPK= $O(^CHMZHO LD(TMPJ,"1 095_OIG",C HPGM,CHCPT ,CLMPT,TMP K)) G:'TMP K A3
  80    IF '$DATA (^CHMZHOLD (TMPJ,"109 5_OIG",CHP GM,CHCPT,C LMPT,TMPK) ) GOTO A3
  81    S TMPL=""
  82   A5 S TMPL= $O(^CHMZHO LD(TMPJ,"1 095_OIG",C HPGM,CHCPT ,CLMPT,TMP K,TMPL)) G :TMPL="" A 4
  83    S LREC=^C HMZHOLD(TM PJ,"1095_O IG",CHPGM, CHCPT,CLMP T,TMPK,TMP L)
  84    S CHPCODE =$P(LREC," ^",1)
  85    S CHDESC= $P(LREC,"^ ",2)
  86    U FIO W ! ,$C(9)_$C( 9)_$C(9)_$ C(9)_$C(9) _$C(9)_$C( 9)_$C(9)_C HPCODE_$C( 9)_$E(CHDE SC,1,30)
  87    ;W !,?89, CHPCODE,?9 9,$E(CHDES C,1,30)
  88    GOTO A5
  89   ENDP I '$D (^CHMZHOLD (TMPJ,"109 5_OIG")) D   
  90    .U FIO W  !!!,"NO DA TA FOUND F OR SELECTE D VENDOR"_ $C(9)
  91    .Q
  92    U FIO W ! !,"TOTAL B ILLED "_$C (9)_"$"_$J ($FN(TCHBA MT,",",2), 10)
  93    U FIO W ! ,"TOTAL AL LOWED "_$C (9)_"$"_$J ($FN(TCHAA MT,",",2), 10)
  94    U FIO W ! ,"TOTAL PA ID "_$C(9) _"$"_$J($F N(TCHPDAMT ,",",2),10 )
  95    C FIO
  96    K TCHBAMT ,TCHAAMT,T CHPDAMT,CT ,PG,DT,CHP GM,CHCPT,C LMPT,CHVNA ME,PNAME
  97    K PSSN,CH DOS,CHBAMT ,CHAAMT,CH PDAMT,CHST AT,TMPK,LR EC,CHPCODE ,CHDESC
  98    K CCHBAMT ,CCHAAMT,C CHPDAMT,TM PL
  99    K ^CHMZHO LD(TMPJ,"1 095_OIG")
  100    QUIT
  101   HEAD ;W @I OF
  102    SET TITLE ="HEALTH A DMINISTRAT ION CENTER "
  103    SET TAB=( 132-$L(TIT LE))/2
  104    S BFLAG=" ALL BENES"  I '$D(^CH MZHOLD(TMP J,"1095_OI G","NAME", "ALL")) S  BFLAG="USE R DEFINED  BENES"  ;T LH 11/24/0 6 FOR DEV0 00234
  105    S CFLAG=" ALL CODES"  I '$D(^CH MZHOLD(TMP J,"1095_OI G","CODE", "ALL")) S  CFLAG="USE R DEFINED  CODES"  ;T LH 11/24/0 6 FOR DEV0 00234
  106    U FIO W D UZ_$C(9)_T ITLE_$C(9) _"Page: "_ PG SET PG= PG+1
  107    SET TITLE ="OIG REPO RT FOR "_C HVNAME_" F OR "_BFLAG _" WITH "_ CFLAG  ;TL H 11/24/06  FOR DEV00 0234
  108    SET TAB=( 132-$L(TIT LE))/2
  109    U FIO W ! ,$$FMTE^XL FDT(DT,"5D ")_$C(9)_T ITLE,!
  110    Q
  111   HEAD1 S TI TLE=CHPGM_ " -- "_CHC NAME
  112    SET TAB=( 132-$L(TIT LE))/2
  113    U FIO W ! ,TITLE_$C( 9)
  114   HDRS U FIO  W !,"NAME "_$C(9)_"S SN"_$C(9)_ "DOS"_$C(9 )_"CLAIM # "_$C(9)_"B ILLED"_$C( 9)_"ALLOWE D"_$C(9)_" PAID"_$C(9 )_"STATUS" _$C(9)_"CO DE"_$C(9)_ "DESCRIPTI ON"
  115    QUIT