Produced by Araxis Merge on 10/23/2018 6:40:31 AM Central Daylight 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 | docs | TAS ePay US765 SDD - Copy.doc | Mon Oct 22 16:28:44 2018 UTC |
| 2 | docs | TAS ePay US765 SDD - Copy.doc | Mon Oct 22 16:32:25 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 960 |
| 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 US765 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | June 2017 | |
| 7 | Version 1 | |
| 8 | User Story Number: U S765 | |
| 9 | Story | |
| 10 | As an ePay ments user , I need t o filter t he existin g Link Pay ment repor t. A filte r by recei pt number needs to b e added to the exist ing report . The Link Payment r eport need s to be ex portable t o Excel. | |
| 11 | Conversati on | |
| 12 | 6/7/17 | |
| 13 | Filter by one indivi dual recei pt number | |
| 14 | No option for Excel on this re port, need ed for aud iting func tions | |
| 15 | Summary: | |
| 16 | Changed Ro utines: | |
| 17 | RCDPLPS2 – Existing routine | |
| 18 | Add prompt for new f ilter opti on and hon or filter in report creation. Modify re port heade r. | |
| 19 | User Inter face: | |
| 20 | Current – Link Payme nt Report Prompts | |
| 21 | START DATE : T-30 (M AY 17, 201 7) | |
| 22 | END DATE: 6/16/17// (JUN 16, 2017) | |
| 23 | (S)ingle U ser or (A) ll Users? ALL// Al l AR Users | |
| 24 | DEVICE: HO ME// | |
| 25 | Proposed – Link Paym ent Report Prompts | |
| 26 | RECEIPT NU MBER: | |
| 27 | START DATE : T-30 (M AY 17, 201 7) | |
| 28 | END DATE: 6/16/17// (JUN 16, 2017) | |
| 29 | (S)ingle U ser or (A) ll Users? ALL// Al l AR Users | |
| 30 | ||
| 31 | Export the report to Microsoft Excel? (Y /N): NO// | |
| 32 | DEVICE: HO ME// | |
| 33 | or | |
| 34 | RECEIPT NU MBER:E1705 1800 | |
| 35 | ||
| 36 | Export the report to Microsoft Excel? (Y /N): NO// | |
| 37 | DEVICE: HO ME// | |
| 38 | Current Re port Heade r | |
| 39 | LINK PAYME NT TRACKIN G REPORT JUN 16, 20 17@14:21:5 7 PAGE 1 | |
| 40 | FOR THE DATE RANGE : MAY 17, 2017 TO JUN 16, 20 17 FOR U SER(S): AL L | |
| 41 | RECEIPT# TRANS # DATE AMOU NT CLAIM USER DISP OSITION RE ASON | |
| 42 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
| 43 | Proposed R eport Head er | |
| 44 | Unchanged unless a r eceipt num ber is ent ered at th e first pr ompt . In which case : | |
| 45 | LINK PAYME NT TRACKIN G REPORT JUN 16, 20 17@14:21:5 7 PAGE 1 | |
| 46 | FOR THE DATE RANGE : RECEI PT#: E1705 1800 | |
| 47 | RECEIPT# TRANS # DATE AMOU NT CLAIM USER DISP OSITION RE ASON | |
| 48 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- | |
| 49 | Resolution – Added C hanged Obj ects | |
| 50 | RoutinesAc tivitiesRo utine Name RCDPLPS2En hancement Category N ew Modify Delete No ChangeRTMR elated Opt ionsLINK P AYMENT TRA CKING REPO RTRelated RoutinesRo utines “Ca lled By”Ro utines “Ca lled” N/ A$$USERINI T^ RCDPLPS 1Current L ogicRCDPLP S2 ;ALB/SA B - link p ayment tra cking repo rt ;5 Feb 2015 | |
| 51 | ;;4.5;Acc ounts Rece ivable;**3 04**;Feb 0 5, 2015;Bu ild 104 | |
| 52 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 53 | Q | |
| 54 | ; | |
| 55 | EN ; | |
| 56 | ; | |
| 57 | ;init var iables | |
| 58 | N RCRANGE ,RCBEGDT,R CENDDT,RCU SER,RCENDF LG,% | |
| 59 | ; | |
| 60 | ;Set user exit flag | |
| 61 | S RCENDFL G=0 | |
| 62 | ; | |
| 63 | ;get date range, qu it if time d out or u ser wished to exit. | |
| 64 | S RCRANGE =$$DTRNG() | |
| 65 | Q:+RCRANG E=0 | |
| 66 | ; | |
| 67 | ;Extract begin and end date o f report | |
| 68 | S RCBEGDT =$P(RCRANG E,U,2),RCE NDDT=$P(RC RANGE,U,3) | |
| 69 | ; | |
| 70 | ;(Optiona l) get the AR Clerk to filter on. | |
| 71 | S RCUSER= $$USER() | |
| 72 | Q:RCUSER= "" | |
| 73 | ; | |
| 74 | ; undecla red parame ter RCENDF LG is set if | |
| 75 | D REPORT( RCBEGDT,RC ENDDT,RCUS ER) | |
| 76 | ; | |
| 77 | I 'RCENDF LG R !,"Pr ess RETURN to contin ue:",%:DTI ME | |
| 78 | Q | |
| 79 | ; | |
| 80 | ; Get the date rang e for the report | |
| 81 | DTRNG() ; | |
| 82 | ; | |
| 83 | ;Retrieve the date range | |
| 84 | D DATES(. RCSTART,.R CEND) | |
| 85 | ; | |
| 86 | ;format i t for use in the rep ort | |
| 87 | Q:RCSTART =-1 0 | |
| 88 | Q:RCSTART "1^"_RCST ART_"^"_RC END | |
| 89 | Q:'RCSTAR T "0^^" | |
| 90 | Q 0 | |
| 91 | ; | |
| 92 | ;Get star t and end dates. Def ault is To day for th e End date and 45 da ys from en d date for the begin ning date | |
| 93 | DATES(RCBD ATE,RCEDAT E) ; | |
| 94 | ; | |
| 95 | N DIR,DUO UT,RNGFLG, X,Y,DTOUT, DIROUT,DIR UT,RCTODAY | |
| 96 | ; | |
| 97 | S RCTODAY =$$DT^XLFD T() | |
| 98 | ; Get the End date first. Ass ume the en d date is today. | |
| 99 | S RCBDATE =$$HTFM^XL FDT($$FMTH ^XLFDT(RCT ODAY)-45), RCEDATE=RC TODAY | |
| 100 | ; | |
| 101 | ;Get the start date . | |
| 102 | S DIR("?" )="ENTER T HE EARLIES T AUTO POS TING DATE TO INCLUDE ON THE RE PORT" | |
| 103 | S DIR(0)= "DAO^::APE ",DIR("A") ="START DA TE: " | |
| 104 | D ^DIR K DIR | |
| 105 | I $D(DTOU T)!$D(DUOU T)!(Y="") S RCBDATE= -1 Q | |
| 106 | S RCBDATE =Y | |
| 107 | ; | |
| 108 | ;Get the end date | |
| 109 | S DIR("?" )="ENTER T HE LATEST AUTO POSTI NG DATE TO INCLUDE O N THE REPO RT" | |
| 110 | S DIR("B" )=$$FMTE^X LFDT(RCTOD AY,2) | |
| 111 | S DIR(0)= "DAO^"_RCB DATE_":"_R CTODAY_":A PE",DIR("A ")="END DA TE: " D ^D IR K DIR | |
| 112 | I $D(DTOU T)!$D(DUOU T)!(Y="") S RCEDATE= -1 Q | |
| 113 | S RCEDATE =Y | |
| 114 | ; | |
| 115 | Q | |
| 116 | ; | |
| 117 | ; Ask to see if the report ne eds to be by a speci fic user. Return the IEN if | |
| 118 | USER() ; | |
| 119 | ; | |
| 120 | N DIR,DUO UT,RNGFLG, X,Y,RCSTAR T,RCEND,DT OUT,DIRUT, DIROUT | |
| 121 | ; All cle rks or 1 c lerk | |
| 122 | S DIR("?" )="Search on All AR Users (A), or a Sing le User (S )" | |
| 123 | S DIR("B" )="ALL" | |
| 124 | S DIR(0)= "SOA^S:Sin gle User;A :All AR Us ers" | |
| 125 | S DIR("A" )="(S)ingl e User or (A)ll User s? " | |
| 126 | D ^DIR K DIR | |
| 127 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q "" | |
| 128 | Q:Y="A" Y | |
| 129 | ; | |
| 130 | ;If a sin gle clerk is needed, retrieve and return . | |
| 131 | Q $$ARCLE RK | |
| 132 | ; | |
| 133 | ; Get the AR Clerk | |
| 134 | ARCLERK() ; | |
| 135 | ; | |
| 136 | N DIR,DUO UT,RNGFLG, X,Y,RCSTAR T,RCEND,DT OUT,DIRUT, DIROUT | |
| 137 | ; | |
| 138 | S DIR("?" )="ENTER A N AR USER TO SEARCH TRANSACTIO NS FOR" | |
| 139 | S DIR(0)= "PA^VA(200 ,:AEMQ",DI R("A")="AR USER? " D ^DIR K DI R | |
| 140 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q "" | |
| 141 | Q +Y | |
| 142 | ; | |
| 143 | REPORT(RCB EGDT,RCEND DT,RCUSER) ; report to show li nk payment audit log in FMS | |
| 144 | ; | |
| 145 | N POP,RCD ISP | |
| 146 | ; | |
| 147 | ;Select o utput devi ce | |
| 148 | S %ZIS="Q M" D ^%ZIS Q:POP | |
| 149 | ; | |
| 150 | ;Option t o queue | |
| 151 | I $D(IO(" Q")) D Q | |
| 152 | .N ZTDESC ,ZTQUEUED, ZTRTN,ZTSA VE,ZTSK | |
| 153 | .S ZTRTN= "DQ^RCDPLP S2" | |
| 154 | .S ZTDESC ="EDI LOCK BOX LINK P AYMENT AUD IT LOG REP ORT" | |
| 155 | .S ZTSAVE ("RC*")="" ,ZTSAVE("V AUTD")="" | |
| 156 | .D ^%ZTLO AD | |
| 157 | .I $D(ZTS K) W !!,"T ask number "_ZTSK_" has been q ueued." | |
| 158 | .E W !!, "Unable to queue thi s job." | |
| 159 | .K ZTSK,I O("Q") D H OME^%ZIS | |
| 160 | ; | |
| 161 | D DQ | |
| 162 | ; | |
| 163 | Q | |
| 164 | ; | |
| 165 | ; report (queue) st arts here | |
| 166 | DQ ; | |
| 167 | N RCDATE, RCENTRY,RC DATA,RCLUS ER,RCCT,RC RECTDA,RCT RANDA,RCAM T,RCEOB,RC STATUS,RCR EASON,RCDT DIS1,RCDTD IS2 | |
| 168 | N SCREEN, Y,RCNOW,PA GE,RCRJLIN E,RCRJFLAG ,RCX1,RCX, RCY,RCFLG, %,RCX2 | |
| 169 | ; | |
| 170 | K ^TMP("R CDPLPS2",$ J) | |
| 171 | ; | |
| 172 | ;Gather t he data us ing the Da te cross-r eference, starting w ith the Be gin date | |
| 173 | ; Also ma ke sure to gather al l entries from the e nd date. | |
| 174 | ; | |
| 175 | S RCDATE= RCBEGDT,RC ENDDT=RCEN DDT+.99999 9,RCCT=0 | |
| 176 | F S RCDA TE=$O(^RCY (344.71,"B ",RCDATE)) Q:'RCDATE Q:RCDATE >RCENDDT D | |
| 177 | . S RCENT RY=0 | |
| 178 | . F S RC ENTRY=$O(^ RCY(344.71 ,"B",RCDAT E,RCENTRY) ) Q:'RCENT RY D | |
| 179 | . . S RCE OB="" | |
| 180 | . . S RCD ATA=$G(^RC Y(344.71,R CENTRY,0)) | |
| 181 | . . ; | |
| 182 | . . ;Quit if corrup t index en try | |
| 183 | . . Q:RCD ATA="" | |
| 184 | . . ; | |
| 185 | . . ;Get the user. If filteri ng on user , quit if the user i s not the filter use r. | |
| 186 | . . S RCL USER=$P(RC DATA,U,2) | |
| 187 | . . I RCU SER["",RCU SER'="A",R CUSER'=RCL USER Q | |
| 188 | . . ; | |
| 189 | . . ;Upda te the cou nter | |
| 190 | . . S RCC T=RCCT+1 | |
| 191 | . . ; | |
| 192 | . . ;get the rest o f the data | |
| 193 | . . S RCR ECTDA=$P(R CDATA,U,3) ;Receipt Number | |
| 194 | . . S RCT RANDA=$P(R CDATA,U,4) ;Receipt Transactio n Number | |
| 195 | . . S RCA MT=$P(RCDA TA,U,5) ;A mount orig inally pla ced in sus pense | |
| 196 | . . S:$P( RCDATA,U,6 )[";PRCA" RCEOB=$P($ $GET1^DIQ( 430,$P($P( RCDATA,U,6 ),";")_"," ,".01","E" ),"-",2) ; Claim # | |
| 197 | . . S:$P( RCDATA,U,6 )[";DPT" R CEOB=$E($$ GET1^DIQ(2 ,$P($P(RCD ATA,U,6)," ;")_",",". 01","E"),1 ,7) ;Pat N ame | |
| 198 | . . S RCS TATUS=$$GE T1^DIQ(344 .71,RCENTR Y_",",".07 ","E") ;Su spense Sta tus | |
| 199 | . . S RCR EASON=$P(R CDATA,U,8) ;Reason f or Suspens e Status | |
| 200 | . . ; | |
| 201 | . . S RCF LG=$G(^TMP ("RCDPLPS2 ",$J,"IDX" ,RCRECTDA, RCTRANDA)) | |
| 202 | . . ;Stor e in the t emporary a rray | |
| 203 | . . S:RCF LG="" ^TMP ("RCDPLPS2 ",$J,"IDX" ,RCRECTDA, RCTRANDA)= RCCT_"~"_R CDATE | |
| 204 | . . I RCF LG'="" D | |
| 205 | . . . S R CX=$P(RCFL G,U),RCX2= $P(RCX,"~" ,2),RCX=$P (RCX,"~"), RCY=$P(RCF LG,U,2) | |
| 206 | . . . I ( RCY=""),(R CREASON="M ulti-Trans Split") D | |
| 207 | . . . . S $P(^TMP(" RCDPLPS2", $J,"IDX",R CRECTDA,RC TRANDA),U, 2)=1 | |
| 208 | . . . . K ^TMP("RCD PLPS2",$J, RCX2,RCX) | |
| 209 | . . S ^TM P("RCDPLPS 2",$J,RCDA TE,RCCT)=$ $FMTE^XLFD T(RCDATE," 2D")_U_$$U SERINIT^RC DPLPS1(RCL USER)_U_RC RECTDA_U_R CTRANDA_U_ RCAMT_U_RC EOB_U_RCST ATUS_U_RCR EASON | |
| 210 | ; | |
| 211 | ; print r eport | |
| 212 | S Y=$P(RC BEGDT,".") D DD^%DT S RCDTDIS1 =Y | |
| 213 | S Y=$P(RC ENDDT,".") D DD^%DT S RCDTDIS2 =Y | |
| 214 | D NOW^%DT C S Y=% D DD^%DT S R CNOW=Y | |
| 215 | S PAGE=1, RCRJLINE=" ",$P(RCRJL INE,"-",81 )="" | |
| 216 | S SCREEN= 0 I '$D(ZT QUEUED),IO =IO(0),$E( IOST)="C" S SCREEN=1 | |
| 217 | U IO D H | |
| 218 | S RCDATE= 0 | |
| 219 | F S RCDA TE=$O(^TMP ("RCDPLPS2 ",$J,RCDAT E)) Q:'RCD ATE!($G(RC RJFLAG)) D | |
| 220 | . S RCCT= 0 | |
| 221 | . F S RC CT=$O(^TMP ("RCDPLPS2 ",$J,RCDAT E,RCCT)) Q :'RCCT!($G (RCRJFLAG) ) D | |
| 222 | . . S RCD ATA=$G(^TM P("RCDPLPS 2",$J,RCDA TE,RCCT)) | |
| 223 | . . W $P( RCDATA,U,3 ),?15,$P(R CDATA,U,4) ,?22,$P(RC DATA,U),?3 2,$J($P(RC DATA,"^",5 ),10,2) | |
| 224 | . . W ?43 ,$P(RCDATA ,U,6),?51, $P(RCDATA, U,2),?56,$ E($P(RCDAT A,U,7),1,1 1),?68,$E( $P(RCDATA, U,8),1,12) ,! | |
| 225 | . . I $Y> (IOSL-6) D :SCREEN PA USE^RCRJRT R1 Q:$G(RC RJFLAG) D H | |
| 226 | ; | |
| 227 | K ^TMP("R CDPLPS2",$ J) | |
| 228 | D ^%ZISC | |
| 229 | S:$G(RCRJ FLAG) RCEN DFLG=1 | |
| 230 | Q | |
| 231 | ; | |
| 232 | H ; header | |
| 233 | N % | |
| 234 | S %=RCNOW _" PAGE "_ PAGE,PAGE= PAGE+1 I P AGE'=2!(SC REEN) W @I OF | |
| 235 | W $C(13), "LINK PAYM ENT TRACKI NG REPORT" ,?50,% | |
| 236 | W !," FOR THE DATE RANGE: ",R CDTDIS1," TO ",RCDTD IS2,?55,"F OR USER(S) : ",$E($S( RCUSER="A" :"ALL",1:$ $GET1^DIQ( 200,RCUSER _",",.01," E")),1,10) | |
| 237 | W !!,"REC EIPT#",?15 ,"TRANS#", ?22,"DATE" ,?36,"AMOU NT",?43,"C LAIM",?51, "USER",?56 ,"DISPOSIT ION",?68," REASON" | |
| 238 | W !,RCRJL INE,! | |
| 239 | Q | |
| 240 | ;Modified Logic (Ch anges are in bold)RC DPLPS2 ;AL B/SAB - li nk payment tracking report ;5 Feb 2015 | |
| 241 | ;;4.5;Acc ounts Rece ivable;**3 04**;Feb 0 5, 2015;Bu ild 104 | |
| 242 | ;;Per VA Directive 6402, this routine s hould not be modifie d. | |
| 243 | Q | |
| 244 | ; | |
| 245 | EN ; | |
| 246 | ; | |
| 247 | ;init var iables | |
| 248 | N %,RCBEG DT,RCENDFL G,RCENDDT, RCEXCEL,RC PT,RCRANGE ,RCUSER | |
| 249 | ; | |
| 250 | ;Set init ial values of report parameter s | |
| 251 | S RCBEGDT ="",RCENDD T="",RCUSE R="A",RCPT ="",RCENDF LG=0 | |
| 252 | ; | |
| 253 | ; US765 - Prompt fo r receipt number. No t required , so conti nue if not entered | |
| 254 | S RCPT=$$ RCPT() | |
| 255 | I RCPT=-1 Q ; Time d out or ' ^' | |
| 256 | ; | |
| 257 | I RCPT="" D I RCEN DFLG Q ; Other prom pts only n eeded if r eceipt was not selec ted | |
| 258 | . ;get da te range, quit if ti med out or user wish ed to exit . | |
| 259 | . S RCRAN GE=$$DTRNG () | |
| 260 | . I RCRAN GE=0 S RCE NDFLG=1 Q | |
| 261 | . ; | |
| 262 | . ;Extrac t begin an d end date of report | |
| 263 | . S RCBEG DT=$P(RCRA NGE,U,2),R CENDDT=$P( RCRANGE,U, 3) | |
| 264 | . ; | |
| 265 | . ;(Optio nal) get t he AR Cler k to filte r on. | |
| 266 | . S RCUSE R=$$USER() | |
| 267 | . I RCUSE R="" S RCE NDFLG=1 Q | |
| 268 | ; | |
| 269 | ; Produce report fo r export t o Microsof t Excel? | |
| 270 | S RCEXCEL =$$DISPTY^ RCDPEM3() Q:+RCEXCEL =-1 | |
| 271 | ; Paramet er RCENDFL G is set i f user exi ts | |
| 272 | D REPORT( RCBEGDT,RC ENDDT,RCUS ER,RCPT,RC EXCEL,.RCE NDFLG) | |
| 273 | ; | |
| 274 | I 'RCENDF LG R !,"Pr ess RETURN to contin ue:",%:DTI ME | |
| 275 | I 'RCEND FLG W !!,$ $ENDORPRT^ RCDPEARL | |
| 276 | Q | |
| 277 | ; | |
| 278 | ; Get the date rang e for the report | |
| 279 | DTRNG() ; | |
| 280 | ; | |
| 281 | ;Retrieve the date range | |
| 282 | D DATES(. RCSTART,.R CEND) | |
| 283 | ; | |
| 284 | ;format i t for use in the rep ort | |
| 285 | Q:RCSTART =-1 0 | |
| 286 | Q:RCSTART "1^"_RCST ART_"^"_RC END | |
| 287 | Q:'RCSTAR T "0^^" | |
| 288 | Q 0 | |
| 289 | ; | |
| 290 | ;Get star t and end dates. Def ault is To day for th e End date and 45 da ys from en d date for the begin ning date | |
| 291 | DATES(RCBD ATE,RCEDAT E) ; | |
| 292 | ; | |
| 293 | N DIR,DUO UT,RNGFLG, X,Y,DTOUT, DIROUT,DIR UT,RCTODAY | |
| 294 | ; | |
| 295 | S RCTODAY =$$DT^XLFD T() | |
| 296 | ; Get the End date first. Ass ume the en d date is today. | |
| 297 | S RCBDATE =$$HTFM^XL FDT($$FMTH ^XLFDT(RCT ODAY)-45), RCEDATE=RC TODAY | |
| 298 | ; | |
| 299 | ;Get the start date . | |
| 300 | S DIR("?" )="ENTER T HE EARLIES T AUTO POS TING DATE TO INCLUDE ON THE RE PORT" | |
| 301 | S DIR(0)= "DAO^::APE ",DIR("A") ="START DA TE: " | |
| 302 | D ^DIR K DIR | |
| 303 | I $D(DTOU T)!$D(DUOU T)!(Y="") S RCBDATE= -1 Q | |
| 304 | S RCBDATE =Y | |
| 305 | ; | |
| 306 | ;Get the end date | |
| 307 | S DIR("?" )="ENTER T HE LATEST AUTO POSTI NG DATE TO INCLUDE O N THE REPO RT" | |
| 308 | S DIR("B" )=$$FMTE^X LFDT(RCTOD AY,2) | |
| 309 | S DIR(0)= "DAO^"_RCB DATE_":"_R CTODAY_":A PE",DIR("A ")="END DA TE: " D ^D IR K DIR | |
| 310 | I $D(DTOU T)!$D(DUOU T)!(Y="") S RCEDATE= -1 Q | |
| 311 | S RCEDATE =Y | |
| 312 | ; | |
| 313 | Q | |
| 314 | ; | |
| 315 | ; Ask to see if the report ne eds to be by a speci fic user. Return the IEN if | |
| 316 | USER() ; | |
| 317 | ; | |
| 318 | N DIR,DUO UT,RNGFLG, X,Y,RCSTAR T,RCEND,DT OUT,DIRUT, DIROUT | |
| 319 | ; All cle rks or 1 c lerk | |
| 320 | S DIR("?" )="Search on All AR Users (A), or a Sing le User (S )" | |
| 321 | S DIR("B" )="ALL" | |
| 322 | S DIR(0)= "SOA^S:Sin gle User;A :All AR Us ers" | |
| 323 | S DIR("A" )="(S)ingl e User or (A)ll User s? " | |
| 324 | D ^DIR K DIR | |
| 325 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q "" | |
| 326 | Q:Y="A" Y | |
| 327 | ; | |
| 328 | ;If a sin gle clerk is needed, retrieve and return . | |
| 329 | Q $$ARCLE RK | |
| 330 | ; | |
| 331 | ; Get the AR Clerk | |
| 332 | ARCLERK() ; | |
| 333 | ; | |
| 334 | N DIR,DUO UT,RNGFLG, X,Y,RCSTAR T,RCEND,DT OUT,DIRUT, DIROUT | |
| 335 | ; | |
| 336 | S DIR("?" )="ENTER A N AR USER TO SEARCH TRANSACTIO NS FOR" | |
| 337 | S DIR(0)= "PA^VA(200 ,:AEMQ",DI R("A")="AR USER? " D ^DIR K DI R | |
| 338 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q "" | |
| 339 | Q +Y | |
| 340 | ; | |
| 341 | RCPT() ; P rompt user for singl e receipt number to display en tries for | |
| 342 | ; N D,DIC ,DIROUT,DI RUT,DTOUT, DUOUT,X,Y | |
| 343 | S DIC="^R CY(344.71, " | |
| 344 | S D="D" | |
| 345 | S DIC(0)= "AEQ" | |
| 346 | S DIC("A" )="RECEIPT NUMBER: " | |
| 347 | D IX^DIC | |
| 348 | I $D(DTOU T)!$D(DUOU T) Q -1 | |
| 349 | I Y'=-1 S X=$$GET1^ DIQ(344.71 ,$P(Y,U)_" ,",.03,"I" ) | |
| 350 | Q X | |
| 351 | ; | |
| 352 | REPORT(RCB EGDT,RCEND DT,RCUSER, RCPT,RCEXC EL,RCENDFL G) ; repor t to show link payme nt audit l og in FMS | |
| 353 | ; | |
| 354 | N %ZIS,PO P,RCDISP | |
| 355 | ; | |
| 356 | ;Select o utput devi ce | |
| 357 | S %ZIS="Q M" D ^%ZIS Q:POP | |
| 358 | ; | |
| 359 | ;Option t o queue | |
| 360 | I $D(IO(" Q")) D Q | |
| 361 | .N ZTDESC ,ZTQUEUED, ZTRTN,ZTSA VE,ZTSK | |
| 362 | .S ZTRTN= "DQ^RCDPLP S2" | |
| 363 | .S ZTDESC ="EDI LOCK BOX LINK P AYMENT AUD IT LOG REP ORT" | |
| 364 | .S ZTSAVE ("RC*")="" ,ZTSAVE("V AUTD")="" | |
| 365 | .D ^%ZTLO AD | |
| 366 | .I $D(ZTS K) W !!,"T ask number "_ZTSK_" has been q ueued." | |
| 367 | .E W !!, "Unable to queue thi s job." | |
| 368 | .K ZTSK,I O("Q") D H OME^%ZIS | |
| 369 | ; | |
| 370 | D DQ | |
| 371 | ; | |
| 372 | Q | |
| 373 | ; | |
| 374 | ; report (queue) st arts here | |
| 375 | DQ ; | |
| 376 | N %,PAGE, RCDATE,RCD TDIS1,RCDT DIS2,RCENT RY,RCRJFLA G,RCRJLINE ,RCNOW,SCR EEN,Y | |
| 377 | ; | |
| 378 | K ^TMP("R CDPLPS2",$ J) | |
| 379 | S RCCT=0 | |
| 380 | ; If repo rt is for a single r eceipt use the "D" c ross refer ence | |
| 381 | I RCPT'=" " D ; | |
| 382 | . S RCENT RY=0 | |
| 383 | . F S RC ENTRY=$O(^ RCY(344.71 ,"D",RCPT, RCENTRY)) Q:'RCENTRY D ; | |
| 384 | . . D EXT RACT(RCENT RY,.RCCT) | |
| 385 | ; | |
| 386 | E D ; | |
| 387 | . ;Gather the data using the Date cross -reference , starting with the Begin date | |
| 388 | . ; Also make sure to gather all entrie s from the end date. | |
| 389 | . ; | |
| 390 | . S RCDAT E=RCBEGDT, RCENDDT=RC ENDDT+.999 999 | |
| 391 | . F S RC DATE=$O(^R CY(344.71, "B",RCDATE )) Q:'RCDA TE Q:RCDA TE>RCENDDT D | |
| 392 | . . S RCE NTRY=0 | |
| 393 | . . F S RCENTRY=$O (^RCY(344. 71,"B",RCD ATE,RCENTR Y)) Q:'RCE NTRY D | |
| 394 | . . . D E XTRACT(RCE NTRY,.RCCT ) | |
| 395 | ; | |
| 396 | ; print r eport | |
| 397 | S Y=$P(RC BEGDT,".") D DD^%DT S RCDTDIS1 =Y | |
| 398 | S Y=$P(RC ENDDT,".") D DD^%DT S RCDTDIS2 =Y | |
| 399 | D NOW^%DT C S Y=% D DD^%DT S R CNOW=Y | |
| 400 | S PAGE=1, RCRJLINE=" ",$P(RCRJL INE,"-",81 )="" | |
| 401 | S SCREEN= 0 I '$D(ZT QUEUED),IO =IO(0),$E( IOST)="C" S SCREEN=1 | |
| 402 | U IO D H | |
| 403 | S RCDATE= 0 | |
| 404 | F S RCDA TE=$O(^TMP ("RCDPLPS2 ",$J,RCDAT E)) Q:'RCD ATE!($G(RC RJFLAG)) D | |
| 405 | . S RCCT= 0 | |
| 406 | . F S RC CT=$O(^TMP ("RCDPLPS2 ",$J,RCDAT E,RCCT)) Q :'RCCT!($G (RCRJFLAG) ) D | |
| 407 | . . S RCD ATA=$G(^TM P("RCDPLPS 2",$J,RCDA TE,RCCT)) | |
| 408 | . . ; Exp ort in Exc el format if request ed | |
| 409 | . . I RCE XCEL D ; | |
| 410 | . . . W $ P(RCDATA,U ,3)_U_$P(R CDATA,U,4) _U_$P(RCDA TA,U)_U_$P (RCDATA,"^ ",5)_U_$P( RCDATA,U,6 )_U | |
| 411 | . . . W $ P(RCDATA,U ,2)_U_$E($ P(RCDATA,U ,7),1,11)_ U_$E($P(RC DATA,U,8), 1,12),! | |
| 412 | . . ; Pri nt in repo rt format if Excel n ot request ed | |
| 413 | . . E D ; | |
| 414 | . . . W $ P(RCDATA,U ,3),?15,$P (RCDATA,U, 4),?22,$P( RCDATA,U), ?32,$J($P( RCDATA,"^" ,5),10,2) | |
| 415 | . . . W ? 43,$P(RCDA TA,U,6),?5 1,$P(RCDAT A,U,2),?56 ,$E($P(RCD ATA,U,7),1 ,11),?68,$ E($P(RCDAT A,U,8),1,1 2),! | |
| 416 | . . . I $ Y>(IOSL-6) D:SCREEN PAUSE^RCRJ RTR1 Q:$G( RCRJFLAG) D H ; | |
| 417 | K ^TMP("R CDPLPS2",$ J) | |
| 418 | D ^%ZISC | |
| 419 | S:$G(RCRJ FLAG) RCEN DFLG=1 | |
| 420 | Q | |
| 421 | ; | |
| 422 | EXTRACT(RC ENTRY,RCCT ) ; Extrac t and stor e data for a single suspense a udit file entry | |
| 423 | ; Input: RCENTRY = IEN of SUS PENSE AUDI T FILE ent ry (#344.7 1) | |
| 424 | ; Output: ^TMP("RCD PLPS2",$J) containin g report d ata | |
| 425 | ; | |
| 426 | N RCAMT,R CDATE,RCDA TA,RCEOB,R CFLG,RCLUS ER,RCRECTD A,RCREASON ,RCSTATUS, RCTRANDA,R CX,RCX,RCX 2,RCY,Y | |
| 427 | ; | |
| 428 | S RCDATA= $G(^RCY(34 4.71,RCENT RY,0)) | |
| 429 | ; | |
| 430 | ;Quit if corrupt in dex entry | |
| 431 | Q:RCDATA= "" | |
| 432 | ; | |
| 433 | ;Get the user. If f iltering o n user, qu it if the user is no t the filt er user. | |
| 434 | S RCLUSER =$P(RCDATA ,U,2) | |
| 435 | I RCUSER[ "",RCUSER' ="A",RCUSE R'=RCLUSER Q | |
| 436 | ; | |
| 437 | ;Update t he counter | |
| 438 | S RCCT=RC CT+1 | |
| 439 | ; | |
| 440 | ;get the rest of th e data | |
| 441 | S RCDATE= $P(RCDATA, U,1) ;Date /Time of s uspese ent ry | |
| 442 | S RCRECTD A=$P(RCDAT A,U,3) ;Re ceipt Numb er | |
| 443 | S RCTRAND A=$P(RCDAT A,U,4) ;Re ceipt Tran saction Nu mber | |
| 444 | S RCAMT=$ P(RCDATA,U ,5) ;Amoun t original ly placed in suspens e | |
| 445 | S RCEOB=" " | |
| 446 | S:$P(RCDA TA,U,6)["; PRCA" RCEO B=$P($$GET 1^DIQ(430, $P($P(RCDA TA,U,6),"; ")_",",".0 1","E"),"- ",2) ;Clai m # | |
| 447 | S:$P(RCDA TA,U,6)["; DPT" RCEOB =$E($$GET1 ^DIQ(2,$P( $P(RCDATA, U,6),";")_ ",",".01", "E"),1,7) ;Pat Name | |
| 448 | S RCSTATU S=$$GET1^D IQ(344.71, RCENTRY_", ",".07","E ") ;Suspen se Status | |
| 449 | S RCREASO N=$P(RCDAT A,U,8) ;Re ason for S uspense St atus | |
| 450 | ; | |
| 451 | S RCFLG=$ G(^TMP("RC DPLPS2",$J ,"IDX",RCR ECTDA,RCTR ANDA)) | |
| 452 | ;Store in the tempo rary array | |
| 453 | S:RCFLG=" " ^TMP("RC DPLPS2",$J ,"IDX",RCR ECTDA,RCTR ANDA)=RCCT _"~"_RCDAT E | |
| 454 | I RCFLG'= "" D | |
| 455 | . S RCX=$ P(RCFLG,U) ,RCX2=$P(R CX,"~",2), RCX=$P(RCX ,"~"),RCY= $P(RCFLG,U ,2) | |
| 456 | . I (RCY= ""),(RCREA SON="Multi -Trans Spl it") D | |
| 457 | . . S $P( ^TMP("RCDP LPS2",$J," IDX",RCREC TDA,RCTRAN DA),U,2)=1 | |
| 458 | . . K ^TM P("RCDPLPS 2",$J,RCX2 ,RCX) | |
| 459 | S ^TMP("R CDPLPS2",$ J,RCDATE,R CCT)=$$FMT E^XLFDT(RC DATE,"2D") _U_$$USERI NIT^RCDPLP S1(RCLUSER )_U_RCRECT DA_U_RCTRA NDA_U_RCAM T_U_RCEOB_ U_RCSTATUS _U_RCREASO N | |
| 460 | Q | |
| 461 | H ; header | |
| 462 | N % | |
| 463 | I RCEXCEL D ; | |
| 464 | . I PAGE Q | |
| 465 | . W !,"RE CEPIT#^TRA NSACTION^D ATE^AMOUNT ^CLAIM^USE R^DISPOSIT ION^REASON " | |
| 466 | . S PAGE= 1 | |
| 467 | ; | |
| 468 | S %=RCNOW _" PAGE "_ PAGE,PAGE= PAGE+1 I P AGE'=2!(SC REEN) W @I OF | |
| 469 | W $C(13), "LINK PAYM ENT TRACKI NG REPORT" ,?50,% | |
| 470 | W !," FOR THE DATE RANGE: ",$ S(RCPT="": RCDTDIS1_" TO "_RCDT DIS2,1:"") | |
| 471 | I RCPT="" D Q ; | |
| 472 | . W ?55," FOR USER(S ): ",$E($S (RCUSER="A ":"ALL",1: $$GET1^DIQ (200,RCUSE R_",",.01, "E")),1,10 ) | |
| 473 | E D ; | |
| 474 | . W ?55," RECEIPT#: "_RCPT | |
| 475 | W !!,"REC EIPT#",?15 ,"TRANS#", ?22,"DATE" ,?36,"AMOU NT",?43,"C LAIM",?51, "USER",?56 ,"DISPOSIT ION",?68," REASON" | |
| 476 | W !,RCRJL INE,! | |
| 477 | Q | |
| 478 | ;�If the user does not enter a receipt number at the “RECEI PT NUMBER: ” prompt t hen the ex isting oth er prompts will be d isplayed. | |
| 479 | �If the us er enters a receipt number, th e other pr ompts will not be di splayed si nce we alr eady know just one r eceipt wil l be displ ayed. | |
| 480 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.