109. EPMO Open Source Coordination Office Redaction File Detail Report

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

109.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG43WA.m Mon Nov 5 16:40:30 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG43WA.m Mon Nov 5 17:47:21 2018 UTC

109.2 Comparison summary

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

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

109.4 Active regular expressions

No regular expressions were active.

109.5 Comparison detail

  1   CHMG43WA ; CVA/SKD;AL L EOB PRIN T (to  DNS     FS3\CITI_E OB) PER BA TCH # & FA CILITY;7-2 0-05
  2    ;;1.0
  3    ;THIS IS  A COPY OF  CHMG43WI A ND MODIFIE D TO 
  4    ;SAVE EOB 'S OF ALL  FACILITIES  TO  DNS     FS3\CITI_E OB
  5    ;
  6    ;JSG;12/1 8/08;DEV00 6308;Separ ate Paid a nd Denied  EOBs into  two (2) di fferent ou tput files ;
  7    U 0
  8   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  9    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  10    D HOME^%Z IS
  11    ;
  12    S CHEOBDS K=1
  13    S CHINFO= 1 ; Print  "no check"  message f or manual  eob.
  14    S U="^",A LIGN=0,CHV IM="" K ZT SK
  15   A W @IOF S  CHQI="" K  ^TMP($J," CLAIMS"),^ CHMZHOLD(" CITIEOBPRI NTED")     ;SKD, 9-23 -05
  16    ;promptin g user for  Batch #
  17    S DIC("W" )="W "" is  from ""_$ $FMTE^XLFD T($P(^(0), ""^"",2)," "5D"")_""  to ""_$$FM TE^XLFDT($ P(^(0),""^ "",3),""5D "")"
  18    S DIC=741 030,DIC(0) ="AENQM" D  ^DIC S CH BTNUM=+Y W  !  ;USING  TDA FILE
  19    G:Y="" EN D1 G:Y="^"  END1 G:Y= -1 END1
  20    K DIC  D  PSORT  ;CR EATE NEW S ORT TO PRI NT EACH ST ATION  AEB  1/22/2007
  21    S Z=0
  22    F  S Z=$O (^CHMTDA(C HBTNUM,100 ,Z)) G:'Z  END1 D
  23    .Q:'$D(^C HMTDA(CHBT NUM,100,Z, 0))
  24    .K ^TMP($ J,"CLAIMS" )
  25    .S CHBTIN ST="",CHBT INST=$P($G (^CHMTDA(C HBTNUM,100 ,Z,0)),U,1 ) Q:CHBTIN ST=""
  26    .;D PRINT EOB                                                      ;Replace d, see bel ow: ;12/18 /08;DEV006 308;
  27    .;D END                                                            ;Replace d, see bel ow: ;12/18 /08;DEV006 308;
  28    .D PRINTE OB(1),END                             ;Gene rate EOB f iles for p aid claims ;JSG;12/18 /08;DEV006 308;
  29    .D PRINTE OB(2),END                   ;Gen erate EOB  files for  $0 and den ied claims ;JSG;12/18 /08;DEV006 308;
  30    .Q
  31    Q
  32    ;
  33   PRINTEOB(E OB1) ;(EOB  generatio n mode);1  = paid cla ims, 2 = $ 0 and deni ed claims; JSG;12/18/ 08;DEV0063 08;
  34    K IOFILE
  35    K CLMCNT  S CLMCNT(E OB1)=0                               ;Initi alize clai m counter; JSG;12/18/ 08;DEV0063 08;
  36    S CHBMTH= CHBTNUM,CH TMPBT=0                                  ;T LH 11/7/05
  37    S CHTMPBT =$O(^CHMTD A("B",CHBT NUM,CHTMPB T)) Q:CHTM PBT=""  ;T LH 11/7/05
  38    I $D(^CHM TDA(CHTMPB T,0)) D                                  ;T LH 11/7/05
  39    .S CHBMTH =$P(^CHMTD A(CHTMPBT, 0),"^",3)  Q:CHBMTH=" "       ;T LH 11/16/0 5
  40    .S CHBMTH =$$FMTE^XL FDT(CHBMTH ,"9D")                        ;T LH 11/7/05
  41    .S CHBYR= $P(CHBMTH, " ",3)                                   ;T LH 11/16/0 5
  42    .S CHBMTH =$$UP^XLFS TR($P(CHBM TH," ",2))                    ;T LH 11/16/0 5
  43    .S CHBMTH =CHBMTH_"_ "_CHBYR                                  ;T LH11/16/05
  44    .Q                                                            ;T LH 11/7/05
  45    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)                        ;A EB 2/27/20 07
  46    ;I CHUCI  ="HAC" S I OFILE="HAC _HFS$:[SCR .CITIEOB]" _CHBMTH_"_ "_CHBTINST _"_"_"EOB. TXT"     ; TLH,101805
  47    IF CHUCI= "HAC" {                                             ;C reate Prod uction fil e names;JS G;DEV00630 8;
  48       S IOFI LE="HAC_HF S$:[SCR.CI TIEOB]"_CH BMTH_"_"_C HBTINST_"_ "
  49       IF EOB 1=1 { S IO FILE=IOFIL E_"EOBPAID .TXT" }                      ;Fi le name fo r paids;JS G;DEV00630 8;
  50       ELSE {  S IOFILE= IOFILE_"EO BZERO.TXT"  } }                         ;Fi le name fo r zeros;JS G;DEV00630 8;
  51    ;I (CHUCI ="TST")!(C HUCI="DEV" ) S IOFILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]T EST_"_CHBM TH_"_"_CHB TINST_"_"_ "EOB.TXT"   ;JUST FOR  DEV  AEB  2/27/2007
  52    ELSE { S  IOFILE="HA C_HFS$:[DS MMANAG.CHA MPVA]TEST_ "_CHBMTH_" _"_CHBTINS T_"_"   ;C reate test  file name s;JSG;DEV0 06308;
  53       IF EOB 1=1 { S IO FILE=IOFIL E_"EOBPAID .TXT" }                 ;Test fi le name fo r paids;JS G;DEV00630 8;
  54       ELSE {  S IOFILE= IOFILE_"EO BZERO.TXT"  } }                    ;Test fi le name fo r zeros;JS G;DEV00630 8;
  55    O IOFILE: "NWS"
  56    S FFLG=1
  57    ; BATNUM  = CITI BAT CH NUMBER 
  58    ; STNUM =  CITI STAT ION NUMBER  
  59    ; SSTNUM  = CITI SUB -STATION N UMBER
  60    ; CHDFN -  POINTER T O AHCHVA S PONSOR
  61    ; CHBFN -  POINTER T O AHCHVA B ENE
  62    ; CHEBCNT  - EOB COU NTS FOR SA ME BENE
  63    ; CLMPT =   CLAIM PO INTER
  64    S BATNUM= CHBTNUM
  65    ;S STNUM= 0                     ;JSG;12/18 /08;DEV006 308;DO NOT  NEED (DNN )
  66    S (STNUM, SSTNUM)=CH BTINST     ;Set stati on & subst ation to s tation # f ound in ^C HMTDA;JSG; 12/18/08;D EV006308;
  67   EB1 ;S STN UM=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM)) I  'STNUM D C LS Q        ;DNN;JSG; 12/18/08;D EV006308;
  68       ;G:CHB TINST'=STN UM EB1                                                             ;DNN;JSG; 12/18/08;D EV006308;
  69       ;S SST NUM=0                                                                         ;DNN;JSG; 12/18/08;D EV006308;
  70       I '$D( ^CHMZHOLD( $J,"TMP_TD A_EOB",BAT NUM,STNUM, SSTNUM,EOB 1)) D CLS  Q
  71   EB2 ;S SST NUM=$O(^CH MZHOLD($J, "TMP_TDA_E OB",BATNUM ,STNUM,SST NUM)) G:'S STNUM EB1   ;DNN;JSG; 12/18/08;D EV006308;
  72       ;G:CHB TINST'=SST NUM EB2                                                            ;DNN;JSG; 12/18/08;D EV006308;
  73       S CHDF N=0                   ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs  to all fam ily member
  74   EB3 ;S CHD FN=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM,SSTN UM,CHDFN))  G:'CHDFN  EB2  ;TLH; 7/14/08;DE V005285;DN N;JSG;DEV0 06308;
  75       S CHDF N=$O(^CHMZ HOLD($J,"T MP_TDA_EOB ",BATNUM,S TNUM,SSTNU M,EOB1,CHD FN)) I 'CH DFN D CLS  Q ;JSG;DEV 006308;Get  sponsor
  76       S CHBF N=0                   ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs  to all fam ily member s
  77   EB4 ;S CHB FN=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM,SSTN UM,CHDFN,C HBFN)) I ' CHBFN G EB 3  ;TLH;7/ 14/08;DEV0 05285;DNN; JSG;DEV006 308;
  78       S CHBF N=$O(^CHMZ HOLD($J,"T MP_TDA_EOB ",BATNUM,S TNUM,SSTNU M,EOB1,CHD FN,CHBFN))  I 'CHBFN  G EB3 ;JSG ;DEV006308 ;Get bene
  79       ;S CHE BCNT=0                ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs  to all fam ily member s;DNN;JSG; DEV006308;
  80   EB5 ;S CHE BCNT=$O(^C HMZHOLD($J ,"TMP_TDA_ EOB",BATNU M,STNUM,SS TNUM,CHDFN ,CHBFN,CHE BCNT)) G:' CHEBCNT EB 4  ;TLH 7/ 14/08 DEV0 05285 to s eparate eo bs to all  family mem bers;DNN;J SG;DEV0063 08;
  81       S CLMP T=0
  82   EB6 S CLMP T=$O(^CHMZ HOLD($J,"T MP_TDA_EOB ",BATNUM,S TNUM,SSTNU M,EOB1,CHD FN,CHBFN,C LMPT)) I ' CLMPT D  G  EB4  ;TLH  7/14/08 D EV005285 t o separate  eobs to a ll family  members
  83       .S DFN =CHDFN S B FN=CHBFN   ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs  to all fam ily member s
  84       .D PRT                       ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs  to all fam ily member s
  85       .Q                           ;TLH 7/14/ 08 DEV0052 85 to sepa rate eobs  to all fam ily member s
  86       S ^TMP ($J,"CLAIM S",CLMPT)= ""
  87       S CLMC NT(EOB1)=C LMCNT(EOB1 )+1                               ;JSG;12/1 8/08;DEV00 6308;Incre ment claim  counter;
  88       ;S ^TM P($J,"CLAI MS",N,PROV FL)=^CHTDA EOB("TDA_E OB",K,L,M, N)
  89       G EB6
  90   PRT S CHPG PT=1
  91    Q:'$D(^TM P($J,"CLAI MS"))
  92    U IOFILE  D INDIVI^C HMG43WB  ; AEB 1/22/2 007  CHNAG E TO ^CHMG 43WB FOR L IVE
  93    K ^TMP($J ,"CLAIMS") ,^TMP($J," EOB")
  94    Q
  95   CLS
  96    IF CLMCNT (EOB1)=0 {              ;Populat e the outp ut file if  either ha s no claim s;JSG;12/1 8/08;DEV00 6308;
  97       U IOFI LE W !,"** * THERE NO  ",$S(EOB1 =1:"PAID", 1:"DENIED" )," CLAIMS  FOR THIS  STATION ** *",! }
  98    C IOFILE  H 5
  99    Q
  100   END S CHTM P="SET PRO TECTION=(W :RWED) "_I OFILE
  101    S X=$ZF(- 1,CHTMP)
  102    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) 
  103    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.CI TIEOB]CITI _EOB_FTP.C OM/PARAM=( "_IOFILE_" )/LOG=HAC_ HFS$:[SCR. CITIEOB]")   ; TLH,10 1805
  104    ;I (CHUCI ="DEV")!(C HUCI="TST" ) Q  ;STOP  AND DO NO T MOVE DAT A INTO PRO DUCTION  A EB 2/27/20 07
  105    Q
  106   END1 ;   
  107    K ALIGN,A NS,CHCI,CH QI,CHVI,CL NM,PROVFL, PRNTFLG,CH EOBDSK,Y,C LMCNT
  108    K ^TMP($J ,"CLAIMS") ,^CHMZHOLD ("CITIEOBP RINTED"),^ CHMZHOLD(" ZSKDCITIEO B") ,CHUCI
  109    U 0
  110    Q
  111    ;
  112   SBRS D CSB RS^CHSC2 Q
  113    R Y:$S($D (DTIME):DT IME,1:60)
  114    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  115   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  116    I IOZFO=Y  W:$D(IOF)  @IOF S (D FOUT,Y)=""  Q
  117    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  118    Q
  119    ;
  120   PSORT  ;
  121    ; CHTDABT  = CITI BA TCH NUMBER  
  122    ; CHTDAST  = CITI ST ATION NUMB ER 
  123    ; CHTADSS T = CITI S UB-STATION  NUMBER
  124    ; CHTDACP T =  CLAIM  POINTER
  125    ; EOB1 -  NUMBER OF  EOB FOR ON E PERSON;                          <<----th is was pri or to DEV0 06308;12/1 8/08;
  126    ; EOB1 -  1 for paid  claims, 2  for $0 OR  denied cl aims                              ;JSG;DEV0 06308;12/1 8/08;
  127    ; CHTFILE  - IF TDA  NUMBER OVE R 179 USE  NEW TDA ST ORAGE GLOB AL OTHERWI SE USE CHM ZHOLD.
  128    K ^CHMZHO LD($J,"TMP _TDA_EOB")
  129    S CHTFILE ="^CHMZHOL D(""TDA-CA LC"","
  130    I CHBTNUM >181 S CHT FILE="^CHT DAEOB(""TD A_EOB"","
  131    S EOB1=1
  132    S CTR=0
  133    ;S CHTDAB T="" F  S  CHTDABT=$O (^CHTDAEOB ("TDA_EOB" ,CHTDABT))  Q:'CHTDAB T  D
  134    S CHTDABT =CHBTNUM
  135    S CHTDAST =0
  136   PS2 S CHTD AST=$O(@(C HTFILE_"CH TDABT,CHTD AST)")) Q: 'CHTDAST
  137    S CHTDASS T=""
  138   PS3 S CHTD ASST=$O(@( CHTFILE_"C HTDABT,CHT DAST,CHTDA SST)")) G: 'CHTDASST  PS2
  139    S CHTDACP T=0
  140   PS4 S CHTD ACPT=$O(@( CHTFILE_"C HTDABT,CHT DAST,CHTDA SST,CHTDAC PT)")) G:' CHTDACPT P S3
  141    S CTR=CTR +1
  142    S DFN=$P( ^CHMPAY(CH TDACPT,0), "^",21),BF N=$P(^CHMP AY(CHTDACP T,0),"^",2 2)
  143    S EOB1=$$ 0PAY(CHTDA CPT)                                           ;JSG;12 /18/08;DEV 006308;Is  it zero $s  paid;
  144    ;S ^CHMZH OLD($J,"TM P_TDA_EOB" ,CHTDABT,C HTDAST,CHT DASST,DFN, BFN,EOB1,C HTDACPT)=" " ;JSG;12/ 18/08;DEV0 06308;
  145    S ^CHMZHO LD($J,"TMP _TDA_EOB", CHTDABT,CH TDAST,CHTD ASST,EOB1, DFN,BFN,CH TDACPT)=""   ;JSG;12/ 18/08;DEV0 06308;
  146    G PS4
  147   0PAY(CIEN)  ;(Claim E IN);Is cla im a zero  $ pay?:                                       ;JSG;12/ 18/08;DEV0 06308;
  148               N X Q:'$D (^CHMPAY(C IEN,1),X)  2                      ;Return $ 0 (2) pay  if no pay  record;
  149               Q $S(+$P( X,U)>0:1,1 :2)                                            ;Return  2 if $0,  else 1;