64. EPMO Open Source Coordination Office Redaction File Detail Report

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

64.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLCR79B.m Mon Nov 5 16:39:00 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLCR79B.m Mon Nov 5 17:41:45 2018 UTC

64.2 Comparison summary

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

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

64.4 Active regular expressions

No regular expressions were active.

64.5 Comparison detail

  1   CHLCR79B ; AHJ/DEN;MI LLIMAN BEN EFICIARY A ND CLAIMS  REPORT TO  FS3BIG
  2    ;V1.0
  3    ; DEF0287 72 RFE 07/ 25/17 Cut  lines to b e under 25 5 position s long
  4    ;Added cu tting envi ronment to  3 chars,  otherwise  the file n ames were  too long -  YG
  5    ;001 OLD  ROUTINE NA ME WAS ZAL CR79B
  6    S U="^"
  7    ; RFE 07/ 25/17 DEF0 28772 Cut  following  line into  2  
  8    ;INPUT =  ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ) ^CHMZHOL D($J,"MILL IMAN_SPONS OR") ^CHMZ HOLD($J,"M ILLIMAN_BE NE") ^CHMZ HOLD($J,"M ILLIMAN_OH I") ^CHMZH OLD($J,"MI LLIMAN_OPT _DX") ^CHM ZHOLD($J," MILLIMAN_O PT_PROC")   
  9       ; ^CHM ZHOLD($J," MILLIMAN_I NP_DX") ^C HMZHOLD($J ,"MILLIMAN _INP_PROC" ) ^CHMZHOL D($J,"MILL IMAN_RX")   FROM CHLC R79Z ;TLH  3/27/09 DE V006956
  10    ;OUTPUT =  FS3BIG BE NEFICIARY  FILE
  11   B1 ;
  12    X ^%ZOSF( "UCI") S C HUCI=$E($P (Y,",",1), 1,3)    ;F ilename is sue fix
  13           S  PSDT=$$FMT E^XLFDT(ST DATE,"5D")
  14           S  PSDT=$P(PS DT,"/",1)_ $P(PSDT,"/ ",2)_$P(PS DT,"/",3)
  15           S  PEDT=$$FMT E^XLFDT(ED DATE,"5D")
  16           S  PEDT=$P(PE DT,"/",1)_ $P(PEDT,"/ ",2)_$P(PE DT,"/",3)
  17           I  CHUCI="HAC " S BFIO=" HAC_HFS$:[ SCR.TEMP_F ILES]MILLI MAN_BENE_" _PSDT_"to" _PEDT_".TX T"  ;TLH 1 /20/09
  18           I  CHUCI="HAC " S SFIO=" HAC_HFS$:[ SCR.TEMP_F ILES]MILLI MAN_SPON_" _PSDT_"to" _PEDT_".TX T"  ;TLH 3 /29/09 DEV 006956
  19           I  CHUCI="HAC " S OFIO=" HAC_HFS$:[ SCR.TEMP_F ILES]MILLI MAN_OHI_"_ PSDT_"to"_ PEDT_".TXT "  ;TLH 3/ 29/09 DEV0 06956
  20           I  CHUCI'="HA C" S BFIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ CHUCI_"_MI LLIMAN_BEN E_"_PSDT_" to"_PEDT_" .TXT"  ;TL H 1/20/09
  21           I  CHUCI'="HA C" S SFIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ CHUCI_"_MI LLIMAN_SPO N_"_PSDT_" to"_PEDT_" .TXT"  ;TL H 3/29/09  DEV006956
  22           I  CHUCI'="HA C" S OFIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ CHUCI_"_MI LLIMAN_OHI _"_PSDT_"t o"_PEDT_". TXT"  ;TLH  3/29/09 D EV006956
  23             ;S FIO="HA CFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]MILLIMAN_ BENE_"_PSD T_"to"_PED T_".TXT"
  24           O  BFIO O SFI O O OFIO C  BFIO:"D"  C SFIO:"D"  C OFIO:"D
  25           O  BFIO:"NWS"  O SFIO:"N WS" O OFIO :"NWS"
  26           S  (SCNT,BCNT ,OCNT)=0
  27           D  SHEAD
  28           D  BHEAD
  29           D  OHEAD
  30           S  NAME=0
  31           S  NUM="",SFL G=0,ODFN=0
  32   B15 S NUM= $O(^CHMZHO LD($J,"JPN BENE",NUM) ) G:NUM=""  SEND
  33           S  DFN=0
  34   B16 S DFN= $O(^CHMZHO LD($J,"JPN BENE",NUM, DFN)) G:DF N="" B15
  35           I  ODFN'=DFN  S SFLG=1
  36           S  BFLG=0,BFN =0
  37   B2 ;
  38           S  BFN=$O(^CH MZHOLD($J, "JPNBENE", NUM,DFN,BF N)) G:BFN= "" B16
  39           S  BFLG=1
  40           S  ZNUM=0
  41   B3 ;
  42           S  ZNUM=$O(^C HMZHOLD($J ,"JPNBENE" ,NUM,DFN,B FN,ZNUM))  G:'ZNUM B2
  43           ;
  44   B4 ;
  45           ;S  DFN=$P(^C HMZHOLD($J ,"JPNBENE" ,NUM,DFN,B FN,ZNUM)," ^",1)
  46           S  SPONSSN=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",2)
  47           S  SPONEAR=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",3)
  48           S  SPONPT=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",4)
  49           S  SPONDOB=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",5)
  50           S  SPONGEN=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",6)
  51           S  SPONDOD=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",7)
  52           S  SPONCOA=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",8)
  53           S  SPONZIP=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",9)
  54           ;  BFN=$P(^CH MZHOLD($J, "JPNBENE", NUM,DFN,BF N,ZNUM),"^ ",10)
  55           S  BENSSN=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",11)
  56           S  BENEAS=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",12)
  57           S  BENDOB=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",13)
  58           S  BENGEN=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",14)
  59           S  BENREL=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",15)
  60           S  BENCLDR=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",16)
  61           S  BENHELP=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",17)
  62           S  BENDOD=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",18)
  63           S  BENCOA=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",19)
  64           S  BENZIP=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",20)
  65           S  BENSTAT=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",21)
  66           S  BENAPP=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",22)
  67           S  BENOHI=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",23)
  68           S  BENELIG=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",24)
  69           S  BENEND=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",25)
  70           S  BENIREA=$P (^CHMZHOLD ($J,"JPNBE NE",NUM,DF N,BFN,ZNUM ),"^",26)
  71           S  BEGOHI=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",27)
  72           S  ENDOHI=$P( ^CHMZHOLD( $J,"JPNBEN E",NUM,DFN ,BFN,ZNUM) ,"^",28)
  73           S  SDATA=DFN_ "^"_SPONSS N_"^"_SPON EAR_"^"_SP ONPT_"^"_S PONDOB_"^" _SPONDOD_" ^"_SPONGEN _"^"_SPONZ IP_"^"_SPO NCOA
  74           I  SFLG=1 D 
  75           .U  SFIO W !, SDATA    
  76           .S  SCNT=SCNT +1
  77           .S  SFLG=0,OD FN=DFN
  78           .Q
  79           S  BDATA=DFN_ "^"_DFN_"- "_BFN_"^"_ BENSSN_"^" _BENDOB_"^ "_BENDOD_" ^"_BENGEN_ "^"_BENZIP _"^"_BENST AT_"^"_BEN COA_"^"_BE NREL_"^"_B ENCLDR_"^" _BENHELP_" ^"_BENAPP_ "^"_BENEAS _"^"_BENEL IG_"^"_BEN END_"^"_BE NIREA  ;TL H DEV00768 3 changed  "*" to a " -"
  80           I  BFLG=1 D 
  81           .U  BFIO W !, BDATA
  82           .S  BCNT=BCNT +1
  83           .S  BFLG=0
  84           .Q
  85    S ODATA=D FN_"-"_BFN _"^"_BENOH I_"^"_BEGO HI_"^"_END OHI  ;TLH  DEV007683  changed "* " to a "-"
  86    U OFIO W  !,ODATA
  87    S OCNT=OC NT+1
  88           G  B3
  89   SHEAD ; WR ITES OUT S PONSOR HEA DER
  90           S  PSDATE=$$F MTE^XLFDT( STDATE,"5D ")
  91           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  92           S  TITLE="SPO NSOR DATA  COLLECTED  FROM "_PSD ATE_" TO " _PEDATE
  93           U  SFIO W !!, TITLE 
  94           S  SHEAD="SPO N ID^SPON  SSN^ELIG R EASON^P&T  DATE^SPON  DOB^SPON D OD^SPON GE ND^SPON ZI P^SPON COU NTRY"
  95           U  SFIO W !!, SHEAD
  96           Q
  97   SEND; 
  98           U  SFIO W !!, "TOTAL SPO NSOR COUNT   =  ",SCN T
  99           U  BFIO W !!, "TOTAL BEN EFICIARY C OUNT = ",B CNT
  100           U  OFIO W !!, "TOTAL OHI  COUNT = " ,OCNT
  101           C  SFIO C BFI O C OFIO
  102    X ^%ZOSF( "UCI") S C HUCI=$E($P (Y,",",1), 1,3) ;File name issue  fix
  103    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _SFIO_")")  
  104    H 30 
  105    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _BFIO_")")
  106    H 30 
  107           I  CHUCI="HAC " S X=$ZF( -1,"SUBMIT  HAC_HFS$: [SCR.TEMP_ FILES]REC_ COPY.COM/P ARAM=("_OF IO_")")
  108           H  30 
  109           Q
  110   BHEAD ; WR ITES OUT B ENE HEADER  
  111           S  PSDATE=$$F MTE^XLFDT( STDATE,"5D ")
  112           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  113           S  TITLE="BEN EFICIARY D ATA COLLEC TED FROM " _PSDATE_"  TO "_PEDAT E
  114           U  BFIO W !!, TITLE 
  115           S  BHEAD="SPO N ID^BENE  ID^BENE SS N^BENE DOB ^BENE DOD^ BENE GEND^ BENE ZIP^B ENE STATE^ BENE COUNT RY^BENE RE LATION^CHI LD TYPE^HE LPLESS?^AP PLY DATE^E LIG STATUS ^ELIG STAR T^ELIG END ^REASON IN ELIG"
  116           U  BFIO W !!, BHEAD
  117           Q
  118   OHEAD  ;WR ITES OUT O HI HEADER 
  119    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  120           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  121           S  TITLE="BEN E OHI DATA  COLLECTED  FROM "_PS DATE_" TO  "_PEDATE
  122           U  OFIO W !!, TITLE        
  123           S  OHEAD="BEN E ID^OHI T YPE^OHI ST ART^OHI EN D"
  124           U  OFIO W !!, OHEAD
  125           Q 
  126           ;C LAIMS DATA  COLLECTIO N FOR MILL IMAN REPOR T DEV00605 8 TLH 12/1 0/08 
  127   C1 X ^%ZOS F("UCI") S  CHUCI=$E( $P(Y,",",1 ),1,3) ;Fi lename iss ue fix
  128    S PSDT=$$ FMTE^XLFDT (STDATE,"5 D")
  129    S PSDT=$P (PSDT,"/", 1)_$P(PSDT ,"/",2)_$P (PSDT,"/", 3)
  130           S  PEDT=$$FMT E^XLFDT(ED DATE,"5D")
  131           S  PEDT=$P(PE DT,"/",1)_ $P(PEDT,"/ ",2)_$P(PE DT,"/",3)
  132    I CHUCI=" HAC" S CFI O="HAC_HFS $:[SCR.TEM P_FILES]MI LLIMAN_CLA IMS_"_PSDT _"to"_PEDT _".TXT" 
  133    I CHUCI=" HAC" S ODF IO="HAC_HF S$:[SCR.TE MP_FILES]M ILLIMAN_OP T_DX_"_PSD T_"to"_PED T_".TXT" 
  134    I CHUCI=" HAC" S OPF IO="HAC_HF S$:[SCR.TE MP_FILES]M ILLIMAN_OP T_PROC_"_P SDT_"to"_P EDT_".TXT"  
  135    I CHUCI=" HAC" S IDF IO="HAC_HF S$:[SCR.TE MP_FILES]M ILLIMAN_IN P_DX_"_PSD T_"to"_PED T_".TXT" 
  136    I CHUCI=" HAC" S IPF IO="HAC_HF S$:[SCR.TE MP_FILES]M ILLIMAN_IN P_PROC_"_P SDT_"to"_P EDT_".TXT"  
  137    I CHUCI=" HAC" S PFI O="HAC_HFS $:[SCR.TEM P_FILES]MI LLIMAN_PHA RM_"_PSDT_ "to"_PEDT_ ".TXT" 
  138    I CHUCI=" HAC" S DND FIO="HAC_H FS$:[SCR.T EMP_FILES] MILLIMAN_D EN_DX_"_PS DT_"to"_PE DT_".TXT" 
  139    I CHUCI=" HAC" S DNP FIO="HAC_H FS$:[SCR.T EMP_FILES] MILLIMAN_D EN_PROC_"_ PSDT_"to"_ PEDT_".TXT
  140    I CHUCI=" HAC" S DMD FIO="HAC_H FS$:[SCR.T EMP_FILES] MILLIMAN_D ME-DX_"_PS DT_"to"_PE DT_".TXT"
  141    I CHUCI=" HAC" S DMS FIO="HAC_H FS$:[SCR.T EMP_FILES] MILLIMAN_D ME-SUPPLY_ "_PSDT_"to "_PEDT_".T XT" 
  142    I CHUCI'= "HAC" S CF IO="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_CHUCI_" _MILLIMAN_ CLAIMS_"_P SDT_"to"_P EDT_".TXT"
  143    I CHUCI'= "HAC" S OD FIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_CHUCI_ "_MILLIMAN _OPT_DX_"_ PSDT_"to"_ PEDT_".TXT "
  144    I CHUCI'= "HAC" S OP FIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_CHUCI_ "_MILLIMAN _OPT_PROC_ "_PSDT_"to "_PEDT_".T XT"
  145    I CHUCI'= "HAC" S ID FIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_CHUCI_ "_MILLIMAN _INP_DX_"_ PSDT_"to"_ PEDT_".TXT "
  146    I CHUCI'= "HAC" S IP FIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_CHUCI_ "_MILLIMAN _INP_PROC_ "_PSDT_"to "_PEDT_".T XT"
  147    I CHUCI'= "HAC" S PF IO="HAC_HF S$:[DSMMAN AG.CHAMPVA ]"_CHUCI_" _MILLIMAN_ PHARM_"_PS DT_"to"_PE DT_".TXT"
  148    I CHUCI'= "HAC" S DN DFIO="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_CHUCI _"_MILLIMA N_DEN_DX_" _PSDT_"to" _PEDT_".TX T"
  149    I CHUCI'= "HAC" S DN PFIO="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_CHUCI _"_MILLIMA N_DEN_PROC _"_PSDT_"t o"_PEDT_". TXT"
  150    I CHUCI'= "HAC" S DM DFIO="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_CHUCI _"_MILLIMA N_DME-DX_" _PSDT_"to" _PEDT_".TX T"
  151    I CHUCI'= "HAC" S DM SFIO="HAC_ HFS$:[DSMM ANAG.CHAMP VA]"_CHUCI _"_MILLIMA N_DME-SUPP _"_PSDT_"t o"_PEDT_". TXT" ;File name issue  fix
  152    O CFIO O  ODFIO O OP FIO O IDFI O O IPFIO  O PFIO O D NDFIO O DN PFIO O DMD FIO O DMSF IO 
  153    C CFIO:"D "  C ODFIO :"D" C OPF IO:"D" C I DFIO:"D" C  IPFIO:"D"  C PFIO:"D " C DNDFIO :"D" C DNP FIO:"D" C  DMDFIO:"D"  C DMSFIO: "D"
  154           O  CFIO:"NWS"  O ODFIO:" NWS" O OPF IO:"NWS" O  IDFIO:"NW S" O IPFIO :"NWS" O P FIO:"NWS"  O DNDFIO:" NWS" O DNP FIO:"NWS"  O DMDFIO:" NWS" O DMS FIO:"NWS"
  155           S  (CLMCNT,OD CNT,OPCNT, IDCNT,IPCN T,PCNT,DND CNT,DNPCNT ,DMDCNT,DM SCNT)=0 
  156           D  CHEAD
  157           D  ODHEAD
  158           D  OPHEAD
  159           D  IDHEAD
  160           D  IPHEAD
  161           D  PHEAD
  162           D  DNDHEAD
  163           D  DNPHEAD
  164           D  DMDHEAD
  165           D  DMSHEAD
  166           S  DFN=0  
  167   C1A S DFN= $O(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN))  G:'DFN END 2
  168    S BFN=0
  169   C1B S BFN= $O(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N)) G:'BFN  C1A
  170    S CLMCI=0
  171   C2      S  CLMCI=$O(^ CHMZHOLD($ J,"MILLIMA N_CLAIMS", DFN,BFN,CL MCI)) G:'C LMCI C1B
  172           S  CLMNUM=$P( ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ,DFN,BFN,C LMCI),"^", 1)
  173           S  BSSN=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",2)
  174           S  CLMCREDT=$ P(^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI),"^ ",3)
  175           S  TYPE=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",4)
  176           S  CLMCMPDT=$ P(^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI),"^ ",5)
  177           S  STATUS=$P( ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ,DFN,BFN,C LMCI),"^", 6)
  178           S  SRVCDT=$P( ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ,DFN,BFN,C LMCI),"^", 7)
  179           S  DISDT=$P(^ CHMZHOLD($ J,"MILLIMA N_CLAIMS", DFN,BFN,CL MCI),"^",8 )
  180           S  DRG=$P(^CH MZHOLD($J, "MILLIMAN_ CLAIMS",DF N,BFN,CLMC I),"^",9)
  181           S  INSTAYOUT= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",10)
  182           S  VPCN=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",11 )
  183           S  VENTAXID=$ P(^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI),"^ ",12)
  184           S  POS=$P(^CH MZHOLD($J, "MILLIMAN_ CLAIMS",DF N,BFN,CLMC I),"^",13)
  185           S  DESC=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",14 )
  186           S  TOTCHGPD=$ P(^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI),"^ ",15)
  187           S  TOTALLAMT= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",16)
  188           S  TOTOHIPMT= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",17)
  189           S  AMTBENEPD= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",18)
  190           S  DEDMETIND= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",19)
  191           S  CATMETIND= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",20)
  192           S  AMTPAID=$P (^CHMZHOLD ($J,"MILLI MAN_CLAIMS ",DFN,BFN, CLMCI),"^" ,21)
  193           S  ASSBENIND= $P(^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI)," ^",22)
  194           S  CTYP=$P(^C HMZHOLD($J ,"MILLIMAN _CLAIMS",D FN,BFN,CLM CI),"^",23 )
  195           ;  RFE 07/25/ 17 DEF0287 72 Cut fol lowing lin e into 2
  196       S CDAT A=CLMNUM_" ^"_DFN_"-" _BFN_"^"_C LMCREDT_"^ "_TYPE_"^" _CLMCMPDT_ "^"_STATUS _"^"_SRVCD T_"^"_DISD T_"^"_DRG_ "^"_INSTAY OUT_"^"_VP CN_"^"_VEN TAXID_"^"_ POS_"^"_DE SC_"^"_TOT CHGPD_"^"
  197       S CDAT A=CDATA_TO TALLAMT_"^ "_TOTOHIPM T_"^"_AMTB ENEPD_"^"_ DEDMETIND_ "^"_CATMET IND_"^"_AM TPAID
  198       S CDAT A=CDATA_"^ "_ASSBENIN D_"^"_CTYP   ;TLH DEV 007683 cha nged "*" t o a "-"
  199    U CFIO W  !,CDATA
  200    S CLMCNT= CLMCNT+1
  201    S CHDES=" "
  202   C3 S CHDES =$O(^CHMZH OLD($J,"MI LLIMAN_CLA IMS",DFN,B FN,CLMCI,C HDES)) G:C HDES="" C2
  203    I CHDES=" OPT-DX" S  FIO2=ODFIO
  204    I CHDES=" OPT-PROC"  S FIO2=OPF IO
  205    I CHDES=" INP-DX" S  FIO2=IDFIO
  206    I CHDES=" INP-PROC"  S FIO2=IPF IO
  207    I CHDES=" PHARM" S F IO2=PFIO
  208    I CHDES=" DME_DX" S  FIO2=DMDFI O
  209    I CHDES=" DME-SUPPLY " S FIO2=D MSFIO
  210    I CHDES=" DEN-DX" S  FIO2=DNDFI O
  211    I CHDES=" DEN-PROC"  S FIO2=DNP FIO
  212    S J=0
  213   C4 S J=$O( ^CHMZHOLD( $J,"MILLIM AN_CLAIMS" ,DFN,BFN,C LMCI,CHDES ,J)) G:'J  C3
  214    I CHDES[" DX" S DATA 3=^CHMZHOL D($J,"MILL IMAN_CLAIM S",DFN,BFN ,CLMCI,CHD ES,J)_"^"_ J
  215    I CHDES'[ "DX" S DAT A3=^CHMZHO LD($J,"MIL LIMAN_CLAI MS",DFN,BF N,CLMCI,CH DES,J)
  216    U FIO2 W  !,DATA3
  217    I CHDES=" OPT-DX" S  ODCNT=ODCN T+1
  218    I CHDES=" OPT-PROC"  S OPCNT=OP CNT+1
  219    I CHDES=" INP-DX" S  IDCNT=IDCN T+1
  220    I CHDES=" INP-PROC"  S IPCNT=IP CNT+1
  221    I CHDES=" PHARM" S P CNT=PCNT+1
  222    I CHDES=" DME_DX" S  DMDCNT=DMD CNT+1
  223    I CHDES=" DME-SUPPLY " S DMSCNT =DMSCNT+1
  224    I CHDES=" DEN-DX" S  DNDCNT=DND CNT+1
  225    I CHDES=" DEN-PROC"  S DNPCNT=D NPCNT+1
  226    G C4
  227   CHEAD ;WRI TES OUT CL AIM HEADER  
  228    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  229           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  230    S TITLE2= "CLAIM DAT A COLLECTE D FROM "_P SDATE_" TO  "_PEDATE
  231           U  CFIO W !,T ITLE2
  232           ;  RFE 07/25/ 17 DEF0287 72 Cut fol lowing lin e into 2  
  233       S CHEA D="CLAIM N UM^SPON_BE NE ID^CREA TE DATE^CL AIM TYPE^C OMPLETE DA TE^CLAIM S TATUS^DATE  OF SERV^D ISCHARGE D ATE^DRG^IN PAT OUTLIE R PAY^VEND OR PCN^TAX  ID^POS^DE SC^TOT AMT  CHARGED^T OT ALL AMT ^TOT OHI P AMT^AMT BE NE PAID^DE D MET FLG^ CAT CAP ME T FLG"
  234       S CHEA D=CHEAD_"^ AMT PAID O N CLAIM^AS SGN BENEFI TS^CTYPE"
  235    U CFIO W  !!,CHEAD
  236    Q
  237   ODHEAD ; W RITES OUT  OPT-DX HEA DER 
  238    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  239           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  240    S TITLE2= "OUTPATIEN T DIAGNOSI S CLAIM DA TA COLLECT ED FROM "_ PSDATE_" T O "_PEDATE
  241           U  ODFIO W !, TITLE2 
  242           S  ODHEAD="CL AIM NUM^OP T DIAG COD E^OPT DIAG  ORDER"
  243           U  ODFIO W !! ,ODHEAD
  244           Q 
  245   OPHEAD  ;W RITES OUT  OPT-PROC H EADER 
  246    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  247           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  248    S TITLE2= "OUTPATIEN T PROCEDUR E CLAIM DA TA COLLECT ED FROM "_ PSDATE_" T O "_PEDATE
  249           U  OPFIO W !, TITLE2 
  250           S  OPHEAD="CL AIM NUM^PR OC CODE^BI LL AMT^ALL OW AMT"
  251           U  OPFIO W !! ,OPHEAD
  252           Q 
  253   IDHEAD  ;W RITES OUT  INP-DX HEA DER 
  254    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  255           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  256    S TITLE2= "INPATIENT  DIAGNOSIS  CLAIM DAT A COLLECTE D FROM "_P SDATE_" TO  "_PEDATE
  257           U  IDFIO W !, TITLE2 
  258           S  IDHEAD="CL AIM NUM^IN P DIAG COD E^INP DIAG  ORDER"
  259           U  IDFIO W !! ,IDHEAD
  260           Q 
  261   IPHEAD  ;W RITES OUT  INP-PROC H EADER 
  262    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  263           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  264    S TITLE2= "INPATIENT  PROCEDURE  CLAIM DAT A COLLECTE D FROM "_P SDATE_" TO  "_PEDATE
  265           U  IPFIO W !, TITLE2
  266           S  IPHEAD="CL AIM NUM^PR OC CODE^BI LL AMT^ALL OW AMT"
  267           U  IPFIO W !! ,IPHEAD
  268           Q
  269   PHEAD  ; W RITES OUT  PHARMACY H EADER 
  270    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  271           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  272    S TITLE2= "PHARMACY  CLAIM DATA  COLLECTED  FROM "_PS DATE_" TO  "_PEDATE
  273           U  PFIO W !,T ITLE2
  274           S  PHEAD="CLA IM NUM^NDC ^BILL AMT^ ALLOW AMT"
  275           U  PFIO W !!, PHEAD
  276           Q 
  277   DNDHEAD  ; WRITES OUT  DEN-DX HE ADER 
  278    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  279           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  280    S TITLE2= "DENTAL DI AGNOSIS CL AIM DATA C OLLECTED F ROM "_PSDA TE_" TO "_ PEDATE
  281           U  DNDFIO W ! ,TITLE2
  282           S  DNDHEAD="C LAIM NUM^D EN DIAG CO DE^DEN DIA G ORDER"
  283           U  DNDFIO W ! !,DNDHEAD
  284           Q
  285   DNPHEAD  ; WRITES OUT  DEN-PROC  HEADER 
  286    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  287           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  288    S TITLE2= "DENTAL PR OCEDURE CL AIM DATA C OLLECTED F ROM "_PSDA TE_" TO "_ PEDATE
  289           U  DNPFIO W ! ,TITLE2
  290           S  DNPHEAD="C LAIM NUM^P ROC CODE^B ILL AMT^AL LOW AMT"
  291           U  DNPFIO W ! !,DNPHEAD
  292           Q 
  293   DMDHEAD  ; WRITES OUT  DURABLE M EDICAL DIA GNOSIS HEA DER
  294    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  295           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  296    S TITLE2= "DURABLE M EDICAL DIA GNOSIS CLA IM DATA CO LLECTED FR OM "_PSDAT E_" TO "_P EDATE
  297           U  DMDFIO W ! ,TITLE2 
  298           S  DMDHEAD="C LAIM NUM^D ME DIAG CO DE^DME DIA G ORDER"
  299           U  DMDFIO W ! !,DMDHEAD
  300           Q 
  301   DMSHEAD  ; WRITES OUT  DURABLE M EDICAL SUP PLY HEADER  
  302    S PSDATE= $$FMTE^XLF DT(STDATE, "5D")
  303           S  PEDATE=$$F MTE^XLFDT( EDDATE,"5D ")
  304    S TITLE2= "DURABLE M EDICARE SU PPLY CLAIM  DATA COLL ECTED FROM  "_PSDATE_ " TO "_PED ATE
  305           U  DMSFIO W ! ,TITLE2
  306           S  DMSHEAD="C LAIM NUM^S UPPLY CODE ^BILL AMT^ ALLOW AMT"
  307           U  DMSFIO W ! !,DMSHEAD
  308           Q 
  309   END2 ;
  310           U  CFIO W !!, "TOTAL CLA IMS COUNT   =  ",CLMC NT
  311           U  ODFIO W !! ,"TOTAL OP T-DX COUNT  = ",ODCNT
  312           U  OPFIO W !! ,"TOTAL OP T-PROC COU NT = ",OPC NT
  313           U  IDFIO W !! ,"TOTAL IN P-DX COUNT  = ",IDCNT
  314           U  IPFIO W !! ,"TOTAL IN P-PROC COU NT = ",IPC NT
  315           U  PFIO W !!, "TOTAL PHA RM COUNT =  ",PCNT
  316           U  DNDFIO W ! !,"TOTAL D EN-DX COUN T = ",DNDC NT
  317           U  DNPFIO W ! !,"TOTAL D EN-PROC CO UNT = ",DN PCNT
  318           U  DMDFIO W ! !,"TOTAL D ME-DX COUN T = ",DMDC NT
  319           U  DMSFIO W ! !,"TOTAL D ME-SUPPLY  COUNT = ", DMSCNT
  320           C  CFIO C ODF IO C OPFIO  C IDFIO C  IPFIO C P FIO C DNDF IO C DNPFI O C DMDFIO  C DMSFIO
  321           X  ^%ZOSF("UC I") S CHUC I=$E($P(Y, ",",1),1,3 ) ;Filenam e issue fi x
  322    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _CFIO_")")  H 30 
  323    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _ODFIO_")" ) H 30
  324    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _OPFIO_")" ) H 30 
  325    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _IDFIO_")" ) H 30
  326    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _IPFIO_")" ) H 30
  327    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _PFIO_")")  H 30
  328    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _DNDFIO_") ") H 30
  329    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _DNPFIO_") ") H 30
  330    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _DMDFIO_") ") H 30
  331    I CHUCI=" HAC" S X=$ ZF(-1,"SUB MIT HAC_HF S$:[SCR.TE MP_FILES]R EC_COPY.CO M/PARAM=(" _DMSFIO_") ") H 30
  332           Q
  333    
  334           
  335