122. EPMO Open Source Coordination Office Redaction File Detail Report

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

122.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKCCA.m Mon Nov 5 16:39:03 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMKCCA.m Mon Nov 5 17:48:40 2018 UTC

122.2 Comparison summary

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

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

122.4 Active regular expressions

No regular expressions were active.

122.5 Comparison detail

  1   CHMKCCA ;H AC/JAK; Al l Claims R eport ;11/ 23/2009
  2    ;;1.0;CHA MPVA SYSTE M;;January  20, 2010; Build 1
  3    ;;
  4   START ;
  5    K ACR1,^C HMZHOLD($J ,"ACR")
  6    S:'$D(DUZ ) DUZ=1,DU Z(0)=""    ; duz init alizer
  7    D NOW^%DT C S TODAY= X,TIME=$P( %,".",2)    ; date in itializer
  8    S ICODE=0 ,VWOPT=""
  9    D PTYPE
  10    I PFLG=1  D
  11       .I "Pp "[VWOPT W  !!!,"Pleas e select a  wide prin ter.",!  D  PTSK
  12    .I "Ff"[V WOPT D FTS K
  13       Q
  14   PTSK ; que ueing prin ting task  using Task man
  15    S %ZIS="N Q",IOP="Q"  D ^%ZIS G :POP END
  16    I ION'["/ W" W !!,"T HIS REPORT  REQUIRES  A WIDE PRI NTER SELEC TION." G P TSK   ;CHV DEV$PRT/W
  17       I $D(I O("Q")) D   Q ;Queued  print cho sen
  18       .S ZUS R=DUZ,ZTDE SC="ALL CL AIMS REPOR T"
  19       .S ZTS AVE("CHFIO ")=ION,ZTR TN="GTCLMS ^CHMKCCA"
  20       .S ZTS AVE("*")=" "
  21       .D ^%Z TLOAD
  22       .D HOM E^%ZIS
  23       .Q
  24   FTSK ; cre ating file  for the s erver FS3B IG
  25    S ION=""
  26    X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1)
  27    S FILE="A llClaimsRe port_"_DUZ _"_"_$E(TO DAY,2,7)_" _"_TIME_". xls"
  28    I CHUCI=" HAC" D
  29    .S ACR1=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .REPORTS.A LL_CLAIMS] "_FILE
  30    .W !,"DAT A WILL BE  WRITTEN TO  [FS3BIG\R EPORTS\ALL _CLAIMS] " _FILE
  31    E  D
  32    .S ACR1=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .REPORTS.A LL_CLAIMS] "_"TEST_"_ FILE
  33    .W !,"THI S TEST DAT A WILL BE  WRITTEN TO  [FS3BIG\R EPORTS\ALL _CLAIMS] " _"TEST_"_F ILE
  34       S CHFI O=""
  35    S ZTRTN=" GTCLMS^CHM KCCA",ZTDE SC="ALL CL AIMS REPOR T"
  36    S ZTDTH=$ H S ZTIO=" "
  37    S ZTSAVE( "ACR1")="" ,ZTSAVE("C HFIO")="", ZTSAVE("*" )=""
  38       D ^%ZT LOAD
  39    ;D GTCLMS ^CHMKCCA    ; FOR TES TING/DEBUG GER
  40    D HOME^%Z IS
  41       Q
  42   GTCLMS ;ge t claims f iltered fo r report
  43    D INIT
  44    S PDI=STR PDI F  S P DI=$O(^CHM IMAGE("B", PDI)) Q:'P DI!(PDI>TD YPDI)  D
  45    .S I=0 S  I=$O(^CHMP AY("C",PDI ,I)) Q:'I   Q:'$D(^CH MPAY(I,0))
  46       .S X1= I D PROGTY P^CHFCD001  ; program  type
  47    .S SVT=$P (^CHMPAY(I ,0),"^",7)      ; typ e of claim
  48    .S STT=$P (^CHMPAY(I ,0),"^",2)      ; cla im status
  49       .S STA RT=$P(^CHM PAY(I,0)," ^",8)   ;  start date
  50    .I (SVT=1 ) D 
  51    ..S STOP= $P(^CHMPAY (I,"INP"), "^",1)
  52    .E  D
  53    ..S STOP= ""
  54       .I (PT YP=CHPGPT! ((PTYP="AL L")&(AP[CH PGPT_",")) ) D   ; re quired fie ld
  55       ..S PR OGRAM=$S(C HPGPT=1:"C HAMPVA",CH PGPT=3:"FO REIGN",CHP GPT=5:"NON -VA",CHPGP T=6:"SPINA ",CHPGPT=7 :"CWVV")
  56       ..I (S VTYP=SVT!( SVTYP="ALL ")) D   ;  required f ield
  57    ...S SERV ICE=$S(SVT =1:"IPT",S VT=2:"OPT" ,SVT=3:"RX T",SVT=4:" DME",SVT=5 :"DNT",SVT =6:"TRV")
  58       ...I ( STTYP=STT! (STTYP="AL L")) D   ;  optional  fields
  59       ....S  STATUS=$S( STT=0:"REJ ECTED",STT =1:"IN PRO G",STT=2:" PAY REQ",S TT=3:"EOB  REQ",STT=4 :"COMPLETE ",STT=5:"A DJUCATD",S TT=6:"PAY  REJ",STT=7 :"ADM SUSP ",STT=8:"P Y APRVD",S TT=9:"MANU AL",STT=10 :"DELETED" ,1:"")
  60    ....I (SV T'=1&(ISDT <=START&(S TART<=IEDT ))!(SVT=1& ((ISDT<=ST ART&(START <=IEDT))!( ISDT<=STOP &(STOP<=IE DT)))))  D
  61    .....D RJ ECT
  62    .....I RE JECT'="" D
  63       ...... S RCLMNO=$ P(^CHMPAY( I,0),"^",1 )   ; clai m number
  64    ......S S PONN=$P(^A HCHVA($P(^ CHMPAY(I,0 ),"^",21), 0),"^",1)    ; sponso r name
  65    ......S B ENEN=$P(^A HCHVA($P(^ CHMPAY(I,0 ),"^",21), 100,$P(^CH MPAY(I,0), "^",22),0) ,"^",1)    ; bene nam e
  66    ......D P RCD
  67    D CRFILES
  68    D END
  69       Q
  70   RJECT   ;; Obtain err or codes
  71    S REJECT= ""
  72       I ICOD E'=1 D
  73       .K IRE JCD
  74       .I $P( ^CHMPAY(I, 0),"^",13) '="" D
  75       ..S EF LG=1
  76    ..F IM=0: 1:$L(INFMS G,",") Q:E FLG=0  D
  77    ...I $P(I NFMSG,",", IM)=$P(^CH MPAY(I,0), "^",13) D   S EFLG=0
  78    ...E  D   S EFLG=1
  79       ...I E FLG=1 D  S  IREJCD($P (^CHMPAY(I ,0),"^",13 ))=""
  80       .S J=0  F  S J=$O (^CHMPAY(I ,4,J)) Q:' J  D
  81       ..I $P (^CHMPAY(I ,4,J,0),"^ ",1)'="" D
  82       ...S E FLG=1
  83       ...F I M=0:1:$L(I NFMSG,",")  Q:EFLG=0   D
  84       ....I  $P(INFMSG, ",",IM)=$P (^CHMPAY(I ,4,J,0),"^ ",1) D  S  EFLG=0
  85       ....E   D  S EFLG =1
  86       ...I E FLG=1 D  S  IREJCD($P (^CHMPAY(I ,4,J,0),"^ ",1))=""
  87       ; put  in order a nd ensure  reject cod e matches  record
  88    S E=0 F   S E=$O(IRE JCD(E)) Q: 'E  D
  89    .S J=0 F   S J=$O(^C HMPAY(I,4, J)) Q:'J   D
  90    ..I (E=($ P(^CHMPAY( I,4,J,0)," ^",1)))!(E =$P(^CHMPA Y(I,0),"^" ,13)) D
  91    ...I $P(R EJECT,",", $L(REJECT, ",")-1)'=E  D   ; rem ove duplic ate reject s
  92    ....S REJ ECT=REJECT _E_","
  93    S REJECT= $E(REJECT, 1,$L(REJEC T)-1)  ; r emove fina l comma
  94    Q
  95   PRCD ; pop ulate hold  area
  96    ;; increm ent counte r for CHMZ HOLD refer ence purpo ses
  97    S ACRCTR= ACRCTR+1
  98       S ^CHM ZHOLD($J," ACR",I)=RC LMNO_"^"_P DI_"^"_STA RT_"^"_STO P_"^"_BENE N_"^"_SPON N_"^"_PROG RAM_"^"_ST ATUS_"^"_S ERVICE_"^" _REJECT
  99    Q
  100   CRFILES ;  create out put for pr int or scr een
  101    S T=$C(9)  ;; TAB DE LIMITED
  102       D HSBH  ; print h eadings
  103       I ACRC TR>0  D
  104       .S C=0  F  S C=$O (^CHMZHOLD ($J,"ACR", C)) Q:'C   D
  105       ..S DA TA=^CHMZHO LD($J,"ACR ",C)
  106       ..S CN =$P(DATA," ^",1)
  107       ..S PD =$P(DATA," ^",2)
  108       ..S SR =$P(DATA," ^",3)
  109       ..S ST =$P(DATA," ^",4)
  110       ..S BE =$P(DATA," ^",5)
  111       ..S SP =$P(DATA," ^",6)
  112       ..S PR =$P(DATA," ^",7)
  113       ..S SU =$P(DATA," ^",8)
  114       ..S SV =$P(DATA," ^",9)
  115       ..S RJ =$P(DATA," ^",10)
  116       ..I "F f"[VWOPT D
  117       ...I S T="" D
  118       ....U  ACR1 W !,C N,T,PD,T,$ $FMTE^XLFD T(SR,"5D") ,T,BE,T,SP ,T,PR,T,SU ,T,SV,T,RJ
  119       ...E   D
  120       ....U  ACR1 W !,C N,T,PD,T,$ $FMTE^XLFD T(SR,"5D") ,"-",$$FMT E^XLFDT(ST ,"5D"),T,B E,T,SP,T,P R,T,SU,T,S V,T,RJ
  121       ..E  D
  122       ...D:L INENUM>=59  HSBH
  123       ...I S T="" D
  124       ....W  !,CN,?9,PD ,?26,$$FMT E^XLFDT(SR ,"5D"),?50 ,$E(BE,1,1 8),?70,$E( SP,1,18),? 88,PR,?97, SU,?107,SV ,?114,RJ
  125       ...E   D
  126       ....W  !,CN,?9,PD ,?26,$$FMT E^XLFDT(SR ,"5D"),"-" ,$$FMTE^XL FDT(ST,"5D "),?50,$E( BE,1,18),? 70,$E(SP,1 ,18),?88,P R,?97,SU,? 107,SV,?11 4,RJ
  127       ...S L INENUM=LIN ENUM+1
  128       E  W ! !!!!!,"NO  DATA MET S ELECTED CR ITERIA"
  129    Q 
  130   HSBH S PG= PG+1
  131    I "Ff"[VW OPT D
  132    .O ACR1:" WRNS":5 Q: $T=0
  133    .S TITLE= "HEALTH AD MINISTRATI ON CENTER"
  134    .U ACR1 W  !,DUZ,T,T ITLE,T,"Pa ge: ",PG   ;; display  date and  title
  135    .S TITLE= "ALL CLAIM S SUMMARY  REPORT"
  136    .U ACR1 W  !,$$FMTE^ XLFDT(TODA Y,"5D"),T, TITLE
  137    .S TITLE= "Report fo r "_$$FMTE ^XLFDT(ISD T,"5D")_"  to "_$$FMT E^XLFDT(IE DT,"5D")
  138    .U ACR1 W  !,$E(TIME ,1,2)_":"_ $E(TIME,3, 4),T,TITLE
  139    .U ACR1 W  !!!!!   ;  seperatio n of main  header and  subheader
  140    .U ACR1 W  "Claim #" ,T,"PDI",T ,"DOS",T," Bene Name" ,T,"Sponso r Name",T, "Program", T,"Status" ,T,"TOS",T ,"Reject R eason(s)"
  141    .U ACR1 W  !,"------ -",T,"---- ---------- -",T,"---- ---------- -------",T ,"-------- ---------- ",T,"----- ---------- -",T,"---- ---",T,"-- -----",T," ---",T,"-- ---------- ----"
  142    E  D
  143    .W @IOF
  144    .S TITLE= "HEALTH AD MINISTRATI ON CENTER"
  145    .W !,DUZ, ?(132-$L(T ITLE)/2),T ITLE,?120, "Page: ",P G
  146    .S TITLE= "ALL CLAIM S SUMMARY  REPORT"
  147    .W !,$$FM TE^XLFDT(T ODAY,"5D") ,?(132-$L( TITLE)/2), TITLE
  148    .S TITLE= "Report fo r "_$$FMTE ^XLFDT(ISD T,"5D")_"  to "_$$FMT E^XLFDT(IE DT,"5D")
  149    .W !,$E(T IME,1,2)_" :"_$E(TIME ,3,4),?(13 2-$L(TITLE )/2),TITLE
  150    .W !!!!!    ; sepera tion of ma in header  and subhea der
  151    .W "Claim  #",?9,"PD I",?26,"DO S",?50,"Be ne Name",? 70,"Sponso r Name",?8 8,"Program ",?97,"Sta tus",?107, "TOS",?114 ,"Reject R eason(s)"
  152    .W !,"--- ----",?9," ---------- -----",?26 ,"-------- ---------- ---",?50," ---------- --------", ?70,"----- ---------- -",?88,"-- -----",?97 ,"-------" ,?107,"--- ",?114,"-- ---------- ----"
  153    .S LINENU M=10
  154    Q
  155   INIT ; ini talize
  156    K ^CHMZHO LD($J,"ACR ") S ^CHMZ HOLD($J,"A CR")=$H
  157       S ACRC TR=0,PG=0, LINENUM=0    ; all cl aims accum ulator and  page coun ter and li nenum
  158       ; pdi  initialize r
  159       ;S STR 180=$$FMAD D^XLFDT(IS DT,-2) ; T ESTING
  160       ;S STP 180=$$FMAD D^XLFDT(IE DT,+2) ; T ESTING
  161       S STR1 80=$$FMADD ^XLFDT(ISD T,-180)    ;pdi six m onths prev ious
  162       S STP1 80=$$FMADD ^XLFDT(IED T,+180)    ;pdi six m onths futu re
  163    S STRPDI= "20"_$$FMJ UL^CHTFLIB (STR180)_" 00000000"    ; PDI st art 
  164    S TDYPDI= "20"_$$FMJ UL^CHTFLIB (STP180)_" 99999999"    ; PDI fi nish
  165    ; program  type tran slation
  166    S PTYP=$S (IPTYP=1:" ALL",IPTYP =2:1,IPTYP =3:5,IPTYP =4:6,IPTYP =5:3,IPTYP =6:7)
  167    S AP="1,3 ,5,6,7,"
  168    ; service  type tran slation
  169    S SVTYP=$ S(ISVTYP=1 :"ALL",ISV TYP=2:1,IS VTYP=3:2,I SVTYP=4:4, ISVTYP=5:5 ,ISVTYP=6: 6,ISVTYP=7 :3)
  170    ; status  type trans lation
  171    S STTYP=$ S(ISTTYP=1 :1,ISTTYP= 2:2,ISTTYP =3:3,ISTTY P=4:4,ISTT YP=5:5,IST TYP=6:6,IS TTYP=7:7,I STTYP=8:8, ISTTYP=9:9 ,ISTTYP=10 :10,ISTTYP =66:"ALL", ISTTYP="": "ALL")
  172    Q
  173   PTYPE  ;se t program  type
  174    S TITLE=" ALL CLAIMS  SUMMARY R EPORT"
  175    W !,?(80- $L(TITLE)/ 2),TITLE
  176    S DIR(0)= "S^1:ALL P ROGRAMS;2: CHAMPVA;3: NON-VA;4:S PINA BIFID A;5:FOREIG N MEDICAL; 6:CHILDREN  OF WOMEN  VIETNAM VE TERANS"
  177    S DIR("A" )="Enter t he program  type" D ^ DIR K DIR
  178    I $D(DUOU T)!$D(DIRO UT)!$D(DTO UT) S PFLG =0 Q
  179    S IPTYP=Y
  180    S PFLG=1
  181   SVTYPE ;se t the type  of servic e
  182    S DIR(0)= "S^1:ALL T YPES OF SE RVICE;2:IN PATIENT;3: OUTPATIENT ;4:DURABLE  MEDICAL E QUIPMENT;5 :DENTAL;6: TRAVEL;7:P HARMACY"
  183    S DIR("A" )="Enter t he service  type" D ^ DIR K DIR
  184    G:$D(DUOU T)!(Y="^^" ) PTYPE
  185    S ISVTYP= Y
  186   STTYPE ;se t the stat us type
  187    S DIR(0)= "SO^1:IN P ROCESS;2:P AYMENT REQ UESTED;3:E OB REQUEST ED;4:COMPL ETE;5:ADJU DICATED;6: PAYMENT RE JECTED CAP PS/CALM;7: ADMINISTRA TIVE SUSPE NSE;8:PAYM ENT APPROV ED CAPPS/C ALM;9:MANU ALLY PROCE SSED;10:DE LETED;66:A LL"
  188    S DIR("A" )="Enter t he status  type" D ^D IR K DIR
  189    G:$D(DUOU T) SVTYPE
  190    G:$D(DIRO UT) END
  191    S ISTTYP= Y
  192    S STTYP=$ S(ISTTYP=1 :1,ISTTYP= 2:2,ISTTYP =3:3,ISTTY P=4:4,ISTT YP=5:5,IST TYP=6:6,IS TTYP=7:7,I STTYP=8:8, ISTTYP=9:9 ,ISTTYP=10 :10,ISTTYP =66:"ALL", ISTTYP="": "ALL")
  193   SDOS   ;se t the star t date of  service
  194    S DIR(0)= "D" S DIR( "A")="Ente r the star t date ser vice perio d (MM/DD/Y Y)" D ^DIR  K DIR
  195    G:$D(DUOU T) STTYPE
  196    G:$D(DIRO UT) END
  197    S ISDT=Y
  198   EDOS   ;se t the end  date of se rvice
  199       S DIR( 0)="D^"_IS DT_":"_TOD AY_"" S DI R("A")="En ter the en d date ser vice perio d" S DIR(" B")=$$FMTE ^XLFDT(ISD T,"5D") D  ^DIR K DIR
  200    ;;S DIR(0 )="D^ISDT: TODAY:EX"
  201    G:$D(DUOU T) SDOS
  202    G:$D(DIRO UT) END
  203    S IEDT=Y
  204   CODE ;set  the reject  reason co de
  205       S INFM SG="319,32 2,352,353, 356,358,35 9,360,361, 368,371"
  206    S DIR(0)= "NO"
  207    S DIR("A" )="Enter t he reject  reason cod e(s)" D ^D IR K DIR
  208    G:$D(DUOU T) EDOS
  209    G:$D(DIRO UT) END
  210    G:Y="" VI EW
  211    I '$D(^CH MDIC(74100 2.22,Y)) W  !,"NOT A  VALID REJE CT REASON  CODE.  PLE ASE REENTE R" G CODE
  212    F IM=0:1: $L(INFMSG, ",") I $P( INFMSG,"," ,IM)=Y W ! ,"INFORMAT IONAL CODE  IS EXCLUD ED FROM RE PORT." G C ODE
  213    S IREJCD( Y)=""
  214    S ICODE=1
  215    G CODE
  216    W !
  217   VIEW ;dete rmine scre en display  or print  out
  218    S DIR(0)= "S^P:PRINT ;F:FILE"
  219    S DIR("A" )="Enter t he output  format (P) rint or (F )ile F//"  D ^DIR K D IR
  220    G:$D(DUOU T) CODE
  221    G:Y="^^"  INIT
  222    I "PpFf"' [Y W !,"IN VALID REPS ONSE. (P)R INT or (F) ILE." G VI EW
  223    S VWOPT=Y
  224    Q
  225   END ; clos e out file s and loca l variable s
  226    I "Ff"[VW OPT D
  227       .C ACR 1
  228       K ^CHM ZHOLD($J," ACR")
  229    K ACRCTR, PG,ICODE,T ODAY,TIME, TITLE,SCRW ,SCRN,X,FI LE,ACR1,RE JECT
  230    K IPTYP,P TYP,AP,PRO GRAM,ISVTY P,SVTYP,SV T,SERVICE, ISTTYP,STT YP,STT
  231    K ISDT,IE DT,START,S TOP,INFMSG ,IM,IREJCD ,VWOPT
  232    K STR180, STP180,STR PDI,TDYPDI ,PDI
  233    K X1,RCLM NO,SPONN,B ENEN
  234       Q