6. EPMO Open Source Coordination Office Redaction File Detail Report

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

6.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 US334 SDD.docx Fri Jan 25 13:47:50 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 US334 SDD.docx Mon Feb 25 18:43:49 2019 UTC

6.2 Comparison summary

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

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

6.4 Active regular expressions

No regular expressions were active.

6.5 Comparison detail

  1   MCCF EDI T AS US334
  2   System Des ign Docume nt
  3   PRCA*4.5*x xx
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   May 2018
  10   Version 1
  11   User Story  ID: US334
  12   User Story  Name:  Ex pand User  Initials o n the List  of Receip ts Report
  13   Sizing:  1
  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   Supervisor
  26   The user c olumn on t he List of  Receipts  Report  [R CDP LIST O F RECEIPTS  REPORT] e xpanded to  include 7  character s
  27   I can redu ce better  identify w ho is proc essing rec eipts
  28  
  29   Conversati on (if des ired by de velopers)
  30   The initia l column w ill be cha nged to sh ow the fir st 5 chara cters of t he user’s  last name  followed b y a ‘,’ an d the firs t initial  of the use r’s first  name.  Not e, if the  receipt wa s processe d automati cally, it  will conti nue to sho w ‘ar’ as  the user.   To make r oom for th is, the ty pe column  will be sh ortened fr om 7 chara cters to 6  character s and the  status col umn will b e reduced  from 9 cha racters to  6 charact ers.
  31  
  32   Below are  the curren t and new  possible v alues of t he type co lumn:
  33   Current
  34   New
  35   CASH
  36   CASH
  37   CHECK/MO
  38   CHECK
  39   EDI
  40   EDI
  41   CREDIT
  42   CREDIT
  43  
  44   Below are  the curren t and new  possible v alues of t he status  field:
  45   Current
  46   New
  47   QUEUED FO
  48   QUEUED
  49   MARKED FO
  50   MARKED
  51   TRANSMITT
  52   XMIT
  53   ERROR DUR
  54   ERROR
  55   ACCEPTED
  56   ACCEPT
  57   FINAL -
  58   FINAL
  59   NOT ENTER
  60   NOTENT
  61   ON LINE E
  62   ONLINE
  63  
  64   See routin e zzRCDPRL IS344 
  65  
  66     Resoluti on – Added  Changed O bjects
  67  
  68   Routines
  69   Activities
  70   Routine Na me
  71   RCDPRLIS
  72   Enhancemen t Category
  73    New
  74    Modify
  75    Delete
  76    No Change
  77   RTM
  78  
  79   Related Op tions
  80   RCDP LIST  OF RECEIPT S REPORT
  81   Routines
  82   Activities
  83   Data Dicti onary (DD)  Reference s
  84  
  85   Related Pr otocols
  86  
  87   Related In tegration  Control Re gistration s (ICRs)
  88  
  89   Data Passi ng
  90    Input
  91    Output Re ference
  92    Both
  93    Global Re ference
  94    Local
  95   Input Attr ibute Name  and Defin ition
  96   Name:
  97   Definition :
  98   Output Att ribute Nam e and Defi nition
  99   Name:
  100   Definition :
  101   Related Ro utines
  102   Routines “ Called By”
  103   Routines “ Called”   
  104  
  105   N/A
  106   $$ASKLM^RC DPEARL
  107   EN^RCDPRL
  108   DIQ344^RCD PRLM
  109   $$FMSTAT^R CDPUREC
  110   PAUSE^RCRJ RTR1
  111   DATESEL^RC RJRTA
  112  
  113  
  114   Current Lo gic
  115   RCDPRLIS ; WISC/RFJ -  list of r eceipts re port ;1 Ju n 99 ;;4.5 ;Accounts  Receivable ;**114,304 ,321**;Mar  20, 1995; Build 104  ;;Per VA D irective 6 402, this  routine sh ould not b e modified . ;
  116   .
  117   .
  118   .DQ ; queu ed report  starts her e ; PRCA*4 .5*321 Ext ensive cha nges to th is subrout ine for fi lter/sort/ ListMan N  %,%I,CNT,D ATA,DATE,D ATEDIS1,DA TEDIS2,FMS DOCNO,FMST ATUS,NOW,P AGE,PTYPE, RCDK,RCDPD ATA N RCDP FPRE,RCIX, RCRECTDA,R CRJFLAG,RC RJLINE,RCU SER,SCREEN ,SPACE,TOT ALS,TYPE,X ,Y K ^TMP( $J,"RCDPRL IS") S SPA CE=$J("",8 0) S RCDK= $$FMADD^XL FDT(DATEST RT,-1)_".2 4" ; Initi alize star t date for  first $OR DER S DATE END=DATEEN D_".24" ;  Receipt da te opened  can includ e time, so  compare w ith midnig ht on the  end date.  F  S RCDK= $O(^RCY(34 4,"AO",RCD K)) Q:(RCD K=""!(RCDK >DATEEND))  D  ; . S  RCRECTDA=0  F  S RCRE CTDA=$O(^R CY(344,"AO ",RCDK,RCR ECTDA)) Q: 'RCRECTDA   D . . K R CDPDATA .  . D DIQ344 ^RCDPRPLM( RCRECTDA," .01:200")  . . ; get  fms docume nt ^ statu s ^ pre lo ckbox patc h . . S FM SDOCNO=$$F MSSTAT^RCD PUREC(RCRE CTDA) . .  ; Apply fi lter by FM S Status .  . S FMSTA TUS=$P(FMS DOCNO,"^", 2) . . I R CFILTF,FMS TATUS'="", '$D(RCFILT F(FMSTATUS )) Q  ; th is status  not includ ed . . ; A pply filte r by Payme nt Type .  . S PTYPE= RCDPDATA(3 44,RCRECTD A,.04,"E")  . . I RCF ILTT,PTYPE '="",'$D(R CFILTT(PTY PE)) Q  ;  this statu s not incl uded . . ;  . . ; com pute total s by type  . . I RCDP DATA(344,R CRECTDA,.0 4,"E")=""  S RCDPDATA (344,RCREC TDA,.04,"E ")="UNKNOW N" . . S $ P(TOTALS(P TYPE),"^", 1)=$P($G(T OTALS(PTYP E)),"^",1) +RCDPDATA( 344,RCRECT DA,101,"E" ) . . S $P (TOTALS(PT YPE),"^",2 )=$P($G(TO TALS(PTYPE )),"^",2)+ RCDPDATA(3 44,RCRECTD A,.15,"E")  . . S $P( TOTALS,"^" ,1)=$P($G( TOTALS),"^ ",1)+RCDPD ATA(344,RC RECTDA,101 ,"E") . .  S $P(TOTAL S,"^",2)=$ P($G(TOTAL S),"^",2)+ RCDPDATA(3 44,RCRECTD A,.15,"E")  . . ; . .  ; opened  by . . I R CDPDATA(34 4,RCRECTDA ,.02,"I")= .5 D  ; .  . . S RCUS ER="ar" .  . E  D  ;  . . . S RC USER=RCDPD ATA(344,RC RECTDA,.02 ,"E") . .  . I RCUSER '="" D . .  . . S RCU SER=$E($P( RCUSER,"," ,2))_$E(RC USER) . .  ; . . S DA TA=RCDPDAT A(344,RCRE CTDA,.01," E") ;recei pt number  . . S DATA =DATA_"^"_ RCDPDATA(3 44,RCRECTD A,.03,"I")  ;date ope ned . . S  DATA=DATA_ "^"_RCDPDA TA(344,RCR ECTDA,.04, "E") ;paym ent type .  . S DATA= DATA_"^"_R CUSER                              ;user in itials . .  S DATA=DA TA_"^"_RCD PDATA(344, RCRECTDA,1 01,"E") ;p ayment cou nt . . S D ATA=DATA_" ^"_RCDPDAT A(344,RCRE CTDA,.15," E") ;payme nt amount  . . S DATA =DATA_"^"_ $S($P(FMSD OCNO,"^",3 ):"*",1:"  ") ;pre lo ckbox . .  S DATA=DAT A_"^"_$P(F MSDOCNO,"^ ") ;fms cr  document  . . S DATA =DATA_"^"_ $P(FMSDOCN O,"^",2) ; fms cr doc  status .  . S DATA=D ATA_"^"_RC RECTDA                            ;ien of f ile 344 .  . ; . . ;  Index ^TMP  global by  user sele cted sort  order . .  I RCSORT=" D" S RCIX= RCDPDATA(3 44,RCRECTD A,.03,"I")  . . I RCS ORT="F" S  RCIX=FMSTA TUS . . I  RCSORT="T"  S RCIX=PT YPE . . S  ^TMP($J,"R CDPRLIS"," SORT",RCIX ,RCRECTDA) =DATA ; S  Y=$P(DATES TRT,".") S  DATEDIS1= $$FMTE^XLF DT(Y,"2DZ" ) S Y=$P(D ATEEND,"." ) S DATEDI S2=$$FMTE^ XLFDT(Y,"2 DZ") D NOW ^%DTC S Y= % D DD^%DT  S NOW=Y S  PAGE=1,RC RJLINE="", $P(RCRJLIN E,"-",81)= "" S SCREE N=0 I '$D( ZTQUEUED), '$G(RCLSTM GR),IO=IO( 0),$E(IOST )="C" S SC REEN=1 D H DR ; Compi le header  in to ^TMP  for use i n report o r ListMan  U IO D:'$G (RCLSTMGR)  H S CNT=0  S RCIX=0  F  S RCIX= $O(^TMP($J ,"RCDPRLIS ","SORT",R CIX)) Q:RC IX=""!($G( RCRJFLAG))  D . S RCR ECTDA=0 F   S RCRECTD A=$O(^TMP( $J,"RCDPRL IS","SORT" ,RCIX,RCRE CTDA)) Q:' RCRECTDA!( $G(RCRJFLA G)) D . .  S DATA=^TM P($J,"RCDP RLIS","SOR T",RCIX,RC RECTDA) .  . S DATE=$ P(DATA,"^" ,2) . . S  CNT=CNT+1  . . S XX=" " . . I RC LSTMGR S X X=" "_$E(C NT_SPACE,1 ,4)_" "                             ; line  number (fo r listman)  . . S XX= XX_$$FMTE^ XLFDT(DATE ,"2ZD")_"  "                                  ; date o pened . .  S XX=XX_$E ($P(DATA," ^")_SPACE, 1,12)_" "                               ; r eceipt num ber . . S  XX=XX_$E($ P($P(DATA, "^",3)," " )_SPACE,1, $S(RCLSTMG R:5,1:8))_ " "  ; pay ment type   . . S XX= XX_$E($P(D ATA,"^",4) _SPACE,1,2 ) ; user i nitials .  . S XX=XX_ $J($P(DATA ,"^",5),6)  ; payment  count . .  S XX=XX_$ J($P(DATA, "^",6),$S( RCLSTMGR:1 1,1:13),2) _" "               ;  payment am ount . . S  XX=XX_$E( $P(DATA,"^ ",7)_SPACE ,1) ; pre  lockbox .  . S XX=XX_ $E($P(DATA ,"^",8)_SP ACE,1,16)_ " "                            ;  fms cr do cument . .  S XX=XX_$ E($P(DATA, "^",9),1,$ S(RCLSTMGR :8,1:9)) ;  fms cr do c status .  . ; . . ;  Write lin e or put i t to globa l . . I '$ G(RCLSTMGR ) D  ; . .  . W !,XX  . . E  D   ; . . . S  ^TMP($J,"R CDPRLIS",C NT)=XX . .  . S ^TMP( $J,"RCDPRL IS","IDX", CNT)=$P(DA TA,"^",10)  ; Cross r eference l ine# vs fi le 344 DA  . . ; . .  ; set pre  lockbox fl ag to 1 to  show note  at end of  report .  . I $P(DAT A,"^",7)=" *" S RCDPF PRE=1 . .  ; . . I '$ G(RCLSTMGR ),$Y>(IOSL -6) D:SCRE EN PAUSE^R CRJRTR1 Q: $G(RCRJFLA G) D H ; I  $G(RCLSTM GR) Q  ; P RCA*4.5*32 1 - Totals  don't hav e a place  in a proto col list w ith action s ; I $G(R CRJFLAG) D  CLEAN Q I  $G(RCDPFP RE) W !?54 ,"*CR tied  to deposi t" W !?33, "------ -- ---------"  W !?33,$J ($P($G(TOT ALS),"^"), 6),$J($P($ G(TOTALS), "^",2),13, 2) ; ; sho w totals b y type of  payment W  !!,"TOTALS  BY TYPE O F PAYMENT"  W !,"---- ---------- ---------- -" S TYPE= "" F  S TY PE=$O(TOTA LS(TYPE))  Q:TYPE=""! ($G(RCRJFL AG)) D . W  !,TYPE,?3 3,$J($P(TO TALS(TYPE) ,"^"),6),$ J($P(TOTAL S(TYPE),"^ ",2),13,2)  . I $Y>(I OSL-6) D:S CREEN PAUS E^RCRJRTR1  Q:$G(RCRJ FLAG) D H  ; W !!,"** * END OF R EPORT ***" ,! ; I $G( RCRJFLAG)  D CLEAN Q  I SCREEN U  IO(0) R ! ,"Press RE TURN to co ntinue:",% :DTIME ; I  '$G(RCLST MGR) D CLE AN QCLEAN  ; Clean up  ^TMP arra ys D ^%ZIS C K ^TMP($ J,"RCDPRLI S") Q ;
  119   .
  120   .
  121   .
  122    ;HDR ; Co mpile head er into ^T MP for use  in ListMa n or repor t ; Input:  None ; Ou tput: Head er informa tion in ^T MP($J,"RCD PRLIS","HD R",n) for  us in repo rt or List Man format s N K,XX S  ^TMP($J," RCDPRLIS", "HDR",1)=" LIST OF RE CEIPTS REP ORT" s XX= " DATE RAN GE : "_DAT EDIS1_" TO  "_DATEDIS 2_" " S XX =XX_"SORT  ORDER: "_$ S(RCSORT=" D":"DATE O PENED",RCS ORT="F":"F MS STATUS" ,1:"PAYMEN T TYPE") S  ^TMP($J," RCDPRLIS", "HDR",2)=X X ; I 'RCF ILTF D  ;  . S XX="AL L" E  D  ;  . S XX=""  . S K=""  F  S K=$O( RCFILTF(K) ) Q:K=""   S:XX'="" X X=XX_"; "  S XX=XX_K  S ^TMP($J, "RCDPRLIS" ,"HDR",3)= " FMS STAT US : "_$S( $L(XX)>63: "SELECTED" ,1:XX) ;   I 'RCFILTT  D  ; . S  XX="ALL" E   D  ; . S  XX="" . S  K="" F  S  K=$O(RCFI LTT(K)) Q: K=""  S:XX '="" XX=XX _"; " S XX =XX_K S ^T MP($J,"RCD PRLIS","HD R",4)=" PA YMENT TYPE S: "_$S($L (XX)>63:"S ELECTED",1 :XX) S ^TM P($J,"RCDP RLIS","HDR ",5)="DATE  RECEIPT T YPE US COU NT AMOUNT  FMS CR DOC  STATUS" W  !,RCRJLIN E Q ;H ; h eader N %  S %=NOW_"  PAGE "_PAG E,PAGE=PAG E+1 I PAGE '=2!(SCREE N) W @IOF  W $C(13),^ TMP($J,"RC DPRLIS","H DR",1),?(8 0-$L(%)),%  W !,^TMP( $J,"RCDPRL IS","HDR", 2) W !,^TM P($J,"RCDP RLIS","HDR ",3) W !,^ TMP($J,"RC DPRLIS","H DR",4) W ! ,^TMP($J," RCDPRLIS", "HDR",5) W  !,RCRJLIN E Q
  123  
  124   Modified L ogic
  125   RCDPRLIS ; WISC/RFJ -  list of r eceipts re port ;1 Ju n 99 ;;4.5 ;Accounts  Receivable ;**114,304 ,321**;Mar  20, 1995; Build 104  ;;Per VA D irective 6 402, this  routine sh ould not b e modified . ;.
  126   .
  127   .
  128    ;DQ ; que ued report  starts he re ; PRCA* 4.5*321 Ex tensive ch anges to t his subrou tine for f ilter/sort /ListMan N  %,%I,CNT, DATA,DATE, DATEDIS1,D ATEDIS2,FM SDOCNO,FMS TATUS,NOW, PAGE,PTYPE ,RCDK,RCDP DATA N RCD PFPRE,RCIX ,RCRECTDA, RCRJFLAG,R CRJLINE,RC USER,SCREE N,SPACE,TO TALS,TYPE, X,XX,Y,ZZ  K ^TMP($J, "RCDPRLIS" ) S SPACE= $J("",80)  S RCDK=$$F MADD^XLFDT (DATESTRT, -1)_".24"  ; Initiali ze start d ate for fi rst $ORDER  S DATEEND =DATEEND_" .24" ; Rec eipt date  opened can  include t ime, so co mpare with  midnight  on the end  date. F   S RCDK=$O( ^RCY(344," AO",RCDK))  Q:(RCDK=" "!(RCDK>DA TEEND)) D   ; . S RCR ECTDA=0 F   S RCRECTD A=$O(^RCY( 344,"AO",R CDK,RCRECT DA)) Q:'RC RECTDA  D  . . K RCDP DATA . . D  DIQ344^RC DPRPLM(RCR ECTDA,".01 :200") . .  ; get fms  document  ^ status ^  pre lockb ox patch .  . S FMSDO CNO=$$FMSS TAT^RCDPUR EC(RCRECTD A) . . ; A pply filte r by FMS S tatus . .  S FMSTATUS =$P(FMSDOC NO,"^",2)  . . I RCFI LTF,FMSTAT US'="",'$D (RCFILTF(F MSTATUS))  Q  ; this  status not  included  . . ; Appl y filter b y Payment  Type . . S  PTYPE=RCD PDATA(344, RCRECTDA,. 04,"E") .  . I RCFILT T,PTYPE'=" ",'$D(RCFI LTT(PTYPE) ) Q  ; thi s status n ot include d . . ; .  . ; comput e totals b y type . .  I RCDPDAT A(344,RCRE CTDA,.04," E")="" S R CDPDATA(34 4,RCRECTDA ,.04,"E")= "UNKNOWN"  . . S $P(T OTALS(PTYP E),"^",1)= $P($G(TOTA LS(PTYPE)) ,"^",1)+RC DPDATA(344 ,RCRECTDA, 101,"E") .  . S $P(TO TALS(PTYPE ),"^",2)=$ P($G(TOTAL S(PTYPE)), "^",2)+RCD PDATA(344, RCRECTDA,. 15,"E") .  . S $P(TOT ALS,"^",1) =$P($G(TOT ALS),"^",1 )+RCDPDATA (344,RCREC TDA,101,"E ") . . S $ P(TOTALS," ^",2)=$P($ G(TOTALS), "^",2)+RCD PDATA(344, RCRECTDA,. 15,"E") .  . ; . . ;  opened by  . . I RCDP DATA(344,R CRECTDA,.0 2,"I")=.5  D  ; . . .  S RCUSER= "ar" . . E   D  ; . .  . S RCUSE R=RCDPDATA (344,RCREC TDA,.02,"E ") . . . I  RCUSER'=" " D . . .  . S RCUSER =$E($P(RCU SER, ",",1 ),1,5)_"," _$E($P(RCU SER,",",2) ,1) . . ;  . . S DATA =RCDPDATA( 344,RCRECT DA,.01,"E" ) ; Receip t number .  . S DATA= DATA_"^"_R CDPDATA(34 4,RCRECTDA ,.03,"I")  ; Date ope ned . . S  ZZ=$$TYPE( RCDPDATA(3 44,RCRECTD A,.04,"E") ) ; Paymen t type . .  S DATA=DA TA_"^"_ZZ                                   ; Payment  type . . S  DATA=DATA _"^"_RCUSE R                             ;  User initi als . . S  DATA=DATA_ "^"_RCDPDA TA(344,RCR ECTDA,101, "E") ; Pay ment count  . . S DAT A=DATA_"^" _RCDPDATA( 344,RCRECT DA,.15,"E" ) ; Paymen t amount .  . S DATA= DATA_"^"_$ S($P(FMSDO CNO,"^",3) :"*",1:" " ) ; Pre lo ckbox . .  S DATA=DAT A_"^"_$P(F MSDOCNO,"^ ") ; FMS C R document  . . S ZZ= $$STATUS($ P(FMSDOCNO ,"^",2)) ;  FMS CR do c status .  . S DATA= DATA_"^"_Z Z                                  ; FMS CR  doc statu s . . S DA TA=DATA_"^ "_RCRECTDA                            ; IEN  of file 3 44 . . ; .  . ; Index  ^TMP glob al by user  selected  sort order  . . I RCS ORT="D" S  RCIX=RCDPD ATA(344,RC RECTDA,.03 ,"I") . .  I RCSORT=" F" S RCIX= FMSTATUS .  . I RCSOR T="T" S RC IX=PTYPE .  . S ^TMP( $J,"RCDPRL IS","SORT" ,RCIX,RCRE CTDA)=DATA  ; S Y=$P( DATESTRT," .") S DATE DIS1=$$FMT E^XLFDT(Y, "2DZ") S Y =$P(DATEEN D,".") S D ATEDIS2=$$ FMTE^XLFDT (Y,"2DZ")  D NOW^%DTC  S Y=% D D D^%DT S NO W=Y S PAGE =1,RCRJLIN E="",$P(RC RJLINE,"-" ,81)="" S  SCREEN=0 I  '$D(ZTQUE UED),'$G(R CLSTMGR),I O=IO(0),$E (IOST)="C"  S SCREEN= 1 D HDR ;  Compile he ader in to  ^TMP for  use in rep ort or Lis tMan U IO  D:'$G(RCLS TMGR) H S  CNT=0 S RC IX=0 F  S  RCIX=$O(^T MP($J,"RCD PRLIS","SO RT",RCIX))  Q:RCIX="" !($G(RCRJF LAG)) D .  S RCRECTDA =0 F  S RC RECTDA=$O( ^TMP($J,"R CDPRLIS"," SORT",RCIX ,RCRECTDA) ) Q:'RCREC TDA!($G(RC RJFLAG)) D  . . S DAT A=^TMP($J, "RCDPRLIS" ,"SORT",RC IX,RCRECTD A) . . S D ATE=$P(DAT A,"^",2) .  . S CNT=C NT+1 . . S  XX="" . .  I RCLSTMG R S XX=" " _$E(CNT_SP ACE,1,4)_"  "                            ;  line numbe r (for lis tman) . .  S XX=XX_$$ FMTE^XLFDT (DATE,"2ZD ")_" "                                  ; d ate opened  . . S XX= XX_$E($P(D ATA,"^",1) _SPACE,1,1 2)_" "                             ; receip t number .  . S XX=XX _$E($P(DAT A,"^",3)_S PACE,1,$S( RCLSTMGR:5 ,1:6))_" "            ; payment  type  . .  S XX=XX_$E ($P(DATA," ^",4)_SPAC E,1,7)_" "                              ; u ser initia ls . . S X X=XX_$J($P (DATA,"^", 5),5) ; pa yment coun t . . S XX =XX_$J($P( DATA,"^",6 ),$S(RCLST MGR:11,1:1 3),2)_" "                ; payme nt amount  . . S XX=X X_$E($P(DA TA,"^",7)_ SPACE,1) ;  pre lockb ox . . S X X=XX_$E($P (DATA,"^", 8)_SPACE,1 ,16)_" "                             ; fms  cr documen t . . S XX =XX_$P(DAT A,"^",9) ; $E($P(DATA ,"^",9),1, $S(RCLSTMG R:8,1:9))  ; fms cr d oc status  . . ; . .  ; Write li ne or put  it to glob al . . I ' $G(RCLSTMG R) D  ; .  . . W !,XX  . . E  D   ; . . . S  ^TMP($J," RCDPRLIS", CNT)=XX .  . . S ^TMP ($J,"RCDPR LIS","IDX" ,CNT)=$P(D ATA,"^",10 ) ; Cross  reference  line# vs f ile 344 DA  . . ; . .  ; set pre  lockbox f lag to 1 t o show not e at end o f report .  . I $P(DA TA,"^",7)= "*" S RCDP FPRE=1 . .  ; . . I ' $G(RCLSTMG R),$Y>(IOS L-6) D:SCR EEN PAUSE^ RCRJRTR1 Q :$G(RCRJFL AG) D H ;  I $G(RCLST MGR) Q  ;  PRCA*4.5*3 21 - Total s don't ha ve a place  in a prot ocol list  with actio ns ; I $G( RCRJFLAG)  D CLEAN Q  I $G(RCDPF PRE) W !?5 4,"*CR tie d to depos it" W !?33 ,"------ - ---------- " W !?33,$ J($P($G(TO TALS),"^") ,6),$J($P( $G(TOTALS) ,"^",2),13 ,2) ; ; sh ow totals  by type of  payment W  !!,"TOTAL S BY TYPE  OF PAYMENT " W !,"--- ---------- ---------- --" S TYPE ="" F  S T YPE=$O(TOT ALS(TYPE))  Q:TYPE="" !($G(RCRJF LAG)) D .  W !,TYPE,? 33,$J($P(T OTALS(TYPE ),"^"),6), $J($P(TOTA LS(TYPE)," ^",2),13,2 ) . I $Y>( IOSL-6) D: SCREEN PAU SE^RCRJRTR 1 Q:$G(RCR JFLAG) D H  ; W !!,"* ** END OF  REPORT *** ",! ; I $G (RCRJFLAG)  D CLEAN Q  I SCREEN  U IO(0) R  !,"Press R ETURN to c ontinue:", %:DTIME ;  I '$G(RCLS TMGR) D CL EAN Q ;TYP E(AREVENT)  ; Returns  an abbrev iated type  of the AR  EVENT ; I nput: AREV ENT - Exte rnal AR Ev ent Type ( file 344,  field .04)  ; Returns : 6 charac ter (max)  event type  abbreviat ion I AREV ENT="EDI L OCKBOX" Q  "EDI" I AR EVENT="CAS H PAYMENT"  Q "CASH"  I AREVENT= "CHECK/MO  PAYMENT" Q  "CHECK" I  AREVENT=" LOCKBOX" Q  "LOCKBX"  Q $E(AREVE NT,1,6) ;S TATUS(STAT US) ; Retu rns an abb reviated s tatus of t he FMS Doc  Status ;  Input: STA TUS - 2nd  word of th e FMS Doc  Status ; R eturns: 9  character  (max) stat us S STATU S=$P(STATU S," ",1) I  STATUS="T RANSMITTED " Q "XMIT"  I STATUS= "ACCEPTED"  Q "ACCEPT " I STATUS ="REJECTED " Q "REJEC T" I STATU S="NOT" Q  "NOTENT" I  STATUS="O N" Q "ONLI NE" Q STAT US ;CLEAN  ; Clean up  ^TMP arra ys D ^%ZIS C K ^TMP($ J,"RCDPRLI S") Q ;
  129   .
  130   .
  131   .
  132    ;HDR ; Co mpile head er into ^T MP for use  in ListMa n or repor t ; Input:  None ; Ou tput: Head er informa tion in ^T MP($J,"RCD PRLIS","HD R",n) for  us in repo rt or List Man format s N K,XX S  ^TMP($J," RCDPRLIS", "HDR",1)=" LIST OF RE CEIPTS REP ORT" S XX= " DATE RAN GE : "_DAT EDIS1_" TO  "_DATEDIS 2_" " S XX =XX_"SORT  ORDER: "_$ S(RCSORT=" D":"DATE O PENED",RCS ORT="F":"F MS STATUS" ,1:"PAYMEN T TYPE") S  ^TMP($J," RCDPRLIS", "HDR",2)=X X ; I 'RCF ILTF D  ;  . S XX="AL L" E  D  ;  . S XX=""  . S K=""  F  S K=$O( RCFILTF(K) ) Q:K=""   S:XX'="" X X=XX_"; "  S XX=XX_K  S ^TMP($J, "RCDPRLIS" ,"HDR",3)= " FMS STAT US : "_$S( $L(XX)>63: "SELECTED" ,1:XX) ;   I 'RCFILTT  D  ; . S  XX="ALL" E   D  ; . S  XX="" . S  K="" F  S  K=$O(RCFI LTT(K)) Q: K=""  S:XX '="" XX=XX _"; " S XX =XX_K S ^T MP($J,"RCD PRLIS","HD R",4)=" PA YMENT TYPE S: "_$S($L (XX)>63:"S ELECTED",1 :XX) S ^TM P($J,"RCDP RLIS","HDR ",5)="DATE  RECEIPT T YPE US COU NT AMOUNT  FMS CR DOC  STATUS" W  !,RCRJLIN E Q ;H ; h eader N %  S %=NOW_"  PAGE "_PAG E,PAGE=PAG E+1 I PAGE '=2!(SCREE N) W @IOF  W $C(13),^ TMP($J,"RC DPRLIS","H DR",1),?(8 0-$L(%)),%  W !,^TMP( $J,"RCDPRL IS","HDR", 2) W !,^TM P($J,"RCDP RLIS","HDR ",3) W !,^ TMP($J,"RC DPRLIS","H DR",4) W ! ,^TMP($J," RCDPRLIS", "HDR",5) W  !,RCRJLIN E Q
  133  
  134  
  135  
  136  
  137  
  138  
  139  
  140  
  141  
  142