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

213.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRDMOP.m Mon Nov 5 16:42:48 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMRDMOP.m Mon Nov 5 17:51:12 2018 UTC

213.2 Comparison summary

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

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

213.4 Active regular expressions

No regular expressions were active.

213.5 Comparison detail

  1   CHMRDMOP ; CVA/AEB;PR INT OF BEN E DEMPGRAP HIC DATA;0 2/02/95  1 0:23 AM
  2    ;;1.0
  3    ;
  4   CALC ;ST   - POINTER  TO DIC(5 F ILE
  5    ;GRP  - A GE GROUP D ESIGNATOR
  6    S ST=0
  7   A1 S ST=$O (^CHMZHOLD ($J,"STATE ",ST)) G:' ST END S G RP=0
  8   A2 S GRP=$ O(^CHMZHOL D($J,"STAT E",ST,GRP) ) G:'GRP A 1
  9    G:'$D(^CH MZHOLD($J, "STATE",ST ,GRP)) A2
  10    I $D(^CHM ZHOLD($J," STATE",ST, GRP,"F"))  D FEMALE
  11    I $D(^CHM ZHOLD($J," STATE",ST, GRP,"M"))  D MALE
  12    G A2
  13   END ;
  14    D PRINTF  ; FOR OUTP UT TO FILE
  15    ;D PRINT  ; FOR OUTP UT TO HARD COPY
  16    K REC,EAC NT,OHIFLG, ST,GRP,CIT IFLG,NOCLM ,^TMP($J)
  17    K SEX,ST
  18    Q
  19   FEMALE I ' $D(^CHMZHO LD($J,"STA TE",ST,GRP ,"F")) Q
  20    S REC=^CH MZHOLD($J, "STATE",ST ,GRP,"F")
  21    S EACNT=$ P(REC,"^", 1),OHIFLG= $P(REC,"^" ,2),CLMCNT =$P(REC,"^ ",3)
  22    S CITIFLG =$P(REC,"^ ",4),NOCLM =$P(REC,"^ ",5),CITIC T=$P(REC," ^",6)
  23    S OHICT=$ P(REC,"^", 7)
  24    ;SET UP S EX/STATE D ATA
  25    I '$D(^TM P($J,"F",S T)) S ^TMP ($J,"F",ST )="0^0^0^0 ^0^0^0^0"
  26    S $P(^TMP ($J,"F",ST ),"^",GRP) =$P(^TMP($ J,"F",ST), "^",GRP)+E ACNT
  27    S $P(^TMP ($J,"F",ST ),"^",6)=$ P(^TMP($J, "F",ST),"^ ",6)+CITIF LG
  28    S $P(^TMP ($J,"F",ST ),"^",7)=$ P(^TMP($J, "F",ST),"^ ",7)+OHIFL G
  29    S $P(^TMP ($J,"F",ST ),"^",8)=$ P(^TMP($J, "F",ST),"^ ",8)+NOCLM
  30    ;SET UP B OTH SEX/ST ATE DATA
  31    I '$D(^TM P($J,"TOT" ,ST)) S ^T MP($J,"TOT ",ST)="0^0 ^0^0^0^0^0 ^0"
  32    S $P(^TMP ($J,"TOT", ST),"^",GR P)=$P(^TMP ($J,"TOT", ST),"^",GR P)+EACNT
  33    S $P(^TMP ($J,"TOT", ST),"^",6) =$P(^TMP($ J,"TOT",ST ),"^",6)+C ITIFLG
  34    S $P(^TMP ($J,"TOT", ST),"^",7) =$P(^TMP($ J,"TOT",ST ),"^",7)+O HIFLG
  35    S $P(^TMP ($J,"TOT", ST),"^",8) =$P(^TMP($ J,"TOT",ST ),"^",8)+N OCLM
  36    ;SET UP O HI TOTALS
  37    I '$D(^TM P($J,"CLAI MS","OHI", "F")) S ^T MP($J,"CLA IMS","OHI" ,"F")="0^0 ^0^0^0"
  38    S $P(^TMP ($J,"CLAIM S","OHI"," F"),U,GRP) =$P(^TMP($ J,"CLAIMS" ,"OHI","F" ),U,GRP)+O HICT
  39    ;SET UP O HI TOTALS  FOR BOTH S EXES
  40    I '$D(^TM P($J,"CLAI MS","OHI", "TOT")) S  ^TMP($J,"C LAIMS","OH I","TOT")= "0^0^0^0^0 "
  41    S $P(^TMP ($J,"CLAIM S","OHI"," TOT"),U,GR P)=$P(^TMP ($J,"CLAIM S","OHI"," TOT"),U,GR P)+OHICT
  42    ;SET UP C ITI CLAIMS
  43    I '$D(^TM P($J,"CLAI MS","CITI" ,"F")) S ^ TMP($J,"CL AIMS","CIT I","F")="0 ^0^0^0^0"
  44    S $P(^TMP ($J,"CLAIM S","CITI", "F"),U,GRP )=$P(^TMP( $J,"CLAIMS ","CITI"," F"),U,GRP) +CITICT
  45    ;SET UP C ITI CLAIMS  FOR BOTH  SEXES
  46    I '$D(^TM P($J,"CLAI MS","CITI" ,"TOT")) S  ^TMP($J," CLAIMS","C ITI","TOT" )="0^0^0^0 ^0"
  47    S $P(^TMP ($J,"CLAIM S","CITI", "TOT"),U,G RP)=$P(^TM P($J,"CLAI MS","CITI" ,"TOT"),U, GRP)+CITIC T
  48    ;SET UP T OTALS
  49    I '$D(^TM P($J,"CLAI MS","TOTAL ","F")) S  ^TMP($J,"C LAIMS","TO TAL","F")= "0^0^0^0^0 "
  50    S $P(^TMP ($J,"CLAIM S","TOTAL" ,"F"),U,GR P)=$P(^TMP ($J,"CLAIM S","TOTAL" ,"F"),U,GR P)+CLMCNT
  51    ;SET UP T OTALS FOR  BOTH SEXES
  52    I '$D(^TM P($J,"CLAI MS","TOTAL ","TOT"))  S ^TMP($J, "CLAIMS"," TOTAL","TO T")="0^0^0 ^0^0"
  53    S $P(^TMP ($J,"CLAIM S","TOTAL" ,"TOT"),U, GRP)=$P(^T MP($J,"CLA IMS","TOTA L","TOT"), U,GRP)+CLM CNT
  54    Q
  55    ;
  56   MALE I '$D (^CHMZHOLD ($J,"STATE ",ST,GRP," M")) Q
  57    S REC=^CH MZHOLD($J, "STATE",ST ,GRP,"M")
  58    S EACNT=$ P(REC,"^", 1),OHIFLG= $P(REC,"^" ,2),CLMCNT =$P(REC,"^ ",3)
  59    S CITIFLG =$P(REC,"^ ",4),NOCLM =$P(REC,"^ ",5),CITIC T=$P(REC," ^",6)
  60    S OHICT=$ P(REC,"^", 7)
  61    ;SET UP S EX/STATE D ATA
  62    I '$D(^TM P($J,"M",S T)) S ^TMP ($J,"M",ST )="0^0^0^0 ^0^0^0^0"
  63    S $P(^TMP ($J,"M",ST ),"^",GRP) =$P(^TMP($ J,"M",ST), "^",GRP)+E ACNT
  64    S $P(^TMP ($J,"M",ST ),"^",6)=$ P(^TMP($J, "M",ST),"^ ",6)+CITIF LG
  65    S $P(^TMP ($J,"M",ST ),"^",7)=$ P(^TMP($J, "M",ST),"^ ",7)+OHIFL G
  66    S $P(^TMP ($J,"M",ST ),"^",8)=$ P(^TMP($J, "M",ST),"^ ",8)+NOCLM
  67    ;SET UP S EX/STATE D ATA FOR BO TH SEXES
  68    I '$D(^TM P($J,"TOT" ,ST)) S ^T MP($J,"TOT ",ST)="0^0 ^0^0^0^0^0 ^0"
  69    S $P(^TMP ($J,"TOT", ST),"^",GR P)=$P(^TMP ($J,"TOT", ST),"^",GR P)+EACNT
  70    S $P(^TMP ($J,"TOT", ST),"^",6) =$P(^TMP($ J,"TOT",ST ),"^",6)+C ITIFLG
  71    S $P(^TMP ($J,"TOT", ST),"^",7) =$P(^TMP($ J,"TOT",ST ),"^",7)+O HIFLG
  72    S $P(^TMP ($J,"TOT", ST),"^",8) =$P(^TMP($ J,"TOT",ST ),"^",8)+N OCLM
  73    ;SET UP O HI TOTALS
  74    I '$D(^TM P($J,"CLAI MS","OHI", "M")) S ^T MP($J,"CLA IMS","OHI" ,"M")="0^0 ^0^0^0"
  75    S $P(^TMP ($J,"CLAIM S","OHI"," M"),U,GRP) =$P(^TMP($ J,"CLAIMS" ,"OHI","M" ),U,GRP)+O HICT
  76    ;SET UP O HI TOTALS  FOR BOTH S EXES
  77    I '$D(^TM P($J,"CLAI MS","OHI", "TOT")) S  ^TMP($J,"C LAIMS","OH I","TOT")= "0^0^0^0^0 "
  78    S $P(^TMP ($J,"CLAIM S","OHI"," TOT"),U,GR P)=$P(^TMP ($J,"CLAIM S","OHI"," TOT"),U,GR P)+OHICT
  79    ;SET UP C ITI CLAIMS
  80    I '$D(^TM P($J,"CLAI MS","CITI" ,"M")) S ^ TMP($J,"CL AIMS","CIT I","M")="0 ^0^0^0^0"
  81    S $P(^TMP ($J,"CLAIM S","CITI", "M"),U,GRP )=$P(^TMP( $J,"CLAIMS ","CITI"," M"),U,GRP) +CITICT
  82    ;SET UP C ITI CLAIMS  FOR BOTH  SEXES
  83    I '$D(^TM P($J,"CLAI MS","CITI" ,"TOT")) S  ^TMP($J," CLAIMS","C ITI","TOT" )="0^0^0^0 ^0"
  84    S $P(^TMP ($J,"CLAIM S","CITI", "TOT"),U,G RP)=$P(^TM P($J,"CLAI MS","CITI" ,"TOT"),U, GRP)+CITIC T
  85    ;SET UP T OTALS
  86    I '$D(^TM P($J,"CLAI MS","TOTAL ","M")) S  ^TMP($J,"C LAIMS","TO TAL","M")= "0^0^0^0^0 "
  87    S $P(^TMP ($J,"CLAIM S","TOTAL" ,"M"),U,GR P)=$P(^TMP ($J,"CLAIM S","TOTAL" ,"M"),U,GR P)+CLMCNT
  88    ;SET UP T OTALS FOR  BOTH SEXES
  89    I '$D(^TM P($J,"CLAI MS","TOTAL ","TOT"))  S ^TMP($J, "CLAIMS"," TOTAL","TO T")="0^0^0 ^0^0"
  90    S $P(^TMP ($J,"CLAIM S","TOTAL" ,"TOT"),U, GRP)=$P(^T MP($J,"CLA IMS","TOTA L","TOT"), U,GRP)+CLM CNT
  91    Q
  92    ;PRINT BY  STATE/SEX
  93   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
  94    S:M<10 M= 0_M S:H<10  H=0_M S T IME=H_M S  SEX="E",CT =0
  95   P1 S SEX=$ O(^TMP($J, SEX)) G:SE X="" CLAIM S S ST=0 D  STHEAD
  96    S (G1T,G2 T,G3T,G4T, G5T,G6T,G7 T,G8T,GST, GSTT)=0
  97   P2 S ST=$O (^TMP($J,S EX,ST)) I  'ST D TOTA LS G P1
  98    I '$D(^TM P($J,SEX,S T)) G P2
  99    S REC=^TM P($J,SEX,S T)
  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),G8 =$P(REC,U, 8)
  102    S GST=G1+ G2+G3+G4+G 5
  103    S G1T=G1T +G1,G2T=G2 T+G2,G3T=G 3T+G3,G4T= G4T+G4,G5T =G5T+G5,GS TT=GSTT+GS T
  104    S G6T=G6T +G6,G7T=G7 T+G7,G8T=G 8T+G8
  105    G:'$D(^DI C(5,ST,0))  P2 S STPN T=$P(^DIC( 5,ST,0),U, 1)
  106    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
  107    ;U PIO W  !?2,STPNT, ?19,G1,?29 ,G2,?39,G3 ,?49,G4,?5 9,G5,?69,G ST,?76,"|" ,?82,G6,?9 2,G7,?104, G8
  108    G P2
  109   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
  110    ;U PIO W  !?76,"|",! ?76,"|",!, "TOTALS",? 19,G1T,?29 ,G2T,?39,G 3T,?49,G4T ,?59,G5T,? 69,GSTT,?7 6,"|",?82, G6T,?92,G7 T,?104,G8T  Q
  111   CLAIMS ;D  CLMHEAD F  SEXCHK="F" ,"M" D CLM HD1 S TYPE ="" D CL1  U PIO U PI O W !!
  112    D CLMHEAD  F SEXCHK= "F","M" D  CLMHD1 S T YPE="" D C L1 W !!
  113    G PEND
  114   CL1 S TYPE =$O(^TMP($ J,"CLAIMS" ,TYPE)) Q: TYPE=""  S  SEX=""
  115    S (GST)=0
  116   CL2 S SEX= $O(^TMP($J ,"CLAIMS", TYPE,SEX))  G:SEX=""  CL1
  117    I SEX'=SE XCHK G CL2
  118    I '$D(^TM P($J,"CLAI MS",TYPE,S EX)) G CL2
  119    S REC=^TM P($J,"CLAI MS",TYPE,S EX)
  120    S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4)
  121    S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7)
  122    S GST=G1+ G2+G3+G4+G 5
  123    S PTYPE=$ S(TYPE="CI TI":"CITI  CLAIMS",TY PE="OHI":" OHI CLAIMS ",TYPE="TO TAL":"CLAI MS PAID",1 :" ")
  124    ;U PIO W  !?2,PTYPE, ?19,G1,?29 ,G2,?39,G3 ,?49,G4,?5 9,G5,?69,G ST
  125    W !?2,PTY PE,?19,G1, ?29,G2,?39 ,G3,?49,G4 ,?59,G5,?6 9,GST
  126    G CL2
  127   STHEAD S T ITL="HEALT H ADMINIST RATION CEN TER"
  128    S TAB=(13 2-$L(TITL) )/2
  129    W @IOF,!, DUZ,?TAB,T ITL,?120," Page: ",PG  S PG=PG+1
  130    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  131    S PEDATE= $$FMTE^XLF DT(EDDATE, "5D")
  132    S TITLE=" BENEFICIAR Y STATISTI CS FROM "_ PSDATE_" T O "_PEDATE
  133    S TAB=((1 30-$L(TITL E))/2)+6 W  !,TIME,?T AB,TITLE
  134    S CHNOTE= DATE_"     CLAIM COUN TS HAVE BE EN COMMENT ED OFF"
  135    S TAB=((1 30-$L(CHNO TE))/2)+6
  136    W !?TAB,C HNOTE
  137    S TITLE=" ELIGIBLE A CTIVE BENE FICIARIES  BY STATE"
  138    S TAB=((1 30-$L(TITL E))/2)+6 W  !!,?TAB,T ITLE
  139    I SEX="F"  W !,?7,"F EMALES"
  140    I SEX="M"  W !,?7,"M ALES"
  141    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"
  142    Q
  143   CLMHEAD S  TITL="HEAL TH ADMINIS TRATION CE NTER"
  144    S TAB=(13 2-$L(TITL) )/2
  145    W @IOF,!, DUZ,?TAB,T ITL,?120," Page: ",PG  S PG=PG+1
  146    S TITLE=" CLAIM BREA KOUT BY AG E GROUP"
  147    S TAB=((1 30-$L(TITL E))/2)+6 W  !!!,?TAB, TITLE,!
  148    S CHNOTE= "CLAIM COU NTS HAVE B EEN COMMEN TED OFF"
  149    S TAB=((1 30-$L(CHNO TE))/2)+6
  150    W TIME,?T AB,CHNOTE, !
  151    Q
  152   CLMHD1 I S EXCHK="F"  W !,?7,"FE MALES"
  153    I SEXCHK= "M" W !,?7 ,"MALES"
  154    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"
  155    Q
  156   PEND K G1, G2,G3,G4,G 5,G6,G7,G8 ,G1T,G2T,G 3T,G4T,G5T ,G6T,G7T,G 8T,TITLE,T AB
  157    K SEXCHK, PG,GST,TYP E,ST,REC
  158    ;C PIO Q
  159    Q
  160   DTPRT S Y= "" Q:X'?7N   S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7)
  161    I %M S:%D  Y=$E(" ", $L(%D))_%D _", "_Y S  Y=$P($P($T (JAN),";;" ,2)," ",%M )_""_Y
  162    Q
  163   JAN ;;JAN  FEB MAR AP R MAY JUN  JUL AUG SE P OCT NOV  DEC
  164    ; 
  165   PRINTF ;S  PIO="HACFS 3"" DNS     coledec We lcome1!"": :D:[FS3BIG ]CHV_DEMO. DAT"
  166    ;S T=$C(9 )
  167    ;O PIO C  PIO:"D" O  PIO:"NWV"
  168    S PIO="HA C_HFS$:[SC R.TEMP_FIL ES]CHV_DEM O.DAT" S T =$C(9)  ;  FOR LIVE O NLY
  169    ;S PIO="H AC_HFS$:[D SMMANAG.CH AMPVA]CHV_ DEMO.DAT"  S T=$C(9)   ;FOR DEV  ONLY
  170    O PIO:"NW S"
  171    ; CHANGED  ABOVE LIN ES TO USE  SCRATCH$ A ND "NWS" -  CJM 10/11 /2005
  172    S Y=DT X  ^DD("DD")  S DATE=Y,P G=1,X=$P($ H,",",2),H =X\3600,M= X#3600\60
  173    S:M<10 M= 0_M S:H<10  H=0_M S T IME=H_M S  SEX="E",CT =0
  174   P1F S SEX= $O(^TMP($J ,SEX)) G:S EX="" CLAI MF S ST=0  D SFHEAD
  175    S (G1T,G2 T,G3T,G4T, G5T,G6T,G7 T,G8T,GST, GSTT)=0
  176   P2F S ST=$ O(^TMP($J, SEX,ST)) I  'ST D TOT ALF G P1F
  177    I '$D(^TM P($J,SEX,S T)) G P2F
  178    S REC=^TM P($J,SEX,S T)
  179    S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4)
  180    S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7),G8 =$P(REC,U, 8)
  181    S GST=G1+ G2+G3+G4+G 5
  182    S G1T=G1T +G1,G2T=G2 T+G2,G3T=G 3T+G3,G4T= G4T+G4,G5T =G5T+G5,GS TT=GSTT+GS T
  183    S G6T=G6T +G6,G7T=G7 T+G7,G8T=G 8T+G8
  184    G:'$D(^DI C(5,ST,0))  P2F S STP NT=$P(^DIC (5,ST,0),U ,1)
  185    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
  186    G P2F
  187   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
  188   CLAIMF D C LMHF F SEX CHK="F","M ","TOT" D  CLMHD1F S  TYPE="" D  CL1F U PIO  W !!
  189    G PFEND
  190   CL1F S TYP E=$O(^TMP( $J,"CLAIMS ",TYPE)) Q :TYPE=""   S SEX=""
  191    S (GST)=0
  192   CL2F S SEX =$O(^TMP($ J,"CLAIMS" ,TYPE,SEX) ) G:SEX=""  CL1F
  193    I SEX'=SE XCHK G CL2 F
  194    I '$D(^TM P($J,"CLAI MS",TYPE,S EX)) G CL2 F
  195    S REC=^TM P($J,"CLAI MS",TYPE,S EX)
  196    S G1=$P(R EC,U,1),G2 =$P(REC,U, 2),G3=$P(R EC,U,3),G4 =$P(REC,U, 4)
  197    S G5=$P(R EC,U,5),G6 =$P(REC,U, 6),G7=$P(R EC,U,7)
  198    S GST=G1+ G2+G3+G4+G 5
  199    S PTYPE=$ S(TYPE="CI TI":"CITI  CLAIMS",TY PE="OHI":" OHI CLAIMS ",TYPE="TO TAL":"CLAI MS PAID",1 :" ")
  200    U PIO W ! ,PTYPE_T_G 1_T_G2_T_G 3_T_G4_T_G 5_T_GST
  201    G CL2F
  202   SFHEAD U P IO W !," " _T_"HEALTH  ADMINISTR ATION CENT ER"
  203    S TITLE=" BENEFICIAR Y STATISTI CS FY01"
  204    S TAB=((7 1-$L(TITLE ))/2)+6 U  PIO W !,"  "_T_TITLE_ T_T_T_T_T_ T_T_DATE
  205    S TITLE=" ELIGIBLE A CTIVE BENE FICIARIES  BY STATE"
  206    S TAB=((7 1-$L(TITLE ))/2)+6 U  PIO W !!,"  "_T_TITLE
  207    I SEX="F"  U PIO W ! ," "_T_"FE MALES"
  208    I SEX="M"  U PIO W ! ," "_T_"MA LES"
  209    I SEX="TO T" U PIO W  !," "_T_" MALES & FE MALES"
  210    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"
  211    Q
  212   CLMHF U PI O W !," "_ T_"HEALTH  ADMINISTRA TION CENTE R"
  213    S TITLE=" CLAIM BREA KOUT BY AG E GROUP"
  214    S TAB=((7 1-$L(TITLE ))/2)+6 U  PIO W !!!, " "_T_TITL E,!!
  215    Q
  216   CLMHD1F I  SEXCHK="F"  U PIO W ! ," "_T_"FE MALES"
  217    I SEXCHK= "M" U PIO  W !," "_T_ "MALES"
  218    I SEXCHK= "TOT" U PI O W !," "_ T_"TOTAL M ALES/FEMAL ES"
  219    U PIO W ! ,"CLAIM TY PE"_T_"UND ER 18"_T_" 19-25"_T_" 26-40"_T_" 41-64"_T_" OVER 64"_T _"TOTALS"
  220    Q
  221   PFEND K G1 ,G2,G3,G4, G5,G6,G7,G 8,G1T,G2T, G3T,G4T,G5 T,G6T,G7T, G8T,TITLE, TAB
  222    K SEXCHK, PG,GST,TYP E,ST,REC
  223    C PIO
  224    ;S X=$&ZL IB.%SUBMIT ("HAC_HFS$ :[SCR.0000 00]DEMO_CO PY.COM")
  225    S X=$ZF(- 1,"SUBMIT  HAC_HFS$:[ SCR.TEMP_F ILES]DEMO_ COPY.COM/P ARAM=("_PI O_")")  ;  tlh 101405
  226    Q