Produced by Araxis Merge on 2/27/2019 2:32:55 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 US798 SDD.DOCX | Fri Jan 25 13:54:16 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 US798 SDD.DOCX | Mon Feb 25 20:32:36 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 360 |
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 US798 | |
2 | System Des ign Docume nt | |
3 | PRCA*4.5*x xx | |
4 | ||
5 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | August 201 8 | |
10 | Version 1 | |
11 | User Story ID: US798 | |
12 | User Story Name: Nee d trace # under clai m # on Rec eipt Profi le | |
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 a... | |
23 | I want to. .. | |
24 | So that... | |
25 | ePayments user | |
26 | I Need tra ce # under claim # o n Receipt Profile | |
27 | I can read ily provid e that inf ormation f rom the Re ceipt Prof ile option | |
28 | ||
29 | ||
30 | Conversati on (if des ired by de velopers) | |
31 | When ERA a nd EFT mat ched, ther e is data missing fo r a manufa ctured mat ch versus an auto-ma tch. | |
32 | Manually p osted EFTs do not ha ve a check # but whe n displayi ng the EFT info in o ne of the patches, i t will sho w the EFT #. | |
33 | If manuall y posted E FT, then n o "check/t race" numb er shows o n RP. The re is no E RA, so no trace # in fo there e ither. | |
34 | Add trace # to the p rompt foll owing the ‘CU Custom ize’ actio n within ‘ RP Receipt Profile’ | |
35 | If type of payment i s EDI Lock box, then display th e trace # in lieu of check and /or credit card info rmation. If check o r credit c ard # is p resent, th en functio nality rem ains as-is . | |
36 | ||
37 | Summary | |
38 | This is a change to customized display o f a receip t using th e CU actio n on the r eceipt pro file. When building the custom ized displ ay and the user answ ers ‘YES’ to the ‘Do you want to show tr ace #, che ck and cre dit card i nformation ?’ questio n and the claim bein g displaye d does not have an a ssociated check or c redit card then the trace numb er will be displayed instead ( see functi onal desig n). | |
39 | ||
40 | Routines | |
41 | RCDPRPL2 – Modified the CUSTOM IZ method, refactore d entire r outine for readabili ty/maintai nability – See RCDPR PL2us798 | |
42 | ||
43 | RCDPRPLM – Modified the INIT a nd SET met hods – rew rote the e ntire rout ine for re adability/ maintainab ility – Se e RCDPRPLM us798 | |
44 | ||
45 | Resoluti on – Added Changed O bjects | |
46 | ||
47 | Routines | |
48 | Activities | |
49 | Routine Na me | |
50 | RCDPRPL2 | |
51 | Enhancemen t Category | |
52 | New | |
53 | Modify | |
54 | Delete | |
55 | No Change | |
56 | RTM | |
57 | ||
58 | Related Op tions | |
59 | Receipt Pr ocessing ( RP) [RCD P RECEIPT PROCESSING ] | |
60 | Routines | |
61 | Activities | |
62 | Data Dicti onary (DD) Reference s | |
63 | ||
64 | Related Pr otocols | |
65 | ||
66 | Related In tegration Control Re gistration s (ICRs) | |
67 | ||
68 | Data Passi ng | |
69 | Input | |
70 | Output Re ference | |
71 | Both | |
72 | Global Re ference | |
73 | Local | |
74 | Input Attr ibute Name and Defin ition | |
75 | Name: | |
76 | Definition : | |
77 | Output Att ribute Nam e and Defi nition | |
78 | Name: | |
79 | Definition : | |
80 | Related Ro utines | |
81 | Routines “ Called By” | |
82 | Routines “ Called” | |
83 | ||
84 | RCDPRECT | |
85 | RCDPRPLM | |
86 | RCDPURE1 | |
87 | ||
88 | $$SELAC T^RCDPAPLM | |
89 | DISP^RC DPEDS | |
90 | $$GETTY PE^RCDPR21 5 | |
91 | DQ^RCDP R215BCEOB1 | |
92 | $$DEVIC E^RCDPRECT | |
93 | $$SELPA Y^RCDPRPL1 | |
94 | INIT^RC DPRPLM | |
95 | SET^RCD PRPLM | |
96 | ||
97 | ||
98 | ||
99 | ||
100 | ||
101 | Current Lo gic – RCDP RPL2 | |
102 | RCDPRPL2 ; WISC/RFJ-r eceipt pro file listm anager opt ions ;1 Ju n 99 ;;4.5 ;Accounts Receivable ;**114,148 ,173,217** ;Mar 20, 1 995 ;;Per VHA Direct ive 10-93- 142, this routine sh ould not b e modified . Q ; ; th is routine contains entry poin ts for cus tomize and printing ; ;ACCTPRO F ; option : account profile D FULL^VALM1 S VALMBCK ="R" ; N A CCT,RCDEBT DA,RCTRAND A ; select the payme nt transac tion S RCT RANDA=$$SE LPAY^RCDPR PL1(RCRECT DA) I RCTR ANDA>0 D . ; find de btor (file 340) entr y . S RCDE BTDA=0 . S ACCT=$P(^ RCY(344,RC RECTDA,1,R CTRANDA,0) ,"^",3) . I ACCT[";D PT(" S RCD EBTDA=$O(^ RCD(340,"B ",ACCT,0)) . I ACCT[ "PRCA(430, " S RCDEBT DA=$P($G(^ PRCA(430,+ ACCT,0))," ^",9) . I 'RCDEBTDA S VALMSG=" Account NO T found fo r payment transactio n." ; ; pa yment not selected a sk to sele ct an acco unt I '$D( RCDEBTDA) S RCDEBTDA =$$SELACCT ^RCDPAPLM ; I $G(RCD EBTDA)'>0 Q D EN^VAL M("RCDP AC COUNT PROF ILE") S VA LMBCK="R" ; fast exi t I $G(RCD PFXIT) S V ALMBCK="Q" Q ; ;PRIN RECT ; opt ion: print a receipt D FULL^VA LM1 S VALM BCK="R" ; N RCTRANDA ; select the paymen t transact ion S RCTR ANDA=$$SEL PAY^RCDPRP L1(RCRECTD A) I RCTRA NDA<1 Q ; ; check if transacti on has a p ayment amo unt I '$P( $G(^RCY(34 4,RCRECTDA ,1,RCTRAND A,0)),"^", 4) S VALMS G="NO Paym ent Amount on Transa ction." Q ; S VALMSG =$$DEVICE^ RCDPRECT I VALMSG=0 S VALMSG=" Receipt NO T printed" Q ; ;PRIN T215 ; pri nt 215 rep ort N %ZIS ,POP D FUL L^VALM1 S VALMBCK="R " ; N RECE IPDA,RCTYP E S RECEIP DA=RCRECTD A ; S RCTY PE=$$GETTY PE^RCDPR21 5 I RCTYPE ="" Q ; ; select dev ice W ! S %ZIS="Q" D ^%ZIS Q:P OP I $D(IO ("Q")) D D ^%ZTLOAD K IO("Q") ,ZTSK D ^% ZISC Q . S ZTDESC="P rint 215 R eport",ZTR TN="DQ^RCD PR215" . S ZTSAVE("R ECEIPDA")= "",ZTSAVE( "RCTYPE")= "",ZTSAVE( "ZTREQ")=" @" W !!,"< *> please wait <*>" D DQ^RCDPR 215 Q ; ;C USTOMIZ ; option: cu stomize di splay D FU LL^VALM1 S VALMBCK=" R" ; W !!, "This opti on will al low the us er to cust omize the screen and options" W !,"used for receip t processi ng." ; ; a sk to show check/cre dit card d ata I $$AS KCHECK=-1 Q ; ; ask to show ac ct lookup, batch and sequence number I $ $ASKACCT=- 1 D INIT^R CDPRPLM Q ; ; ask to show comm ents I $$A SKCOMM=-1 D INIT^RCD PRPLM Q ; ; ask to s how fms cr documents I $$ASKFM S=-1 D INI T^RCDPRPLM Q ; ; ask to show E OB detail informatio n I $$ASKE OB=-1 D IN IT^RCDPRPL M Q ; ; ma ke sure fo rm is rebu ilt based on the abo ve answers D INIT^RC DPRPLM ; ; W !!,"The next prom pts will a llow the u ser to ind ividually set up the way recei pts" W !," should be printed wh en enterin g payment transactio ns. The us er can set " W !,"the software up to auto matically print a re ceipt to a device, n ever print " W !,"the receipt, or ask to print the receipt. T he user ca n also spe cify the" W !,"print er used fo r printing receipts, preventin g from hav ing to re- enter it." N DEVICE, TYPE ; ; f or printin g receipts D Q:TYPE <0 . W ! . S TYPE=$$ ASKRECT . I TYPE<0 Q . ; . ; n ever print receipt . I TYPE=0 D RCSET("R ECEIPT",0) Q . ; . ; ask defau lt printer device . S DEVICE=$ $ASKDEVIC( 1) . ; . ; no defaul t printer, always pr int receip t . I DEVI CE="",TYPE =1 D Q . . W !,"Sin ce you did not enter a default printer f or printin g receipts ," . . W ! ,"I will c hange it s o the soft ware will ask you to print the receipt" . . W !,"w hen enteri ng a payme nt transac tion." . . D RCSET(" RECEIPT",2 ) . ; . ; set defaul t printer for receip ts . D RCS ET("RECEIP T",TYPE_"^ "_DEVICE) ; ; for pr inting 215 report W !!!,"You n ow have th e option o f setting up the def ault print er for aut omatically " W !,"pri nting the 215 report when a re ceipt is p rocessed." ,! ; ask d efault pri nter devic e S DEVICE =$$ASKDEVI C(2) D RCS ET("215REP ORT",U_DEV ICE) QRCSE T(RCSNPT,R CSLDV) ;fi le the sel ected para meter & de vice N DA, DIC,DIE,DR ,X,Y I '$D (^RC(342.3 ,"B",RCSNP T)) D .K D D,DO,DIC(" DR") S DIC ="^RC(342. 3,",DIC(0) ="",X=RCSN PT D FILE^ DICN S DA( 1)=$O(^RC( 342.3,"B", RCSNPT,0)) I '$D(^RC (342.3,DA( 1),1,"B",D UZ)) D Q .S DIC(0)= "",DIC("P" )=$P(^DD(3 42.3,1,0), U,2),DIC=" ^RC(342.3, "_DA(1)_", 1,",X=DUZ .S DIC("DR ")="1////" _$P(RCSLDV ,U)_";2/// /"_$P(RCSL DV,U,2) .K DD,DO D F ILE^DICN S DA=$O(^RC (342.3,DA( 1),1,"B",D UZ,0)),DR= ".01////"_ DUZ_";1/// /"_$P(RCSL DV,U)_";2/ ///"_$P(RC SLDV,U,2) S DIE="^RC (342.3,"_D A(1)_",1," D ^DIE Q ;OPTCK(RCS NPT,RCSLDV ) ;return the select ion in pie ce 2 and d evice in p iece 3 N R CDA S RCDA =$O(^RC(34 2.3,+$O(^R C(342.3,"B ",RCSNPT,0 )),1,"B",D UZ,0)) I R CDA S RCDA =$P($G(^RC (342.3,+$O (^RC(342.3 ,"B",RCSNP T,0)),1,RC DA,0)),U,R CSLDV) Q R CDA ; ;ASK CHECK() ; ask if its okay to s how check/ credit car d data ; 1 is yes, o therwise n o N DIR,DI Q2,DTOUT,D UOUT,X,Y S DIR(0)="Y O" S DIR(" B")="NO" I $$OPTCK(" SHOWCHECK" ,2) S DIR( "B")="YES" S DIR("A" )=" Do you want to s how check and credit card info rmation" W ! D ^DIR I $G(DTOUT )!($G(DUOU T)) S Y=-1 I Y'=-1 D RCSET("SH OWCHECK",Y ) Q Y ;ASK EOB() ; as k if its o kay to sho w EOB deta il data ; 1 is yes, otherwise no N DIR,D IQ2,DTOUT, DUOUT,X,Y S DIR(0)=" YO" S DIR( "B")="NO" I $$OPTCK( "SHOWEOB", 2) S DIR(" B")="YES" S DIR("A") =" Do you want to sh ow electro nic EEOB d etail data " W ! D ^D IR I $G(DT OUT)!($G(D UOUT)) S Y =-1 I Y'=- 1 D RCSET( "SHOWEOB", Y) Q Y ;AS KACCT() ; ask if its okay to s how acct l ookup, bat ch, and se quence ; 1 is yes, o therwise n o N DIR,DI Q2,DTOUT,D UOUT,X,Y S DIR(0)="Y O" S DIR(" B")="NO" I $$OPTCK(" SHOWACCT", 2) S DIR(" B")="YES" S DIR("A") =" Do you want to sh ow acct lo okup, batc h and sequ ence infor mation" W ! D ^DIR I $G(DTOUT) !($G(DUOUT )) S Y=-1 I Y'=-1 D RCSET("SHO WACCT",Y) Q Y ; ;ASK COMM() ; a sk if its okay to sh ow comment s and post ing errors ; 1 is ye s, otherwi se no N DI R,DIQ2,DTO UT,DUOUT,X ,Y S DIR(0 )="YO" S D IR("B")="N O" I $$OPT CK("SHOWCO MMENTS",2) S DIR("B" )="YES" S DIR("A")=" Do you wa nt to show comments" W ! D ^DI R I $G(DTO UT)!($G(DU OUT)) S Y= -1 I Y'=-1 D RCSET(" SHOWCOMMEN TS",Y) Q Y ; ;ASKFMS () ; ask i f its okay to show f ms documen ts ; 1 is yes, other wise no N DIR,DIQ2,D TOUT,DUOUT ,X,Y S DIR (0)="YO" S DIR("B")= "NO" I $$O PTCK("SHOW FMS",2) S DIR("B")=" YES" S DIR ("A")=" Do you want to show th e FMS cash receipt d ocuments" W ! D ^DIR I $G(DTOU T)!($G(DUO UT)) S Y=- 1 I Y'=-1 D RCSET("S HOWFMS",Y) Q Y ; ;AS KRECT() ; ask to pri nt the rec eipt ; ret urns 0 (ne ver), 1 (a lways), or 2 (ask) N DEFAULT,D IR,DIQ2,DT OUT,DUOUT, X,Y S DEFA ULT="ALWAY S" I $$OPT CK("RECEIP T",2)'=""! ($$OPTCK(" RECEIPT",3 )'="") S D EFAULT=$$O PTCK("RECE IPT",2),DE FAULT=$S(D EFAULT=0:" NEVER",DEF AULT=1:"AL WAYS",1:"M AYBE") S D IR(0)="SO^ 0:Never Pr int the Re ceipt;1:Al ways Print the Recei pt;2:Maybe , Ask to P rint the R eceipt" S DIR("A")=" Print Rece ipt" S DIR ("B")=DEFA ULT D ^DIR I $G(DTOU T)!($G(DUO UT)) S Y=- 1 Q Y ; ;A SKDEVIC(RC TYPE) ; as k the defa ult printe r for rece ipts and f or 215 rep ort ; rcty pe=1 for r eceipts, r ctype=2 fo r 215 repo rt N RCION S %ZIS="N P0" S %ZIS ("A")="Ent er the Def ault Print er for Pri nting Rece ipts: " I RCTYPE=2 S %ZIS("A") ="Enter th e Default Printer fo r Printing the 215 R eport: " S %ZIS("B") ="" I RCTY PE=1,$$OPT CK("RECEIP T",3)'="" S %ZIS("B" )=$$OPTCK( "RECEIPT", 3) I RCTYP E=2,$$OPTC K("215REPO RT",3)'="" S %ZIS("B ")=$$OPTCK ("215REPOR T",3) D ^% ZIS I IO=I O(0) W !," You cannot select yo ur current device as a default printer." Q "" S RC ION=ION ; reset curr ent device D ^%ZISC Q RCION ;S HEOB ; sho w EEOB det ail if swi tch on - m oved from RCDPRPLM I $$OPTCK(" SHOWEOB",2 ) D . N Z . S Z=$O(^ RCY(344.4, "ARCT",RCR ECTDA,0)) . Q:'Z . S RCLINE=RC LINE+1 D S ET^RCDPRPL M(" ",RCLI NE,1,80) . S RCLINE= RCLINE+1 D SET^RCDPR PLM("EEOB Detail:",R CLINE,1,80 ,0,IOUON,I OUOFF) . K ^TMP($J," RCDISP") D DISP^RCDP EDS(Z) . S Z=0 F S Z=$O(^TMP( $J,"RCDISP ",Z)) Q:'Z S RCLINE =RCLINE+1 D SET^RCDP RPLM(^TMP( $J,"RCDISP ",Z),RCLIN E,1,80) . K ^TMP($J, "RCDISP") Q ; | |
103 | ||
104 | Modified L ogic – RCD PRPL2 | |
105 | RCDPRPL2 ; WISC/RFJ-r eceipt pro file listm anager opt ions ;1 Ju n 99 ;;4.5 ;Accounts Receivable ;**114,148 ,173,217** ;Mar 20, 1 995 ;;Per VHA Direct ive 10-93- 142, this routine sh ould not b e modified . Q ; ; Th is routine contains entry poin ts for cus tomizing a nd printin g ; ;ACCTP ROF ;EP fr om protoco l RCDP REC EIPT PROFI LE ACCOUNT PROFILE ; Account P rofile act ion D FULL ^VALM1 S V ALMBCK="R" ; N ACCT, RCDEBTDA,R CTRANDA S RCTRANDA=$ $SELPAY^RC DPRPL1(RCR ECTDA) ; S elect the payment tr ansaction I RCTRANDA >0 D ; Find debtor (fi le 340) en try . S RC DEBTDA=0 . S ACCT=$P (^RCY(344, RCRECTDA,1 ,RCTRANDA, 0),"^",3) . I ACCT[" ;DPT(" S R CDEBTDA=$O (^RCD(340, "B",ACCT,0 )) . I ACC T["PRCA(43 0," S RCDE BTDA=$P($G (^PRCA(430 ,+ACCT,0)) ,"^",9) . I 'RCDEBTD A S VALMSG ="Account NOT found for paymen t transact ion." ; ; Payment no t selected ask to se lect an ac count I '$ D(RCDEBTDA ) S RCDEBT DA=$$SELAC CT^RCDPAPL M ; Q:$G(R CDEBTDA)'> 0 D EN^VAL M("RCDP AC COUNT PROF ILE") S VA LMBCK="R" I $G(RCDPF XIT) S VAL MBCK="Q" ; Fast exit Q ;PR INRECT ;EP from prot ocol actio n RCDP REC EIPT PROFI LE PRINT R ECEIPT ; P rint a rec eipt D FUL L^VALM1 S VALMBCK="R " N RCTRAN DA ; ; Sel ect the pa yment tran saction S RCTRANDA=$ $SELPAY^RC DPRPL1(RCR ECTDA) Q:R CTRANDA<1 ; ; Check if transac tion has a payment a mount I '$ P($G(^RCY( 344,RCRECT DA,1,RCTRA NDA,0)),"^ ",4) D Q . S VALMSG ="NO Payme nt Amount on Transac tion." ; S VALMSG=$$ DEVICE^RCD PRECT I VA LMSG=0 S V ALMSG="Rec eipt NOT p rinted" Q ;PRINT215 ;EP from p rotocol ac tion RCDP RECEIPT PR OFILE 215 REPORT ; P rint 215 r eport ; In put: RCREC TDA - IEN of the sel ected rece ipt (#344) N %ZIS,PO P,RECEIPDA ,RCTYPE D FULL^VALM1 S VALMBCK ="R",RECEI PDA=RCRECT DA S RCTYP E=$$GETTYP E^RCDPR215 I RCTYPE= "" Q ; ; S elect devi ce W ! S % ZIS="Q" D ^%ZIS Q:PO P I $D(IO( "Q")) D D ^%ZTLOAD K IO("Q"), ZTSK D ^%Z ISC Q . S ZTDESC="Pr int 215 Re port",ZTRT N="DQ^RCDP R215" . S ZTSAVE("RE CEIPDA")=" ",ZTSAVE(" RCTYPE")=" ",ZTSAVE(" ZTREQ")="@ " W !!,"<* > please w ait <*>" D DQ^RCDPR2 15 Q ;CUST OMIZ ;EP f rom protoc ol RCDP RE CEIPT PROF ILE CUSTOM IZE ; Opti on to cust omize disp lay and pr inting of the receip t ; Input: None ; Ou tput: Rece ipt Profil e display and printi ng options customize d N OPT,QU ES D FULL^ VALM1 S VA LMBCK="R" ; W !!,"Th is option will allow the user to customi ze the scr een and op tions" W ! ,"used for receipt p rocessing. " ; ; Ask to show ch eck/credit card data S OPT="SH OWCHECK" S QUES=" Do you want to show tr ace,check and credit card info rmation" Q :$$ASKCUST (OPT,QUES) ; ; Ask t o show acc t lookup, batch and sequence n umber S OP T="SHOWACC T" S QUES= " Do you w ant to sho w acct loo kup, batch and seque nce inform ation" I $ $ASKCUST(O PT,QUES)=- 1 D INIT^R CDPRPLM Q ; ; Ask to show comm ents S OPT ="SHOWCOMM ENTS",QUES =" Do you want to sh ow comment s" I $$ASK CUST(OPT,Q UES)=-1 D INIT^RCDPR PLM Q ; ; Ask to sho w fms cr d ocuments S OPT="SHOW FMS" S QUE S=" Do you want to s how the FM S cash rec eipt docum ents" I $$ ASKCUST(OP T,QUES)=-1 D INIT^RC DPRPLM Q ; ; Ask to show EOB d etail info rmation S OPT="SHOWE OB" S QUES =" Do you want to sh ow electro nic EEOB d etail data " I $$ASKC UST(OPT,QU ES)=-1 D I NIT^RCDPRP LM Q ; ; M ake sure f orm is reb uilt based on the ab ove answer s D INIT^R CDPRPLM ; W !!,"The next promp ts will al low the us er to indi vidually s et up the way receip ts" W !,"s hould be p rinted whe n entering payment t ransaction s. The use r can set" W !,"the software u p to autom atically p rint a rec eipt to a device, ne ver print" W !,"the receipt, o r ask to p rint the r eceipt. Th e user can also spec ify the" W !,"printe r used for printing receipts, preventing from havi ng to re-e nter it." N DEVICE,T YPE ; ; Fo r printing receipts D Q:TYPE< 0 . W ! . S TYPE=$$A SKRECT . Q :TYPE<0 . ; . ; Neve r print re ceipt . I TYPE=0 D R CSET("RECE IPT",0) Q . ; . ; As k default printer de vice . S D EVICE=$$AS KDEVIC(1) . ; . ; No default p rinter, al ways print receipt . I DEVICE= "",TYPE=1 D Q . . W !,"Since you did no t enter a default pr inter for printing r eceipts," . . W !,"I will chan ge it so t he softwar e will ask you to pr int the re ceipt" . . W !,"when entering a payment transactio n." . . D RCSET("REC EIPT",2) . ; . ; Set default p rinter for receipts . D RCSET( "RECEIPT", TYPE_"^"_D EVICE) ; ; For print ing 215 re port W !!! ,"You now have the o ption of s etting up the defaul t printer for automa tically" W !,"printi ng the 215 report wh en a recei pt is proc essed.",! ; Ask defa ult printe r device S DEVICE=$$ ASKDEVIC(2 ) D RCSET( "215REPORT ",U_DEVICE ) Q ;RCSET (RCSNPT,RC SLDV) ; Fi le the sel ected para meter & de vice as th e user's p reference ; Input: R CSNPT - Na me of the parmeter t o file the user's pr eference f or ; RCSLD V - User's preferenc e^Name of the device selected by the use r N DA,DIC ,DIE,DR,X, Y ; ; If t his is a n ew paramet er, file i t I '$D(^R C(342.3,"B ",RCSNPT)) D . K DD, DO,DIC("DR ") . S DIC ="^RC(342. 3,",DIC(0) ="",X=RCSN PT . D FIL E^DICN ; ; File the user's pre ference fo r the para meter if t hey don't have one c urrently d efined S D A(1)=$O(^R C(342.3,"B ",RCSNPT,0 )) I '$D(^ RC(342.3,D A(1),1,"B" ,DUZ)) D Q . S DIC( 0)="",DIC( "P")=$P(^D D(342.3,1, 0),U,2),DI C="^RC(342 .3,"_DA(1) _",1,",X=D UZ . S DIC ("DR")="1/ ///"_$P(RC SLDV,U,1)_ ";2////"_$ P(RCSLDV,U ,2) . K DD ,DO . D FI LE^DICN ; ; Edit the user's pr eference f or the par ameter S D A=$O(^RC(3 42.3,DA(1) ,1,"B",DUZ ,0)) S DR= ".01////"_ DUZ_";1/// /"_$P(RCSL DV,U)_";2/ ///"_$P(RC SLDV,U,2) S DIE="^RC (342.3,"_D A(1)_",1," D ^DIE Q ;OPTCK(RCS NPT,RCSLDV ) ; Return s the user 's prefere nce for a specified AR USER CU STOMIZE ; parameter (if one is defined) ; Input: R CSNPT - Na me of the AR USER CU STOMIZE (# 342.3) par ameter to check ; RC LSDV - Pie ce to be r etrieved o ff of the 342.3 reco rd ; Retur ns: The us er's prefe rence of t he RCSNPT parameter or null if the user has ; no s tored pref erence for the param eter N RCD A ; ; Retr ieve the s tored user preferenc e IEN for the specif ied AR USE R CUSTOMIZ E ; parame ter (if an y) S RCDA= $O(^RC(342 .3,+$O(^RC (342.3,"B" ,RCSNPT,0) ),1,"B",DU Z,0)) ; ; If the use r has a st ored prefe rence for the parame ter, retri eve the an swer I RCD A S RCDA=$ P($G(^RC(3 42.3,+$O(^ RC(342.3," B",RCSNPT, 0)),1,RCDA ,0)),U,RCS LDV) Q RCD A ;ASKCUST (OPT,QUES) ; Ask one of the cu stomize qu estions fr om the CUS TOMIZ acti on ; Input : OPT - Na me of cust omize opti on to set ; QUES - Q uestion to prompt th e user wit ; Returns : 1 if the Question was answer ed 'YES' ; 0 if the Question w as answere d 'NO' ; - 1 if the u ser timed out or '^' out N DIR ,DIQ2,DTOU T,DUOUT,X, Y S DIR(0) ="YO" S DI R("B")="NO " S:$$OPTC K(OPT,2) D IR("B")="Y ES" S DIR( "A")=QUES W ! D ^DIR I $G(DTOU T)!($G(DUO UT)) S Y=- 1 I Y'=-1 D RCSET("S HOWCHECK", Y) Q Y ;AS KRECT() ; Ask the us er when th ey want to print the receipt ; Input: No ne ; Retur ns: 0 (nev er), 1 (al ways), 2 ( ask), -1 ( user timed out or '^ ' out) N D EFAULT,DIR ,DIQ2,DTOU T,DUOUT,X, Y S DEFAUL T="ALWAYS" I $$OPTCK ("RECEIPT" ,2)'=""!($ $OPTCK("RE CEIPT",3)' ="") D . S DEFAULT=$ $OPTCK("RE CEIPT",2), DEFAULT=$S (DEFAULT=0 :"NEVER",D EFAULT=1:" ALWAYS",1: "MAYBE") S DIR(0)="S O^0:Never Print the Receipt;1: Always Pri nt the Rec eipt;2:May be, Ask to Print the Receipt" S DIR("A") ="Print Re ceipt" S D IR("B")=DE FAULT D ^D IR I $G(DT OUT)!($G(D UOUT)) S Y =-1 Q Y ;A SKDEVIC(RC TYPE) ; As k for the default pr inter for receipts a nd for 215 report ; Input: RCT YPE - 1 fo r receipts , 2 for 21 5 report ; Returns: Name of th e selected device or "" N RCIO N S %ZIS=" NP0" S %ZI S("A")="En ter the De fault Prin ter for Pr inting Rec eipts: " I RCTYPE=2 S %ZIS("A" )="Enter t he Default Printer f or Printin g the 215 Report: " S %ZIS("B" )="" I RCT YPE=1,$$OP TCK("RECEI PT",3)'="" S %ZIS("B ")=$$OPTCK ("RECEIPT" ,3) I RCTY PE=2,$$OPT CK("215REP ORT",3)'=" " S %ZIS(" B")=$$OPTC K("215REPO RT",3) D ^ %ZIS I IO= IO(0) W !, "You canno t select y our curren t device a s a defaul t printer. " Q "" S R CION=ION ; ; Reset c urrent dev ice D ^%ZI SC Q RCION ;SHEOB ; Show EEOB detail if switch on - moved fr om RCDPRPL M ; Input: RCLINE - Current li ne count ; Output: R CLINE - Up dated line countt I $$OPTCK("S HOWEOB",2) D . N Z . S Z=$O(^R CY(344.4," ARCT",RCRE CTDA,0)) . Q:'Z . S RCLINE=RCL INE+1 . D SET^RCDPRP LM(" ",RCL INE,1,80) . S RCLINE =RCLINE+1 . D SET^RC DPRPLM("EE OB Detail: ",RCLINE,1 ,80,0,IOUO N,IOUOFF) . K ^TMP($ J,"RCDISP" ) . D DISP ^RCDPEDS(Z ) . S Z=0 . F D Q: 'Z . . S Z =$O(^TMP($ J,"RCDISP" ,Z)) . . Q :'Z . . S RCLINE=RCL INE+1 . . D SET^RCDP RPLM(^TMP( $J,"RCDISP ",Z),RCLIN E,1,80) . K ^TMP($J, "RCDISP") Q ; | |
106 | ||
107 | ||
108 | Routines | |
109 | Activities | |
110 | Routine Na me | |
111 | RCDPRPLM | |
112 | Enhancemen t Category | |
113 | New | |
114 | Modify | |
115 | Delete | |
116 | No Change | |
117 | RTM | |
118 | ||
119 | Related Op tions | |
120 | Receipt Pr ocessing ( RP) [RCD P RECEIPT PROCESSING ] | |
121 | Routines | |
122 | Activities | |
123 | Data Dicti onary (DD) Reference s | |
124 | ||
125 | Related Pr otocols | |
126 | ||
127 | Related In tegration Control Re gistration s (ICRs) | |
128 | ||
129 | Data Passi ng | |
130 | Input | |
131 | Output Re ference | |
132 | Both | |
133 | Global Re ference | |
134 | Local | |
135 | Input Attr ibute Name and Defin ition | |
136 | Name: | |
137 | Definition : | |
138 | Output Att ribute Nam e and Defi nition | |
139 | Name: | |
140 | Definition : | |
141 | Related Ro utines | |
142 | Routines “ Called By” | |
143 | Routines “ Called” | |
144 | ||
145 | RCDPEM0 | |
146 | RCDPLPL1 | |
147 | RCDPRLIS | |
148 | RCDPRPL1 | |
149 | RCDPRPL2 | |
150 | RCDPRPL3 | |
151 | RCDPRPLU | |
152 | RCDPXPAP | |
153 | ||
154 | DATA^GE CSSGET | |
155 | $$ADDPT EDT^PRCAAC C | |
156 | $$OPTCH K^RCDPRPL2 | |
157 | SHEOB^R CDPRPL2 | |
158 | $$CHECK PAY^RCDPRP L3 | |
159 | $$FMSST AT^RCDPURE C | |
160 | $$SELRE CT^RCDPURE C | |
161 | $$GETUN APP^RCXFMS CR | |
162 | ||
163 | ||
164 | ||
165 | ||
166 | ||
167 | ||
168 | Current Lo gic – RCDP RPLM | |
169 | RCDPRPLM ; ;WISC/RFJ- receipt pr ofile list manager to p routine ;1 Jun 99 ;;4.5;Acco unts Recei vable;**11 4,148,149, 173,196,22 0,217,321, 326**;Mar 20, 1995 ; ;Per VHA D irective 1 0-93-142, this routi ne should not be mod ified. ; N RCDPFXIT ;RECTPROF ; entry po int called by link p ayment to prevent ne wing ; fas t exit var RCDPFXIT N RCRECTDA ; F D Q :'RCRECTDA . W !! S RCRECTDA=$ $SELRECT^R CDPUREC(1) ;allow ad ding new r eceipt . I RCRECTDA< 1 S RCRECT DA=0 Q . D EN^VALM(" RCDP RECEI PT PROFILE ") . ; fas t exit . I $G(RCDPFX IT) S RCRE CTDA=0 Q ; ;INIT ; i nit for li st manager N DATE,FM SDOC,GECSD A1,GECSDAT A,RCCANCEL ,RCDPDATA, RCDPFCAN,R CLINE,RCTO TAL,RCTRDA ,SPACE,RCE FT,X,Z,Z0, RCZ,RCZ0,R CZ1,RCZ2,E FTFUND K ^ TMP("RCDPR PLM",$J),^ TMP("VALM VIDEO",$J) ; ; fast exit I $G( RCDPFXIT) S VALMQUIT =1 Q ; D D IQ344(RCRE CTDA,".02: 200") ; ; set listma nager line # S RCLIN E=0 ; K ^T MP($J,"RCE FT") S EFT FUND=$S(DT <$$ADDPTED T^PRCAACC( ):"5287.4/ 8NZZ ",1:" 528704/8NZ Z ") S RCE FT=+$O(^RC Y(344.3,"A RDEP",+$P( $G(^RCY(34 4,RCRECTDA ,0)),U,6), 0)) I RCEF T D . S Z= 0 F S Z=$ O(^RCY(344 .31,"B",RC EFT,Z)) Q: 'Z S Z0=$ G(^RCY(344 .31,+Z,0)) I $P(Z0,U ,14) S ^TM P($J,"RCEF T",$P(Z0,U ,14))=Z_U_ $E($P(Z0,U ,2),1,12) S RCTRDA=0 F S RCTR DA=$O(^RCY (344,RCREC TDA,1,RCTR DA)) Q:'RC TRDA D . D DIQ34401 (RCRECTDA, RCTRDA) . S RCLINE=R CLINE+1 D SET("",RCL INE,1,80,. 01) . ;che ck for pay ment cance lled . S R CCANCEL=0 . I $P($G( ^RCY(344,R CRECTDA,1, RCTRDA,0)) ,"^",4)=0, $P($G(^(1) ),"^")'="" D . . S R CCANCEL=1, RCDPFCAN=1 . . D SET ("**",RCLI NE,5,6) . ;account . I $G(RCDP DATA(344.0 1,RCTRDA,. 03,"E"))=" " D . . S RCDPDATA(3 44.01,RCTR DA,.03,"E" )="[ "_$S( RCEFT:EFTF UND_$P($G( ^TMP($J,"R CEFT",RCTR DA)),U,2), 1:"suspens e"_$$GETUN APP^RCXFMS CR(RCRECTD A,RCTRDA,0 ))_" ]" . D SET("",R CLINE,7,33 ,.03) . ;d ate of pay ment . I R CDPDATA(34 4.01,RCTRD A,.06,"I") D . . D S ET($E(RCDP DATA(344.0 1,RCTRDA,. 06,"I"),4, 5)_"/"_$E( RCDPDATA(3 44.01,RCTR DA,.06,"I" ),6,7)_"/" _$E(RCDPDA TA(344.01, RCTRDA,.06 ,"I"),2,3) ,RCLINE,35 ,42) . ;en tered by . I RCDPDAT A(344.01,R CTRDA,.12, "E")'="" D . . S X=$ E($P(RCDPD ATA(344.01 ,RCTRDA,.1 2,"E"),"," ,2))_$E(RC DPDATA(344 .01,RCTRDA ,.12,"E")) . . I RCD PDATA(344. 01,RCTRDA, .12,"I")=. 5 S X="ar" . . D SET (X,RCLINE, 45,46) . I RCDPDATA( 344.01,RCT RDA,.14,"E ")'="" D . . S X=$E( $P(RCDPDAT A(344.01,R CTRDA,.14, "E"),",",2 ))_$E(RCDP DATA(344.0 1,RCTRDA,. 14,"E")) . . D SET(X ,RCLINE,54 ,55) . D S ET($J(RCDP DATA(344.0 1,RCTRDA,. 04,"E"),8, 2),RCLINE, 62,70) . D SET($J(RC DPDATA(344 .01,RCTRDA ,.05,"E"), 8,2),RCLIN E,72,80) . ; . ;if n ot process ed, show i f amount > bill . S X=$$CHECKP AY^RCDPRPL 3(RCRECTDA ,RCTRDA) I X D . . S RCLINE=RC LINE+1 . . D SET(" W ARNING: Pe nding Paym ents ($ "_ $J($P(X,"^ ",3),0,2)_ ") exceed amount bil led ($ "_$ J($P(X,"^" ,2),0,2)_" )",RCLINE, 1,80) . ; . ;show li ne 2 for c heck/credi t payment . I $$OPTC K^RCDPRPL2 ("SHOWCHEC K",2) D . . ;receipt type of p ayment is check . . I RCDPDATA (344,RCREC TDA,.04,"I ")=4!(RCDP DATA(344,R CRECTDA,.0 4,"I")=12) D Q . . . S RCLINE =RCLINE+1 . . . D SE T(" Check #",RCLINE, 1,80,.07) . . . I 'R CDPDATA(34 4.01,RCTRD A,.1,"I") S RCDPDATA (344.01,RC TRDA,.1,"I ")="?????? ?" . . . D SET("Date : "_$E(RCD PDATA(344. 01,RCTRDA, .1,"I"),4, 5)_"/"_$E( RCDPDATA(3 44.01,RCTR DA,.1,"I") ,6,7)_"/"_ $E(RCDPDAT A(344.01,R CTRDA,.1," I"),2,3),R CLINE,32,8 0) . . . D SET("Bank #",RCLINE ,47,80,.08 ) . . ;rec eipt type of payment is credit . . I RCD PDATA(344, RCRECTDA,. 04,"I")=7 D . . . S RCLINE=RCL INE+1 . . . D SET(" Card #",RC LINE,1,80, .11) . . . D SET("Co nfirmation #",RCLINE ,35,80,.02 ) . ; . ;s how line 3 for acct lookup, ba tch and se q # . I $$ OPTCK^RCDP RPL2("SHOW ACCT",2) D . . I RCD PDATA(344. 01,RCTRDA, .21,"E")=" ",RCDPDATA (344.01,RC TRDA,.22," E")="",RCD PDATA(344. 01,RCTRDA, .23,"E")=" " Q . . S RCLINE=RCL INE+1 . . D SET(" Ac ctLU",RCLI NE,1,80,.2 1) . . D S ET("Batch/ Sequence: "_RCDPDATA (344.01,RC TRDA,.22," E")_"/"_RC DPDATA(344 .01,RCTRDA ,.23,"E"), RCLINE,37, 80) . ; . ;show if p osting err or . I $$O PTCK^RCDPR PL2("SHOWC OMMENTS",2 ),RCDPDATA (344.01,RC TRDA,1.01, "E")'="" D . . S RCL INE=RCLINE +1 . . S X ="Posting Error" . . I RCCANCE L S X="Can cel Data" . . D SET( " "_X,RCLI NE,1,80,1. 01) . ; . ;show if c omment . I $$OPTCK^R CDPRPL2("S HOWCOMMENT S",2),RCDP DATA(344.0 1,RCTRDA,1 .02,"E")'= "" D . . S RCLINE=RC LINE+1 . . D SET(" C omment",RC LINE,1,80, 1.02) . ; . ;if EDI Lockbox pe nding adju stments, s how it . I $P($G(^RC Y(344,RCRE CTDA,0)),U ,18),$G(RC DPDATA(344 .01,RCTRDA ,.27,"E")) D . . S R CZ=$P(^RCY (344,RCREC TDA,0),U,1 8),RCZ0=RC DPDATA(344 .01,RCTRDA ,.27,"E") . . S RCZ1 =0 F S RC Z1=$O(^RCY (344.49,RC Z,1,RCZ0,1 ,RCZ1)) Q: 'RCZ1 S R CZ2=$G(^(R CZ1,0)) I $P(RCZ2,U, 5)'="","12 "[$P(RCZ2, U,5),'$P(R CZ2,U,8) D . . . I $ P(RCZ2,U,5 )=1 S RCLI NE=RCLINE+ 1 D SET(" Pending de crease adj ustment fo r "_$J($P( RCZ2,U,3), "",2),RCLI NE,1,80) Q . . . I $ $OPTCK^RCD PRPL2("SHO WCOMMENTS" ,2),$P(RCZ 2,U,5)=2 S RCLINE=RC LINE+1 D S ET(" Comme nt: "_$P(R CZ2,U,9),R CLINE,1,80 ) Q . ; . ;calculate totals . S RCTOTAL( 1)=$G(RCTO TAL(1))+RC DPDATA(344 .01,RCTRDA ,.04,"E") . S RCTOTA L(2)=$G(RC TOTAL(2))+ RCDPDATA(3 44.01,RCTR DA,.05,"E" ) . ; . ;k ill local variable t o prevent store erro rs . K RCD PDATA(344. 01,RCTRDA) ; ; show totals K ^ TMP($J,"RC EFT") S RC LINE=RCLIN E+1 D SET( "",RCLINE, 1,80) D SE T("------- - -------- ",RCLINE,6 2,80) S RC LINE=RCLIN E+1 D SET( " TOTAL DO LLARS FOR RECEIPT",R CLINE,1,80 ) D SET($J ($G(RCTOTA L(1)),8,2) ,RCLINE,62 ,70) D SET ($J($G(RCT OTAL(2)),8 ,2),RCLINE ,72,80) ; show cance lled I $G( RCDPFCAN) D . S RCLI NE=RCLINE+ 1 . D SET( "**indicat es payment is CANCEL LED",RCLIN E,5,80) ; ; show his tory S RCL INE=RCLINE +1 D SET(" ",RCLINE, 1,80) ; st art histor y on first line of a screen if it does n ot fit on ; current screen I ( RCLINE#12) >8 F SPACE =(RCLINE#1 2):1:12 S RCLINE=RCL INE+1 D SE T(" ",RCLI NE,1,80) S RCLINE=RC LINE+1 D S ET("Receip t History" ,RCLINE,1, 80,0,IOUON ,IOUOFF) S DATE=RCDP DATA(344,R CRECTDA,.0 3,"E"),DAT E=$P(DATE, "@")_" "_$ P($P(DATE, "@",2),":" ,1,2) S RC LINE=RCLIN E+1 S SPAC E="",$P(SP ACE," ",80 )="" I RCD PDATA(344, RCRECTDA,. 02,"I")=.5 S RCDPDAT A(344,RCRE CTDA,.02," E")="accou nts receiv able" D SE T($E(" Ope ned By: "_ RCDPDATA(3 44,RCRECTD A,.02,"E") _SPACE,1,3 9)_"Date/T ime Opened : "_DATE,R CLINE,1,80 ) S DATE=R CDPDATA(34 4,RCRECTDA ,.12,"E"), DATE=$P(DA TE,"@")_" "_$P($P(DA TE,"@",2), ":",1,2) S RCLINE=RC LINE+1 I R CDPDATA(34 4,RCRECTDA ,.11,"I")= .5 S RCDPD ATA(344,RC RECTDA,.11 ,"E")="acc ounts rece ivable" D SET($E("La st Edit By : "_RCDPDA TA(344,RCR ECTDA,.11, "E")_SPACE ,1,39)_"Da te/Time La st Edit: " _DATE,RCLI NE,1,80) S DATE=RCDP DATA(344,R CRECTDA,.0 8,"E"),DAT E=$P(DATE, "@")_" "_$ P($P(DATE, "@",2),":" ,1,2) S RC LINE=RCLIN E+1 I RCDP DATA(344,R CRECTDA,.0 7,"I")=.5 S RCDPDATA (344,RCREC TDA,.07,"E ")="accoun ts receiva ble" D SET ($E("Proce ssed By: " _RCDPDATA( 344,RCRECT DA,.07,"E" )_SPACE,1, 39)_"Date/ Time Proce ssed: "_DA TE,RCLINE, 1,80) ; ;s how fms co de sheets if switch on I $$OPT CK^RCDPRPL 2("SHOWFMS ",2) D . S FMSDOC=$$ FMSSTAT^RC DPUREC(RCR ECTDA) . S RCLINE=RC LINE+1 D S ET(" ",RCL INE,1,80) . S RCLINE =RCLINE+1 D SET("FMS Cash Rece ipt Docume nt:",RCLIN E,1,80,0,I OUON,IOUOF F) . D SET ($P(FMSDOC ,"^")_$S($ P(FMSDOC," ^",3):"(on deposit)" ,1:""),RCL INE,28,80) . D SET(" Status: "_ $P(FMSDOC, "^",2),RCL INE,55,80) . N DIQ2 D DATA^GEC SSGET($P(F MSDOC,"^") ,1) . I '$ G(GECSDATA ) Q . S GE CSDA1=0 F S GECSDA1 =$O(GECSDA TA(2100.1, GECSDATA,1 0,GECSDA1) ) Q:'GECSD A1 D . . S RCLINE=R CLINE+1 D SET(GECSDA TA(2100.1, GECSDATA,1 0,GECSDA1) ,RCLINE,1, 80) ; ; sh ow EEOB de tail if sw itch on D SHEOB^RCDP RPL2 ; ; s et valmcnt to # of l ines in li st S VALMC NT=RCLINE D HDR Q ; ;SET(STRIN G,LINE,COL BEG,COLEND ,FIELD,ON, OFF) ; set array I $ G(FIELD) S STRING=ST RING_$S(ST RING="":"" ,1:": ")_$ G(RCDPDATA (344.01,RC TRDA,FIELD ,"E")) I S TRING="",' $G(FIELD) D SET^VALM 10(LINE,$J ("",80)) Q I '$D(@VA LMAR@(LINE ,0)) D SET ^VALM10(LI NE,$J("",8 0)) D SET^ VALM10(LIN E,$$SETSTR ^VALM1(STR ING,@VALMA R@(LINE,0) ,COLBEG,CO LEND-COLBE G+1)) I $G (ON)]""!($ G(OFF)]"") D CNTRL^V ALM10(LINE ,COLBEG,$L (STRING),O N,OFF) Q ; ;DIQ344(D A,DR) ; re trieves da ta for fld s in file 344 N %I,D 0,DIC,DIQ, DIQ2,YY K RCDPDATA(3 44,DA) S D IQ(0)="IE" ,DIC="^RCY (344,",DIQ ="RCDPDATA " D EN^DIQ 1 Q ; ;DIQ 34401(DA,S UBDA) ; re trieves da ta for fld s in file 344 ; da = receipt d a N %I,D0, DIC,DIQ,DI Q2,DR K RC DPDATA(344 .01,SUBDA) S DR=1,DR (344.01)=" .01:1.02", DA(344.01) =SUBDA S D IQ(0)="IE" ,DIC="^RCY (344,",DIQ ="RCDPDATA " D EN^DIQ 1 Q ; ;HDR ; header code for l ist manage r display N DATE,DEP IEN,EFTIEN ,ERAIEN,FM SDOC,FMSTT R,PAYER,RC DPDATA,RCE FT,SPACE,X X,Z D DIQ3 44(RCRECTD A,".01;.04 ;.06;.08;. 14;.17;.18 ;") S SPAC E="",$P(SP ACE," ",80 )="" ; ; P RCA*4.5*32 1 - Start of modifie d code blo ck S XX=$E (" Receipt #: "_RCDP DATA(344,R CRECTDA,.0 1,"E")_SPA CE,1,39) S XX=XX_"Ty pe of Paym ent: "_RCD PDATA(344, RCRECTDA,. 04,"E") S VALMHDR(1) =XX ; S Z= RCDPDATA(3 44,RCRECTD A,.06,"E") S DEPIEN= +$P($G(^RC Y(344,RCRE CTDA,0)),U ,6) S RCEF T=+$O(^RCY (344.3,"AR DEP",DEPIE N,0)) S EF TIEN=RCDPD ATA(344,RC RECTDA,.17 ,"I") S FM SDOC=$$FMS STAT^RCDPU REC(RCRECT DA) S FMST TR=$S($P(F MSDOC,"-", 1)="TR":1, 1:0) S XX= "" I 'RCEF T&'EFTIEN D ; . S X X=" Deposi t #: "_Z E D ; . I RCEFT D ; . . S XX =" EFT Dep osit: "_Z . E D ; . . ; PRCA *4.5*321 - Since EFT and ERA a re now dis played on their own line, put TIN/Payer here . . N TIN . . S PAYER=$$ GET1^DIQ(3 44.31,EFTI EN_",",.02 ,"E") . . S TIN=$$GE T1^DIQ(344 .31,EFTIEN _",",.03," E") . . S XX=" Payer : "_TIN_"/ "_PAYER S XX=$E(XX_S PACE,1,39) S XX=XX_" Receipt S tatus: "_R CDPDATA(34 4,RCRECTDA ,.14,"E") S VALMHDR( 2)=XX ; S ERAIEN=RCD PDATA(344, RCRECTDA,. 18,"I") S XX="" I FM STTR!ERAIE N S XX=" E RA #: "_RC DPDATA(344 ,RCRECTDA, .18,"E") S XX=$E(XX_ SPACE,1,21 ) I FMSTTR !ERAIEN S XX=XX_"ERA TTL: "_$J ($$GET1^DI Q(344.4,ER AIEN_",",. 05,"E"),9) S XX=$E(X X_SPACE,1, 39) ; get fms docume nt and sta tus S XX=X X_" FMS Do cument: "_ $TR($P(FMS DOC,"^")," ")_$S($P( FMSDOC,"^" ,3):"(on d eposit)",1 :"") S VAL MHDR(3)=XX ; S XX="" I FMSTTR! EFTIEN S X X=" EFT #: "_$$GET1^ DIQ(344.31 ,EFTIEN_", ",.01,"I") _"."_$$GET 1^DIQ(344. 31,EFTIEN_ ",",.14) ; PRCA*4.5* 326 S XX=$ E(XX_SPACE ,1,21) I F MSTTR!EFTI EN S XX=XX _"EFT TTL: "_$J($$GE T1^DIQ(344 .31,EFTIEN _",",.07," E"),9)_" " S XX=$E(X X_SPACE,1, 39) S XX=X X_" FMS Do c Status: "_$P(FMSDO C,"^",2) S VALMHDR(4 )=XX ; PRC A*4.5*321 - End of m odified co de block ; I RCDPDAT A(344,RCRE CTDA,.08," I") S VALM SG="Receip t processe d on "_RCD PDATA(344, RCRECTDA,. 08,"E") Q ; ;EXIT ; exit optio n/clean up K ^TMP("R CDPRPLM",$ J) Q | |
170 | ||
171 | Modified L ogic – RCD PRPLM | |
172 | RCDPRPLM ; ;WISC/RFJ- receipt pr ofile list manager to p routine ;1 Jun 99 ;;4.5;Acco unts Recei vable;**11 4,148,149, 173,196,22 0,217,321, 326**;Mar 20, 1995 ; ;Per VHA D irective 1 0-93-142, this routi ne should not be mod ified. ; N RCDPFXIT ;RECTPROF ;EP from R ECEIPT^RCD PLPL1 ; En try point called by link payme nt to prev ent newing ; fast ex it var RCD PFXIT N RC RECTDA ; F D Q:'RC RECTDA . W !! S RCRE CTDA=$$SEL RECT^RCDPU REC(1) ; A llow addin g new rece ipt . I RC RECTDA<1 S RCRECTDA= 0 Q . D EN ^VALM("RCD P RECEIPT PROFILE") . I $G(RCD PFXIT) S R CRECTDA=0 ; Fast exi t Q ;INIT ;EP from l istman tem plate RCDP RECEIPT P ROFILE MEN U ; EP fro m CUSTOMIZ ^RCDPRPL2 ; Initiali zation for list mana ger ; Inpu t: RCRECTD A - IEN fo r the sele cted recei pt (#344) N DATE,EFT FUND,FMSDO C,GECSDA1, GECSDATA,R CCANCEL,RC EFT,RCDPDA TA,RCDPFCA N,RCLINE,R CTOTAL,RCT RDA N RCZ, RCZ0,RCZ1, RCZ2,SPACE ,X,XX,Z,Z0 K ^TMP("R CDPRPLM",$ J),^TMP("V ALM VIDEO" ,$J) I $G( RCDPFXIT) S VALMQUIT =1 Q ; Fast exit D DIQ344(R CRECTDA,". 02:200") S RCLINE=0 ; Initiali ze list ma nager line # K ^TMP( $J,"RCEFT" ) S EFTFUN D=$S(DT<$$ ADDPTEDT^P RCAACC():" 5287.4/8NZ Z ",1:"528 704/8NZZ " ) S RCEFT= +$O(^RCY(3 44.3,"ARDE P",+$P($G( ^RCY(344,R CRECTDA,0) ),U,6),0)) I RCEFT D . S Z=0 . F D Q:' Z . . S Z= $O(^RCY(34 4.31,"B",R CEFT,Z)) . . Q:'Z . . S Z0=$G( ^RCY(344.3 1,+Z,0)) . . I $P(Z0 ,U,14) S ^ TMP($J,"RC EFT",$P(Z0 ,U,14))=Z_ U_$E($P(Z0 ,U,2),1,12 ) ; S RCTR DA=0 F D Q:'RCTRDA . S RCTRD A=$O(^RCY( 344,RCRECT DA,1,RCTRD A)) . Q:'R CTRDA . D DIQ34401(R CRECTDA,RC TRDA) . S RCLINE=RCL INE+1 . D SET("",RCL INE,1,80,. 01) . ; . ; Check fo r payment cancelled . S RCCANC EL=0 . I $ P($G(^RCY( 344,RCRECT DA,1,RCTRD A,0)),"^", 4)=0,$P($G (^(1)),"^" )'="" D . . S RCCANC EL=1,RCDPF CAN=1 . . D SET("**" ,RCLINE,5, 6) . ; . ; Account . I $G(RCDP DATA(344.0 1,RCTRDA,. 03,"E"))=" " D . . S: RCEFT XX=E FTFUND_$P( $G(^TMP($J ,"RCEFT",R CTRDA)),U, 2) . . S:' RCEFT XX=$ $GETUNAPP^ RCXFMSCR(R CRECTDA,RC TRDA,0) . . S RCDPDA TA(344.01, RCTRDA,.03 ,"E")="[ " _XX_" ]" . D SET("", RCLINE,7,3 3,.03) . ; . ; Date of payment . I RCDPD ATA(344.01 ,RCTRDA,.0 6,"I") D . . S XX=$E (RCDPDATA( 344.01,RCT RDA,.06,"I "),4,5) . . S XX=XX_ "/"_$E(RCD PDATA(344. 01,RCTRDA, .06,"I"),6 ,7) . . S XX=XX_"/"_ $E(RCDPDAT A(344.01,R CTRDA,.06, "I"),2,3) . . D SET( XX,RCLINE, 35,42) . ; . ; Enter ed by . I RCDPDATA(3 44.01,RCTR DA,.12,"E" )'="" D . . S X=$E($ P(RCDPDATA (344.01,RC TRDA,.12," E"),",",2) )_$E(RCDPD ATA(344.01 ,RCTRDA,.1 2,"E")) . . I RCDPDA TA(344.01, RCTRDA,.12 ,"I")=.5 S X="ar" . . D SET(X, RCLINE,45, 46) . I RC DPDATA(344 .01,RCTRDA ,.14,"E")' ="" D . . S X=$E($P( RCDPDATA(3 44.01,RCTR DA,.14,"E" ),",",2))_ $E(RCDPDAT A(344.01,R CTRDA,.14, "E")) . . D SET(X,RC LINE,54,55 ) . D SET( $J(RCDPDAT A(344.01,R CTRDA,.04, "E"),8,2), RCLINE,62, 70) . D SE T($J(RCDPD ATA(344.01 ,RCTRDA,.0 5,"E"),8,2 ),RCLINE,7 2,80) . ; . ; If not processed , show if amount > b ill . S X= $$CHECKPAY ^RCDPRPL3( RCRECTDA,R CTRDA) . I X D . . S RCLINE=RC LINE+1 . . S XX=" WA RNING: Pen ding Payme nts ($ "_$ J($P(X,"^" ,3),0,2) . . S XX=XX _") exceed amount bi lled ($ "_ $J($P(X,"^ ",2),0,2)_ ")" . . D SET(XX,RCL INE,1,80) . ; . ; Sh ow line 2 for check/ credit pay ment . I $ $OPTCK^RCD PRPL2("SHO WCHECK",2) D . . ; . . ; Recei pt type of payment i s check . . I RCDPDA TA(344,RCR ECTDA,.04, "I")=4!(RC DPDATA(344 ,RCRECTDA, .04,"I")=1 2) D Q . . . S RCLI NE=RCLINE+ 1 . . . D SET(" Chec k #",RCLIN E,1,80,.07 ) . . . I 'RCDPDATA( 344.01,RCT RDA,.1,"I" ) S RCDPDA TA(344.01, RCTRDA,.1, "I")="???? ???" . . . S XX="Dat e: "_$E(RC DPDATA(344 .01,RCTRDA ,.1,"I"),4 ,5) . . . S XX=XX_"/ "_$E(RCDPD ATA(344.01 ,RCTRDA,.1 ,"I"),6,7) . . . S X X=XX_"/"_$ E(RCDPDATA (344.01,RC TRDA,.1,"I "),2,3) . . . D SET( XX,RCLINE, 32,80) . . . D SET(" Bank #",RC LINE,47,80 ,.08) . . ; . . ; Re ceipt type of paymen t is credi t . . I RC DPDATA(344 ,RCRECTDA, .04,"I")=7 D Q . . . S RCLINE =RCLINE+1 . . . D SE T(" Card # ",RCLINE,1 ,80,.11) . . . D SET ("Confirma tion #",RC LINE,35,80 ,.02) . . ; . . ; Re ceipt type of paymen t is EDI L OCKBOX . . I RCDPDAT A(344,RCRE CTDA,.04," I")=14 D Q . . . D SET(" Trac e #",RCLIN E,1,80,.17 ) . ; . ; Show line 3 for acct lookup, b atch and s eq # . I $ $OPTCK^RCD PRPL2("SHO WACCT",2) D . . N AC CTLKUP,BAT CHNUM,SEQN UM . . S A CCTLKUP=RC DPDATA(344 .01,RCTRDA ,.21,"E") ; Account Lookup . . S BATCHNU M=RCDPDATA (344.01,RC TRDA,.22," E") ; Batc h Number . . S SEQNU M=RCDPDATA (344.01,RC TRDA,.23," E") ; Sequ ence Numbe r . . I AC CTLKUP="", BATCHNUM=" ",SEQNUM=" " Q ; No Ac count info rmation, s kip . . S RCLINE=RCL INE+1 . . D SET(" Ac ctLU",RCLI NE,1,80,.2 1) . . D S ET("Batch/ Sequence: "_BATCHNUM _"/"_SEQNU M,RCLINE,3 7,80) . ; . ; Show i f posting error . I $$OPTCK^RC DPRPL2("SH OWCOMMENTS ",2),RCDPD ATA(344.01 ,RCTRDA,1. 01,"E")'=" " D . . S RCLINE=RCL INE+1 . . S X="Posti ng Error" . . I RCCA NCEL S X=" Cancel Dat a" . . D S ET(" "_X,R CLINE,1,80 ,1.01) . ; . ; Show if comment . I $$OPT CK^RCDPRPL 2("SHOWCOM MENTS",2), RCDPDATA(3 44.01,RCTR DA,1.02,"E ")'="" D . . S RCLIN E=RCLINE+1 . . D SET (" Comment ",RCLINE,1 ,80,1.02) . ; . ; If EDI Lockb ox pending adjustmen ts, show i t . I $P($ G(^RCY(344 ,RCRECTDA, 0)),U,18), $G(RCDPDAT A(344.01,R CTRDA,.27, "E")) D . . S RCZ=$P (^RCY(344, RCRECTDA,0 ),U,18),RC Z0=RCDPDAT A(344.01,R CTRDA,.27, "E") . . S RCZ1=0 . . F D Q: 'RCZ1 . . . S RCZ1=$ O(^RCY(344 .49,RCZ,1, RCZ0,1,RCZ 1)) . . . Q:'RCZ1 . . . S RCZ2 =$G(^(RCZ1 ,0)) . . . I $P(RCZ2 ,U,5)'="", "12"[$P(RC Z2,U,5),'$ P(RCZ2,U,8 ) D . . . . I $P(RCZ 2,U,5)=1 D Q . . . . . S RCLI NE=RCLINE+ 1 . . . . . D SET(" Pending de crease adj ustment fo r "_$J($P( RCZ2,U,3), "",2),RCLI NE,1,80) . . . . I $ $OPTCK^RCD PRPL2("SHO WCOMMENTS" ,2),$P(RCZ 2,U,5)=2 D Q . . . . . S RCLI NE=RCLINE+ 1 . . . . . D SET(" Comment: " _$P(RCZ2,U ,9),RCLINE ,1,80) . ; . ; Calcu late total s . S RCTO TAL(1)=$G( RCTOTAL(1) )+RCDPDATA (344.01,RC TRDA,.04," E") . S RC TOTAL(2)=$ G(RCTOTAL( 2))+RCDPDA TA(344.01, RCTRDA,.05 ,"E") . ; . ; Kill l ocal varia ble to pre vent store errors . K RCDPDATA (344.01,RC TRDA) ; ; Show total s K ^TMP($ J,"RCEFT") S RCLINE= RCLINE+1 D SET("",RC LINE,1,80) D SET("-- ------ --- -----",RCL INE,62,80) S RCLINE= RCLINE+1 D SET(" TOT AL DOLLARS FOR RECEI PT",RCLINE ,1,80) D S ET($J($G(R CTOTAL(1)) ,8,2),RCLI NE,62,70) D SET($J($ G(RCTOTAL( 2)),8,2),R CLINE,72,8 0) ; ; Sho w cancelle d I $G(RCD PFCAN) D . S RCLINE= RCLINE+1 . D SET("** indicates payment is CANCELLED ",RCLINE,5 ,80) ; ; S how histor y S RCLINE =RCLINE+1 D SET(" ", RCLINE,1,8 0) ; ; Sta rt history on first line of a screen if it does no t fit on ; current s creen I (R CLINE#12)> 8 F SPACE= (RCLINE#12 ):1:12 S R CLINE=RCLI NE+1 D SET (" ",RCLIN E,1,80) S RCLINE=RCL INE+1 D SE T("Receipt History", RCLINE,1,8 0,0,IOUON, IOUOFF) S DATE=RCDPD ATA(344,RC RECTDA,.03 ,"E"),DATE =$P(DATE," @")_" "_$P ($P(DATE," @",2),":", 1,2) S RCL INE=RCLINE +1 S SPACE ="",$P(SPA CE," ",80) ="" I RCDP DATA(344,R CRECTDA,.0 2,"I")=.5 S RCDPDATA (344,RCREC TDA,.02,"E ")="accoun ts receiva ble" S XX= $E(" Opene d By: "_RC DPDATA(344 ,RCRECTDA, .02,"E")_S PACE,1,39) S XX=XX_" Date/Time Opened: "_ DATE D SET (XX,RCLINE ,1,80) S D ATE=RCDPDA TA(344,RCR ECTDA,.12, "E"),DATE= $P(DATE,"@ ")_" "_$P( $P(DATE,"@ ",2),":",1 ,2) S RCLI NE=RCLINE+ 1 I RCDPDA TA(344,RCR ECTDA,.11, "I")=.5 S RCDPDATA(3 44,RCRECTD A,.11,"E") ="accounts receivabl e" S XX=$E ("Last Edi t By: "_RC DPDATA(344 ,RCRECTDA, .11,"E")_S PACE,1,39) S XX=XX_" Date/Time Last Edit: "_DATE D SET(XX,RCL INE,1,80) S DATE=RCD PDATA(344, RCRECTDA,. 08,"E"),DA TE=$P(DATE ,"@")_" "_ $P($P(DATE ,"@",2),": ",1,2) S R CLINE=RCLI NE+1 I RCD PDATA(344, RCRECTDA,. 07,"I")=.5 S RCDPDAT A(344,RCRE CTDA,.07," E")="accou nts receiv able" S XX =$E("Proce ssed By: " _RCDPDATA( 344,RCRECT DA,.07,"E" )_SPACE,1, 39) S XX=X X_"Date/Ti me Process ed: "_DATE D SET(XX, RCLINE,1,8 0) ; ; Sho w fms code sheets if switch on I $$OPTCK ^RCDPRPL2( "SHOWFMS", 2) D . S F MSDOC=$$FM SSTAT^RCDP UREC(RCREC TDA) . S R CLINE=RCLI NE+1 D SET (" ",RCLIN E,1,80) . S RCLINE=R CLINE+1 D SET("FMS C ash Receip t Document :",RCLINE, 1,80,0,IOU ON,IOUOFF) . D SET($ P(FMSDOC," ^")_$S($P( FMSDOC,"^" ,3):"(on d eposit)",1 :""),RCLIN E,28,80) . D SET("St atus: "_$P (FMSDOC,"^ ",2),RCLIN E,55,80) . N DIQ2 . D DATA^GEC SSGET($P(F MSDOC,"^") ,1) . I '$ G(GECSDATA ) Q . S GE CSDA1=0 . F S GECSD A1=$O(GECS DATA(2100. 1,GECSDATA ,10,GECSDA 1)) Q:'GEC SDA1 D . . S RCLINE =RCLINE+1 . . D SET( GECSDATA(2 100.1,GECS DATA,10,GE CSDA1),RCL INE,1,80) ; ; Show E EOB detail if switch on D SHEO B^RCDPRPL2 ; ; Set v almcnt to # of lines in list S VALMCNT=R CLINE D HD R Q ;SET(S TRING,LINE ,COLBEG,CO LEND,FIELD ,ON,OFF) ; Sets a li ne into th e body ; o f the list man templa te ; Input : STRING - Label for the data being set ; LINE - C urrent lin e # being build ; CO LBEG - Beg inning col umn where the text s hould be i nput ; COL END - Endi ng column where the text is be ing input ; FIELD - Field # fo r value be ing set, o ptional ; NOTE: if t he field i s 17 - the trace num ber is ret rieved ; f rom the EF T record ; ON - Used to to set text char acteristic ; OFF - U sed to to set text c haracteris tic ; RCDP DATA - Arr ay of rece ipt data f or the rec eipt being processed ; RCTRDA - IEN N XX S XX=$G(R CDPDATA(34 4.01,RCTRD A,FIELD,"E ")) I FIEL D=.17 D ; G et the tra ce number from the E FT record . S XX=$G( RCDPDATA(3 44.01,RCTR DA,FIELD," I")) . S X X=$$GET1^D IQ(344.31, XX_",",.04 ,"E") S:$G (FIELD) ST RING=STRIN G_$S(STRIN G="":"",1: ": ")_XX I STRING="" ,'$G(FIELD ) D SET^VA LM10(LINE, $J("",80)) Q I '$D(@ VALMAR@(LI NE,0)) D S ET^VALM10( LINE,$J("" ,80)) D SE T^VALM10(L INE,$$SETS TR^VALM1(S TRING,@VAL MAR@(LINE, 0),COLBEG, COLEND-COL BEG+1)) I $G(ON)'="" !($G(OFF)' ="") D CNT RL^VALM10( LINE,COLBE G,$L(STRIN G),ON,OFF) Q ;DIQ344 (DA,DR) ; Retrieves data for f ields in f ile #344 ; Input: DA - IEN of the receip t to retri eve data f rom (#344) ; DR - Li st of fiel ds to retr ieve data for ; Outp ut: RCDPDA TA - Array of retrie ved data N %I,D0,DIC ,DIQ,DIQ2, YY K RCDPD ATA(344,DA ) S DIQ(0) ="IE",DIC= "^RCY(344, ",DIQ="RCD PDATA" D E N^DIQ1 Q ; DIQ34401(D A,SUBDA) ; Retrieves data for fields in the transa ction subf ile (#344. 01) ; of t he receipt file (#34 4) ; Input : DA - IEN of the re ceipt to r etrieve da ta from (# 344) ; SUB DA - IEN o f the sub- file recor d (#344.01 ) ; Output : RCDPDATA - Array o f retrieve d data ; d a = receip t da N %I, D0,DIC,DIQ ,DIQ2,DR K RCDPDATA( 344.01,SUB DA) S DR=1 ,DR(344.01 )=".01:1.0 2",DA(344. 01)=SUBDA S DIQ(0)=" IE",DIC="^ RCY(344,", DIQ="RCDPD ATA" D EN^ DIQ1 Q ;HD R ;EP from listman T emplate RC DP RECEIPT PROFILE ; Header co de for lis t manager display N DATE,DEPIE N,EFTIEN,E RAIEN,FMSD OC,FMSTTR, PAYER,RCDP DATA,RCEFT ,SPACE,XX, Z D DIQ344 (RCRECTDA, ".01;.04;. 06;.08;.14 ;.17;.18;" ) S SPACE= "",$P(SPAC E," ",80)= "" ; ; PRC A*4.5*321 - Start of modified code block S XX=$E(" Receipt # : "_RCDPDA TA(344,RCR ECTDA,.01, "E")_SPACE ,1,39) S X X=XX_"Type of Paymen t: "_RCDPD ATA(344,RC RECTDA,.04 ,"E") S VA LMHDR(1)=X X ; S Z=RC DPDATA(344 ,RCRECTDA, .06,"E") S DEPIEN=+$ P($G(^RCY( 344,RCRECT DA,0)),U,6 ) S RCEFT= +$O(^RCY(3 44.3,"ARDE P",DEPIEN, 0)) S EFTI EN=RCDPDAT A(344,RCRE CTDA,.17," I") S FMSD OC=$$FMSST AT^RCDPURE C(RCRECTDA ) S FMSTTR =$S($P(FMS DOC,"-",1) ="TR":1,1: 0) S XX="" I 'RCEFT& 'EFTIEN D ; . S XX= " Deposit #: "_Z E D ; . I R CEFT D ; . . S XX=" EFT Depos it: "_Z . E D ; . . ; PRCA*4 .5*321 - S ince EFT a nd ERA are now displ ayed on th eir own li ne, put TI N/Payer he re . . N TIN . . S PAYER=$$GE T1^DIQ(344 .31,EFTIEN _",",.02," E") . . S TIN=$$GET1 ^DIQ(344.3 1,EFTIEN_" ,",.03,"E" ) . . S XX =" Payer: "_TIN_"/"_ PAYER S XX =$E(XX_SPA CE,1,39) S XX=XX_" R eceipt Sta tus: "_RCD PDATA(344, RCRECTDA,. 14,"E") S VALMHDR(2) =XX ; S ER AIEN=RCDPD ATA(344,RC RECTDA,.18 ,"I") S XX ="" I FMST TR!ERAIEN S XX=" ERA #: "_RCDP DATA(344,R CRECTDA,.1 8,"E") S X X=$E(XX_SP ACE,1,21) I FMSTTR!E RAIEN S XX =XX_"ERA T TL: "_$J($ $GET1^DIQ( 344.4,ERAI EN_",",.05 ,"E"),9) S XX=$E(XX_ SPACE,1,39 ) ; ; Get fms docume nt and sta tus S XX=X X_" FMS Do cument: "_ $TR($P(FMS DOC,"^")," ")_$S($P( FMSDOC,"^" ,3):"(on d eposit)",1 :"") S VAL MHDR(3)=XX ; S XX="" I FMSTTR! EFTIEN D . S XX=" EF T #: "_$$G ET1^DIQ(34 4.31,EFTIE N_",",.01, "I")_"." . S XX=XX_$ $GET1^DIQ( 344.31,EFT IEN_",",.1 4) ; PRCA* 4.5*326 S XX=$E(XX_S PACE,1,21) I FMSTTR! EFTIEN S X X=XX_"EFT TTL: "_$J( $$GET1^DIQ (344.31,EF TIEN_",",. 07,"E"),9) _" " S XX= $E(XX_SPAC E,1,39) S XX=XX_" FM S Doc Stat us: "_$P(F MSDOC,"^", 2) S VALMH DR(4)=XX ; PRCA*4.5* 321 - End of modifie d code blo ck ; I RCD PDATA(344, RCRECTDA,. 08,"I") D . S VALMSG ="Receipt processed on "_RCDPD ATA(344,RC RECTDA,.08 ,"E") Q ;E XIT ;EP fr om listman Template RCDP RECEI PT PROFILE ; Exit op tion/clean up K ^TMP ("RCDPRPLM ",$J) Q | |
173 | ||
174 | ||
175 | ||
176 | ||
177 | ||
178 | ||
179 | ||
180 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.