4. EPMO Open Source Coordination Office Redaction File Detail Report

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

4.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 US1302 SDD.docx Fri Jan 25 13:51:44 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 US1302 SDD.docx Tue Feb 26 13:44:08 2019 UTC

4.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 6 824
Changed 0 0
Inserted 0 0
Removed 6 340

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

4.4 Active regular expressions

No regular expressions were active.

4.5 Comparison detail

  1   MCCF EDI T AS US1302
  2   System Des ign Docume nt
  3   PRCA*4.5*n nn
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   July 2018
  10   Version 1
  11   User Story  ID: US130 2
  12   User Story  Name:  Re port for w ho marked  EEOBs for  auto-post
  13   Sizing:  3
  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 aN...
  23   I want...
  24   So that...
  25   ePayments  user,
  26   the Extend ed Check T race optio n to be en hanced so  as a user,  I don’t h ave to spe cify what  type of nu mber it is
  27   I can quic kly find a  Trace #,  Check #, o r Credit C ard #, for  all Trans actions wi thin the A R BATCH PA YMENT file  (#344).
  28  
  29   Conversati on
       
       
       
       
       
       
  30   Search tex t is case- insensitiv e for all  types of s earch.
  31   NOTE: 
  32  
  33   Report des cription a nd Behavio r:
  34   The Extend ed Check T race optio n should b e enhanced  so as a u ser, I don ’t have to  specify w hat type o f number i t is. The  software s hould perf orm the se arch based  only on t he number  provided f or a speci fied date  range.  Th e search s hould incl ude closed  and open  receipts.
  35  
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
  36     Resoluti on – Added  /Changed  Objects
  37  
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
  38   Routines
  39   Activities
  40   Routine Na me
  41   RCDPRSEA
  42   Enhancemen t Category
  43    New
  44    Modify
  45    Delete
  46    No Change
  47   RTM
  48  
  49   Related Op tions
  50   RCDP EXTEN DED CHECK/ CC SEARCH
  51   Routines
  52   Activities
  53   Data Dicti onary (DD)  Reference s
  54   N/A
  55   Related Pr otocols
  56   N/A
  57   Related In tegration  Control Re gistration s (ICRs)
  58   N/A
       
  59   Data Passi ng
  60    Input
  61    Output Re ference
  62    Both
  63    Global Re ference
  64    Local
  65   Input Attr ibute Name  and Defin ition
  66   Name:  Use r Interact ion Only
  67   Definition : N/A
  68   Output Att ribute Nam e and Defi nition
  69   Name: “Ext ended AR B ATCH PAYME NT file se arch” repo rt to sele cted devic e
  70   Definition : N/A
  71   Related Ro utines
  72   Routines “ Called By”
  73   Routines “ Called”   
  74  
  75  
  76   ^%ZIS
  77   ^%ZISC
  78   ^%ZTLOAD
  79   ^DIR
  80   $$ASKCHEK^ RCDPLPL1
  81   $$ASKCRED^ RCDPLPL1
  82   $$ASKTRACE ^RCDPLPL1
  83   $$ASKTYPE^ RCDPLPL1
  84   DATESEL^RC RJRTRA
  85   $$FMTE^XLF DT
  86   $$NOW^XLFD T
  87  
       
       
       
       
       
       
       
       
  88   Current Lo gic
  89   RCDPRSEA ; WISC/RFJ/P JH - exten ded search  ;5/25/11  3:07pm
  90    ;;4.5;Acc ounts Rece ivable;**1 14,148,208 ,269,304** ;Mar 20, 1 995;Build  104
  91    ;;Per VA  Directive  6402, this  routine s hould not  be modifie d.
  92    ;
  93    N DATEEND ,DATESTRT, RCTRACE,RC CHECK,RCCR EDIT,RCSEA RCH,RCTYPE ,%ZIS,ZTSA VE,ZTDESC, ZTQUEUED,Z TRTN,POP
  94    ;  search  check or  credit car d
  95    W !
  96    S RCSEARC H=$$ASKSEA
  97    I RCSEARC H<1 Q
  98    ;
  99    ;  check  to search  for
  100    I RCSEARC H=1 S RCCH ECK=$$ASKC HEK^RCDPLP L1 I RCCHE CK=-1 Q
  101    ;  credit  card to s earch for
  102    I RCSEARC H=2 S RCCR EDIT=$$ASK CRED^RCDPL PL1 I RCCR EDIT=-1 Q
  103    ;  ask co ntains or  equals
  104    S RCTYPE= $$ASKTYPE^ RCDPLPL1 I  RCTYPE=-1  Q
  105    S RCTYPE= $E(RCTYPE)
  106    ;
  107    ;  trace  # to searc h for
  108    I RCSEARC H=3 S RCTR ACE=$$ASKT RACE^RCDPL PL1 I RCTR ACE=-1 Q
  109    ;
  110    ;  ask re ceipt open  dates
  111    W !
  112    D DATESEL ^RCRJRTRA( "RECEIPT O pened")
  113    I '$G(DAT ESTRT)!('$ G(DATEEND) ) Q
  114    ;
  115    ;  select  device
  116    W ! S %ZI S="Q" D ^% ZIS I POP  Q
  117    I $D(IO(" Q")) D  D  ^%ZTLOAD K  IO("Q"),Z TSK Q
  118    .   S ZTD ESC="Exten ded Check/ Trace#/Cre dit Card S earch",ZTR TN="DQ^RCD PRSEA"
  119    .   S ZTS AVE("RC*") ="",ZTSAVE ("DATE*")= "",ZTSAVE( "ZTREQ")=" @"
  120    W !!,"<*>  please wa it <*>"
  121    ;
  122   DQ ;  queu e starts h ere
  123    N %,%I,DA TA,DATEDIS 1,DATEDIS2 ,NOW,PAGE, RCRECTDA,R CRJFLAG,RC RJLINE,RCT RANDA,SCRE
  124   EN,X,Y
  125    ;  print  report
  126    S Y=$P(DA TESTRT,"." ) D DD^%DT  S DATEDIS 1=Y
  127    S Y=$P(DA TEEND,".")  D DD^%DT  S DATEDIS2 =Y
  128    D NOW^%DT C S Y=% D  DD^%DT S N OW=Y
  129    S PAGE=1, RCRJLINE=" ",$P(RCRJL INE,"-",81 )=""
  130    S SCREEN= 0 I '$D(ZT QUEUED),IO =IO(0),$E( IOST)="C"  S SCREEN=1
  131    U IO D H
  132    S RCRECTD A=99999999 999999
  133    F  S RCRE CTDA=$O(^R CY(344,RCR ECTDA),-1)  Q:'RCRECT DA!($G(RCR JFLAG))  D
  134    .   S DAT A=$G(^RCY( 344,RCRECT DA,0))
  135    .   I $P( DATA,"^",3 )<DATESTRT  Q
  136    .   I $P( $P(DATA,"^ ",3),".")> DATEEND Q
  137    .   S RCT RANDA=0 F   S RCTRAND A=$O(^RCY( 344,RCRECT DA,1,RCTRA NDA)) Q:'R CTRANDA!($
  138   G(RCRJFLAG ))  D
  139    .   .   I  SCREEN R  X:0 I X["^ " S RCRJFL AG=1 Q
  140    .   .   S  DATA=$G(^ RCY(344,RC RECTDA,1,R CTRANDA,0) )
  141    .   .   ;   check se arch
  142    .   .   I  RCSEARCH= 1 D  Q
  143    .   .   .    I RCTYP E="E",$P(D ATA,"^",7) '=RCCHECK  Q    ;equa ls
  144    .   .   .    I $P(DA TA,"^",7)' [RCCHECK Q                 ;cont ains
  145    .   .   .    D DISPL AY
  146    .   .   ;   trace #  search
  147    .   .   I  RCSEARCH= 3 D  Q
  148    .   .   .    N RCNUM
  149    .   .   .    S RCNUM =$$TRACE(R CRECTDA)
  150    .   .   .    I RCTYP E="E",RCNU M'=RCTRACE  Q    ;equ als
  151    .   .   .    I RCNUM '[RCTRACE  Q                ;con tains
  152    .   .   .    D DISPL AY
  153    .   .   ;   credit c ard search
  154    .   .   I  RCTYPE="E ",$P(DATA, "^",11)'=R CCREDIT Q     ;equals
  155    .   .   I  $P(DATA," ^",11)'[RC CREDIT Q                 ;contai ns
  156    .   .   D  DISPLAY
  157    ;
  158    I '$G(RCR JFLAG),SCR EEN U IO(0 ) R !,"Pre ss RETURN  to continu e:",%:DTIM E
  159    D ^%ZISC
  160    Q
  161    ;
  162    ;
  163   DISPLAY ;   display t he payment
  164    I $Y>(IOS L-6) D:SCR EEN PAUSE^ RCRJRTR1 Q :$G(RCRJFL AG)  W @IO F D H
  165    ;
  166    N ACCOUNT ,DATA,DATA 1
  167    S DATA=$G (^RCY(344, RCRECTDA,0 )),DATA1=D ATA
  168    ;  receip t
  169    W !,$P(DA TA,"^")
  170    ;  date o pened
  171    W ?15,$E( $P(DATA,"^ ",3),4,5), "/",$E($P( DATA,"^",3 ),6,7),"/" ,$E($P(DAT A,"^",3),2 ,3)
  172    ;  transa ction numb er
  173    W ?24,RCT RANDA
  174    S DATA=$G (^RCY(344, RCRECTDA,1 ,RCTRANDA, 0))
  175    ;  accoun t
  176    S ACCOUNT =$P(DATA," ^",3)
  177    I ACCOUNT ["PRCA(430 ," S ACCOU NT=$P($G(^ PRCA(430,+ $P(DATA,"^ ",3),0))," ^")
  178    I ACCOUNT ["DPT(" S  ACCOUNT=$P ($G(^DPT(+ $P(DATA,"^ ",3),0))," ^")
  179    W ?30,$E( ACCOUNT,1, 24)
  180    ;  amount
  181    W ?54,$J( $P(DATA,"^ ",4),8,2)
  182    ;  check/ trace/cred it card nu mber
  183    W !,"   "
  184    W $S(RCSE ARCH=1:$P( DATA,"^",7 ),RCSEARCH =2:$P(DATA ,"^",11),1 :$$TRACE(R CRECTDA))
  185    Q
  186    ;
  187    ;
  188   H ;  heade r
  189    S %=NOW_"   PAGE "_P AGE,PAGE=P AGE+1 I PA GE'=2!(SCR EEN) W @IO F
  190    W $C(13), "EXTENDED  CHECK/TRAC E #/CREDIT  CARD SEAR CH",?(80-$ L(%)),%
  191    W !,"  FO R THE DATE  RANGE: ", DATEDIS1,"   TO  ",DA TEDIS2
  192    W !,"        SEARCHI NG FOR: "
  193    W $S(RCSE ARCH=1:"CH ECK ",RCSE ARCH=2:"CR EDIT CARD  ",1:"TRACE  # ")
  194    W $S(RCTY PE="E":"EQ UALS ",1:" CONTAINS " )
  195    W $G(RCCH ECK),$G(RC TRACE),$G( RCCREDIT)
  196    W !,"RECE IPT",?15," OPENDATE", ?24,"TRANS ",?30,"ACC OUNT",?54, $J("AMOUNT ",8)
  197    W !,"   "
  198    W $S(RCSE ARCH=1:"CH ECK#",RCSE ARCH=2:"CR EDITCARD#" ,1:"TRACE# ")
  199    W !,RCRJL INE
  200    I SCREEN  W !!?10,"* *********  PRESS ^ at  anytime t o STOP sea rch ****** ****"
  201    Q
  202    ;
  203    ;
  204   TRACE(RCRE CTDA) ; Re turns the  trace # on  a receipt
  205    N DATA
  206    S DATA=$G (^RCY(344, RCRECTDA,0 ))
  207    Q $S($P(D ATA,U,18): $P($G(^RCY (344.4,+$P (DATA,"^", 18),0)),U, 2),$P(DATA ,U,17):$P( $G(^RCY(34 4.31,+$P(D ATA,U,17), 0)),U,4),1 :"")
  208    ;
  209   ASKSEA() ;   ask sear ch field
  210    N DIR,DIR UT,DTOUT,D UOUT,X,Y
  211    S DIR(0)= "SAO^1:Che ck;2:Credi t Card;3:T race #;"
  212    S DIR("A" )="Search  for Check,  Trace #,  or Credit  Card: "
  213    S DIR("B" )="Check"
  214    D ^DIR
  215    I $G(DTOU T)!($G(DUO UT)) S Y=- 1
  216    Q Y
  217  
  218  
  219  
  220  
  221  
  222  
  223   Modified L ogic
  224   Note: The  routine ha s been ref actored.
  225  
  226   RCDPRSEA ; WISC/RFJ,P JH,hrubovc ak - exten ded search  ;25 July  2018 17:35 :48
  227    ;;4.5;Acc ounts Rece ivable;**1 14,148,208 ,269,304** ;Mar 20, 1 995;Build  104
  228    ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  229    ;
  230    ; enter a t top for  [RCDP EXTE NDED CHECK /CC SEARCH ] option
  231    N DATEEND ,DATESTRT, RCPAYTYP,R CSRCH,RCTR GT,X,Y
  232    ;
  233    ; search  check, cre dit card,  trace #, o r All
  234    W !!,"Ext ended AR B ATCH PAYME NT file se arch.",!
  235    S RCSRCH= $$ASKSEA I  RCSRCH<1  Q
  236    ;
  237    F X=1,2,3  S RCTRGT( $$SBSCRPT( X))=""  ;  initialize  all searc h targets
  238    ; check #  to search  for
  239    I RCSRCH= 1 S RCTRGT ("Check#") =$$ASKCHEK ^RCDPLPL1  I RCTRGT(" Check#")=- 1 Q
  240    ; credit  card to se arch for
  241    I RCSRCH= 2 S RCTRGT ("CredCard ")=$$ASKCR ED^RCDPLPL 1 I RCTRGT ("CredCard ")=-1 Q
  242    ; trace #  to search  for
  243    I RCSRCH= 3 S RCTRGT ("Trace#") =$$ASKTRAC E^RCDPLPL1  I RCTRGT( "Trace#")= -1 Q
  244    I RCSRCH= 4 D  I RCT RGT("Trace #")=-1 Q
  245    . S RCTRG T("Trace#" )=$$ASK4NM BR Q:RCTRG T("Trace#" )=-1
  246    . S (RCTR GT("Check# "),RCTRGT( "CredCard" ))=RCTRGT( "Trace#")   ; for all  3 types o f search
  247    ; ask con tains or e quals
  248    S RCSRCH( "type")=$$ ASKTYPE^RC DPLPL1 I R CSRCH("typ e")=-1 Q
  249    S RCSRCH( "type")=$E (RCSRCH("t ype"))  ;  will be "E " or "C"
  250    ;
  251    ; ask rec eipt open  dates
  252    W ! D DAT ESEL^RCRJR TRA("RECEI PT Opened" )
  253    I '$G(DAT ESTRT)!('$ G(DATEEND) ) Q
  254    ;
  255    F X=1,2,3  S RCTRGT( $$SBSCRPT( X))=$$UP(R CTRGT($$SB SCRPT(X)))  ; case-in sensitive  search
  256    S RCSRCH( "FromDt")= DATESTRT\1 ,RCSRCH("T oDt")=DATE END\1  ; s tart/end d ates witho ut time
  257    S RCRPRT( "HdrFrom") =$$FMTE^XL FDT(RCSRCH ("FromDt") ),RCRPRT(" HdrTo")=$$ FMTE^XLFDT (RCSRCH("T oDt"))
  258    ; select  device
  259    W ! N %ZI S S %ZIS=" Q" D ^%ZIS  I POP Q
  260    I $D(IO(" Q")) D  Q
  261    . N ZTDES C,ZTQUEUED ,ZTRTN,ZTS AVE,ZTSK
  262    . S ZTDES C="Extende d Check/Tr ace#/Credi t Card Sea rch"
  263    . S ZTSAV E("RC*")=" ",ZTSAVE(" ZTREQ")="@ ",ZTRTN="D Q^"_$T(+0)
  264    . D ^%ZTL OAD
  265    . W !!,$S ($G(ZTSK): "Report qu eued as ta sk #"_ZTSK ,1:"Unable  to queue  this repor t.")
  266    . K IO("Q ")
  267    ; from he re on for  interactiv e user onl y
  268    F  D  Q:R CSRCH("Exi t")  ; loo p here if  no results  found
  269    . D DQ I  RCSRCH("Cn tr")!RCSRC H("Exit")  S RCSRCH(" Exit")=1 Q   ; result s returned  or exit i ndicated
  270    . S RCSRC H("PrevTyp e")=RCSRCH   ; save f or user in teraction
  271    . S RCSRC H("Exit")= '$$ASK2CON T Q:RCSRCH ("Exit")
  272    . F  D  Q :'$L(RCSRC H("PrevTyp e"))!RCSRC H("Exit")
  273    ..  S RCS RCH("NewTy pe")=$$ASK SEA I RCSR CH("NewTyp e")<1 S RC SRCH("Exit ")=1 Q
  274    ..  I RCS RCH("NewTy pe")=RCSRC H("PrevTyp e") D  Q
  275    ...   N D IR,DTOUT,D UOUT,X,Y
  276    ...   S D IR(0)="EA" ,DIR("A")= "Press ENT ER to cont inue, '^'  to exit: "
  277    ...   S D IR("A",1)= " ",DIR("A ",2)="That  was the p revious se arch type. "
  278    ...   S D IR("A",3)= "Please se lect anoth er type of  search."  D ^DIR
  279    ...   S R CSRCH("Exi t")=$S(X[U !$D(DUOUT) !$D(DTOUT) :1,1:0)
  280    ..  Q:RCS RCH("Exit" )
  281    ..  S RCS RCH=RCSRCH ("NewType" ),RCSRCH(" PrevType") =""
  282    ..  S RCT RGT($$SBSC RPT(RCSRCH ))=RCSRCH( "PrevTrgt" )
  283    ;
  284    Q
  285    ;
  286   DQ ; entry  from Task Man or fro m above
  287    N A,B,J,R CACCNT,RCB TCH,RCPAYT YP,RCTRANS ,RCTRCNUM, RCXREFDT,X ,Y
  288    ; print r eport
  289    S RCRPRT( "HdrTime") =$$FMTE^XL FDT($$NOW^ XLFDT)  ;  NOW in ext ernal form at
  290    S RCRPRT( "HdrPage#" )=1,RCSRCH ("Exit")=0 ,RCSRCH("C ntr")=0  ;  page numb er, exit f lag, found  count
  291    ; save ta rget for a dditional  searches
  292    S RCSRCH( "PrevTrgt" )=RCTRGT($ $SBSCRPT(R CSRCH))
  293    U IO D H
  294    S RCXREFD T=RCSRCH(" FromDt")-. 1  ; initi alize to d ate minus  a fraction
  295    F  S RCXR EFDT=$O(^R CY(344,"AO ",RCXREFDT )) Q:'RCXR EFDT!(RCXR EFDT\1>RCS RCH("ToDt" ))  D CHKT RANS(RCXRE FDT)
  296    ;
  297    W:'$G(RCS RCH("Exit" )) !!,"Tot al records  found: "_ $FN(RCSRCH ("Cntr")," ,")
  298    I '($E(IO ST,1,2)="C -") S RCSR CH("Exit") =1 Q  ; co ntinue onl y if inter active use r
  299    U IO(0)
  300    I 'RCSRCH ("Exit"),R CSRCH("Cnt r") D
  301    . N DIR S  DIR(0)="E A",DIR("A" )="Search  Finished.  Press ENTE R to conti nue: ",DIR ("A",1)="  " D ^DIR
  302    D ^%ZISC
  303    Q
  304    ;
  305   CHKTRANS(R CXREFDT) ;  check TRA NSACTION m ultiple on  date RCXR EFDT
  306    S RCBTCH= 0  ; IEN i n AR BATCH  PAYMENT f ile (#344)
  307    F  S RCBT CH=$O(^RCY (344,"AO", RCXREFDT,R CBTCH)) Q: 'RCBTCH!($ G(RCSRCH(" Exit")))   D
  308    . S RCBTC H(0)=$G(^R CY(344,RCB TCH,0))
  309    . S RCTRA NS=0  ; ^R CY(344,D0, 1,0)=^344. 01AI^^  (# 1) TRANSAC TION
  310    . F  S RC TRANS=$O(^ RCY(344,RC BTCH,1,RCT RANS)) Q:' RCTRANS!($ G(RCSRCH(" Exit")))   D
  311    ..  I $E( IOST,1,2)= "C-" R X:0  I X[U S R CSRCH("Exi t")=1 Q  ;  exit if u ser types  '^' during  search
  312    ..  S RCT RANS(0)=$G (^RCY(344, RCBTCH,1,R CTRANS,0))
  313    ..  ;  ch eck # sear ch
  314    ..  I RCS RCH=1!(RCS RCH=4) D   Q:RCSRCH<4
  315    ...   I R CSRCH("typ e")="E" Q: $$UP($P(RC TRANS(0),U ,7))'=RCTR GT("Check# ")  ;equal s
  316    ...   I $ $UP($P(RCT RANS(0),U, 7))'[RCTRG T("Check#" ) Q                       ;conta ins
  317    ...   D D ISPLAY(1)  S RCSRCH(" Cntr")=RCS RCH("Cntr" )+1
  318    ..  ;  tr ace # sear ch
  319    ..  I RCS RCH=3!(RCS RCH=4) D   Q:RCSRCH<4
  320    ...   S R CTRCNUM=$$ UP($$TRACE (RCBTCH(0) ))
  321    ...   I R CSRCH("typ e")="E" Q: RCTRCNUM'= RCTRGT("Tr ace#")  ;e quals
  322    ...   I R CTRCNUM'[R CTRGT("Tra ce#") Q                       ;c ontains
  323    ...   D D ISPLAY(3)  S RCSRCH(" Cntr")=RCS RCH("Cntr" )+1
  324    ..  ; fal l through  to credit  card # sea rch
  325    ..  I RCS RCH("type" )="E" Q:$P (RCTRANS(0 ),U,11)'=R CTRGT("Cre dCard")  ; equals
  326    ..  I $P( RCTRANS(0) ,U,11)'[RC TRGT("Cred Card") Q                       ; contains
  327    ..  D DIS PLAY(2) S  RCSRCH("Cn tr")=RCSRC H("Cntr")+ 1
  328    ;
  329    Q
  330    ;
  331   DISPLAY(RC PAYTYP) ;   display t he payment
  332    ; RCPAYTY P - 1:chec k #, 2: cr edit card,  3:trace #
  333    Q:$G(RCSR CH("Exit") )  ; exit  flag
  334    ; handle  display to  screen
  335    I $E(IOST ,1,2)="C-" ,$Y>(IOSL- 6) D  Q:RC SRCH("Exit ")
  336    . S RCSRC H("Exit")= 0
  337    . N DIR,X ,Y
  338    . S DIR(0 )="EA",DIR ("A")="Pre ss ENTER t o continue , '^' to e xit: " D ^ DIR
  339    . S RCSRC H("Exit")= $S(X[U!$D( DUOUT)!$D( DTOUT):1,1 :0)
  340    . Q:RCSRC H("Exit")   ; user in dicated to  stop
  341    . D H
  342    ; next li ne for non -interacti ve device
  343    I '($E(IO ST,1,2)="C -"),$Y>(IO SL-2) D H
  344    ; receipt
  345    S J=$P(RC BTCH(0),U) ,A=$P(RCBT CH(0),U,3)   ; A is t he date op ened
  346    S J=J_$J( " ",15-$L( J))_$E(A,4 ,5)_"/"_$E (A,6,7)_"/ "_$E(A,2,3 )  ; forma t date ope ned
  347    S J=J_$J( " ",27-$L( J))_RCTRAN S  ; add t ransaction  number
  348    ; account
  349    S RCACCNT ("Pntr")=$ P(RCTRANS( 0),U,3),RC ACCNT=" -"
  350    I RCACCNT ("Pntr")[" PRCA(430,"  S RCACCNT =$P($G(^PR CA(430,+RC ACCNT("Pnt r"),0)),U)
  351    I RCACCNT ("Pntr")[" DPT(" S RC ACCNT=$P($ G(^DPT(+RC ACCNT("Pnt r"),0)),U)
  352    S J=J_$J( " ",31-$L( J))_RCACCN T  ; add a ccount
  353    S J=J_$J( " ",55-$L( J))_"$"_$J ($P(RCTRAN S(0),U,4), 8,2)  ; ad d amount
  354    W !,J
  355    ;  check/ trace/cred it card nu mber
  356    S J=$S(RC PAYTYP=1:$ P(RCTRANS( 0),U,7),RC PAYTYP=2:$ P(RCTRANS( 0),U,11),1 :$$TRACE(R CBTCH(0)))
  357    ; if sear ch all typ es, indica te what wa s found
  358    I RCSRCH= 4 S J=J_"    ("_$S(RC PAYTYP=1:" Check #",R CPAYTYP=2: "Credit Ca rd",1:"Tra ce #")_")"
  359    W !,"   " _J
  360    Q
  361    ;
  362   H ;  heade r
  363    S A=RCRPR T("HdrTime ")_" Page:  "_RCRPRT( "HdrPage#" ),RCRPRT(" HdrPage#") =RCRPRT("H drPage#")+ 1
  364    S B="Exte nded Check  #/Trace # /Credit Ca rd Search" ,$E(B,80-$ L(A)+1,80) =A
  365    W @IOF,B
  366    W !,"  Fo r the Date  Range: "_ RCRPRT("Hd rFrom")_"   to  "_RCR PRT("HdrTo ")
  367    S B="        Searchi ng for: "_ $S(RCSRCH= 1:"CHECK " ,RCSRCH=2: "CREDIT CA RD ",RCSRC H=3:"TRACE  # ",1:"AL L TYPES")
  368    S B=B_$S( RCSRCH("ty pe")="E":"  EQUAL",1: " CONTAIN" )_$S(RCSRC H<4:"S",1: "ING")_" "  ; handle  plurals
  369    S B=B_$C( 34)_RCTRGT ($$SBSCRPT (RCSRCH))_ $C(34)
  370    W !,B
  371    W !,"Rece ipt        Open Date   Trans  Ac count                     Amount "
  372    W !,"   " _$S(RCSRCH =1:"Check  #",RCSRCH= 2:"Credit  Card #",RC SRCH=3:"Tr ace #",1:" Any #")
  373    W !,$TR($ J(" ",80), " ","=")   ; 80 equal  signs
  374    Q
  375    ;
  376   TRACE(RC34 4ZRO) ; Re turns trac e # for re ceipt
  377    ; RC344ZR O - zero n ode from f ile #344
  378    Q $S($P(R C344ZRO,U, 18):$P($G( ^RCY(344.4 ,+$P(RC344 ZRO,U,18), 0)),U,2),$ P(RC344ZRO ,U,17):$P( $G(^RCY(34 4.31,+$P(R C344ZRO,U, 17),0)),U, 4)
  379    ;
  380   ASKSEA() ;   ask sear ch field
  381    N DIR,DIR UT,DTOUT,D UOUT,X,Y
  382    S DIR(0)= "SAO^1:Che ck;2:Credi t Card;3:T race #;4:A ll"
  383    S DIR("A" )="Search  for Check,  Credit Ca rd, Trace  #, or All:  "
  384    S DIR("B" )="All"
  385    D ^DIR
  386    I $G(DTOU T)!($G(DUO UT)) S Y=- 1
  387    Q Y
  388    ;
  389   ASK4NMBR()  ; Ask the  e-payment s trace nu mber
  390    N DIR,X,Y
  391    S DIR(0)= "FAO^3:50"
  392    S DIR("A" )="Enter t he e-Payme nts Number  to Search  for in Al l types: "
  393    S DIR("?" )="Enter t he target  number, 3  to 50 char acters fre e text."
  394    D ^DIR
  395    I $G(DTOU T)!($G(DUO UT)) S Y=- 1
  396    Q $S(Y'=" ":Y,1:-1)
  397    ;
  398   ASK2CONT()  ; boolean  function,  ask user  if they wa nt to sear ch again
  399    ; returns  1 if user  wants a n ew search,  else zero
  400    N DIR,DTO UT,DUOUT,X ,Y
  401    S RCRTRN= 0,DIR(0)=" YA",DIR("A ")="Would  you like t o perform  another se arch? "
  402    S DIR("A" ,1)=" "  ; ,DIR("A",2 )="No resu lts were f ound."
  403    S DIR("A" ,2)="You c an use the  same numb er for ano ther type  of search. "
  404    S DIR("?" )="Enter ' YES' to se arch again  using the  same e-Pa yments num ber.",DIR( "B")="NO"  D ^DIR
  405    Q $S(X[U! $D(DUOUT)! $D(DTOUT)! 'Y:0,1:1)
  406    ;
  407    ; return  subscript  for search  type
  408   SBSCRPT(X)  Q $S(X=1: "Check#",X =2:"CredCa rd",1:"Tra ce#")
  409    ; functio n, upperca se
  410   UP(T) Q $T R(T,"abcde fghijklmno pqrstuvwxy z","ABCDEF GHIJKLMNOP QRSTUVWXYZ ")
  411    ;
  412