17. EPMO Open Source Coordination Office Redaction File Detail Report

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.

17.1 Files compared

# 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

17.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 360
Changed 0 0
Inserted 0 0
Removed 0 0

17.3 Comparison options

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

17.4 Active regular expressions

No regular expressions were active.

17.5 Comparison detail

  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
  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