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