Produced by Araxis Merge on 10/23/2018 6:40:30 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 US758 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US758 SDD - Copy.doc | Mon Oct 22 16:32:21 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 1174 |
| 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 US758 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | August 201 7 | |
| 7 | Version 1 | |
| 8 | User Story ID: US758 | |
| 9 | User Story Name: Pr ocess EFTs with On-L ine Status | |
| 10 | Sizing: | |
| 11 | Author: Ch ad Morriso n | |
| 12 | Story | |
| 13 | As an ePay ments user , I need t o be able to process EFTs with On Line s tatus, wit hout produ ct support or IT int ervention | |
| 14 | Conversati on | |
| 15 | Summary | |
| 16 | Currently auto-post ERA’s matc hed to an EFT with a (CR) rece ipt status of ‘ON-LI NE ENTRY’ cannot be processed. The ERA a ppear in t he ERA Wor klist but cannot be worked due to having an auto-p ost status of ‘UNPRO CESSED’ wh ich indica tes these are autopo st candida tes. The E RA lines a lso do not appear in the APAR Worklist w hich ignor es lines f or ERA mat ched to an EFT recei pt with an auto-post status of ‘UNPROCES SED’. | |
| 17 | Currently receipts f or non-aut o-post ERA ’s matched to an EFT with a (C R) receipt status of ‘ON-LINE ENTRY’ can be create d but NOT processed. | |
| 18 | Routine RC DPEAP – Ni ghtly AR P rocess opt ion – will be modifi ed to allo w auto-pos t ERAs mat ched to an EFT with a (CR) rec eipt statu s of ‘ON-L INE ENTRY’ to be pro cessed thr ough auto- post. | |
| 19 | Routine RC DPRPL3 – R eceipt Pro file optio ns – Proce ss Receipt action – will be mo dified to also allow receipt t o be proce ssed for n on-auto-po st ERAs ma tched to E FT with a (CR) recei pt status of ‘ON-LIN E ENTRY’. | |
| 20 | Routine RC DPRPL4 – R eceipt Pro file – On- line Entry action – will be mo dified to include ad ditional p rompts for | |
| 21 | User confi rmation th at EDT fun ds have be en entered into 8NZZ accout in FMS | |
| 22 | Entry of F MS referen ce (store d in FMS D OCUMENT fi eld #200 o n the rece ipt file # 344) | |
| 23 | If an exis ting ON-LI NE ENTRY s tatus is r emoved fro m a receip t the FMS reference entered ab ove will a lso be rem oved. | |
| 24 | Resolution – Added C hanged Obj ects | |
| 25 | RoutinesAc tivitiesRo utine Name RCDPEAPEnh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsPRCA NI GHTLY PROC ESSRelated RoutinesR outines “C alled By”R outines “C alled” R CDPEAA2 | |
| 26 | RCDPEAD | |
| 27 | RCDPEAP1 | |
| 28 | RCDPEAPP | |
| 29 | RCDPEAPS | |
| 30 | RCDPEM0 | |
| 31 | RCDPEM2 | |
| 32 | RCDPEWL7 | |
| 33 | RCDPEWL8 | |
| 34 | RCDPEX32^D IE | |
| 35 | UPDATE^DIE | |
| 36 | ^DIK | |
| 37 | $$GET1^DIQ | |
| 38 | $$LOCKDEP^ RCDPDPLU | |
| 39 | $$UNBAL^RC DPEAP1 | |
| 40 | ERADET^RCD PEAP1 | |
| 41 | VALID^RCDP EAP1 | |
| 42 | RCPTDET^RC DPEM | |
| 43 | $$BLDRCPT^ RCDPEMA | |
| 44 | RCPTDET^RC DPEMA | |
| 45 | $$ADDREC^R CDPEWL | |
| 46 | ADDLINES^R CDPEWLA | |
| 47 | $$LOCKREC^ RCDPRPLU | |
| 48 | PROCESS^RC DPURE1 | |
| 49 | $$BLDRCPT^ RCDPUREC | |
| 50 | $$FMSSTAT^ RCDPUREC | |
| 51 | $$PENDPAY^ RCDPURET | |
| 52 | $$NOW^XLFD T Current Lo gicEN ;Aut o-post ERA Receipts | |
| 53 | ;Process newly matc hed and ma tched but unprocesse d ERAs | |
| 54 | D EN1 | |
| 55 | ;Process previously processed ERA's | |
| 56 | D EN2 | |
| 57 | Q | |
| 58 | ; | |
| 59 | EN1 ;Auto- post newly matched a nd matched but unpro cessed ERA | |
| 60 | N RCRZ,RC EFTDA | |
| 61 | S RCRZ=0 | |
| 62 | ;Scan ERA file for auto-post candidates with AUTO -POST STAT US = UNPOS TED | |
| 63 | F S RCRZ =$O(^RCY(3 44.4,"E",0 ,RCRZ)) Q: 'RCRZ D | |
| 64 | .;Get EFT reference | |
| 65 | .S RCEFTD A=$O(^RCY( 344.31,"AE RA",RCRZ," ")) Q:'RCE FTDA | |
| 66 | .;Check t hat EFT fu nds were p osted to F MS and Acc epted by F MS. If not , quit and go to nex t unposted ERA | |
| 67 | .N RCOK,R CDEPTDA,RC RECTDA | |
| 68 | .S RCOK=1 | |
| 69 | .I $P($G( ^RCY(344.3 ,+$G(^RCY( 344.31,+RC EFTDA,0)), 0)),U,8),$ P($G(^RCY( 344.31,+RC EFTDA,0)), U,7) D Q: 'RCOK | |
| 70 | ..S RCDEP TDA=+$P($G (^RCY(344. 3,+$G(^RCY (344.31,+R CEFTDA,0)) ,0)),U,3), RCRECTDA=+ $O(^RCY(34 4,"AD",+RC DEPTDA,0)) ; Get dep osit ticke t and EFT receipt (C R - 8NZZ) | |
| 71 | ..I RCREC TDA N Z S Z=$P($$FMS STAT^RCDPU REC(RCRECT DA),U,2) I $E(Z)="A" Q ; EFT Accepted b y FMS | |
| 72 | ..S RCOK= 0 | |
| 73 | .; | |
| 74 | .;Auto-Po st | |
| 75 | .D AUTOPO ST(RCEFTDA ,RCRZ) | |
| 76 | Q | |
| 77 | ;Modified Logic (Ch anges are in bold)EN ;Auto-pos t ERA Rece ipts | |
| 78 | ;Process newly matc hed and ma tched but unprocesse d ERAs | |
| 79 | D EN1 | |
| 80 | ;Process previously processed ERA's | |
| 81 | D EN2 | |
| 82 | Q | |
| 83 | ; | |
| 84 | EN1 ;Auto- post newly matched a nd matched but unpro cessed ERA | |
| 85 | N RCRZ,RC EFTDA | |
| 86 | S RCRZ=0 | |
| 87 | ;Scan ERA file for auto-post candidates with AUTO -POST STAT US = UNPOS TED | |
| 88 | F S RCRZ =$O(^RCY(3 44.4,"E",0 ,RCRZ)) Q: 'RCRZ D | |
| 89 | .;Get EFT reference | |
| 90 | .S RCEFTD A=$O(^RCY( 344.31,"AE RA",RCRZ," ")) Q:'RCE FTDA | |
| 91 | .;Check t hat EFT fu nds were p osted to F MS and Acc epted by F MS. If not , quit and go to nex t unposted ERA | |
| 92 | .N RCOK,R CDEPTDA,RC RECTDA | |
| 93 | .S RCOK=1 | |
| 94 | .I $P($G( ^RCY(344.3 ,+$G(^RCY( 344.31,+RC EFTDA,0)), 0)),U,8),$ P($G(^RCY( 344.31,+RC EFTDA,0)), U,7) D Q: 'RCOK | |
| 95 | ..S RCDEP TDA=+$P($G (^RCY(344. 3,+$G(^RCY (344.31,+R CEFTDA,0)) ,0)),U,3), RCRECTDA=+ $O(^RCY(34 4,"AD",+RC DEPTDA,0)) ; Get dep osit ticke t and EFT receipt (C R - 8NZZ) | |
| 96 | ..I RCRECT DA N Z S Z =$P($$FMSS TAT^RCDPUR EC(RCRECTD A),U,2) Q: $E(Z)="A" Q:$E(Z)=" O" ; EFT Accepted b y FMS or O N-LINE ENT RY | |
| 97 | ..S RCOK= 0 | |
| 98 | .; | |
| 99 | .;Auto-Po st | |
| 100 | .D AUTOPO ST(RCEFTDA ,RCRZ) | |
| 101 | Q | |
| 102 | ; | |
| 103 | RoutinesAc tivitiesRo utine Name RCDPRPL3En hancement Category N ew Modify Delete No ChangeRTMR elated Opt ionsRCDPE EDI LOCKBO X WORKLIST | |
| 104 | RCDP DEPOS IT PROCESS ING | |
| 105 | RCDP RECEI PT PROCESS ING | |
| 106 | Protocol - RCDP RECE IPT PROFIL E PROCESS RECEIPTRel ated Routi nesRoutine s “Called By”Routine s “Called” RCDPRPL M^DIE | |
| 107 | ^DIR | |
| 108 | $$STATUS^G ECSSGET | |
| 109 | DIQ3441^RC DPDPLM | |
| 110 | $$LOCKDEP^ RCDPDPLU | |
| 111 | $$EDILB^RC DPEU | |
| 112 | $$LBEVENT^ RCDPEU | |
| 113 | RET^RCDPEW L2 | |
| 114 | $$ERAWL^RC DPRPL4 | |
| 115 | DIQ344^RCD PRPLM | |
| 116 | HDR^RCDPRP LM | |
| 117 | INIT^RCDPR PLM | |
| 118 | $$LOCKREC^ RCDPRPLU | |
| 119 | EDITDEP^RC DPUDEP | |
| 120 | $$HAC^RCDP URE1 | |
| 121 | PROCESS^RC DPURE1 | |
| 122 | $$FMSSTAT^ RCDPUREC | |
| 123 | EDITREC^RC DPUREC | |
| 124 | $$PAYTOTAL ^RCDPURED | |
| 125 | $$PENDPAY^ RCDPURET | |
| 126 | FULL^VALM1 | |
| 127 | $$FMDIFF^X LFDT Current Lo gicPROCESS ; option: process r eceipt | |
| 128 | N RCOK,RC EFT,RCEFT1 ,RCHAC,RC, RCERA,RCAM T,RCQUIT,C RTR,Z | |
| 129 | D FULL^VA LM1 | |
| 130 | S VALMBCK ="R" | |
| 131 | ; | |
| 132 | S RC=$S(' $P($G(^RCY (344,RCREC TDA,0)),U, 6)&$$LBEVE NT^RCDPEU( ):1,1:0),C RTR=$P("ca sh^transfe r",U,RC+1) | |
| 133 | W !!,"Thi s option w ill proces s the paym ents for t he receipt updating the AR" | |
| 134 | W !,"Pack age and ge nerate the "_CRTR_" receipt do cument to FMS. Any d ecrease" | |
| 135 | W !,"adju stments en tered via the EDI Lo ckbox Work list will also be ge nerated." | |
| 136 | W !,"Once a receipt has been processed, the recei pt status will chang e to close d" | |
| 137 | W !,"and no further processin g of the r eceipt can occur. If the FMS " _CRTR | |
| 138 | W !," rec eipt docum ent reject s, you can use this same optio n to repro cess the" | |
| 139 | W !,"rece ipt.",! | |
| 140 | ; | |
| 141 | S RCEFT=+ $P($G(^RCY (344,RCREC TDA,0)),U, 17),RCERA= $P($G(^(0) ),U,18),RC HAC=0 | |
| 142 | S RCAMT=+ $$PAYTOTAL ^RCDPURED( RCRECTDA) | |
| 143 | ; | |
| 144 | S RCQUIT= 0 | |
| 145 | I RCERA,' RCEFT D Q :RCQUIT | |
| 146 | . I +$P($ G(^RCY(344 .4,+RCERA, 0)),U,5)'= RCAMT D S RCQUIT=1 Q | |
| 147 | .. W !,"T his receip t cannot b e processe d because the total amount of the associ ated",!," ERA ("_$J( +$P($G(^RC Y(344.4,+R CERA,0)),U ,5),"",2)_ ") does no t equal th e total am ount on th e receipt ("_$J(RCAM T,"",2)_") " | |
| 148 | .. S VALM SG="Receip t total no t = ERA to tal - Rece ipt NOT pr ocessed" | |
| 149 | .. D RET^ RCDPEWL2 | |
| 150 | ; | |
| 151 | I RCEFT D Q:'RCOK | |
| 152 | . N RCOK1 | |
| 153 | . S RCOK= 0,RCEFT1=+ $G(^RCY(34 4.3,+RCEFT ,0)),RCHAC =($E($P($G (^RCY(344. 3,RCEFT1,0 )),U,6),1, 3)="HAC") | |
| 154 | . N Z,DIR ,DIE,DA,DR | |
| 155 | . I $P($G (^RCY(344. 3,+RCEFT1, 0)),U,10) D Q | |
| 156 | .. W !,"T his receip t cannot b e processe d until ED I Lockbox checksum e xception i s",!," cle ared on th e EFT tran smission" | |
| 157 | .. S VALM SG="EDI LO CKBOX exce ption stil l exists - Receipt N OT process ed" | |
| 158 | .. D RET^ RCDPEWL2 | |
| 159 | . ; | |
| 160 | . I +$P($ G(^RCY(344 .31,+RCEFT ,0)),U,7)' =RCAMT D Q | |
| 161 | .. W !,"T his receip t cannot b e processe d - the re ceipt tota l does not match the ",!," EFT total for this EDI L ockbox rec eipt" | |
| 162 | .. S VALM SG="EDI LO CKBOX tota l of recei pt not = E FT - Recei pt NOT pro cessed" | |
| 163 | .. D RET^ RCDPEWL2 | |
| 164 | . ; Check that EFT funds were posted | |
| 165 | . S RCOK1 =1 | |
| 166 | . I $P($G (^RCY(344. 3,+$G(^RCY (344.31,+R CEFT,0)),0 )),U,8),$P ($G(^RCY(3 44.31,+RCE FT,0)),U,7 ) D Q:'RC OK1 | |
| 167 | .. N RCRE CTDA,RCDEP DA | |
| 168 | .. S RCDE PDA=+$P($G (^RCY(344. 3,+$G(^RCY (344.31,+R CEFT,0)),0 )),U,3),RC RECTDA=+$O (^RCY(344, "AD",+RCDE PDA,0)) ; Get deposi t and its receipt | |
| 169 | .. I RCRE CTDA S Z=$ P($$FMSSTA T^RCDPUREC (RCRECTDA) ,U,2) I $E (Z)="A" Q ; Accepte d by FMS | |
| 170 | .. W !,"T his receip t cannot b e processe d yet - th e EFT's de posit has not been", !," succes sfully sen t to FMS. Status cur rently is "_Z | |
| 171 | .. S VALM SG="EDI LO CKBOX EFT not yet po sted",RCOK 1=0 | |
| 172 | .. D RET^ RCDPEWL2 | |
| 173 | . S RCOK= 1 | |
| 174 | ; | |
| 175 | I +$P($G( ^RCY(344,R CRECTDA,0) ),U,6),+$P (^(0),U,17 ) D Q:'RC OK | |
| 176 | . S RCOK= 0 | |
| 177 | . S DIR(" A",1)="A D EPOSIT CAN NOT BE ASS OCIATED WI TH AN EDI LOCKBOX EF T DETAIL R ECEIPT" | |
| 178 | . S DIR(0 )="YA",DIR ("A")="DO YOU WANT T O DELETE T HIS RECEIP T'S DEPOSI T REFERENC E NOW?: ", DIR("B")=" NO" W ! D ^DIR K DIR | |
| 179 | . I Y=1 S DIE="^RCY (344,",DR= ".06///@", DA=RCRECTD A D ^DIE S RCOK=1 Q | |
| 180 | . S VALMS G="EDI LBO X ERA rece ipt cannot have a de posit - Re ceipt NOT processed" | |
| 181 | ; | |
| 182 | N RCDEPTD A,RCDPDATA ,RCDPFLAG, RCDPFHLP,R CTRDA,RCSC R,STATUS,R CADJ | |
| 183 | ; | |
| 184 | ; lock re ceipt | |
| 185 | I '$$LOCK REC^RCDPRP LU(RCRECTD A) S VALMS G="Receipt NOT Proce ssed." Q | |
| 186 | ; | |
| 187 | ; apply d ecrease ad justments from workl ist entry | |
| 188 | S RCSCR=+ $O(^RCY(34 4.4,"ARCT" ,RCRECTDA, 0)),RCSCR= $S($D(^RCY (344.49,+R CSCR,0)):R CSCR,1:0) | |
| 189 | S RCADJ=$ $ERAWL^RCD PRPL4(RCSC R) | |
| 190 | I RCADJ=2 D UNLOCK Q | |
| 191 | I RCADJ<0 D Q | |
| 192 | . W !,"Th e bill bal ance for t he bills l isted abov e must be manually i ncreased t o",!,"acco mmodate th e automati c ERA Work list dec a djustment amounts an d to allow ",!,"the E RA receipt to be bal anced - Re ceipt NOT processed. " | |
| 193 | . D UNLOC K | |
| 194 | ; | |
| 195 | ; warning no transa ctions | |
| 196 | I '$O(^RC Y(344,RCRE CTDA,1,0)) D | |
| 197 | . W !,"WA RNING, no transactio ns are on the receip t. Process ing will o nly change " | |
| 198 | . W !,"th e status o f the rece ipt to clo sed." | |
| 199 | ; | |
| 200 | D DIQ344^ RCDPRPLM(R CRECTDA,". 06;.08;.17 ;.18;200;" ) | |
| 201 | ; code sh eet alread y sent onc e, this is a retrans mission, c heck it | |
| 202 | I RCDPDAT A(344,RCRE CTDA,200," E")'="" D | |
| 203 | . S STATU S=$$STATUS ^GECSSGET( RCDPDATA(3 44,RCRECTD A,200,"E") ) | |
| 204 | . W !,"Th is receipt has been previously processed to FMS in the cash receipt" | |
| 205 | . W !,"do cument ",$ TR(RCDPDAT A(344,RCRE CTDA,200," E")," ")," . The curr ent status for this document i n the" | |
| 206 | . W !,"Ge neric Code Sheet Sta ck file is ",STATUS, "." | |
| 207 | . ; | |
| 208 | . ; okay to continu e if statu s is Error , Rejected , or not d efined (-1 ) | |
| 209 | . I $E(ST ATUS)="E"! ($E(STATUS )="R")!(ST ATUS=-1) Q | |
| 210 | . ; okay to continu e if docum ent has no t been tra nsmitted | |
| 211 | . I $E(ST ATUS)="Q"! ($E(STATUS )="M") Q | |
| 212 | . ; okay to continu e if docum ent is tra nsmitted f or 2 days | |
| 213 | . I $E(ST ATUS)="T", $$FMDIFF^X LFDT(DT,RC DPDATA(344 ,RCRECTDA, .08,"I"))> 1 Q | |
| 214 | . ; | |
| 215 | . ; do no t allow re processing | |
| 216 | . S RCDPF LAG=1 | |
| 217 | . I $E(ST ATUS)="A" W !!,"You cannot rep rocess and retransmi t an ACCEP TED docume nt." | |
| 218 | . I $E(ST ATUS)="T" W !!,"You cannot rep rocess and retransmi t a docume nt which h as previou sly been", !,"transmi tted and i s waiting on confirm ation (les s than 2 d ays since" ,!,"proces sing)." | |
| 219 | I $G(RCDP FLAG) D UN LOCK Q | |
| 220 | ; | |
| 221 | ; check p ayments to verify it doesn't e xceed bill amt | |
| 222 | W !!,"Che cking paym ent amount s versus b illed amou nts ..." | |
| 223 | S RCTRDA= 0 F S RCT RDA=$O(^RC Y(344,RCRE CTDA,1,RCT RDA)) Q:'R CTRDA D | |
| 224 | . S X=$$C HECKPAY(RC RECTDA,RCT RDA) | |
| 225 | . I 'X Q | |
| 226 | . ; excee ds billed amt | |
| 227 | . S RCDPF LAG=1 | |
| 228 | . ; check for >1 pe nding paym ent for th is transac tion | |
| 229 | . I +$P(X ,"^",3)'=$ P(^RCY(344 ,RCRECTDA, 1,RCTRDA,0 ),"^",4) S RCDPFLAG= 2 | |
| 230 | . W !," " I RCDPFLA G=2 W "*" S RCDPFHLP =1 | |
| 231 | . W "WARN ING: Trans # ",RCTRDA ,". Pendin g Payments $ ",$J($P (X,"^",3), 0,2)," exc eed billed amount $ ",$J($P(X, "^",2),0,2 ) | |
| 232 | I $G(RCDP FLAG) D Q | |
| 233 | . I $G(RC DPFHLP) W !,"NOTE: * Indicates more than one pendi ng payment entered a gainst thi s bill." | |
| 234 | . W !,"Ad just payme nts listed above bef ore proces sing." | |
| 235 | . D UNLOC K | |
| 236 | ; | |
| 237 | W " payme nts okay." | |
| 238 | ; | |
| 239 | S RCDEPTD A=RCDPDATA (344,RCREC TDA,.06,"I ") | |
| 240 | ; lock de posit tckt | |
| 241 | I RCDEPTD A I '$$LOC KDEP^RCDPD PLU(RCDEPT DA) D UNLO CK Q | |
| 242 | ; | |
| 243 | ; check f or critica l fields, deposit ti cket, date of deposi t | |
| 244 | ; No depo sit ticket is OK for ERA not r elated to an EFT or for HAC ER A | |
| 245 | I 'RCDEPT DA,$S('$G( RCDPDATA(3 44,RCRECTD A,.18,"I") ):1,$$EDIL B^RCDPEU(R CRECTDA)=2 :0,1:'$$HA C^RCDPURE1 (RCRECTDA) ) D | |
| 246 | . W !!,"W ARNING, De posit Tick et is miss ing. If yo u continue with proc essing," | |
| 247 | . W !,"th e AR accou nts will b e updated and a cash receipt ( CR) docume nt will" | |
| 248 | . W !,"NO T be sent to FMS. Yo u have the option to add the D eposit Tic ket now." | |
| 249 | . D EDITR EC^RCDPURE C(RCRECTDA ,".06;") | |
| 250 | . S (RCDE PTDA,RCDPD ATA(344,RC RECTDA,.06 ,"I"))=$P( ^RCY(344,R CRECTDA,0) ,"^",6) | |
| 251 | ; | |
| 252 | ; deposit ticket ad ded | |
| 253 | I RCDEPTD A D | |
| 254 | . D EDITD EP^RCDPUDE P(RCDEPTDA ,1) | |
| 255 | . D DIQ34 41^RCDPDPL M(RCDEPTDA ,".03;") | |
| 256 | . I RCDPD ATA(344.1, RCDEPTDA,. 03,"I") Q | |
| 257 | . W !!,"N o DEPOSIT DATE, you can edit t he deposit data now. " | |
| 258 | . D EDITD EP^RCDPUDE P(RCDEPTDA ,1) | |
| 259 | . D DIQ34 41^RCDPDPL M(RCDEPTDA ,".03;") | |
| 260 | . I RCDPD ATA(344.1, RCDEPTDA,. 03,"I") Q | |
| 261 | . W !!,"S till No DE POSIT DATE , use the Edit Depos it option under Depo sit Proces sing." | |
| 262 | . S RCDPF LAG=1 | |
| 263 | I $G(RCDP FLAG) D UN LOCK Q | |
| 264 | ; | |
| 265 | W ! | |
| 266 | I $$ASKPR OC'=1 D Q | |
| 267 | . I $G(RC ADJ)>0 W ! !,*7,"WARN ING - EDI Lbox Workl ist auto d ec adjustm ents have already be en made fo r",!,"this receipt!! !" | |
| 268 | . D UNLOC K | |
| 269 | ; | |
| 270 | ; process receipt, pass 1 to show messa ges | |
| 271 | D PROCESS ^RCDPURE1( RCRECTDA,1 ) K CSRECP T | |
| 272 | D UNLOCK | |
| 273 | D INIT^RC DPRPLM | |
| 274 | D HDR^RCD PRPLM | |
| 275 | I $P(^RCY (344,RCREC TDA,0),"^" ,8) S VALM SG="Receip t PROCESSE D." | |
| 276 | QModified Logic (Ch anges are in bold)PR OCESS ; op tion: proc ess receip t | |
| 277 | N RCOK,RC EFT,RCEFT1 ,RCHAC,RC, RCERA,RCAM T,RCQUIT,C RTR,Z | |
| 278 | D FULL^VA LM1 | |
| 279 | S VALMBCK ="R" | |
| 280 | ; | |
| 281 | S RC=$S(' $P($G(^RCY (344,RCREC TDA,0)),U, 6)&$$LBEVE NT^RCDPEU( ):1,1:0),C RTR=$P("ca sh^transfe r",U,RC+1) | |
| 282 | W !!,"Thi s option w ill proces s the paym ents for t he receipt updating the AR" | |
| 283 | W !,"Pack age and ge nerate the "_CRTR_" receipt do cument to FMS. Any d ecrease" | |
| 284 | W !,"adju stments en tered via the EDI Lo ckbox Work list will also be ge nerated." | |
| 285 | W !,"Once a receipt has been processed, the recei pt status will chang e to close d" | |
| 286 | W !,"and no further processin g of the r eceipt can occur. If the FMS " _CRTR | |
| 287 | W !," rec eipt docum ent reject s, you can use this same optio n to repro cess the" | |
| 288 | W !,"rece ipt.",! | |
| 289 | ; | |
| 290 | S RCEFT=+ $P($G(^RCY (344,RCREC TDA,0)),U, 17),RCERA= $P($G(^(0) ),U,18),RC HAC=0 | |
| 291 | S RCAMT=+ $$PAYTOTAL ^RCDPURED( RCRECTDA) | |
| 292 | ; | |
| 293 | S RCQUIT= 0 | |
| 294 | I RCERA,' RCEFT D Q :RCQUIT | |
| 295 | . I +$P($ G(^RCY(344 .4,+RCERA, 0)),U,5)'= RCAMT D S RCQUIT=1 Q | |
| 296 | .. W !,"T his receip t cannot b e processe d because the total amount of the associ ated",!," ERA ("_$J( +$P($G(^RC Y(344.4,+R CERA,0)),U ,5),"",2)_ ") does no t equal th e total am ount on th e receipt ("_$J(RCAM T,"",2)_") " | |
| 297 | .. S VALM SG="Receip t total no t = ERA to tal - Rece ipt NOT pr ocessed" | |
| 298 | .. D RET^ RCDPEWL2 | |
| 299 | ; | |
| 300 | I RCEFT D Q:'RCOK | |
| 301 | . N RCOK1 | |
| 302 | . S RCOK= 0,RCEFT1=+ $G(^RCY(34 4.3,+RCEFT ,0)),RCHAC =($E($P($G (^RCY(344. 3,RCEFT1,0 )),U,6),1, 3)="HAC") | |
| 303 | . N Z,DIR ,DIE,DA,DR | |
| 304 | . I $P($G (^RCY(344. 3,+RCEFT1, 0)),U,10) D Q | |
| 305 | .. W !,"T his receip t cannot b e processe d until ED I Lockbox checksum e xception i s",!," cle ared on th e EFT tran smission" | |
| 306 | .. S VALM SG="EDI LO CKBOX exce ption stil l exists - Receipt N OT process ed" | |
| 307 | .. D RET^ RCDPEWL2 | |
| 308 | . ; | |
| 309 | . I +$P($ G(^RCY(344 .31,+RCEFT ,0)),U,7)' =RCAMT D Q | |
| 310 | .. W !,"T his receip t cannot b e processe d - the re ceipt tota l does not match the ",!," EFT total for this EDI L ockbox rec eipt" | |
| 311 | .. S VALM SG="EDI LO CKBOX tota l of recei pt not = E FT - Recei pt NOT pro cessed" | |
| 312 | .. D RET^ RCDPEWL2 | |
| 313 | . ; Check that EFT funds were posted | |
| 314 | . S RCOK1 =1 | |
| 315 | . I $P($G (^RCY(344. 3,+$G(^RCY (344.31,+R CEFT,0)),0 )),U,8),$P ($G(^RCY(3 44.31,+RCE FT,0)),U,7 ) D Q:'RC OK1 | |
| 316 | .. N RCRE CTDA,RCDEP DA | |
| 317 | .. S RCDE PDA=+$P($G (^RCY(344. 3,+$G(^RCY (344.31,+R CEFT,0)),0 )),U,3),RC RECTDA=+$O (^RCY(344, "AD",+RCDE PDA,0)) ; Get deposi t and its receipt | |
| 318 | .. I RCRE CTDA S Z=$ P($$FMSSTA T^RCDPUREC (RCRECTDA) ,U,2) Q:$E (Z)="A" Q :$E(Z)="O" ; EFT Ac cepted by FMS or ON- LINE ENTRY | |
| 319 | .. W !,"T his receip t cannot b e processe d yet - th e EFT's de posit has not been", !," succes sfully sen t to FMS. Status cur rently is "_Z | |
| 320 | .. S VALM SG="EDI LO CKBOX EFT not yet po sted",RCOK 1=0 | |
| 321 | .. D RET^ RCDPEWL2 | |
| 322 | . S RCOK= 1 | |
| 323 | ; | |
| 324 | I +$P($G( ^RCY(344,R CRECTDA,0) ),U,6),+$P (^(0),U,17 ) D Q:'RC OK | |
| 325 | . S RCOK= 0 | |
| 326 | . S DIR(" A",1)="A D EPOSIT CAN NOT BE ASS OCIATED WI TH AN EDI LOCKBOX EF T DETAIL R ECEIPT" | |
| 327 | . S DIR(0 )="YA",DIR ("A")="DO YOU WANT T O DELETE T HIS RECEIP T'S DEPOSI T REFERENC E NOW?: ", DIR("B")=" NO" W ! D ^DIR K DIR | |
| 328 | . I Y=1 S DIE="^RCY (344,",DR= ".06///@", DA=RCRECTD A D ^DIE S RCOK=1 Q | |
| 329 | . S VALMS G="EDI LBO X ERA rece ipt cannot have a de posit - Re ceipt NOT processed" | |
| 330 | ; | |
| 331 | N RCDEPTD A,RCDPDATA ,RCDPFLAG, RCDPFHLP,R CTRDA,RCSC R,STATUS,R CADJ | |
| 332 | ; | |
| 333 | ; lock re ceipt | |
| 334 | I '$$LOCK REC^RCDPRP LU(RCRECTD A) S VALMS G="Receipt NOT Proce ssed." Q | |
| 335 | ; | |
| 336 | ; apply d ecrease ad justments from workl ist entry | |
| 337 | S RCSCR=+ $O(^RCY(34 4.4,"ARCT" ,RCRECTDA, 0)),RCSCR= $S($D(^RCY (344.49,+R CSCR,0)):R CSCR,1:0) | |
| 338 | S RCADJ=$ $ERAWL^RCD PRPL4(RCSC R) | |
| 339 | I RCADJ=2 D UNLOCK Q | |
| 340 | I RCADJ<0 D Q | |
| 341 | . W !,"Th e bill bal ance for t he bills l isted abov e must be manually i ncreased t o",!,"acco mmodate th e automati c ERA Work list dec a djustment amounts an d to allow ",!,"the E RA receipt to be bal anced - Re ceipt NOT processed. " | |
| 342 | . D UNLOC K | |
| 343 | ; | |
| 344 | ; warning no transa ctions | |
| 345 | I '$O(^RC Y(344,RCRE CTDA,1,0)) D | |
| 346 | . W !,"WA RNING, no transactio ns are on the receip t. Process ing will o nly change " | |
| 347 | . W !,"th e status o f the rece ipt to clo sed." | |
| 348 | ; | |
| 349 | D DIQ344^ RCDPRPLM(R CRECTDA,". 06;.08;.17 ;.18;200;" ) | |
| 350 | ; code sh eet alread y sent onc e, this is a retrans mission, c heck it | |
| 351 | I RCDPDAT A(344,RCRE CTDA,200," E")'="" D | |
| 352 | . S STATU S=$$STATUS ^GECSSGET( RCDPDATA(3 44,RCRECTD A,200,"E") ) | |
| 353 | . W !,"Th is receipt has been previously processed to FMS in the cash receipt" | |
| 354 | . W !,"do cument ",$ TR(RCDPDAT A(344,RCRE CTDA,200," E")," ")," . The curr ent status for this document i n the" | |
| 355 | . W !,"Ge neric Code Sheet Sta ck file is ",STATUS, "." | |
| 356 | . ; | |
| 357 | . ; okay to continu e if statu s is Error , Rejected , or not d efined (-1 ) | |
| 358 | . I $E(ST ATUS)="E"! ($E(STATUS )="R")!(ST ATUS=-1) Q | |
| 359 | . ; okay to continu e if docum ent has no t been tra nsmitted | |
| 360 | . I $E(ST ATUS)="Q"! ($E(STATUS )="M") Q | |
| 361 | . ; okay to continu e if docum ent is tra nsmitted f or 2 days | |
| 362 | . I $E(ST ATUS)="T", $$FMDIFF^X LFDT(DT,RC DPDATA(344 ,RCRECTDA, .08,"I"))> 1 Q | |
| 363 | . ; | |
| 364 | . ; do no t allow re processing | |
| 365 | . S RCDPF LAG=1 | |
| 366 | . I $E(ST ATUS)="A" W !!,"You cannot rep rocess and retransmi t an ACCEP TED docume nt." | |
| 367 | . I $E(ST ATUS)="T" W !!,"You cannot rep rocess and retransmi t a docume nt which h as previou sly been", !,"transmi tted and i s waiting on confirm ation (les s than 2 d ays since" ,!,"proces sing)." | |
| 368 | I $G(RCDP FLAG) D UN LOCK Q | |
| 369 | ; | |
| 370 | ; check p ayments to verify it doesn't e xceed bill amt | |
| 371 | W !!,"Che cking paym ent amount s versus b illed amou nts ..." | |
| 372 | S RCTRDA= 0 F S RCT RDA=$O(^RC Y(344,RCRE CTDA,1,RCT RDA)) Q:'R CTRDA D | |
| 373 | . S X=$$C HECKPAY(RC RECTDA,RCT RDA) | |
| 374 | . I 'X Q | |
| 375 | . ; excee ds billed amt | |
| 376 | . S RCDPF LAG=1 | |
| 377 | . ; check for >1 pe nding paym ent for th is transac tion | |
| 378 | . I +$P(X ,"^",3)'=$ P(^RCY(344 ,RCRECTDA, 1,RCTRDA,0 ),"^",4) S RCDPFLAG= 2 | |
| 379 | . W !," " I RCDPFLA G=2 W "*" S RCDPFHLP =1 | |
| 380 | . W "WARN ING: Trans # ",RCTRDA ,". Pendin g Payments $ ",$J($P (X,"^",3), 0,2)," exc eed billed amount $ ",$J($P(X, "^",2),0,2 ) | |
| 381 | I $G(RCDP FLAG) D Q | |
| 382 | . I $G(RC DPFHLP) W !,"NOTE: * Indicates more than one pendi ng payment entered a gainst thi s bill." | |
| 383 | . W !,"Ad just payme nts listed above bef ore proces sing." | |
| 384 | . D UNLOC K | |
| 385 | ; | |
| 386 | W " payme nts okay." | |
| 387 | ; | |
| 388 | S RCDEPTD A=RCDPDATA (344,RCREC TDA,.06,"I ") | |
| 389 | ; lock de posit tckt | |
| 390 | I RCDEPTD A I '$$LOC KDEP^RCDPD PLU(RCDEPT DA) D UNLO CK Q | |
| 391 | ; | |
| 392 | ; check f or critica l fields, deposit ti cket, date of deposi t | |
| 393 | ; No depo sit ticket is OK for ERA not r elated to an EFT or for HAC ER A | |
| 394 | I 'RCDEPT DA,$S('$G( RCDPDATA(3 44,RCRECTD A,.18,"I") ):1,$$EDIL B^RCDPEU(R CRECTDA)=2 :0,1:'$$HA C^RCDPURE1 (RCRECTDA) ) D | |
| 395 | . W !!,"W ARNING, De posit Tick et is miss ing. If yo u continue with proc essing," | |
| 396 | . W !,"th e AR accou nts will b e updated and a cash receipt ( CR) docume nt will" | |
| 397 | . W !,"NO T be sent to FMS. Yo u have the option to add the D eposit Tic ket now." | |
| 398 | . D EDITR EC^RCDPURE C(RCRECTDA ,".06;") | |
| 399 | . S (RCDE PTDA,RCDPD ATA(344,RC RECTDA,.06 ,"I"))=$P( ^RCY(344,R CRECTDA,0) ,"^",6) | |
| 400 | ; | |
| 401 | ; deposit ticket ad ded | |
| 402 | I RCDEPTD A D | |
| 403 | . D EDITD EP^RCDPUDE P(RCDEPTDA ,1) | |
| 404 | . D DIQ34 41^RCDPDPL M(RCDEPTDA ,".03;") | |
| 405 | . I RCDPD ATA(344.1, RCDEPTDA,. 03,"I") Q | |
| 406 | . W !!,"N o DEPOSIT DATE, you can edit t he deposit data now. " | |
| 407 | . D EDITD EP^RCDPUDE P(RCDEPTDA ,1) | |
| 408 | . D DIQ34 41^RCDPDPL M(RCDEPTDA ,".03;") | |
| 409 | . I RCDPD ATA(344.1, RCDEPTDA,. 03,"I") Q | |
| 410 | . W !!,"S till No DE POSIT DATE , use the Edit Depos it option under Depo sit Proces sing." | |
| 411 | . S RCDPF LAG=1 | |
| 412 | I $G(RCDP FLAG) D UN LOCK Q | |
| 413 | ; | |
| 414 | W ! | |
| 415 | I $$ASKPR OC'=1 D Q | |
| 416 | . I $G(RC ADJ)>0 W ! !,*7,"WARN ING - EDI Lbox Workl ist auto d ec adjustm ents have already be en made fo r",!,"this receipt!! !" | |
| 417 | . D UNLOC K | |
| 418 | ; | |
| 419 | ; process receipt, pass 1 to show messa ges | |
| 420 | D PROCESS ^RCDPURE1( RCRECTDA,1 ) K CSRECP T | |
| 421 | D UNLOCK | |
| 422 | D INIT^RC DPRPLM | |
| 423 | D HDR^RCD PRPLM | |
| 424 | I $P(^RCY (344,RCREC TDA,0),"^" ,8) S VALM SG="Receip t PROCESSE D." | |
| 425 | Q | |
| 426 | RoutinesAc tivitiesRo utine Name RCDPRPL4En hancement Category N ew Modify Delete No ChangeRTMR elated Opt ionsRCDPE EDI LOCKBO X WORKLIST | |
| 427 | RCDP DEPOS IT PROCESS ING | |
| 428 | RCDP RECEI PT PROCESS ING | |
| 429 | Protocol - RCDP RECE IPT PROFIL E ONLINE Relat ed Routine sRoutines “Called By ”Routines “Called” N/A^DIE | |
| 430 | ^DIR | |
| 431 | DATA^GECSS GET | |
| 432 | SETSTAT^GE CSSTAA | |
| 433 | $$INCDEC^R CBEUTR1 | |
| 434 | ADDCOMM^RC BEUTRA | |
| 435 | HDR^RCDPRP LM | |
| 436 | $$FMSSTAT^ RCDPUREC | |
| 437 | EDITREC^RC DPUREC | |
| 438 | FULL^VALM1 $$FMDIF F^XLFDT Current LogicRCDP RPL4 ;WISC /RFJ/PJH-r eceipt pro file listm anager opt ions ;1 Ap r 01 | |
| 439 | ;;4.5;Acc ounts Rece ivable;**1 69,172,173 ,269,276** ;Mar 20, 1 995;Build 87 | |
| 440 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified. | |
| 441 | Q | |
| 442 | ; | |
| 443 | ; this ro utine cont ains the e ntry point s for rece ipt manage ment | |
| 444 | ; | |
| 445 | ; | |
| 446 | ONLINE ; a llow the s upervisor to mark th e CR docum ent as inp ut on line | |
| 447 | D FULL^VA LM1 | |
| 448 | S VALMBCK ="R" | |
| 449 | ; | |
| 450 | ; get fms document and status | |
| 451 | N %,FMSDO C,GECSDATA | |
| 452 | S FMSDOC= $$FMSSTAT^ RCDPUREC(R CRECTDA) | |
| 453 | ; | |
| 454 | W !!,"Thi s option w ill allow you to mar k a reject ed Cash Re ceipt docu ment as" | |
| 455 | W !,"ente red on lin e. This wi ll prevent the docum ent from b eing liste d on" | |
| 456 | W !,"the nightly ma ilman mess age used t o help man age the re ceipts and deposits. " | |
| 457 | ; | |
| 458 | W !!,"FMS Cash Rece ipt Docume nt: ",$P(F MSDOC,"^") ,?48,"Stat us: ",$P(F MSDOC,"^", 2) | |
| 459 | ; | |
| 460 | I '$D(^XU SEC("PRCAY PAYMENT S UP",DUZ)) W !!,"You are not an owner of the superv isor PRCAY PAYMENT S UP securit y key." D QUIT Q | |
| 461 | ; | |
| 462 | ; cr acce pted | |
| 463 | I $E($P(F MSDOC,"^", 2))="A" W !!,"You CA NNOT mark the Cash R eceipt doc ument as e ntered on line.",!," The CR doc ument is A CCEPTED ?? " D QUIT Q | |
| 464 | ; | |
| 465 | ; not bee n transmit ted for 2 days | |
| 466 | I $E($P(F MSDOC,"^", 2))="T",$$ FMDIFF^XLF DT(DT,$P(^ RCY(344,RC RECTDA,0), "^",8))'>2 W !!,"You CANNOT ma rk the Cas h Receipt document a s entered on line.", !,"The CR document h as NOT bee n TRANSMIT TED for 2 days ??" D QUIT Q | |
| 467 | ; | |
| 468 | ; cr queu ed for tra nsmission | |
| 469 | I $E($P(F MSDOC,"^", 2))="Q"!($ E($P(FMSDO C,"^",2))= "M") W !!, "You CANNO T mark the Cash Rece ipt docume nt as ente red on lin e.",!,"The CR docume nt is wait ing to be TRANSMITTE D ??" D QU IT Q | |
| 470 | ; | |
| 471 | ; check t o see if a lready mar ked as ent ered on li ne | |
| 472 | I $E($P(F MSDOC,"^", 2))="O" D Q | |
| 473 | . I $$ASK STAT("REMO VE")'=1 Q | |
| 474 | . W !,".. . removing CR status as entere d on line ..." | |
| 475 | . ; remov e the stat us on fiel d 201 | |
| 476 | . D EDITR EC^RCDPURE C(RCRECTDA ,"201////0 ;") | |
| 477 | . ; show the new st atus | |
| 478 | . S FMSDO C=$$FMSSTA T^RCDPUREC (RCRECTDA) | |
| 479 | . W !!,"F MS Cash Re ceipt Docu ment: ",$P (FMSDOC,"^ "),?48,"St atus: ",$P (FMSDOC,"^ ",2) | |
| 480 | . D QUIT | |
| 481 | ; | |
| 482 | ; ask to change the status to entered o n line | |
| 483 | I $$ASKST AT("ENTER" )'=1 D QUI T Q | |
| 484 | ; | |
| 485 | ; change the status to entere d on line | |
| 486 | W !,"... changing s tatus to e ntered on line ..." | |
| 487 | W !,"... changing t he generic code shee t stack fi le status to ACCEPTE D ..." | |
| 488 | ; | |
| 489 | ; set the status to entered o n line in field 201 | |
| 490 | D EDITREC ^RCDPUREC( RCRECTDA," 201////1;" ) | |
| 491 | ; | |
| 492 | ; set the generic c ode sheet status as accepted | |
| 493 | ; get the document ien | |
| 494 | D DATA^GE CSSGET($P( FMSDOC,"^" )) | |
| 495 | I $G(GECS DATA) D SE TSTAT^GECS STAA(GECSD ATA,"A") | |
| 496 | ; | |
| 497 | ; show th e new stat us | |
| 498 | S FMSDOC= $$FMSSTAT^ RCDPUREC(R CRECTDA) | |
| 499 | W !!,"FMS Cash Rece ipt Docume nt: ",$P(F MSDOC,"^") ,?48,"Stat us: ",$P(F MSDOC,"^", 2) | |
| 500 | ; | |
| 501 | QUIT ; pau se and reb uild the h eader | |
| 502 | W !!,"pre ss RETURN to continu e: " | |
| 503 | R %:DTIME | |
| 504 | D HDR^RCD PRPLM | |
| 505 | QModified Logic (Ch anges are in bold)RC DPRPL4 ;WI SC/RFJ/PJH -receipt p rofile lis tmanager o ptions ;1 Apr 01 | |
| 506 | ;;4.5;Acc ounts Rece ivable;**1 69,172,173 ,269,276** ;Mar 20, 1 995;Build 87 | |
| 507 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified. | |
| 508 | Q | |
| 509 | ; | |
| 510 | ; this ro utine cont ains the e ntry point s for rece ipt manage ment | |
| 511 | ; | |
| 512 | ; | |
| 513 | ONLINE ; a llow the s upervisor to mark th e CR docum ent as inp ut on line | |
| 514 | ; | |
| 515 | ; Input - RCRECDA - IEN of CR receipt i n #344 | |
| 516 | ; | |
| 517 | D FULL^VA LM1 | |
| 518 | S VALMBCK ="R" | |
| 519 | ; | |
| 520 | ; get fms document and status | |
| 521 | N %,FMSDO C,GECSDATA | |
| 522 | S FMSDOC= $$FMSSTAT^ RCDPUREC(R CRECTDA) | |
| 523 | ; | |
| 524 | W !!,"Thi s option w ill allow you to mar k a reject ed Cash Re ceipt docu ment as" | |
| 525 | W !,"ente red on lin e. This wi ll prevent the docum ent from b eing liste d on" | |
| 526 | W !,"the nightly ma ilman mess age used t o help man age the re ceipts and deposits. " | |
| 527 | ; | |
| 528 | W !!,"FMS Cash Rece ipt Docume nt: ",$P(F MSDOC,"^") ,?48,"Stat us: ",$P(F MSDOC,"^", 2) | |
| 529 | ; | |
| 530 | I '$D(^XU SEC("PRCAY PAYMENT S UP",DUZ)) W !!,"You are not an owner of the superv isor PRCAY PAYMENT S UP securit y key." D QUIT Q | |
| 531 | ; | |
| 532 | ; cr acce pted | |
| 533 | I $E($P(F MSDOC,"^", 2))="A" W !!,"You CA NNOT mark the Cash R eceipt doc ument as e ntered on line.",!," The CR doc ument is A CCEPTED ?? " D QUIT Q | |
| 534 | ; | |
| 535 | ; not bee n transmit ted for 2 days | |
| 536 | I $E($P(F MSDOC,"^", 2))="T",$$ FMDIFF^XLF DT(DT,$P(^ RCY(344,RC RECTDA,0), "^",8))'>2 W !!,"You CANNOT ma rk the Cas h Receipt document a s entered on line.", !,"The CR document h as NOT bee n TRANSMIT TED for 2 days ??" D QUIT Q | |
| 537 | ; | |
| 538 | ; cr queu ed for tra nsmission | |
| 539 | I $E($P(F MSDOC,"^", 2))="Q"!($ E($P(FMSDO C,"^",2))= "M") W !!, "You CANNO T mark the Cash Rece ipt docume nt as ente red on lin e.",!,"The CR docume nt is wait ing to be TRANSMITTE D ??" D QU IT Q | |
| 540 | ; | |
| 541 | ; check t o see if a lready mar ked as ent ered on li ne | |
| 542 | I $E($P(F MSDOC,"^", 2))="O" D Q | |
| 543 | . I $$ASK STAT("REMO VE")'=1 Q | |
| 544 | . W !,".. . removing CR status as entere d on line ..." | |
| 545 | . ; remov e the stat us on fiel d 201 and FMS refere nce on fie ld 200 | |
| 546 | . D EDITR EC^RCDPURE C(RCRECTDA ,"201//0;2 00///@;") | |
| 547 | . ; show the new st atus | |
| 548 | . S FMSDO C=$$FMSSTA T^RCDPUREC (RCRECTDA) | |
| 549 | . W !!,"F MS Cash Re ceipt Docu ment: ",$P (FMSDOC,"^ "),?48,"St atus: ",$P (FMSDOC,"^ ",2) | |
| 550 | . D QUIT | |
| 551 | ; | |
| 552 | ; ask to change the status to entered o n line | |
| 553 | I $$ASKST AT("ENTER" )'=1 D QUI T Q | |
| 554 | ; | |
| 555 | ; Ask if funds are in FMS 8NZ Z account | |
| 556 | W !! | |
| 557 | K DIR S D IR(0)="Y", DIR("A")=" Are these funds alre ady entere d into the 8NZZ acco unt in FMS ",DIR("B") ="No" | |
| 558 | D ^DIR | |
| 559 | I Y'=1 W !,"User ex ited" D QU IT Q | |
| 560 | ; | |
| 561 | ; Ask for FMS refer ence | |
| 562 | W !! | |
| 563 | K DIR,DIR UT,DUOUT S DIR(0)="F ^1:20",DIR ("A")="Ent er FMS doc ument/refe rence" | |
| 564 | D ^DIR | |
| 565 | I $D(DIRU T)!$D(DUOU T) W !,"Us er exited" D QUIT Q | |
| 566 | ; | |
| 567 | ; change the status to entere d on line | |
| 568 | W !!,"... changing status to entered on line ..." | |
| 569 | W !,"... changing t he generic code shee t stack fi le status to ACCEPTE D ..." | |
| 570 | ; | |
| 571 | ; set the status to entered o n line in field 201 and FMS re ference in field 200 | |
| 572 | D EDITREC ^RCDPUREC( RCRECTDA," 201///1;20 0///"_Y_”; ”) | |
| 573 | ; | |
| 574 | ; set the generic c ode sheet status as accepted | |
| 575 | ; get the document ien | |
| 576 | D DATA^GE CSSGET($P( FMSDOC,"^" )) | |
| 577 | I $G(GECS DATA) D SE TSTAT^GECS STAA(GECSD ATA,"A") | |
| 578 | ; | |
| 579 | ; show th e new stat us | |
| 580 | S FMSDOC= $$FMSSTAT^ RCDPUREC(R CRECTDA) | |
| 581 | W !!,"FMS Cash Rece ipt Docume nt: ",$P(F MSDOC,"^") ,?48,"Stat us: ",$P(F MSDOC,"^", 2) | |
| 582 | ; | |
| 583 | QUIT ; pau se and reb uild the h eader | |
| 584 | W !!,"pre ss RETURN to continu e: " | |
| 585 | R %:DTIME | |
| 586 | D HDR^RCD PRPLM | |
| 587 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.