20. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/27/2019 2:32:59 PM Eastern 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.

20.1 Files compared

# Location File Last Modified
1 MCCF_EDI_TAS_P2_PRCA_4_5_332.zip\MCCF_EDI_TAS_P2_PRCA_4_5_332\PRCA_4_5_332_IB_2_0_633.zip TAS ePay US817 SDD.docx Fri Jan 25 13:46:06 2019 UTC
2 MCCF_EDI_TAS_P2_PRCA_4_5_332.zip\MCCF_EDI_TAS_P2_PRCA_4_5_332\PRCA_4_5_332_IB_2_0_633.zip TAS ePay US817 SDD.docx Mon Feb 25 20:56:44 2019 UTC

20.2 Comparison summary

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

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

20.4 Active regular expressions

No regular expressions were active.

20.5 Comparison detail

  1   MCCF EDI T AS US817
  2   System Des ign Docume nt
  3   PRCA*4.5*x xx
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   April 2018
  10   Version 1
  11   User Story  Number: U S817
  12   User Story  Name:  
  13   Sizing:  5
  14  
  15   Epic Taxon omy
  16    eBiz Comp liance
  17    Port
  18    Update
  19       Increa se No Touc
  20    TAS Apps
  21   Story
  22   As a...
  23   I want to. ..
  24   So that...
  25   Revenue Cl erk
  26   To see a h istory rep ort for al l auto-act ivity and  parameters
  27   So that I  can see a  history of  site para meter chan ges by dat e or range  of dates.
  28  
  29   Conversati on (if des ired by de velopers)
  30   View histo ry of para meter chan ges on whe n (date/da te range)
  31   Current fu nctionalit y shows la st change?
  32   If added,  it would b e not be r etroactive ; only wil l store pa rameter hi story movi ng forward .
  33   Listmanage r to allow  sorting a nd searchi ng.
  34  
  35  
  36   Functional  Design
  37   See functi onal desig n for opti on display  text, men us on whic h the opti on will ap pear, prom pts for re port run t ime user s elections  and report  layout. 
  38  
  39   Summary
  40  
  41   Data Dicti onary chan ges needed
  42  
  43   Add a mult iple to RC DPE PARAME TERS file  #344.61 to  store his tory of ch anges to a utopost an d autodecr ease param eters.
  44  
  45   344.611,.0 1      DAT E            0;1 DATE  (Required ) (Multipl y asked)
  46  
  47                    HELP -PROMPT:     Enter th e date/tim e the EDI  Lockbox pa rameter wa
  48        chang ed
  49                    DESC RIPTION:     This fie ld will be  automatic ally popul ated by th
  50        syste m.
  51  
  52  
  53  
  54  
  55   344.611,.0 2      USE R    0;2 P OINTER TO  NEW PERSON  FILE (Req uired) (#2 00)
  56  
  57                    HELP -PROMPT:     Enter th e person w ho changed  the EDI L ockbox par ameter
  58                    DESC RIPTION:     This fie ld will be  automatic ally popul ated by th
  59        syste m.
  60  
  61   344.611,1       PARAM ETER    0; 3 FREE TEX T (Require d)
  62  
  63                    HELP -PROMPT:     Enter th e descript ion of the  parameter  that chan ged.
  64                    DESC RIPTION:     This fie ld will be  automatic ally popul ated by th
  65        syste m.
  66   344.611,2       DETAI L           0;4 FREE  TEXT
  67  
  68                    HELP -PROMPT:     Enter th e payer or  CARC code  that this  change re lates 
  69        to.
  70                    DESC RIPTION:     This fie ld will be  automatic ally popul ated by th
  71        syste m.
  72  
  73   344.611,3       OLD V ALUE    0; 5 FREE TEX T
  74  
  75                    HELP -PROMPT:     Enter th e old valu e of the p arameter t hat change d.
  76                    DESC RIPTION:     This fie ld will be  automatic ally popul ated by th
  77        syste m.
  78   344.611,4       NEW V ALUE         0;6 FREE  TEXT
  79  
  80  
  81                    HELP -PROMPT:     Enter th e person w ho changed  the EDI L ockbox par ameter
  82                    DESC RIPTION:     This fie ld will be  automatic ally popul ated by th
  83        syste m.
  84  
  85   Routines C hanged
  86  
  87   RCDPESP6 -  Modified
  88   Collect da ta on chan ges made t o EDI lock box autopo st and aut odecrease  parameters  and store  in a file  for futur e reportin g. Also sa ve changes  to payer  identify f lags in si milar way.
  89  
  90   RCDPEP – M odified
  91   On entry t ake a snap shot of th e payer ex clusions f ile 344.6.   On exit  compare th e payer fl ags on the  snapshot  to the pay er flags i n 366.6 an d save the  changes i nto multip le 344.611 .
  92  
  93   RCDPESP8 –  New
  94   New Routin e for Para meter Hist ory report
  95  
  96   Menu Optio ns
  97  
  98   RCDPE PARA METER HIST ORY REPORT
  99   APH - Auto  Parameter  History R eport
  100  
  101  
  102   List Manag er Templat e
  103  
  104   List Manag er display  will use  the existi ng “RCDPE  MISC REPOR TS” templa te
  105  
  106   Resolution  – Added C hanged Obj ects 
  107  
  108  
  109   Routines
  110   Activities
  111   Routine Na me
  112   RCDPESP6
  113   Enhancemen t Category
  114    New
  115    Modify
  116    Delete
  117    No Change
  118   RTM
  119  
  120   Related Op tions
  121   RDCPE EDI  LOCKBOX PA RAMETERS
  122  
  123  
  124   Related Ro utines
  125   Routines “ Called By”
  126   Routines “ Called”   
  127  
  128  
  129  
  130  
  131   Current Lo gic – RCDP ESP6
  132   RCDPESP6 ; AITC/CJE -  ePayment  Lockbox Si te Paramet ers - Noti fy Changes ; ;;4.5;Ac counts Rec eivable;** 326**; ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified. ;  Q
  133   .
  134   .
  135   .
  136   CHKCHNG(LI NE) ; Chec k for chan ges in EDI  Lockbox s ite parame ters ; Inp ut: ^TMP(" RCDPESP6", $J) - Copy  of file 3 44.6, 344. 61 and 344 .62 taken  on entry ;  Output: L INE - Chan ge lines t o add to t he mail me ssage. Pas sed by ref erence. ;  Return: CO UNT of the  number of  changes.  0 if no ch anges were  made. N C OUNT,DOTS, HEAD,IEN,J ,REC0,REC1 ,XNEW,XOLD  ; S (COUN T,HEAD)=0, HEAD("SIZE ")=10 S HE AD("TXT")= "ALL PAYER S" S DOTS= "" F J=1:1 :40 S DOTS =DOTS_"."  ; Check pa rameters i n 344.61 t hat apply  to all pay ers S REC0 =$G(^TMP(" RCDPESP6", $J,344.61, 1,0)) ; ;  Auto-post  med claims  enabled S  XOLD=$P(R EC0,"^",2)  S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.02,"I")  I XNEW'=XO LD D  ; .  D LNOUT(.H EAD,.LINE, "AUTO-POST  MED CLAIM S ENABLED" ,XOLD,XNEW ,"B",.COUN T) ; ; Aut o-decrease  med enabl ed S XOLD= $P(REC0,"^ ",3) S XNE W=$$GET1^D IQ(344.61, "1,",.03," I") I XNEW '=XOLD D   ; . D LNOU T(.HEAD,.L INE,"AUTO- DECREASE M ED ENABLED ",XOLD,XNE W,"B",.COU NT) ; ; Au to-decreas e med days  S XOLD=$P (REC0,"^", 4) S XNEW= $$GET1^DIQ (344.61,"1 ,",.04,"I" ) I XNEW'= XOLD D  ;  . D LNOUT( .HEAD,.LIN E,"AUTO-DE CREASE DAY S DEFAULT" ,XOLD,XNEW ,"D",.COUN T) ; ; Aut o-decrease  no-pay me d enabled  S XOLD=$P( REC0,"^",1 1) S XNEW= $$GET1^DIQ (344.61,"1 ,",.11,"I" ) I XNEW'= XOLD D  ;  . D LNOUT( .HEAD,.LIN E,"AUTO-DE CREASE NO- PAY MED EN ABLED",XOL D,XNEW,"B" ,.COUNT) ;  ; Auto-de crease no- pay med da ys S XOLD= $P(REC0,"^ ",12) S XN EW=$$GET1^ DIQ(344.61 ,"1,",.12, "I") I XNE W'=XOLD D   ; . D LNO UT(.HEAD,. LINE,"AUTO -DECREASE  NO-PAY DAY S DEFAULT" ,XOLD,XNEW ,"D",.COUN T) ; ; Aut o-decrease  med amoun t S XOLD=$ P(REC0,"^" ,5) S XNEW =$$GET1^DI Q(344.61," 1,",.05,"I ") I XNEW' =XOLD D  ;  . D LNOUT (.HEAD,.LI NE,"AUTO-D ECREASE AM T DEFAULT" ,XOLD,XNEW ,"$",.COUN T) ; S REC 1=$G(^TMP( "RCDPESP6" ,$J,344.61 ,1,1)) ; A uto-post R x S XOLD=$ P(REC1,"^" ,1) S XNEW =$$GET1^DI Q(344.61," 1,",1.01," I") I XNEW '=XOLD D   ; . D LNOU T(.HEAD,.L INE,"AUTO- POST RX CL AIMS ENABL ED",XOLD,X NEW,"B",.C OUNT) ; ;  Auto-decre ase Rx S X OLD=$P(REC 1,"^",2) S  XNEW=$$GE T1^DIQ(344 .61,"1,",1 .02,"I") I  XNEW'=XOL D D  ; . D  LNOUT(.HE AD,.LINE," AUTO-DECRE ASE RX ENA BLED",XOLD ,XNEW,"B", .COUNT) ;  ; Check ea ch payer i n 344.6 fo r changes  S IEN=0 F   S IEN=$O( ^RCY(344.6 ,IEN)) Q:' IEN  D  ;  . S REC0=$ G(^TMP("RC DPESP6",$J ,344.6,IEN ,0)) . S H EAD=0 . S  HEAD("TXT" )="PAYER:  "_$$GET1^D IQ(344.6,I EN_",",.01 ,"E") . ;  Exclude me d claims p osting . S  XOLD=$P(R EC0,"^",6)  . S XNEW= $$GET1^DIQ (344.6,IEN _",",.06," I") . I XO LD'=XNEW D   ; . . D  LNOUT(.HEA D,.LINE,"E XCLUDE MED  CLAIMS PO STING",XOL D,XNEW,"B" ,.COUNT) .  ; Exclude  med claim s decrease  . S XOLD= $P(REC0,"^ ",7) . S X NEW=$$GET1 ^DIQ(344.6 ,IEN_",",. 07,"I") .  I XOLD'=XN EW D  ; .  . D LNOUT( .HEAD,.LIN E,"EXCLUDE  MED CLAIM S DECREASE ",XOLD,XNE W,"B",.COU NT) . ; Ex clude Rx c laim posti ng . S XOL D=$P(REC0, "^",8) . S  XNEW=$$GE T1^DIQ(344 .6,IEN_"," ,.08,"I")  . I XOLD'= XNEW D  ;  . . D LNOU T(.HEAD,.L INE,"EXCLU DE RX CLAI M POSTING" ,XOLD,XNEW ,"B",.COUN T) ; ; Che ck each CA RC-RARC in  344.62 fo r changes  S IEN=0 F   S IEN=$O( ^RCY(344.6 2,IEN)) Q: 'IEN  D  ;  . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) . S  REC1=$G(^ TMP("RCDPE SP6",$J,34 4.62,IEN,1 )) . S HEA D=0 . S HE AD("TXT")= "CARC/RARK  CODE: "_$ $GET1^DIQ( 344.62,IEN _",",.01," E") . S RE C0=$G(^TMP ("RCDPESP6 ",$J,344.6 2,IEN,0))  . ; CARC a uto decrea se . S XOL D=$P(REC0, "^",2) . S  XNEW=$$GE T1^DIQ(344 .62,IEN_", ",.02,"I")  . I XOLD' =XNEW D  ;  . . D LNO UT(.HEAD,. LINE,"CARC  AUTO DECR EASE",XOLD ,XNEW,"B", .COUNT) .  ; CARC dec rease amou nt . S XOL D=$P(REC0, "^",6) . S  XNEW=$$GE T1^DIQ(344 .62,IEN_", ",.06,"I")  . I XOLD' =XNEW D  ;  . . D LNO UT(.HEAD,. LINE,"CARC  DECREASE  AMOUNT",XO LD,XNEW,"$ ",.COUNT)  . ; . ; CA RC auto de crease no- pay . S XO LD=$P(REC1 ,"^",1) .  S XNEW=$$G ET1^DIQ(34 4.62,IEN_" ,",.08,"I" ) . I XOLD '=XNEW D   ; . . D LN OUT(.HEAD, .LINE,"CAR C AUTO DEC REASE NO-P AY",XOLD,X NEW,"B",.C OUNT) . ;  CARC decre ase amount  no pay .  S XOLD=$P( REC1,"^",5 ) . S XNEW =$$GET1^DI Q(344.62,I EN_",",.12 ,"I") . I  XOLD'=XNEW  D  ; . .  D LNOUT(.H EAD,.LINE, "CARC DECR EASE AMOUN T NO-PAY", XOLD,XNEW, "$",.COUNT ) ; Q COUN T ;
  137   LNOUT(HEAD ,LINE,TXT, XOLD,XNEW, TYPE,COUNT ) ; Format  a line fo r the mess age ; Inpu t: TXT - D escription  of the ch anged fiel d ; XOLD -  Old Value  (Internal  format) ;  XNEW - Ne w Value (I nternal Fo rmat) ; Ty pe - "B" -  Boolean 1 -Yes, 0 -  N ; "$" -  Dollar amo unt ; "D"  - Days ; " T" - Text  ; Output:  COUNT pass ed by refe rence ; HE AD passed  by referen ce ; LINE  passed by  reference  ;  N RETUR N,YNEW,YOL D ; Output  header fo r this sec tion if no t already  done  I 'H EAD D  ; .  S COUNT=C OUNT+1 . S  LINE(COUN T+HEAD("SI ZE"))=HEAD ("TXT") .  S HEAD=1 ;  ; Output:  Formatted  line of t ext S YOLD =XOLD,YNEW =XNEW S CO UNT=COUNT+ 1 S LINE(C OUNT+HEAD( "SIZE"))=$ E(" "_TXT_ DOTS,1,50)  I TYPE="B " D  ; . S  YOLD=$S(X OLD:"YES", 1:"NO") .  S YNEW=$S( XNEW:"YES" ,1:"NO") I  TYPE="$"  D  ; . S Y OLD=$FN(XO LD,",",2)  . S YNEW=$ FN(XNEW,", ",2) S YOL D=$J(YOLD, 10),YNEW=$ J(YNEW,10)  S LINE(CO UNT+HEAD(" SIZE"))=LI NE(COUNT+H EAD("SIZE" ))_YOLD_"  "_YNEW Q
  138  
  139  
  140   Modified L ogic (Chan ges are in  bold) – R CDPESP6
  141   RCDPESP6 ; AITC/CJE -  ePayment  Lockbox Si te Paramet ers - Noti fy Changes ; ;;4.5;Ac counts Rec eivable;** 326,XXX**;  ;;Per VA  Directive  6402, this  routine s hould not  be modifie d. ; Q
  142   .
  143   .
  144   .
  145   CHKCHNG(LI NE) ; Chec k for chan ges in EDI  Lockbox s ite parame ters ; Inp ut: ^TMP(" RCDPESP6", $J) - Copy  of file 3 44.6, 344. 61 and 344 .62 taken  on entry ;  Output: L INE - Chan ge lines t o add to t he mail me ssage. Pas sed by ref erence. ;  Return: CO UNT of the  number of  changes.  0 if no ch anges were  made. N C OUNT,DOTS, HEAD,IEN,J ,RCDET,REC 0,REC1,XNE W,XOLD ; S  (COUNT,HE AD)=0,HEAD ("SIZE")=1 0 S HEAD(" TXT")="ALL  PAYERS" S  DOTS="" F  J=1:1:40  S DOTS=DOT S_"." ; Ch eck parame ters in 34 4.61 that  apply to a ll payers  S REC0=$G( ^TMP("RCDP ESP6",$J,3 44.61,1,0) ) ; ; Auto -post med  claims ena bled S XOL D=$P(REC0, "^",2) S X NEW=$$GET1 ^DIQ(344.6 1,"1,",.02 ,"I") I XN EW'=XOLD D   ; . D LN OUT(.HEAD, .LINE,"AUT O-POST MED  CLAIMS EN ABLED",XOL D,XNEW,"B" ,.COUNT) ;  ; Auto-de crease med  enabled S  XOLD=$P(R EC0,"^",3)  S XNEW=$$ GET1^DIQ(3 44.61,"1," ,.03,"I")  I XNEW'=XO LD D  ; .  D LNOUT(.H EAD,.LINE, "AUTO-DECR EASE MED E NABLED",XO LD,XNEW,"B ",.COUNT)  ; ; Auto-d ecrease me d days S X OLD=$P(REC 0,"^",4) S  XNEW=$$GE T1^DIQ(344 .61,"1,",. 04,"I") I  XNEW'=XOLD  D  ; . D  LNOUT(.HEA D,.LINE,"A UTO-DECREA SE DAYS DE FAULT",XOL D,XNEW,"D" ,.COUNT) ;  ; Auto-de crease no- pay med en abled S XO LD=$P(REC0 ,"^",11) S  XNEW=$$GE T1^DIQ(344 .61,"1,",. 11,"I") I  XNEW'=XOLD  D  ; . D  LNOUT(.HEA D,.LINE,"A UTO-DECREA SE NO-PAY  MED ENABLE D",XOLD,XN EW,"B",.CO UNT) ; ; A uto-decrea se no-pay  med days S  XOLD=$P(R EC0,"^",12 ) S XNEW=$ $GET1^DIQ( 344.61,"1, ",.12,"I")  I XNEW'=X OLD D  ; .  D LNOUT(. HEAD,.LINE ,"AUTO-DEC REASE NO-P AY DAYS DE FAULT",XOL D,XNEW,"D" ,.COUNT) ;  ; Auto-de crease med  amount S  XOLD=$P(RE C0,"^",5)  S XNEW=$$G ET1^DIQ(34 4.61,"1,", .05,"I") I  XNEW'=XOL D D  ; . D  LNOUT(.HE AD,.LINE," AUTO-DECRE ASE AMT DE FAULT",XOL D,XNEW,"$" ,.COUNT) ;  S REC1=$G (^TMP("RCD PESP6",$J, 344.61,1,1 )) ; Auto- post Rx S  XOLD=$P(RE C1,"^",1)  S XNEW=$$G ET1^DIQ(34 4.61,"1,", 1.01,"I")  I XNEW'=XO LD D  ; .  D LNOUT(.H EAD,.LINE, "AUTO-POST  RX CLAIMS  ENABLED", XOLD,XNEW, "B",.COUNT ) ; ; Auto -decrease  Rx S XOLD= $P(REC1,"^ ",2) S XNE W=$$GET1^D IQ(344.61, "1,",1.02, "I") I XNE W'=XOLD D   ; . D LNO UT(.HEAD,. LINE,"AUTO -DECREASE  RX ENABLED ",XOLD,XNE W,"B",.COU NT) ; ; Ch eck each p ayer in 34 4.6 for ch anges S IE N=0 F  S I EN=$O(^RCY (344.6,IEN )) Q:'IEN   D  ; . S  REC0=$G(^T MP("RCDPES P6",$J,344 .6,IEN,0))  . S HEAD= 0
  146    . S HEAD( "DETAIL")= $$GET1^DIQ (344.6,IEN _",",.01," E") . S HE AD("TXT")= "PAYER: "_ HEAD("DETA IL") . ; E xclude med  claims po sting . S  XOLD=$P(RE C0,"^",6)  . S XNEW=$ $GET1^DIQ( 344.6,IEN_ ",",.06,"I ") . I XOL D'=XNEW D   ; . . D L NOUT(.HEAD ,.LINE,"EX CLUDE MED  CLAIMS POS TING",XOLD ,XNEW,"B", .COUNT) .  ; Exclude  med claims  decrease  . S XOLD=$ P(REC0,"^" ,7) . S XN EW=$$GET1^ DIQ(344.6, IEN_",",.0 7,"I") . I  XOLD'=XNE W D  ; . .  D LNOUT(. HEAD,.LINE ,"EXCLUDE  MED CLAIMS  DECREASE" ,XOLD,XNEW ,"B",.COUN T) . ; Exc lude Rx cl aim postin g . S XOLD =$P(REC0," ^",8) . S  XNEW=$$GET 1^DIQ(344. 6,IEN_",", .08,"I") .  I XOLD'=X NEW D  ; .  . D LNOUT (.HEAD,.LI NE,"EXCLUD E RX CLAIM  POSTING", XOLD,XNEW, "B",.COUNT ) ; ; Chec k each CAR C-RARC in  344.62 for  changes S  IEN=0 F   S IEN=$O(^ RCY(344.62 ,IEN)) Q:' IEN  D  ;  . S REC0=$ G(^TMP("RC DPESP6",$J ,344.62,IE N,0)) . S  REC1=$G(^T MP("RCDPES P6",$J,344 .62,IEN,1) ) . S HEAD =0
  147    . S HEAD( "DETAIL")= $$GET1^DIQ (344.62,IE N_",",.01, "E") . S H EAD("TXT") ="CARC/RAR K CODE: "_ HEAD(DETAI L”)
  148    . S REC0= $G(^TMP("R CDPESP6",$ J,344.62,I EN,0)) . ;  CARC auto  decrease  . S XOLD=$ P(REC0,"^" ,2) . S XN EW=$$GET1^ DIQ(344.62 ,IEN_",",. 02,"I") .  I XOLD'=XN EW D  ; .  . D LNOUT( .HEAD,.LIN E,"CARC AU TO DECREAS E",XOLD,XN EW,"B",.CO UNT) . ; C ARC decrea se amount  . S XOLD=$ P(REC0,"^" ,6) . S XN EW=$$GET1^ DIQ(344.62 ,IEN_",",. 06,"I") .  I XOLD'=XN EW D  ; .  . D LNOUT( .HEAD,.LIN E,"CARC DE CREASE AMO UNT",XOLD, XNEW,"$",. COUNT) . ;  . ; CARC  auto decre ase no-pay  . S XOLD= $P(REC1,"^ ",1) . S X NEW=$$GET1 ^DIQ(344.6 2,IEN_",", .08,"I") .  I XOLD'=X NEW D  ; .  . D LNOUT (.HEAD,.LI NE,"CARC A UTO DECREA SE NO-PAY" ,XOLD,XNEW ,"B",.COUN T) . ; CAR C decrease  amount no  pay . S X OLD=$P(REC 1,"^",5) .  S XNEW=$$ GET1^DIQ(3 44.62,IEN_ ",",.12,"I ") . I XOL D'=XNEW D   ; . . D L NOUT(.HEAD ,.LINE,"CA RC DECREAS E AMOUNT N O-PAY",XOL D,XNEW,"$" ,.COUNT) ;  Q COUNT ;
  149  
  150   LNOUT(HEAD ,LINE,TXT, XOLD,XNEW, TYPE,COUNT ) ; Format  a line fo r the mess age ; Inpu t: TXT - D escription  of the ch anged fiel d ; XOLD -  Old Value  (Internal  format) ;  XNEW - Ne w Value (I nternal Fo rmat) ; Ty pe - "B" -  Boolean 1 -Yes, 0 -  N ; "$" -  Dollar amo unt ; "D"  - Days ; " T" - Text  ; Output:  COUNT pass ed by refe rence ; HE AD passed  by referen ce ; LINE  passed by  reference  ;  N RCFDA ,RETURN ;  Output hea der for th is section  if not al ready done   I 'HEAD  D  ; . S C OUNT=COUNT +1 . S LIN E(COUNT+HE AD("SIZE") )=HEAD("TX T") . S HE AD=1 ; ; O utput: For matted lin e of text  I TYPE="B"  D  ; . S  YOLD=$S(XO LD:"YES",1 :"NO") . S  YNEW=$S(X NEW:"YES", 1:"NO") I  TYPE="$" D   ; . S YO LD=$FN(XOL D,",",2) .  S YNEW=$F N(XNEW,"," ,2) S COUN T=COUNT+1  S LINE(COU NT+HEAD("S IZE"))=$E( " "_TXT_DO TS,1,50) S  YOLD=$J(Y OLD,10),YN EW=$J(YNEW ,10) S LIN E(COUNT+HE AD("SIZE") )=LINE(COU NT+HEAD("S IZE"))_$$F ORMAT(OLD, TYPE)_" "_ $$FORMAT(N EW,TYPE)
  151    ;
  152    ; US817 –  Save chan ges into m ultiple 34 4.611 for  history re port
  153    S IENS="+ 1,1,"
  154    S RCFDA(3 44.611,IEN S,.01)=$$N OW^XLFDT()
  155    S RCFDA(3 44.611,IEN S,.02)=DUZ
  156    S RCFDA(3 44.611,IEN S,1)=TXT
  157    S RCFDA(3 44.611,IEN S,1)=HEAD( "DETAIL")
  158    S RCFDA(3 44.611,IEN S,3)=$$FOR MAT(OLD,TY PE)
  159    S RCFDA(3 44.611,IEN S,4)=$$FOR MAT(NEW,TY PE)
  160    D UPDATE^ DIE("RCFDA ","") Q
  161    ;
  162   FORMAT(VAL UE,TYPE) ;  Format a  value for  output
  163    ; Input:  VALUE – Va lue to be  formated
  164    ; TYPE -  "$" - Doll ar amount,  B - Boole an ; Retur n: Formate d value
  165    ;
  166    S RETURN= VALUE
  167    I TYPE="B " D  ; . S  RETURN=$S (VALUE:"YE S",1:"NO")  I TYPE="$ " D  ; . S  RETURN=$F N(VALUE,", ",2)
  168    Q RETURN
  169   ;
  170   PAYEN ; (E N) On entr y into ide ntify paye rs option,  save a sn apshot of  file 344.6  ; Input:  None ; Out put: ^TMP( "RCDPESP6" ,$J) creat ed by merg ing in fil es 344.6,  344.61 and  344.62 K  ^TMP("RCDP ESP6",$J)  M ^TMP("RC DPESP6",$J ,344.6)=^R CY(344.6)  ; Save pay er exclusi ons Q
  171   PAYEX ; (E N) On exit  from iden tify payer s option,  compare sn apshot wit h live fil es. ; Save  changes t o the para meter audi t multiple  344.611
  172    ; Input:  ^TMP("RCDP ESP6",$J)  created ab ove by mer ging in fi le 344.6 ;  Output: E nties in m ultiple 34 4.611 to k eep histor y of payer  flag chan ges ; N  C OUNT,IEN,R EC0,HEAD,L INE,XOLD,X NEW ;
  173   S COUNT=0  ; Check ea ch payer i n 344.6 fo r changes  S IEN=0 F   S IEN=$O( ^RCY(344.6 ,IEN)) Q:' IEN  D  ;  . S REC0=$ G(^TMP("RC DPESP6",$J ,344.6,IEN ,0)) . S H EAD=0
  174    . S HEAD( "DETAIL")= $$GET1^DIQ (344.6,IEN _",",.01," E") . S HE AD("TXT")= "PAYER: "_ HEAD("DETA IL") . ; P harmacy Fl ag . S XOL D=$P(REC0, "^",9) . S  XNEW=$$GE T1^DIQ(344 .6,IEN_"," ,.06,"I")  . I (+XOLD )'=(+XNEW)  D  ; . .  D LNOUT(.H EAD,.LINE, "PARMACY F LAG",XOLD, XNEW,"B",. COUNT) . ;  Tricare f lag . S XO LD=$P(REC0 ,"^",7) .  S XNEW=$$G ET1^DIQ(34 4.6,IEN_", ",.07,"I")  . I (+XOL D)'=(+XNEW ) D  ; . .  D LNOUT(. HEAD,.LINE ,"TRICARE  FLAG",XOLD ,XNEW,"B", .COUNT)  Q  ;
  175  
  176  
  177   Routines
  178   Activities
  179   Routine Na me
  180   RCDPESP8
  181   Enhancemen t Category
  182    New
  183    Modify
  184    Delete
  185    No Change
  186   RTM
  187  
  188   Related Op tions
  189   RCDPE PARA METER HIST ORY REPORT
  190  
  191  
  192   Related Ro utines
  193   Routines “ Called By”
  194   Routines “ Called”   
  195  
  196  
  197  
  198  
  199   Current Lo gic
  200   N/A
  201  
  202  
  203   Modified L ogic (Chan ges are in  bold)
  204   RCDPESP8 ; AITC/CJE -  ePayment  Lockbox Si te Paramet ers Histor y ;;4.5;Ac counts Rec eivable;** XXX**;Mar  20, 1995;B uild 104 ; ;Per VA Di rective 64 02, this r outine sho uld not be  modified.  ;EN ; ent ry point f or EDI Loc kbox Param eters Hist ory Report  [RCDPE PA RAMETER HI STORY REPO RT] N BDAT E,EDATE,RC HDR,IEN2,R CDATE,RCEN D,RCLN,RCP AGE,RCSTOP ,VALMHDR K  ^TMP($J," RCDPESP8")  Q:$$PROMP TS(.BDATE, .EDATE,.RC LM)=-1 ; P rompt for  report par ameters ;  S RCPAGE=0 ,RCSTOP=0  I RCLM D   G EXIT . S  RCTMPND=" RCDPESP8"   K ^TMP($J ,RCTMPND)  ; clean an y residue  . D COMPIL E . D LMRP T^RCDPEARL (.VALMHDR, $NA(^TMP($ J,RCTMPND) )) ; gener ate ListMa n display  . I $D(RCT MPND) K ^T MP($J,RCTM PND) ; W !  S %ZIS="Q M" D ^%ZIS  Q:POP I $ D(IO("Q"))  D  Q .N Z TDESC,ZTRT N,ZTSAVE,Z TSK .S ZTR TN="COMPIL E^RCDPESP8 ",ZTDESC=" EDI LOCKBO X AUTO PAR AMETER HIS TORY REPOR T" .S ZTSA VE("*")=""  .D ^%ZTLO AD .W !!,$ S($D(ZTSK) :"Your tas k number"_ ZTSK_" has  been queu ed.",1:"Un able to qu eue this j ob.") .K I O("Q") D H OME^%ZIS ;  U IO D CO MPILE I 'R CSTOP D AS K^RCDPEARL (.RCSTOP)  ; QCOMPILE  ; Get dat a for user  selected  date range  N IEN2,IE N3,LINE,RC PARAM,RCSE Q S RCSEQ= 0 S RCDATE =BDATE,RCE ND=EDATE_" ."_24 F  S  RCDATE=$O (^RCY(344. 61,1,"HIST ORY","ADU" ,RCDATE))  Q:(RCDATE> EDATE) D   ; . S IEN2 ="" . F  S  IEN2=$O(^ RCY(344.61 ,1,"HISTOR Y","ADU",R CDATE,IEN2 )) Q:IEN2= ""  D  ; .  . S RCUSR ="" . . F   S RCUSR=$ O(^RCY(344 .61,1,"HIS TORY","ADU ",RCDATE,I EN2,RCUSR) ) Q:RCUSR= ""  D  ; .  . . S RCS EQ=RCSEQ+1  . . . S L INE=$$FMTE ^XLTDT(RCD ATE)_" "_$ $GET1^DIQ( 200,RCUSR_ ",",.01,"E ") . . . S  ^TMP($J," RCDPESP8", RCSEQ)=LIN E . . . S  INE3="" .  . . F  S I EN3=$O(^RC Y(344.61,1 ,"HISTORY" ,"ADU",RCD ATE,IEN2,R CUSR,IEN3) ) Q:IEN3=" "  D  ; .  . . . S RC PARAM=$$GE T1^DIQ(344 .611,IEN3_ ",1,",1,"E ") . . . .  S RCDET=$ $GET1^DIQ( 344.611,IE N3_",1,",2 ,"E") . .  . . S RCOL D=$$GET1^D IQ(344.611 ,IEN3_",1, ",3,"E") .  . . . S R COLD=$$GET 1^DIQ(344. 611,IEN3_" ,1,",4,"E" ) . . . .  S SPLIT=0  . . . . I  $L(RCPARAM _RCDET)>60  S SPLIT=1  . . . . S  RCSEQ=RCS EQ+1 . . .  . S LINE= " "_RCPARA M . . . .  I 'SPLIT D    . . . .  . S LINE= LINE_" ("_ RCDET_")"  . . . . .  S LINE=LIN E_$J("",68 -$L(LINE)) _$J(OLD,8) _" "_$J(NE W,8) . . .  . S ^TMP( $J,"RCDPES P8",RCSEQ) =LINE . .  . . I SPLI T D  ; . .  . . . S R CSEQ=RCSEQ +1 . . . .  . S LINE= " "_RCDET_ $J("",68-$ L(LINE))_$ J(OLD,8)_"  "_$J(NEW, 8) . . . .  . S ^TMP( $J,"RCDPES P8",RCSEQ) =LINE I 'R CLM D  ; .  D OUTPUT  Q:RCSTOP   ; ;EXIT ;  Exit point  to clean  up ^TMP K  ^TMP($J,"R CDPESP8")  Q ;OUTPUT  ; Ouptput  printed re port to sc reen or pr inter S RC PAGE=1 D H DR S RCSEQ =0 F  S RC SEQ=$O(^TM P($J,"RCDP ESP8",RCSE Q)) Q:'RCS EQ  D  I R CSTOP Q .  D HDRLST^R CDPEARL(.R CSTOP,.RCH DR) I RCST OP Q . W ! ,^TMP($J," RCDPESP8", RCSEQ) QEX IT ; Clean  up before  quitting  K ^TMP(^TM P($J,"RCDP ESP8")) QH EAD ; Prin t header N  LINE,PG S  LINE="Aut o Paramete r History  Report" S  PG="Page:  "_RCPAGE S  LINE=$J(" ",(80-$L(L INE)\2))_L INE S RCHD R(1)=LINE_ $J("",71-$ L(LINE))_P G S LINE=" RUN DATE:  "_$$FMTE^X LFDT($$NOW ^XLFDT) S  RCHDR(2)=$ J("",(80-$ L(LINE)\2) )_LINE S L INE="DATE  RANGE: "_$ $FMTE^XLFD T(BDATE,"2 DZ")_" - " _$$FMTE^XL FDT(EDATE, "2DZ") S R CHDR(3)=$J ("",(80-$L (LINE)\2)) _LINE S RC HDR(4)=""  S LINE="Da te/Time Ed ited User" _$J("",48) _"Values"  S RCHDR(5) =LINE S LI NE=" Param eter"_$J(" ",58)_"Old  New" S RC HDR(6)=LIN E S RCHDR( 7)=$TR($J( "",80)," " ,"=") S RC HDR("XECUT E")="S RCP AGE=RCPAGE +1" ; S VA LMHDR(1)=R CHDR(1) S  VALMHDR(2) =RCHDR(3)  S VALMHDR( 3)="" S VA LMHDR(4)=R CHDR(5) S  VALMHDR(5) =RCHDR(6)  Q ;PROMPTS (BDATE,EDA TE,RCLM,RC XL) ; Prop mt for rep ort Parame ters ; Inp ut: None ;  Output: B DATE - Sta rt date fo r report i n FileMan  internal f ormat ; ED ATE - End  date for r eport in F ileman int ernal form at ; RCLM  - Boolean  flag - dis play in Li stMan ; Re turns: -1  Quit witho ut running  report ;  1 Continue  ; N DIR S  RETURN=1  S DIR("?") ="ENTER TH E DATE OF  THE EARIES T PARAMETE R CHANGE T O INCLUDE"  S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art date:  ",DIR("B") ="T" D ^DI R K DIR I  $D(DTOUT)! $D(DUOUT)! (Y="") S R ETURN=-1 G  PQ S BDAT E=Y ; K DI R S DIR("? ")="ENTER  THE DATE O F THE LATE ST PARAMET ER CHANGE  TO INCLUDE " S DIR("B ")="T" S D IR(0)="DAO ^"_START_" :"_DT_":AP E",DIR("A" )="END DAT E (RECEIVE D): " D ^D IR K DIR I  $D(DTOUT) !$D(DUOUT) !(Y="") S  RETURN=-1  G PQ S EDA TE=Y ; S R CLM=$$ASKL M^RCDPEARL () I RCLM= -1 S RETUR N=-1  Q RE TURN
  205  
  206  
  207   Routines
  208   Activities
  209   Routine Na me
  210   RCDPEP
  211   Enhancemen t Category
  212    New
  213    Modify
  214    Delete
  215    No Change
  216   RTM
  217  
  218   Related Op tions
  219  
  220  
  221  
  222   Related Ro utines
  223   Routines “ Called By”
  224   Routines “ Called”   
  225  
  226  
  227  
  228  
  229   Current Lo gic - RCDP EP
  230   RCDPEP ;AI TC/CJE - F LAG PAYERS  AS PHARMA CY/TRICARE  ; 19-APR- 2017 ;;4.5 ;Accounts  Receivable ;**321,326 **;; ;Per  VA Directi ve 6402, t his routin e should n ot be modi fied. ;EN( FILTER,DAT EFILT) ; - - main ent ry point f or RCDPE P AYER FLAGS  template  ; Input: F ILTER - A= All payers , P=Pharma cy payers,  T=Tricare  payers, ;  M=Medical  (Neither  Pharmacy n or Tricare ) ; DATEFI LT - Addit ional Filt er by Date . Has 3 pi eces by '^ ' ; Piece  1 - 1=Filt er by date , 0=Don't  ; Piece 2  - START -  First DATE  ADDED to  include(FM  format) ;  Piece 3 -  END - Las t DATE ADD ED to incl ude (FM fo rmat) ;  I  '$D(DATEF ILT) S DAT EFILT=$$GE TDATE() I  DATEFILT=- 1 Q  ; I ' $D(FILTER)  S FILTER= $$GETFILT( ) I FILTER =-1 Q  ; ;  D EN^VALM ("RCDPE PA YER FLAGS" ) Q ;
  231   .
  232   .
  233   .
  234  
  235  
  236   Modified L ogic (Chan ges are in  bold) - R CDPEP
  237   RCDPEP ;AI TC/CJE - F LAG PAYERS  AS PHARMA CY/TRICARE  ; 19-APR- 2017 ;;4.5 ;Accounts  Receivable ;**321,326 **;; ;Per  VA Directi ve 6402, t his routin e should n ot be modi fied. ;EN( FILTER,DAT EFILT) ; - - main ent ry point f or RCDPE P AYER FLAGS  template  ; Input: F ILTER - A= All payers , P=Pharma cy payers,  T=Tricare  payers, ;  M=Medical  (Neither  Pharmacy n or Tricare ) ; DATEFI LT - Addit ional Filt er by Date . Has 3 pi eces by '^ ' ; Piece  1 - 1=Filt er by date , 0=Don't  ; Piece 2  - START -  First DATE  ADDED to  include(FM  format) ;  Piece 3 -  END - Las t DATE ADD ED to incl ude (FM fo rmat) ;  I  '$D(DATEF ILT) S DAT EFILT=$$GE TDATE() I  DATEFILT=- 1 Q  ; I ' $D(FILTER)  S FILTER= $$GETFILT( ) I FILTER =-1 Q  ; ;
  238    D PAYEN^R CDPESP6 D  EN^VALM("R CDPE PAYER  FLAGS")
  239    D PAYEX^R CDPESP6 Q  ;
  240   .
  241   .
  242   .