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

110.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG43WI.m Mon Nov 5 16:45:23 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMG43WI.m Mon Nov 5 17:47:22 2018 UTC

110.2 Comparison summary

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

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

110.4 Active regular expressions

No regular expressions were active.

110.5 Comparison detail

  1   CHMG43WI ; CVA/SKD;IN DIVIDUAL F ACILITY EO B PRINT (t DNS     fs3/CITI_E OB) PER BA TCH # & FA CILITY;7-2 0-05
  2    ;;1.0
  3    ;THIS IS  A COPY OF  CHMG43MP A ND MODIFIE D TO 
  4    ;SAVE EOB 'S OF SELE CTED FACIL ITY TO THE   DNS     FS3\CITI_E OB DIRECTO RY
  5    ;
  6    ;THIS ROU TINE RUNS  ONLY IF ^C HMZHOLD("T DA-CALC",_ _ EXISTS. 
  7    ;IF EXIST , THEN BAT CH # AND F ACILITY #   MUST BE I N GLOBAL.
  8    ;JSG;12/1 8/08;DEV00 6308;Separ ate Paid a nd Denied  EOBs into  two (2) di fferent ou tput files ;
  9    U 0
  10    D ^CHMFSE T X CHRESE T
  11   ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y
  12    S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME)  DTIME=60
  13    D HOME^%Z IS
  14    ;
  15    ;S CHEOBD SK=1   ;SK D, 9-22-05
  16    S CHINFO= 1 ; Print  "no check"  message f or manual  eob.
  17    S U="^",A LIGN=0,CHV IM="" K ZT SK
  18   A W @IOF S  CHQI="" K  ^TMP($J," CLAIMS"),^ CHMZHOLD(" CITIEOBPRI NTED"),^CH MZHOLD("ZS KDCITIEOB" ) ;SKD, 9- 23-05
  19    ;promptin g user for  Station #  and Batch  #
  20    S DIC("W" )="W "" is  from ""_$ $FMTE^XLFD T($P(^(0), ""^"",2)," "5D"")_""  to ""_$$FM TE^XLFDT($ P(^(0),""^ "",3),""5D "")"
  21    S DIC=741 030,DIC(0) ="AENQM" D  ^DIC S CH BTNUM=+Y W  !
  22    G:Y="" EN D1 G:Y="^"  END1 G:Y= -1 END1
  23    K DIC
  24    S DIC=4,D IC(0)="AEN QM" D ^DIC  S CHBTINS T=+Y W !
  25    I Y=-1 D
  26    .W !!,"No  EOB's fou nd. Check  Batch numb er and Fac ility.",!
  27    G:Y=-1 EN D1 G:Y="^"  END1 G:Y= "" END1
  28    K DIC
  29    D PSORT
  30    ;R !,"> " ,JSG
  31    ;D PRTEOB                                                  ;Repl aced, see  below: ;JS G;12/18/08 ;DEV006308 ;
  32    D PRTEOB( 1)                                 ;Generat e EOB file s for paid  claims;JS G;12/18/08 ;DEV006308 ;
  33    D PRTEOB( 2)                       ;Genera te EOB fil es for $0  and denied  claims;JS G;12/18/08 ;DEV006308 ;
  34    Q
  35   PRTEOB(EOB 1) ;(EOB g eneration  mode);1 =  paid claim s, 2 = $0  and denied  claims;JS G;12/18/08 ;DEV006308 ;
  36    K CLMCNT  S CLMCNT(E OB1)=0                             ;Initial ize claim  counter;JS G;12/18/08 ;DEV006308 ;
  37    S CHBMTH= CHBTNUM,CH TMPBT=0                                   ; TLH 11/7/0 5
  38    S CHTMPBT =$O(^CHMTD A("B",CHBT NUM,CHTMPB T)) Q:CHTM PBT=""   ; TLH 11/7/0 5
  39    I $D(^CHM TDA(CHTMPB T,0)) D                                   ; TLH 11/7/0 5
  40    .S CHBMTH =$P(^CHMTD A(CHTMPBT, 0),"^",3)  Q:CHBMTH=" "        ; TLH 11/16/ 05
  41    .S CHBMTH =$$FMTE^XL FDT(CHBMTH ,"9D")                         ; TLH 11/7/0 5
  42    .S CHBYR= $P(CHBMTH, " ",3)                                    ; TLH 11/16/ 05
  43    .S CHBMTH =$$UP^XLFS TR($P(CHBM TH," ",2))                     ; TLH 11/7/0 5
  44    .S CHBMTH =CHBMTH_"_ "_CHBYR                                   ; TLH1 11/16 /05
  45    .Q                                                             ; TLH 11/7/0 5
  46    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)                         ; AEB 2/27/2 007
  47    ;I CHUCI= "HAC" S IO FILE="HAC_ HFS$:[SCR. CITIEOB]"_ CHBMTH_"_" _CHBTINST_ "_"_"EOB.T XT" ;TLH,1 01805;JSG; DEV006308
  48    IF CHUCI= "HAC" {                                            ;Cr eate Produ ction file  names;JSG ;DEV006308 ;
  49       S IOFI LE="HAC_HF S$:[SCR.CI TIEOB]"_CH BMTH_"_"_C HBTINST_"_ "
  50       IF EOB 1=1 { S IO FILE=IOFIL E_"EOBPAID .TXT" }                     ;Fil e name for  paids;JSG ;DEV006308 ;
  51       ELSE {  S IOFILE= IOFILE_"EO BZERO.TXT"  } }                        ;Fil e name for  zeros;JSG ;DEV006308 ;
  52    ;I CHUCI= "DEV" S IO FILE="HAC_ HFS$:[DSMM ANAG.CHAMP VA]TEST1_" _CHBMTH_"_ "_CHBTINST _"_"_"EOB. TXT" ;AEB  2/27/2007  JUST FOR D EV
  53    ;I CHUCI= "TST" S IO FILE="HAC_ HFS$:[DSMM ANAG.CHAMP VA]TEST1_" _CHBMTH_"_ "_CHBTINST _"_"_"EOB. TXT" ;AEB  2/27/2007  JUST FOR D EV
  54    ELSE { S  IOFILE="HA C_HFS$:[DS MMANAG.CHA MPVA]TEST1 _"_CHBMTH_ "_"_CHBTIN ST_"_"  ;C reate test  file name s;JSG;DEV0 06308;
  55       IF EOB 1=1 { S IO FILE=IOFIL E_"EOBPAID .TXT" }                 ;Test fi le name fo r paids;JS G;DEV00630 8;
  56       ELSE {  S IOFILE= IOFILE_"EO BZERO.TXT"  } }                    ;Test fi le name fo r zeros;JS G;DEV00630 8;
  57    O IOFILE: "NWS"
  58    S FFLG=0
  59    ; FFLG -  STATION FO UND FLAG 0 :NO,1:YES
  60    ; BATNUM  = CITI BAT CH NUMBER 
  61    ; STNUM =  CITI STAT ION NUMBER  
  62    ; SSTNUM  = CITI SUB -STATION N UMBER
  63    ; CHDFN -  POINTER T O AHCHVA S PONSOR
  64    ; CHBFN -  POINTER T O AHCHVA B ENE
  65    ; CHEBCNT  - EOB COU NTS FOR SA ME BENE;JS G;12/18/08 ;DEV006308 ;DO NOT NE ED (DNN)
  66    ; CLMPT =   CLAIM PO INTER
  67    S BATNUM= CHBTNUM
  68    ;S STNUM= 0                   ; JSG;12/18/ 08;DEV0063 08;DO NOT  NEED (DNN)
  69    S (STNUM, SSTNUM)=CH BTINST   ; Set statio n & substa tion to st ation # fo und in ^CH MTDA;JSG;1 2/18/08;DE V006308;
  70   EB1 ;S STN UM=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM)) I  'STNUM D C LS Q       ;DNN;JSG;1 2/18/08;DE V006308;
  71       ;G:CHB TINST'=STN UM EB1                                                            ;DNN;JSG;1 2/18/08;DE V006308;
  72       ;S SST NUM=0                                                                        ;DNN;JSG;1 2/18/08;DE V006308;
  73   EB2 ;S SST NUM=$O(^CH MZHOLD($J, "TMP_TDA_E OB",BATNUM ,STNUM,SST NUM)) G:'S STNUM EB1  ;DNN;JSG;1 2/18/08;DE V006308;
  74       ;G:CHB TINST'=SST NUM EB2                                                           ;DNN;JSG;1 2/18/08;DE V006308;
  75       I '$D( ^CHMZHOLD( $J,"TMP_TD A_EOB",BAT NUM,STNUM, SSTNUM,EOB 1)) D CLS  Q
  76       S CHDF N=0,FFLG=1         ;t lh 7/7/08  DEV005285  to correct  issue so  all benefi caries are  on separa te eobs;
  77   EB3 ;S CHD FN=$O(^CHM ZHOLD($J," TMP_TDA_EO B",BATNUM, STNUM,SSTN UM,CHDFN))  G:'CHDFN  EB2 ;tlh;7 /7/08;DEV0 05285;JSG; 12/18/08;D EV006308;
  78       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;DE V006308;
  79       S CHBF N=0                ;t lh 7/7/08  DEV005285  to correct  issue so  all benefi caries are  on separa te eobs;
  80   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/7 /08;DEV005 285;JSG;12 /18/08;DEV 006308;
  81       S CHBF N=$O(^CHMZ HOLD($J,"T MP_TDA_EOB ",BATNUM,S TNUM,SSTNU M,EOB1,CHD FN,CHBFN))  I 'CHBFN  G EB3
  82       ;S CHE BCNT=0                                                    ;tlh;7/ 7/08;DEV00 5285;JSG;1 2/18/08;DE V006308;
  83   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/7 /08;DEV005 285;JSG;12 /18/08;DEV 006308;
  84       S CLMP T=0
  85   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/7/08;DEV 005285;JSG ;12/18/08; DEV006308;
  86       .S DFN =CHDFN S B FN=CHBFN   ;tlh 7/7/0 8 DEV00528 5 to corre ct issue s o all bene ficaries a re on sepa rate eobs
  87       .D PRT                       ;tlh 7/7/0 8 DEV00582 5 to corre ct issue s o all bene ficaries a re on sepa rate eobs
  88       .Q                           ;tlh 7/7/0 8 DHV00528 5 to corre ct issue s o all bene ficaries a re on sepa rate eobs
  89       S ^TMP ($J,"CLAIM S",CLMPT)= ""
  90       S CLMC NT(EOB1)=C LMCNT(EOB1 )+1                               ;JSG;12/1 8/08;DEV00 6308;Incre ment claim  counter;
  91       G EB6
  92   PRT  ;
  93    U IOFILE  D INDIVI^C HMG43WB
  94    Q
  95   CLS
  96    IF CLMCNT (EOB1)=0 {                 ;Popu late the o utput file  if either  has no cl aims;JSG;1 2/18/08;DE V006308;
  97       U IOFI LE W !,"** * THERE NO  ",$S(EOB1 =1:"PAID", 1:"DENIED" )," CLAIMS  FOR THIS  STATION ** *",! }
  98    C IOFILE
  99    S CHTMP=" SET PROTEC TION=(W:RW ED) "_IOFI LE
  100    S X=$ZF(- 1,CHTMP)
  101    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)  ;A EB 2/27/20 07
  102    ;I CHUCI= "HAC" S X= $ZF(-1,"SU BMIT HAC_H FS$:[SCR.C ITIEOB]CIT I_EOB_FTP. COM/PARAM= ("_IOFILE_ ")/LOG=HAC _HFS$:[SCR .CITIEOB]" ) ;TLH,101 805
  103    ;I CHUCI= "TST" Q ;Q UIT IF IN  TST OR DEV  SO TEST D ATA DOES N OT MOVE TO  PRODUCTIO N ;AEB 2/2 7/2007
  104    ;I CHUCI= "DEV" Q ;Q UIT IF IN  TST OR DEV  SO TEST D ATA DOES N OT MOVE TO  PRODUCTIO N ;AEB 2/2 7/2007
  105    IF CHUCI= "HAC" { 
  106       S X=$Z F(-1,"SUBM IT HAC_HFS $:[SCR.CIT IEOB]CITI_ EOB_FTP.CO M/PARAM=(" _IOFILE_") /LOG=HAC_H FS$:[SCR.C ITIEOB]")
  107       K ^CHM ZHOLD($J," TMP_TDA_EO B") }        ;tlh 7/7 /08 to cor rect issue  
  108    Q
  109   END ;
  110   END1 ;
  111    K ALIGN,A NS,CHCI,CH QI,CHVI,CL NM,PROVFL, PRNTFLG,CH EOBDSK,IOF ILE,Y,CLMC NT
  112    K ^TMP($J ,"CLAIMS") ,^CHMZHOLD ("CITIEOBP RINTED"),^ CHMZHOLD(" ZSKDCITIEO B") ,CHUCI
  113    U 0 
  114    Q
  115    ;
  116   QUE ;ADDED  FOR TASKM AN JOB
  117    ;D NOW^%D TC S DT=X
  118    S U="^"
  119    S CHFIO=" "
  120    S ZTRTN=" SAVE^CHMG4 3WI",ZTDES C="EOB PRI NTING TO  DNS     FS3\CITI_E OB"
  121    S ZTSAVE( "^TMP($J," )="",ZTSAV E("CLNM")= "",ZTSAVE( "GLPAY")=" "
  122    S ZTSAVE( "CHINFO")= "",ZTSAVE( "CHPGPT")= "",ZTSAVE( "IOFILE")= ""
  123    S ZTSAVE( "CHBD")="" ,ZTSAVE("C HED")="",Z TSAVE("AHB T*")=""
  124    S ZTIO=""
  125    D ^%ZTLOA D      
  126    Q
  127    ;
  128   SBRS D CSB RS^CHSC2 Q
  129    R Y:$S($D (DTIME):DT IME,1:60)
  130    I '$T W * 7 R Y:5 G  SBRS:Y="."  S:'$T Y=I OZFO
  131   SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^"  S:'$D(IOZB K) IOZBK=" ^"
  132    I IOZFO=Y  W:$D(IOF)  @IOF S (D FOUT,Y)=""  Q
  133    S:Y=IOZBK  (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)=""
  134    Q
  135    ;
  136   PSORT  ;
  137    ; CHTDABT  = CITI BA TCH NUMBER  
  138    ; CHTDAST  = CITI ST ATION NUMB ER 
  139    ; CHTADSS T = CITI S UB-STATION  NUMBER
  140    ; CHTDACP T =  CLAIM  POINTER
  141    ; EOB1 -  NUMBER OF  EOB FOR ON E PERSON;                          <<----th is was pri or to DEV0 06308;12/1 8/08;
  142    ; EOB1 -  1 for paid  claims, 2  for $0 OR  denied cl aims                              ;JSG;DEV0 06308;12/1 8/08;
  143    ; CHBTINS T - STATIO N NUMBER I NPUT BY US ER
  144    ; CHTFILE  - IF TDA  NUMBER OVE R 179 USE  NEW TDA ST ORAGE GLOB AL OTHERWI SE USE CHM ZHOLD.
  145    K ^CHMZHO LD($J,"TMP _TDA_EOB")
  146    S CHTFILE ="^CHMZHOL D(""TDA-CA LC"","
  147    I CHBTNUM >181 S CHT FILE="^CHT DAEOB(""TD A_EOB"","
  148    S EOB1=1
  149    S CTR=0
  150    ;S CHTDAB T="" F  S  CHTDABT=$O (^CHTDAEOB ("TDA_EOB" ,CHTDABT))  Q:'CHTDAB T  D
  151    S CHTDABT =CHBTNUM
  152    S CHTDAST =0
  153   PS2 S CHTD AST=$O(@(C HTFILE_"CH TDABT,CHTD AST)")) Q: 'CHTDAST
  154    I CHTDAST '=CHBTINST   G PS2  ; SKIP IF ST ATION NOT  THE DESIRE D STATION
  155    S CHTDASS T=""
  156   PS3 S CHTD ASST=$O(@( CHTFILE_"C HTDABT,CHT DAST,CHTDA SST)")) G: 'CHTDASST  PS2
  157    S CHTDACP T=0
  158   PS4 S CHTD ACPT=$O(@( CHTFILE_"C HTDABT,CHT DAST,CHTDA SST,CHTDAC PT)")) G:' CHTDACPT P S3
  159    S CTR=CTR +1
  160    S DFN=$P( ^CHMPAY(CH TDACPT,0), "^",21),BF N=$P(^CHMP AY(CHTDACP T,0),"^",2 2)
  161    S EOB1=$$ 0PAY^CHMG4 3WA(CHTDAC PT)                                 ;JSG;12 /18/08;DEV 006308;Is  it zero $s  paid;
  162    ;S ^CHMZH OLD($J,"TM P_TDA_EOB" ,CHTDABT,C HTDAST,CHT DASST,DFN, BFN,EOB1,C HTDACPT)=" " ;JSG;12/ 18/08;DEV0 06308;
  163    S ^CHMZHO LD($J,"TMP _TDA_EOB", CHTDABT,CH TDAST,CHTD ASST,EOB1, DFN,BFN,CH TDACPT)=""   ;JSG;12/ 18/08;DEV0 06308;
  164    G PS4