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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 284 |
Changed | 0 | 0 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 h | |
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.