211. EPMO Open Source Coordination Office Redaction File Detail Report

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

211.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRBNP1.m Mon Nov 5 16:45:21 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRBNP1.m Mon Nov 5 17:51:09 2018 UTC

211.2 Comparison summary

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

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

211.4 Active regular expressions

No regular expressions were active.

211.5 Comparison detail

  1   CHMRBNP ;C VA/AEB;PRI NT OF BENE  DEMPGRAPH IC DATA;02 /02/95  10 :23 AM
  2    ;;1.0
  3    ;;DEV0128 93-08 YJK  Mar 2014 
  4    ;;DEV0128 93-08 YJK  Aug 2015
  5   QUEUE W @I OF,"BENEFI CIARY DEMO GRAPHIC DA TA"
  6    ;PRINTS T O A VMS FI LE
  7    ;S IOP="Q ",%ZIS="Q"  W !! D ^% ZIS S ION= $E(ION,1,1 1)_"/W" S  CHFIO=ION
  8    ;S IOP="Q ",%ZIS="Q"  W !! D ^% ZIS S ION= $E(ION,1,1 1) S CHFIO =ION
  9    ;S ZTRTN= "CALC^CHMR BNR",ZTIO= "",ZTSAVE( "CHFIO")=" ",ZTSAVE(" CHSTAT")=" "
  10    ;D ^%ZTLO AD S IOP=0  D HOME^%Z IS K CHSTA T Q
  11    K ^TMP($J ) D CALC
  12    Q
  13    ;
  14   CALC ;ST   - POINTER  TO DIC(5 F ILE
  15    ;GRP  - A GE GROUP D ESIGNATOR
  16    Q:'$D(^CH MZHOLD("SB _STATE_RES TART_VALUE "))
  17    S DOLJ=^C HMZHOLD("S B_STATE_RE START_VALU E") Q:DOLJ =""
  18    S ST=0
  19   A1 S ST=$O (^CHMZHOLD (DOLJ,"SB- STATE",ST) ) G:'ST QU E S GRP=0
  20   A2 S GRP=$ O(^CHMZHOL D(DOLJ,"SB -STATE",ST ,GRP)) G:' GRP A1
  21    G:'$D(^CH MZHOLD(DOL J,"SB-STAT E",ST,GRP) ) A2
  22    I $D(^CHM ZHOLD(DOLJ ,"SB-STATE ",ST,GRP," F")) D FEM ALE
  23    I $D(^CHM ZHOLD(DOLJ ,"SB-STATE ",ST,GRP," M")) D MAL E
  24    G A2
  25   END Q
  26   QUE ;S IOP ="Q;"_CHFI O,%ZIS="Q"  D ^%ZIS G :POP END K  ZTIO
  27    ;S ZTRTN= "PRINT^CHM RBNR",ZTDT H=$H,ZTSAV E("^TMP($J ,")=""
  28    ;D ^%ZTLO AD Q
  29    ;D PRINT  Q  ;USE TO  PRINT TO  THE SCREEN
  30    D PRINTF  Q  ;USE TO  PRINT TO  A TAB DELI MITED FILE
  31    Q
  32   FEMALE I ' $D(^CHMZHO LD(DOLJ,"S B-STATE",S T,GRP,"F") ) Q
  33    S REC=^CH MZHOLD(DOL J,"SB-STAT E",ST,GRP, "F")
  34    S EACNT=$ P(REC,"^", 1),OHIFLG= $P(REC,"^" ,2),CLMCNT =$P(REC,"^ ",3)
  35    S CITIFLG =$P(REC,"^ ",4),NOCLM =$P(REC,"^ ",5),CITIC T=$P(REC," ^",6)
  36    S OHICT=$ P(REC,"^", 7)
  37    ;SET UP S EX/STATE D ATA
  38    I '$D(^TM P($J,"F",S T)) S ^TMP ($J,"F",ST )="0^0^0^0 ^0^0^0^0"
  39    S $P(^TMP ($J,"F",ST ),"^",GRP) =$P(^TMP($ J,"F",ST), "^",GRP)+E ACNT
  40    S $P(^TMP ($J,"F",ST ),"^",6)=$ P(^TMP($J, "F",ST),"^ ",6)+CITIF LG
  41    S $P(^TMP ($J,"F",ST ),"^",7)=$ P(^TMP($J, "F",ST),"^ ",7)+OHIFL G
  42    S $P(^TMP ($J,"F",ST ),"^",8)=$ P(^TMP($J, "F",ST),"^ ",8)+NOCLM
  43    ;SET UP O HI TOTALS
  44    I '$D(^TM P($J,"CLAI MS","OHI", "F")) S ^T MP($J,"CLA IMS","OHI" ,"F")="0^0 ^0^0^0"
  45    S $P(^TMP ($J,"CLAIM S","OHI"," F"),U,GRP) =$P(^TMP($ J,"CLAIMS" ,"OHI","F" ),U,GRP)+O HICT
  46    ;SET UP C ITI CLAIMS
  47    I '$D(^TM P($J,"CLAI MS","CITI" ,"F")) S ^ TMP($J,"CL AIMS","CIT I","F")="0 ^0^0^0^0"
  48    S $P(^TMP ($J,"CLAIM S","CITI", "F"),U,GRP )=$P(^TMP( $J,"CLAIMS ","CITI"," F"),U,GRP) +CITICT
  49    ;SET UP T OTALS
  50    I '$D(^TM P($J,"CLAI MS","TOTAL ","F")) S  ^TMP($J,"C LAIMS","TO TAL","F")= "0^0^0^0^0 "
  51    S $P(^TMP ($J,"CLAIM S","TOTAL" ,"F"),U,GR P)=$P(^TMP ($J,"CLAIM S","TOTAL" ,"F"),U,GR P)+CLMCNT
  52    Q
  53    ;
  54   MALE I '$D (^CHMZHOLD (DOLJ,"SB- STATE",ST, GRP,"M"))  Q
  55    S REC=^CH MZHOLD(DOL J,"SB-STAT E",ST,GRP, "M")
  56    S EACNT=$ P(REC,"^", 1),OHIFLG= $P(REC,"^" ,2),CLMCNT =$P(REC,"^ ",3)
  57    S CITIFLG =$P(REC,"^ ",4),NOCLM =$P(REC,"^ ",5),CITIC T=$P(REC," ^",6)
  58    S OHICT=$ P(REC,"^", 7)
  59    ;SET UP S EX/STATE D ATA
  60    I '$D(^TM P($J,"M",S T)) S ^TMP ($J,"M",ST )="0^0^0^0 ^0^0^0^0"
  61    S $P(^TMP ($J,"M",ST ),"^",GRP) =$P(^TMP($ J,"M",ST), "^",GRP)+E ACNT
  62    S $P(^TMP ($J,"M",ST ),"^",6)=$ P(^TMP($J, "M",ST),"^ ",6)+CITIF LG
  63    S $P(^TMP ($J,"M",ST ),"^",7)=$ P(^TMP($J, "M",ST),"^ ",7)+OHIFL G
  64    S $P(^TMP ($J,"M",ST ),"^",8)=$ P(^TMP($J, "M",ST),"^ ",8)+NOCLM
  65    ;SET UP O HI TOTALS
  66    I '$D(^TM P($J,"CLAI MS","OHI", "M")) S ^T MP($J,"CLA IMS","OHI" ,"M")="0^0 ^0^0^0"
  67    S $P(^TMP ($J,"CLAIM S","OHI"," M"),U,GRP) =$P(^TMP($ J,"CLAIMS" ,"OHI","M" ),U,GRP)+O HICT
  68    ;SET UP C ITI CLAIMS
  69    I '$D(^TM P($J,"CLAI MS","CITI" ,"M")) S ^ TMP($J,"CL AIMS","CIT I","M")="0 ^0^0^0^0"
  70    S $P(^TMP ($J,"CLAIM S","CITI", "M"),U,GRP )=$P(^TMP( $J,"CLAIMS ","CITI"," M"),U,GRP) +CITICT
  71    ;SET UP T OTALS
  72    I '$D(^TM P($J,"CLAI MS","TOTAL ","M")) S  ^TMP($J,"C LAIMS","TO TAL","M")= "0^0^0^0^0 "
  73    S $P(^TMP ($J,"CLAIM S","TOTAL" ,"M"),U,GR P)=$P(^TMP ($J,"CLAIM S","TOTAL" ,"M"),U,GR P)+CLMCNT
  74    Q
  75    ;PRINT BY  STATE/SEX
  76   PRINT S Y= DT X ^DD(" DD") S DAT E=Y,PG=1,X =$P($H,"," ,2),H=X\36 00,M=X#360 0\60
  77    S:M<10 M= 0_M S:H<10  H=0_M S T IME=H_M S  SEX="E",CT =0
  78   P1 S SEX=$ O(^TMP($J, SEX)) G:SE X="" CLAIM S S ST=0 D  STHEAD
  79    S (G1T,G2 T,G3T,G4T, G5T,G6T,G7 T,G8T,GST, GSTT)=0
  80   P2 S ST=$O (^TMP($J,S EX,ST)) I  'ST D TOTA LS G P1
  81    I '$D(^TM P($J,SEX,S T)) G P2
  82    S REC=^TM P($J,SEX,S T)
  83    S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4)
  84    S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7),G8 =$P(REC,U, 8)
  85    S GST=G1+ G2+G3+G4+G 5
  86    S G1T=G1T +G1,G2T=G2 T+G2,G3T=G 3T+G3,G4T= G4T+G4,G5T =G5T+G5,GS TT=GSTT+GS T
  87    S G6T=G6T +G6,G7T=G7 T+G7,G8T=G 8T+G8
  88    G:'$D(^DI C(5,ST,0))  P2 S STPN T=$P(^DIC( 5,ST,0),U, 1)
  89    W !?2,STP NT,?19,G1, ?29,G2,?39 ,G3,?49,G4 ,?59,G5,?6 9,GST,?76, "|",?82,G6 ,?92,G7,?1 04,G8
  90    G P2
  91   TOTALS W ! ?76,"|",!? 76,"|",!," TOTALS",?1 9,G1T,?29, G2T,?39,G3 T,?49,G4T, ?59,G5T,?6 9,GSTT,?76 ,"|",?82,G 6T,?92,G7T ,?104,G8T  Q
  92   CLAIMS D C LMHEAD F S EXCHK="F", "M" D CLMH D1 S TYPE= "" D CL1 W  !!
  93    G PEND
  94   CL1 S TYPE =$O(^TMP($ J,"CLAIMS" ,TYPE)) Q: TYPE=""  S  SEX=""
  95    S (GST)=0
  96   CL2 S SEX= $O(^TMP($J ,"CLAIMS", TYPE,SEX))  G:SEX=""  CL1
  97    I SEX'=SE XCHK G CL2
  98    I '$D(^TM P($J,"CLAI MS",TYPE,S EX)) G CL2
  99    S REC=^TM P($J,"CLAI MS",TYPE,S EX)
  100    S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4)
  101    S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7)
  102    S GST=G1+ G2+G3+G4+G 5
  103    S PTYPE=$ S(TYPE="CI TI":"CITI  CLAIMS",TY PE="OHI":" OHI CLAIMS ",TYPE="TO TAL":"CLAI MS PAID",1 :" ")
  104    W !?2,PTY PE,?19,G1, ?29,G2,?39 ,G3,?49,G4 ,?59,G5,?6 9,GST
  105    G CL2
  106   STHEAD W @ IOF,!,DUZ, ?33,"HEALT H ADMINIST RATION CEN TER",?71," Page: ",PG  S PG=PG+1
  107    S TITLE=" BENEFICIAR Y STATISTI CS FY99"
  108    S TAB=((7 1-$L(TITLE ))/2)+6 W  !,TIME,?TA B,TITLE,!? 34,DATE
  109    S TITLE=" ELIGIBLE A CTIVE BENE FICIARIES  BY STATE"
  110    S TAB=((7 1-$L(TITLE ))/2)+6 W  !!,?TAB,TI TLE
  111    I SEX="F"  W !,?7,"F EMALES"
  112    I SEX="M"  W !,?7,"M ALES"
  113    W !,?1,"S TATE",?16, "UNDER 18" ,?26,"19-2 5",?36,"26 -40",?46," 41-64",?56 ,"OVER 64" ,?80,"CITI ",?90,"OHI ",?100,"NO  CLAIMS"
  114    Q
  115   CLMHEAD W  @IOF,!,DUZ ,?33,"HEAL TH ADMINIS TRATION CE NTER",?71, "Page: ",P G S PG=PG+ 1
  116    S TITLE=" CLAIM BREA KOUT BY AG E GROUP"
  117    S TAB=((7 1-$L(TITLE ))/2)+6 W  !!!,?TAB,T ITLE,!!
  118    Q
  119   CLMHD1 I S EXCHK="F"  W !,?7,"FE MALES"
  120    I SEXCHK= "M" W !,?7 ,"MALES"
  121    W !,?1,"C LAIM TYPE" ,?16,"UNDE R 18",?26, "19-25",?3 6,"26-40", ?46,"41-64 ",?56,"OVE R 64",?66, "TOTALS"
  122    Q
  123   PEND K G1, G2,G3,G4,G 5,G6,G7,G8 ,G1T,G2T,G 3T,G4T,G5T ,G6T,G7T,G 8T,TITLE,T AB
  124    K SEXCHK, PG,GST,TYP E,ST,REC
  125    Q
  126   PRINTF ;S  PIO="VA554 5::PW_WPCO RP:[BIGDIS K]SB_DEMO_ CY97.DAT"  S T=$C(9)  ;DEV012893 -08 YJK Ma r 2014 
  127    ;O PIO C  PIO:"D" O  PIO:"NWV"                                              ;DEV012893 -08 YJK Ma r 2014 
  128    S T=$C(9)                                                                   ;DEV012893 -08 YJK Ma r 2014 
  129    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)                                        ;DEV012893 -08 YJK Ma r 2014 
  130    X "D $SYS TEM.Proces s.SetZEOF( 1)"                                         ;DEV012893 -08 YJK Au g 2015
  131    S FILE="S B_DEMO_CY9 7.DAT"                                                 ;DEV012893 -08 YJK Ma r 2014 
  132    S PIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILE                                   ;DEV012893 -08 YJK Ma r 2014 
  133    I UCI'="H AC" S PIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILE                                 ;DEV01 2893-08 YJ K Mar 2014  
  134    S X=$ZF(- 1,"DELETE  "_PIO_";*" )                                           ;DEV012893 -08 YJK Ma r 2014 
  135    I '$$OPEN FIWR^CHTFL IB9(.PIO," PIO") Q                                     ;DEV012893 -08 YJK Ma r 2014 
  136    S Y=DT X  ^DD("DD")  S DATE=Y,P G=1,X=$P($ H,",",2),H =X\3600,M= X#3600\60
  137    S:M<10 M= 0_M S:H<10  H=0_M S T IME=H_M S  SEX="E",CT =0
  138   P1F S SEX= $O(^TMP($J ,SEX)) G:S EX="" CLAI MF S ST=0  D SFHEAD
  139    S (G1T,G2 T,G3T,G4T, G5T,G6T,G7 T,G8T,GST, GSTT)=0
  140   P2F S ST=$ O(^TMP($J, SEX,ST)) I  'ST D TOT ALF G P1F
  141    I '$D(^TM P($J,SEX,S T)) G P2F
  142    S REC=^TM P($J,SEX,S T)
  143    S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4)
  144    S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7),G8 =$P(REC,U, 8)
  145    S GST=G1+ G2+G3+G4+G 5
  146    S G1T=G1T +G1,G2T=G2 T+G2,G3T=G 3T+G3,G4T= G4T+G4,G5T =G5T+G5,GS TT=GSTT+GS T
  147    S G6T=G6T +G6,G7T=G7 T+G7,G8T=G 8T+G8
  148    G:'$D(^DI C(5,ST,0))  P2 S STPN T=$P(^DIC( 5,ST,0),U, 1)
  149    U PIO W ! ,STPNT_T_G 1_T_G2_T_G 3_T_G4_T_G 5_T_GST_T_ "|"_T_G6_T _G7_T_G8
  150    G P2F
  151   TOTALF U P IO W !,"TO TALS"_T_G1 T_T_G2T_T_ G3T_T_G4T_ T_G5T_T_GS TT_T_"|"_T _G6T_T_G7T _T_G8T Q
  152   CLAIMF D C LMHF F SEX CHK="F","M " D CLMHD1 F S TYPE=" " D CL1F U  PIO U PIO  W !!
  153    G PFEND
  154   CL1F S TYP E=$O(^TMP( $J,"CLAIMS ",TYPE)) Q :TYPE=""   S SEX=""
  155    S (GST)=0
  156   CL2F S SEX =$O(^TMP($ J,"CLAIMS" ,TYPE,SEX) ) G:SEX=""  CL1F
  157    I SEX'=SE XCHK G CL2 F
  158    I '$D(^TM P($J,"CLAI MS",TYPE,S EX)) G CL2 F
  159    S REC=^TM P($J,"CLAI MS",TYPE,S EX)
  160    S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4)
  161    S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7)
  162    S GST=G1+ G2+G3+G4+G 5
  163    S PTYPE=$ S(TYPE="CI TI":"CITI  CLAIMS",TY PE="OHI":" OHI CLAIMS ",TYPE="TO TAL":"CLAI MS PAID",1 :" ")
  164    U PIO W ! ,PTYPE_T_G 1_T_G2_T_G 3_T_G4_T_G 5_T_GST
  165    G CL2F
  166   SFHEAD U P IO W !," " _T_"HEALTH  ADMINISTR ATION CENT ER"
  167    S TITLE=" BENEFICIAR Y STATISTI CS FY99"
  168    S TAB=((7 1-$L(TITLE ))/2)+6 U  PIO W !,"  "_T_TITLE_ T_T_T_T_T_ T_T_DATE
  169    S TITLE=" ELIGIBLE A CTIVE BENE FICIARIES  BY STATE"
  170    S TAB=((7 1-$L(TITLE ))/2)+6 U  PIO W !!,"  "_T_TITLE
  171    I SEX="F"  U PIO W ! ," "_T_"FE MALES"
  172    I SEX="M"  U PIO W ! ," "_T_"MA LES"
  173    U PIO W ! ,"STATE"_T _"UNDER 18 "_T_"19-25 "_T_"26-40 "_T_"41-64 "_T_"OVER  64"_T_"TOT AL"_T_T_"C ITI"_T_"OH I"_T_"NO C LAIMS"
  174    Q
  175   CLMHF U PI O W !," "_ T_"HEALTH  ADMINISTRA TION CENTE R"
  176    S TITLE=" CLAIM BREA KOUT BY AG E GROUP"
  177    S TAB=((7 1-$L(TITLE ))/2)+6 U  PIO W !!!, " "_T_TITL E,!!
  178    Q
  179   CLMHD1F I  SEXCHK="F"  U PIO W ! ," "_T_"FE MALES"
  180    I SEXCHK= "M" U PIO  W !," "_T_ "MALES"
  181    U PIO W ! ,"CLAIM TY PE"_T_"UND ER 18"_T_" 19-25"_T_" 26-40"_T_" 41-64"_T_" OVER 64"_T _"TOTALS"
  182    Q
  183   PFEND K G1 ,G2,G3,G4, G5,G6,G7,G 8,G1T,G2T, G3T,G4T,G5 T,G6T,G7T, G8T,TITLE, TAB
  184    K SEXCHK, PG,GST,TYP E,ST,REC
  185    ;C PIO                                                                      ;DEV012893 -08 YJK Ma r 2014 
  186    D CLOSEF^ CHTFLIB9(P IO,"PIO")                                              ;DEV012893 -08 YJK Ma r 2014  
  187    X "D $SYS TEM.Proces s.SetZEOF( 0)"                                         ;DEV012893 -08 YJK Au g 2014                                       
  188    S FOLDER= "/FS3BIG"                                                         ;DEV012893 -08 YJK Ma r 2014 
  189    D FTPFILE ^CHTFLIB9( PIO," DNS     fs3. DNS             ",FOLDER," PUT")        ;DEV012893 -08 YJK Ma r 2014 
  190    Q
  191   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  192    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_""_Y
  193    Q
  194   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC