7. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/27/2019 2:32:45 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.

7.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 US335 SDD.docx Fri Jan 25 13:44:00 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 US335 SDD.docx Mon Feb 25 19:34:23 2019 UTC

7.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 15 582
Changed 0 0
Inserted 0 0
Removed 15 97

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

7.4 Active regular expressions

No regular expressions were active.

7.5 Comparison detail

  1   MCCF EDI T AS US335
  2   System Des ign Docume nt
  3   PRCA*4.5*x xx
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   January 20 17
  10   Version 1. 1
  11   User Story  ID: US335
  12   User Story  Name:  Re port for w ho marked  EEOBs for  auto-post
  13   Sizing:  1 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   ePay Manag ement
  26   A history  of users w ho marked  EEOBs for  auto-post
  27   Identify w ho is resp onsible fo r making c hanges
  28  
       
       
       
       
  29   Conversati on
  30   Changed “l og” to “re port”, “em ployees” t o “users”
  31   Menu = EDI  Lockbox R eport (pos ition, acr onym, name )
  32   Filter by  date range , M/P/T, u ser (singl e, multipl e, all), f ilter by p ayer name  (specific,  range, al l)
  33   Primary so rt by date , secondar y by user  or payer
  34   Export to  Excel, Lis t Manager  format
  35   User displ ayed as fu ll user na me (max ch ar allowed )
  36   Headers -  ERA>Claim# >Trace#>Us er>Date>Pa yer Name
  37   NOTE: this  user stor y also has  a functio nal design  document.   Refer to  the desig n document  for the r eport layo ut.
  38  
       
       
  39   Report des cription a nd Behavio r:
  40   This repor t must be  exportable  to Excel  and also h ave the op tion to be  displayed  in a List man templa te.  A new  menu opti on “EEOBs  Marked for  Auto-Post  Audit Rep ort” [RCDP E MARKED A UTO-POST R EPORT] wit h a shortc ut of “EMA ” will be  added to t he followi ng menu: a s shown in  the funct ional desi gn documen t.  The fu nctional d esign docu ment demon strates ex actly wher e the clie nt wants t he option  to appear  in the men us listed  below:
  41   EDI Lockbo x (ePaymen ts) Report  Menu (RCD PE EDI LOC KBOX REPOR TS MENU)
  42  
       
  43   The title  of the new  report wi ll be ‘EEO Bs Marked  for Auto-P ost Audit  Report’. I t will hav e the filt er and sor t criteria  as shown  in the fun ctional de sign docum ent.
  44   Filters wi ll include :
  45   Start Date  
  46   No default
  47  
  48   End Date
  49   No default
  50   Divisions  (up to 20)
  51   No default
       
  52   (M)edical,  (P)harmac y,  (T)ric are or (A) ll – Stand ard M/P/T  filter
  53   “All”
  54   Run Report  for (A)ll , (S)pecif ic or (R)a nge of Ins urance Com panies – S tandard pa yer filter
  55   Default “A ll”
  56   Run Report  for (S)pe cific or ( A)ll users
  57   Default “A ll”
  58   If specifi c chosen,  allows mul tiple user s to be re quested
  59   Sort by (I )nsurance  Company Na me or (Use r
  60   Default “U ser”
  61   Note this  is the sec ondary sor t. The pri mary sort  is Marked  for Auto-P ost date
  62   Export to  Excel?
  63   Default “N o”
  64   Display in  List Mana ger Format ?
  65   Default “N o”
  66  
  67  
  68   Sort possi bilities ( with no de fault) wil l only be  asked if t he user se lects to v iew “both”  for ERAs 
  69  
       
       
       
       
  70   The report  shall con tain the f ollowing d ata: 
  71   Payer- The  insurance  company f or the ERA . This fie ld is a ma ximum of 6 0 characte rs. This i s the PAYM ENT FROM f ield in th e ELECTRON IC REMITTA NCE ADVICE  file (fil e 344.4, f ield .06).
  72   Claim Numb er- The cl aim associ ated with  the ERA de tail line.   This fie ld is a ma ximum of x x characte rs. This i s the XXX  field in t he XXX fil e (file xx x, field x xx).
  73   Trace Numb er- The ba nk trace n umber for  the ERA re ceived. Th is field i s a maximu m of 50 ch aracters.  This is th e TRACE NU MBER field  in the EL ECTRONIC R EMITTANCE  ADVICE fil e (file 34 4.4, field  .02).
  74          Aut o-Post Dat e- The dat e/time the  ERA detai l line was  Auto-Post ed. This f ield is 12  character s.  This i s the AUTO -POST DATE  field in  the ERA DE TAIL sub-f ile of the  ELECTRONI C REMITTAN CE ADVICE  file (file  344.41, f ield 9).
  75          Use r- The use r from the  NEW PERSO N file (fi le 200) wh o marked t he ERA det ail line f or Auto-Po sting.  Th is field i s a maximu m of 35 ch aracters.   This is t he MARKED  FOR AUTOPO ST USER fi eld  in th e ERA DETA IL sub-fil e of the E LECTRONIC  REMITTANCE  ADVICE fi le (file 3 44.41, fie ld 6.01).
  76  
       
       
       
       
       
       
       
  77   The report  will page  break on  primary So rt (Date)  and second ary sort ( payer or u ser).
  78   For how th e report s hould look  refer to  the functi onal desig n document .
  79   The report  should ha ve an “***  End of Re port ***”  message di splayed.
  80  
  81     Resoluti on – Added  Changed O bjects
  82  
  83   Options
  84   Activities
  85   Option Nam e
  86   RCDPE MARK ED AUTO-PO ST REPORT
  87   Enhancemen t Category
  88    New
  89    Modify
  90    Delete
  91    No Change
  92   Associated  Menu Opti ons that w ill invoke  this refe rence
  93   RCDPE EDI  LOCKBOX RE PORTS MENU
  94  
  95   Data Passi ng
  96    Input
  97    Output
  98    Both
  99    Global Re ference
  100    Local Ref erence
  101   Menu Text  Descriptio n
  102   EEOBs Mark ed for Aut o-Post Aud it Report
  103   Option Typ e
  104    Edit
  105    Print
  106    Menu
  107    Inquire
  108  
  109    Action
  110    Run Routi ne
  111    Other
  112  
  113   Associated  Routine
  114   EN^RCDPEMA P
  115   Option Def inition
  116  
  117  
  118   Options
  119   Activities
  120   Option Nam e
  121   RCDPE EDI  LOCKBOX RE PORTS MENU
  122   Enhancemen t Category
  123    New
  124    Modify
  125    Delete
  126    No Change
  127   Associated  Menu Opti ons that w ill invoke  this refe rence
  128   RCDPE EDI  LOCKBOX AC T REPORT          SYN ONYM: DA           Or der: 10
  129   RCDPE EFT  AGING REPO RT                          SYNO NYM: EFT          Ord er: 30
  130   RCDPE ERA  AGING REPO RT                         SYNON YM: ERA         Order : 40
  131   RCDPE VIEW /PRINT ERA                                  SYNONYM: V P           Order: 20 0
  132   RCDPE ACTI VE WITH EE OB REPORT         SYN ONYM: AB           Or der: 60
  133   RCDPE REMO VED ERA AU DIT                      SYNONYM : REMR     Order: 180
  134   RCDPE ERA  W/PAPER EO B REPORT            S YNONYM: PO SR     Ord er: 150
  135   RCDPE EFT  AUDIT REPO RT                            SY NONYM: DUP R    Order : 100
  136   RCDPE EEOB  MOVE/COPY /RMOVE RPT     SYNONY M: MCR       Order:13 0
  137   RCDPE AUTO -POST REPO RT                          SYNO NYM: AP           Ord er:80
  138   RCDPE AUTO -DECREASE  REPORT              S YNONYM: AD            Order: 70
  139   RCDPE PAYE R EXCLUSIO N NAME TIN      SYNON YM: PX            Ord er: 160
  140   RCDPE CARC /RARC TABL E REPORT          SYN ONYM: TB            O rder: 190
  141   RCDPE CARC /RARC QUIC K SEARCH          SYN ONYM: QS            O rder: 170
  142   RCDPE PROV IDER LVL A DJ REPORT          SY NONYM: PLB          O rder: 140
  143   RCDPE EFT  TRANSACTIO N AUD REP         SYN ONYM: ETA          Or der: 120
  144   RCDPE CARC  CODE PAYE R REPORT          SYN ONYM: CR              Order: 90
  145   RCDPE ERA  STATUS CHN G AUD REP         SYN ONYM: ESC           O rder: 110
  146   RCDPE UNAP PLIED EFT  DEP REPORT        SYN ONYM: UN              Order: 50
  147   RCDPE AUTO -POST RECE IPT REPORT        SYN ONYM: APR          Or der: 85
  148   RCDPE MARK ED AUTO-PO ST REPORT       SYNON YM: EMA    Order: 135
  149   Data Passi ng
  150    Input
  151    Output
  152    Both
  153    Global Re ference
  154    Local Ref erence
  155   Menu Text  Descriptio n
  156  
  157   Option Typ e
  158    Edit
  159    Print
  160    Menu
  161    Inquire
  162  
  163    Action
  164    Run Routi ne
  165    Other
  166  
  167   Associated  Routine
  168  
  169   Option Def inition
  170  
  171  
  172   Changes:  
  173   Added/Chan ged Displa y orders o n all menu  items
  174   Added ‘RCD PE MARKED  AUTO-PORT  REPORT’ me nu item
  175  
  176  
  177  
  178  
  179  
       
       
  180   Routines
  181   Activities
  182   Routine Na me
  183   RCDPEMAP
  184   Enhancemen t Category
  185    New
  186    Modify
  187    Delete
  188    No Change
  189   RTM
  190  
  191   Related Op tions
  192   RCDPE MARK ED AUTO-PO ST REPORT
  193   Routines
  194   Activities
  195   Data Dicti onary (DD)  Reference s
  196  
  197   Related Pr otocols
  198  
  199   Related In tegration  Control Re gistration s (ICRs)
  200   Use DIVISI ON^VAUTOMA  via Contr olled IA 6 64
  201  
  202   Data Passi ng
  203    Input
  204    Output Re ference
  205    Both
  206    Global Re ference
  207    Local
  208   Input Attr ibute Name  and Defin ition
  209   Name:
  210   Definition :
  211   Output Att ribute Nam e and Defi nition
  212   Name:
  213   Definition :
  214   Related Ro utines
  215   Routines “ Called By”
  216   Routines “ Called”   
  217  
  218  
       
       
  219   $$ASKLM^RC DPEARL
  220   LMRPT^RCDP EARL
  221   $$HDRLIN2^ RCDPEMA1
  222   $$HDRLN3^R CDPEMA1
  223   RPTOUT^RCD PEMA1
  224   $$ISSEL^RC DPEU1
  225   $$PAYRNG^R CDPEU1
  226   $$RTYPE^RC DPEU1
  227   $$SELPAY^R CDPEU1
  228  
  229   Current Lo gic
  230   N/A
  231  
       
       
       
       
  232   Modified L ogic
  233   RCDPEMAP ; EDE/FA - L IST ALL AU TO-POSTED  RECEIPTS R EPORT ;Nov  17, 2016  ;;4.5;Acco unts Recei vable;**xx x**;Mar 20 , 1995;Bui ld 121 ;Pe r VA Direc tive 6402,  this rout ine should  not be mo dified. ;E N ; Main e ntry point  N INPUT,R CPAR,RCVAU TD,XX,YY K  ^TMP($J," RCDPE_MAP" ),^TMP("RC DPE_MAP",$ J) K ^TMP( "RCSELPAY" ,$J),^TMP( $J,"SELPAY ER"),^TMP( $J,"SELUSE R") ; S IN PUT=$$STAD IV(.RCVAUT D) ; Divis ion filter  Q:'INPUT                                       ; '^'  or timeout  S $P(INPU T,"^",2)=$ $DTRNG(0)  ; Start Da te|End dat e Q:'$P(IN PUT,"^",2)  ; '^' or  timeout S  $P(INPUT," ^",3)=$$RT YPE^RCDPEU 1("") ; M/ P/T filter  Q:$P(INPU T,"^",3)<0  ; '^' or  timeout S  RCPAR("SEL C")=$$PAYR NG^RCDPEU1 () ; Selec ted or Ran ge of Paye rs Q:RCPAR ("SELC")=- 1 ; '^' or  timeout S  $P(INPUT, "^",4)=RCP AR("SELC")  ; I RCPAR ("SELC")'= "A" D  Q:X X=-1 ; Sin ce we don' t want all  payers  .  S RCPAR(" TYPE")=$P( INPUT,"^", 3) ; promp t for paye rs we do w ant . S RC PAR("FILE" )=344.4 .  S RCPAR("D ICA")="Sel ect Insura nce Compan y NAME: "  . S XX=$$S ELPAY^RCDP EU1(.RCPAR ) ; S $P(I NPUT,"^",5 )=$$SELUSE R() ; Sele cted or Al l users fi lter Q:$P( INPUT,"^", 5)<0 ; '^'  or timeou t ; I $P(I NPUT,"^",5 )=2 D  Q:X X=-1 ; Pro mpt for se lected use rs . S XX= $$SELUSER2 () ; S $P( INPUT,"^", 6)=$$SECSO RT() ; Sec ondary Sor t Q:$P(INP UT,"^",6)< 0 ; '^' or  timeout S  $P(INPUT, "^",7)=$$A SKLM^RCDPE ARL ; Ask  to Display  in Listma n Template  Q:$P(INPU T,"^",7)<0  ; '^' or  timeout I  $P(INPUT," ^",7)=1 D   Q                     ; Compile  data and  call listm an to disp lay . D LM OUT(INPUT, .RCVAUTD,. IO) S $P(I NPUT,"^",8 )=$$EXCEL( ) ; Ask to  output to  Excel Q:$ P(INPUT,"^ ",8)=-1 ;  '^' or tim eout D:$P( INPUT,"^", 8)=1 INFO^ RCDPEM6 ;  Display ca pture info rmation fo r Excel S  $P(INPUT," ^",9)=$$DE VICE($P(IN PUT,"^",8) ,.IO) ; As k output d evice Q:'$ P(INPUT,"^ ",9) ; ; O ption to q ueue I $D( IO("Q")) D   Q . N JO B S JOB=$J  . N ZTDES C,ZTRTN,ZT SAVE,ZTSK  . S ZTRTN= "REPORT^RC DPEMAP(INP UT,.RCVAUT D,.IO,JOB) " . S ZTDE SC="EEOBS  MARKED FOR  AUTO-POST  AUDIT REP ORT" . M R CPYRSEL=^T MP("RCSELP AY",$J) .  S ZTSAVE(" RC*")="",Z TSAVE("VAU TD")="",ZT SAVE("IO*" )="" . S Z TSAVE("INP UT")="",ZT SAVE("JOB" )="" . S Z TSAVE("^TM P(""RCDPEU 1"",$J,")= "" . D ^%Z TLOAD . W  !!,$S($D(Z TSK):"Task  number "_ ZTSK_" was  queued.", 1:"Unable  to queue t his task." ) . K ZTSK ,IO("Q") .  D HOME^%Z IS ; D REP ORT(INPUT, .RCVAUTD,. IO) ; Comp ile and Di splay Repo rt data Q  ;LMOUT(INP UT,RCVAUTD ,IO) ; Out put report  to Listma n ; Input:  INPUT - S ee REPORT  for a comp lete descr iption ; R CVAUTD - A rray of se lected Div isions ; O nly passed  if A1=2 ;  Output: ^ TMP("RCDPE _MAP",$J,C TR)=Line -  Array of  display li nes (no he aders) ; f or output  to Listman  N HDR S $ P(INPUT,"^ ",10)=0 ;  Initial li stman line  counter D  REPORT(IN PUT,.RCVAU TD,.IO) ;  Get the li nes to be  displayed  S HDR("TIT LE")="EEOB s Marked f or Auto-Po st Report"  S HDR(1)= $$HDRLN2^R CDPEMA1(IN PUT) S HDR (2)=$$HDRL N3^RCDPEMA 1(INPUT) S  HDR(3)=""  S HDR(4)= "" S HDR(5 )="" S HDR (6)="" S H DR(7)="ERA  # Claim #  Trace #"  D LMRPT^RC DPEARL(.HD R,$NA(^TMP ("RCDPE_MA P",$J))) ;  Generate  ListMan di splay ; D  ^%ZISC ; C lose the d evice K ^T MP("RCDPE_ MAP",$J),^ TMP($J,"RC DPE_MAP")  K ^TMP("RC SELPAY",$J ),^TMP($J, "SELPAYER" ),^TMP($J, "SELUSER")  Q ;STADIV (RCVAUTD)  ; Division /Station F ilter ; In put: None  ; Output:  RCVAUTD -  Array of s elected di visions, i f 1 is ret urned ; Re turns: 0 -  User up-a rrowed or  timed out  ; 1 - All  divisions  selected ;  2 - Selec ted Divisi ons N DIR, DIROUT,DIR UT,DTOUT,D UOUT,VAUTD ,X,Y D DIV ISION^VAUT OMA ; IA # 664 allows  this Q:Y< 0 0 ; User  up-arrowe d or timed  out Q:VAU TD=1 1 ; A ll divisio ns selecte d M RCVAUT D=VAUTD                               ; Sav e selected  divisions  (if any)  Q 2 ;SELUS ER() ; Ask  the user  if they on ly want to  all users  or only s elected on es ; Input : None ; R eturns: 0  - User up- arrowed or  timed out  ; 1 - Sho w all user s ; 2 - Sh ow selecte d user N D IR,DIROUT, DIRUT,DTOU T,DUOUT,X, Y S DIR("A ")="Run Re port for ( S)pecific  or (A)ll U sers: " S  DIR(0)="SA ^S:Specifi c;A:All" S  DIR("?",1 )="Enter ' A' to show  EEOBs mar ked by any  user." S  DIR("?")=" Enter 'S'  to show EE OBs marked  by specif ic user(s) ." S DIR(" B")="A" D  ^DIR I $D( DTOUT)!$D( DUOUT)!(Y= "") Q 0 Q: Y="A" 1 Q  2 ;SELUSER 2(PARAM) ;  Allows th e user to  enter the  selected u sers to fi lter by ;  Input: Non e ; Output : ^TMP($J, "SELUSER", IEN)="" Wh ere IEN -  IEN for fi le 200 ; R eturns: 1  - Success,  -1 - Abor t N RCA,RE T,RETURN,Q UIT K ^TMP ($J,"SELUS ER") S QUI T=0,RETURN =1 F  D  Q :QUIT . S  RET=$$ASKU SER() . I  RET=-1 S R ETURN=-1,Q UIT=1 Q .  I RET=0 D  . . I $D(^ TMP($J,"SE LUSER")) S  QUIT=1 .  . E  D . .  . W !!,"Y ou must se lect at le ast one us er",*7,! I  RETURN=-1  K ^TMP($J ,"SELUSER" ) Q -1 S R ETURN=$S($ D(^TMP($J, "SELUSER") ):1,1:-1)  Q RETURN ; ASKUSER()  ; Prompt f or a User  from file  200 ; Inpu t: None ;  Output: ^T MP($J,"SEL USER",IEN) ="" - Sele cted User  ; Returns:  1 - User  selected ;  0 - No Us er selecte d ; -1 - u ser typed  '^' or tim ed out ; N  DIC,DIR,D IROUT,DIRU T,DTOUT,DU OUT,X,Y S  RETURN=1 ;  S DIC=200 ,DIC(0)="Q EA" S DIC( "A")="Sele ct User: "  S DIC("S" )="I '$D(^ TMP($J,""S ELUSER"",Y ))" D ^DIC  I $D(DTOU T)!$D(DUOU T) Q -1 I  Y=-1 Q 0 S  ^TMP($J," SELUSER",+ Y)="" Q 1  ;SECSORT()  ; Ask the  user if t hey want t he seconda ry sort by  User or P ayer Name  ; Input: N one ; Retu rns: 0 - U ser up-arr owed or ti med out ;  1 - Sort b y User ; 2  - Sort by  Payer Nam e N DIR,DI ROUT,DIRUT ,DTOUT,DUO UT,X,Y S D IR("A")="S ort by Ins urance Com pany (N)am e or (U)se r: " S DIR (0)="SA^N: Name;U:Use r" S DIR(" ?",1)="Ent er 'N' to  sort by Pa yer Name."  S DIR("?" )="Enter ' U' to sort  by user."  S DIR("B" )="N" D ^D IR I $D(DT OUT)!$D(DU OUT)!(Y="" ) Q 0 Q:Y= "U" 1 Q 2  ;DTRNG(WHI CH) ; Allo ws the use r to selec t the Auto -Post OR E RA Receive d ; date r ange to be  used ; In put: WHICH  - 0 - Aut o-Post Dat e Range ;  1 - ERA Da te Receive d Date Ran ge ; Retur ns: 0 - Us er up-arro wed or tim ed out, 1  otherwise  ; A1^A2 -  Where: ; A 1 - Aut-Po st Start D ate ; A2 -  Auto-Post  End Date  N DIR,DIRO UT,DIRUT,D TOUT,DUOUT ,RANGE,STA RT,X,XX,Y  S DIR(0)=" DAO^:"_DT_ ":APE" S D IR("A")="S tart Date:  " S DIR(" ?")="Enter  the earli est Auto-P ost date"  D ^DIR Q:$ D(DTOUT)!$ D(DUOUT)!( Y="") 0 S  START=YEND DT ; Promp t for end  date K DIR  S DIR("B" )=Y(0) S D IR(0)="DAO ^"_START_" :"_DT_":AP E" S DIR(" A")="End D ate: " S D IR("?")="E nter the l atest Auto -Post date " D ^DIR Q :$D(DTOUT) !$D(DUOUT) !(Y="") 0  I Y<START  D  G ENDDT  . S XX=$$ FMTE^XLFDT (START,"2Z D") ;****  . W !,*7," Enter an E nd date th at is not  less than  "_XX S RAN GE=START_" |"_Y Q RAN GE ;EXCEL( ) ; Ask th e user if  they want  to export  to Excel ;  Input: No ne ; Retur ns: -1 - U ser up-arr owed or ti med out ;  0 - Output  to paper  ; 1 - Outp ut to Exce l N DIR,DI ROUT,DIRUT ,DTOUT,DUO UT,X,Y S D IR(0)="Y"  S DIR("A") ="Export t he report  to Microso ft Excel"  S DIR("B") ="NO" S DI R("?")="En ter 'YES'  to output  to Excel.  Otherwise  enter 'NO' " D ^DIR I  $G(DUOUT)  Q -1 Q Y  ;DEVICE(EX CEL,IO) ;  Select the  output de vice ; Inp ut: EXCEL  - 1 - Oupu t to Excel , 0 otherw ise ; Outp ut: %ZIS -  Selected  device ; I O - Array  of selecte d output i nfo ; Retu rns: 0 - N o device s elected, 1  otherwise  N POP,RCP YRSEL,%ZIS  S %ZIS="Q M" D ^%ZIS  Q:POP 0 Q :EXCEL 1 ;  Output to  Excel, no  queueing  ; Q 1 ;REP ORT(INPUT, RCVAUTD,IO ,JOB) ; Co mpile and  run the re port ; Exp ects ZTQUE UED to be  defined al ready if q ueued ; In put: INPUT  - A1^A2^A 3^...^An W here: ; A1  - 1 - All  divisions  selected  ; 2 - Sele cted divis ions ; A2  - B1|B2 -  Where: ; B 1 - Auto-P ost Start  Date ; B2  - Auto-Pos t End Date  ; A3 - 'M ' - Medica l Payers o nly ; 'P'  - Pharmacy  Payers on ly ; 'T' -  Tricare P ayers only e ; 'A' -  All Payers  ; A4 - 'S ' - Specif ic Payers  ; 'R' - Ra nge of Pay ers ; 'A'  - All Paye rs ; A5 -  1 - Displa y all user s ; 2 - Di splay sele cted users  ; A6 - 1  - Sort by  User ; 2 -  Sort by P ayer Name  ; A7 - 0 -  Do not di splay in a  listman t emplate ;  1 - Displa y in a lis tman templ ate ; A8 -  0 - Outpu t to paper  ; 1 - Out put to Exc el ; A9 -  Line count er for Lis tman outpu t ; RCVAUT D - Array  of selecte d Division s ; Only p assed if A 1=2 ; IO -  Interface  device ;  JOB - $J ( optional,  only passe d in when  report is  queued) ;  ^TMP($J,"R CSELPAY")  - Global A rray of se lected ins urance com panies ; ^ TMP($J,"SE LUSER") -  Global Arr ay of sele cted users  ; Output:  ^TMP("RCD PEMAP",$J, CTR)=Line  - Array of  display l ines (no h eaders) ;  for output  to Listma n ; Only s et when A7 -1 N CURDT ,DIVFLT,DT END,DTSTAR T,IENS,IEN 3444,IEN34 441,PAYER, PAYERU N R CTYPE,RCPA YS,SORT,UI EN,USER,US ERU,USERF, SVAL,XX,YY ,ZZ K ^TMP ("RCDPE_MA P",$J),^TM P($J,"RCDP E_MAP") ;  I '$G(JOB)  S JOB=""  U IO S DIV FLT=$P(INP UT,"^",1)  ; Division  filter S  SORT=$P(IN PUT,"^",6)  ; Type of  secondary  sort S DT END=$P($P( INPUT,"^", 2),"|",2)_ ".9999"  ;  End of Da te Range S  DTSTART=$ P($P(INPUT ,"^",2),"| ",1) ; End  of Date R ange S RCT YPE=$P(INP UT,"^",3)  ; Medical/ Pharmacy/T ricare/All  S RCPAYS= $P(INPUT," ^",4) ; Pa yers All/S elected/Ra nge S USER F=$P(INPUT ,"^",5) ;  All Users/ Selected U sers ; ; F irst filte r and sort  the repor t S CURDT= (DTSTART-1 )_.9999 F   D  Q:'CUR DT  Q:CURD T>(DTEND)  . S CURDT= $O(^RCY(34 4.4,"F",CU RDT)) . Q: 'CURDT . Q :CURDT>(DT END) . S I EN3444=0 .  F  D  Q:' IEN3444 .  . S IEN344 4=$O(^RCY( 344.4,"F", CURDT,IEN3 444)) . .  Q:'IEN3444  . . I DIV FLT'=1 Q:' $$CHKDIV^R CDPEDAR(IE N3444,1,.R CVAUTD) ;  Not a sele cted Divis ion . . S  PAYER=$$GE T1^DIQ(344 .4,IEN3444 ,.06,"I")  ; Payment  From field  . . S PAY ERU=$$UP^X LFSTR(PAYE R) . . S X X=1 . . I  RCPAYS'="A " D  Q:'XX  . . . S X X=$$ISSEL^ RCDPEU1(34 4.4,IEN344 4) ; Check  if payer  was select ed . . E   I RCTYPE'= "A" D  Q:' XX                            ;  If all of  a give typ e of payer  selected  . . . S XX =$$ISTYPE^ RCDPEU1(34 4.4,IEN344 4,RCTYPE)  ; Check th at payer m atches typ e . . S IE N34441=""  . . F  D   Q:IEN34441 ="" . . .  S IEN34441 =$O(^RCY(3 44.4,"F",C URDT,IEN34 44,IEN3444 1)) . . .  Q:IEN34441 ="" . . .  S IENS=IEN 34441_","_ IEN3444_", " . . . S  UIEN=$$GET 1^DIQ(344. 41,IENS,6. 01,"I") ;  ERA Detail  line Mark ed Auto-Po st User .  . . Q:UIEN =""                                            ; Not m arked for  Auto-Post  . . . S US ER=$$GET1^ DIQ(200,UI EN_",",.01 ,"E") . .  . S USERU= $$UP^XLFST R(USER) .  . . I USER F'=1,'$D(^ TMP($J,"SE LUSER",UIE N)) Q         ; Not a  selected  User . . .  S SVAL=$S (SORT=2:PA YERU,1:USE RU) ; Get  the sort v alue . . .  S XX=PAYE R_"^"_USER  . . . S $ P(XX,"^",3 )=$$GET1^D IQ(344.4,I EN3444_"," ,.01,"E")  ; ERA # .  . . S YY=$ $GET1^DIQ( 344.41,IEN S,.02,"I")  ; IEN for  361.1 . .  . S ZZ=$$ GET1^DIQ(3 61.1,YY_", ",.01,"I")  ; IEN for  399/430 .  . . S ZZ= $$GET1^DIQ (430,ZZ_", ",.01,"E")  ; Claim #  . . . S Z Z=$TR(ZZ," -","") . .  . S $P(XX ,"^",4)=ZZ  . . . S $ P(XX,"^",5 )=$$GET1^D IQ(361.1,Y Y_",",.07, "E") ; Tra ce # . . .  ; . . . ;  Found one  that was  marked for  auto-post  . . . S ^ TMP($J,"RC DPE_MAP"," SEL",CURDT )=$$FMTE^X LFDT(CURDT ,"2ZD") .  . . S ^TMP ($J,"RCDPE _MAP","SEL ",CURDT,SV AL)=$S(SOR T=2:PAYER, 1:USER) .  . . S ^TMP ($J,"RCDPE _MAP","SEL ",CURDT,SV AL,IEN3444 ,IEN34441) =XX ; D RP TOUT^RCDPE MA1(INPUT)  ; Output  the report  ; ; Quit  if Listman  - clean u p of ^TMP  & device i s handled  in LMOUT^R CDPELAR Q: $P(INPUT," ^",7)=1 ;  ; Close de vice I '$D (ZTQUEUED)  D ^%ZISC  I $D(ZTQUE UED) S ZTR EQ="@" K ^ TMP("RCDPE _MAP",$J), ^TMP($J,"R CDPE_MAP")  K ^TMP("R CSELPAY",$ J),^TMP($J ,"SELPAYER "),^TMP($J ,"SELUSER" ) K ^TMP(" RCDPEU1",$ J) K ZTQUE UED Q ;ASK STOP() ;EP  from RCDP EMA1 ; Ask  to contin ue ; Input : IOST - D evice Type   ; Return s: 1 - Use r wants to  quit, 0 o therwise N  DIR,DIROU T,DIRUT,DT OUT,DUOUT  Q:$E(IOST, 1,2)'["C-"  0 ; Not a  terminal  S DIR(0)=" E" W ! D ^ DIR I ($D( DIRUT))!($ D(DUOUT))  Q 1 Q 0 ;
  234  
  235  
       
       
       
       
       
       
       
       
       
       
       
       
  236   Routines
  237   Activities
  238   Routine Na me
  239   RCDPEMA1
  240   Enhancemen t Category
  241    New
  242    Modify
  243    Delete
  244    No Change
  245   RTM
  246  
  247   Related Op tions
  248   RCDPE AUTO -POST RECE IPT REPORT
  249   Routines
  250   Activities
  251   Data Dicti onary (DD)  Reference s
  252  
  253   Related Pr otocols
  254  
  255   Related In tegration  Control Re gistration s (ICRs)
  256  
       
  257   Data Passi ng
  258    Input
  259    Output Re ference
  260    Both
  261    Global Re ference
  262    Local
  263   Input Attr ibute Name  and Defin ition
  264   Name:
  265   Definition :
  266   Output Att ribute Nam e and Defi nition
  267   Name:
  268   Definition :
  269  
  270  
  271   Related Ro utines
  272   Routines “ Called By”
  273   Routines “ Called”   
  274  
  275   RCDPEMAP
       
  276   $$ENDORPRT ^RCDPEARL
       
       
       
       
  277   $$ASKSTOP^ RCDPEARL
  278  
  279  
       
       
  280   Current Lo gic
  281   N/A
  282  
  283   Modified L ogic
  284   RCDPEMA1 ; EDE/FA - L IST ALL AU TO-POSTED  RECEIPTS R EPORT ;Nov  17, 2016  ;;4.5;Acco unts Recei vable;**xx x**;Mar 20 , 1995;Bui ld 121 ;Pe r VA Direc tive 6402,  this rout ine should  not be mo dified. ;  Q   ; no d irect entr y ;RPTOUT( INPUT) ;EP  from RCDP EMAP ; Out put the re port to pa per/screen , listman  or excel ;  Input: IN PUT - See  REPORT^RCD PEMAP for  a complete  descripti on ; ^TMP( $J,A1,"SEL ",A2)=Exte rnal Auto- Post Date  ; ^TMP($J, A1,"SEL",A 3)=Externa l lower ca sed sort v alue (Paye r or User)  ; ^TMP($J ,A1,"SEL", A2,A3,A4,A 5)=B1^B2^B 3^B4^B5 -  if record  passed fil ters Where : ; A1 - " RCDPE_MAP"  ; A2 - In ternal Aut o-Post Dat e (primary  sort) ; A 3 - Second ary Sort V alue (Paye r or User  Name) ; A4  - Interna l IEN for  file 344.4  ; A5 - In ternal IEN  for file  344.41 ; B 1 - Payer  Name ; B2  - User Nam e ; B3 - E RA # ; B4  - Claim #  ; B5 - Tra ce # ; Out put: ^TMP( "RCDPE_MAP ",$J,CTR)= Line - Arr ay of disp lay lines  (no header s) ; for o utput to L istman ; O nly set wh en A7-1 ;  N A1,ADATE ,DATA,EXCE L,FIRST,LN CNT,LSTMAN ,OUTYPE,PA GE,PAYER,S ORT,STOP,S VAL S (LNC NT,PAGE)=0  ; Initial ize Line/P age counte rs S $P(IN PUT,"^",9) =0 ; Line  Counter fo r Listman  output S S ORT=$P(INP UT,"^",6)  ; Secondar y Sort by  Payer or U ser? S EXC EL=$P(INPU T,"^",8) ;  Output to  Excel? S  LSTMAN=$P( INPUT,"^", 7) ; Outpu t to Listm an? S OUTY PE=$S(EXCE L:2,LSTMAN :1,1:0) S  DATA=0,FIR ST=1 I OUT YPE=2 D                                  ;  Excel Oupu t - Print  header lin e . S XX=" Auto-Post  Date" . S  XX=XX_$S(S ORT=2:"Pay er",1:"Use r") . S XX =XX_"" . S  XX=XX_"^E RA #^Claim  #^Trace # " . W !,XX  . ; S A1= "RCDPE_MAP ",STOP=0 S  ADATE=""  F  D  Q:AD ATE=""  Q: STOP . S A DATE=$O(^T MP($J,A1," SEL",ADATE )) . Q:ADA TE="" . I  OUTYPE=1 D                                ;  Listman O utput . .  S XX=$P(IN PUT,"^",9) ,XX=XX+1 .  . S ^TMP( A1,$J,XX)= "",XX=XX+1  . . S ^TM P(A1,$J,XX )="Auto-Po st Date: " _^TMP($J,A 1,"SEL",AD ATE) . . S  $P(INPUT, "^",9)=XX  . ; . I 'O UTYPE D  Q :STOP                        ; O utput to S creen/Pape r . . I FI RST D  Q                              ; Ini tial Page  Header . .  . S FIRST =0 . . . D  PHEADER(I NPUT,.LNCN T,.PAGE) .  . . W !!, "Auto-Post  Date: "_^ TMP($J,A1, "SEL",ADAT E) . . . S  LNCNT=LNC NT+2 . . I  (LNCNT+7) >IOSL D  Q :STOP              ;  Page break  . . . S S TOP=$$ASKS TOP^RCDPEM AP() . . .  Q:STOP .  . . D PHEA DER(INPUT, .LNCNT,.PA GE) ; Page  Header .  . W !!,"Au to-Post Da te: "_^TMP ($J,A1,"SE L",ADATE)  . . S LNCN T=LNCNT+2  . D RPT2(. INPUT,A1,A DATE,SORT, OUTYPE,.LN CNT,.STOP, .DATA) I ' DATA,'EXCE L,'LSTMAN  D . D PHEA DER(INPUT, .LNCNT,.PA GE) I 'EXC EL D . S X X=$$ENDORP RT^RCDPEAR L . I OUTY PE=1 D  Q  . . S YY=$ P(INPUT,"^ ",9)+1 . .  S $P(INPU T,"^",9)=Y Y . . S ^T MP(A1,$J,Y Y)=XX . W  !,XX Q ;RP T2(INPUT,A 1,ADATE,SO RT,OUTYPE, LNCNT,STOP ,DATA) ; R eport Outp ut Continu ed ; Input : INPUT -  See REPORT ^RCDPEMAP  for detail  ; ADATE -  Internal  Auto-Post  Date ; SOR T - 2 - So rt by User , 1 - Sort  by Payer  ; OUTYPE -  2 - Excel , 1 - List man, 0 - P aper/Scree n ; LNCNT  - Current  line count  (only if  OUTYPE=0)  ; ^TMP($J, A1,"SEL",. ..) - See  RPTOUT for  details ;  Output: L NCNT - Upd ated line  count (onl y if OUTYP E=0) ; STO P - 1 if u ser quit o ut (only i f OUTYPE=0 ) ; INPUT  - 9th '^'  piece upda te with cu rrent line  # is OUTY PE=1 ; DAT A - 1 if a t least on e line of  data is fo unt ; ^TMP ("RCDPE_MA P",$J,CTR)  - Output  lines for  Listman (o nly if OUT YPE=1) N C URS,SVAL,L ASTS,XX S  SVAL="",XX =$O(^TMP($ J,A1,"SEL" ,ADATE,"") ) S LASTS= ^TMP($J,A1 ,"SEL",ADA TE,XX) F   D  Q:SVAL= ""  Q:STOP  . S SVAL= $O(^TMP($J ,A1,"SEL", ADATE,SVAL )) . Q:SVA L="" . S C URS=^TMP($ J,A1,"SEL" ,ADATE,SVA L) ; Curre nt lower c ase Payer  or User Na me . I OUT YPE=1 D                                ; Li stman outp ut . . S X X=$P(INPUT ,"^",9) .  . I CURS'= LASTS D .  . . S XX=X X+1,^TMP(A 1,$J,XX)=" " . . S XX =XX+1,^TMP (A1,$J,XX) =" "_$S(SO RT=2:"Paye r: ",1:"Us er: ")_CUR S . . S $P (INPUT,"^" ,9)=XX . ;  . I 'OUTY PE D  Q:ST OP                        ; Outp ut to Pape r/Screen .  . I (LNCN T+6)>IOSL  D  Q:STOP               ; Page b reak . . .  S STOP=$$ ASKSTOP^RC DPEMAP() .  . . Q:STO P . . . D  PHEADER(IN PUT,.LNCNT ,.PAGE) ;  Print Page  Header .  . . W !!," Auto-Post  Date: "_^T MP($J,A1," SEL",ADATE ) . . . W  !,CURS . .  . S LNCNT =LNCNT+3 .  . I CURS' =LASTS D .  . . S LNC NT=LNCNT+1 ,LASTS=CUR S . . . W  ! . . W !, " ",$S(SOR T=2:"Payer : ",1:"Use r: "),CURS  . . S LNC NT=LNCNT+1  . D RPT3( .INPUT,A1, ADATE,SORT ,SVAL,OUTY PE,.LNCNT, .STOP,.DAT A) Q ;RPT3 (INPUT,A1, ADATE,SORT ,SVAL,OUTY PE,LNCNT,S TOP,DATA)  ; Report O utput Cont inued ; In put: INPUT  - See REP ORT^RCDPEM AP for det ail ; ADAT E - Intern al Auto-Po st Date ;  SORT - 1 -  Sort by U ser, 2 - S ort by Pay er ; SVAL  - Current  sort value  (Upper ca sed Payer  or User Na me) ; OUTY PE - 2 - E xcel, 1 -  Listman, 0  - Paper/S creen ; LN CNT - Curr ent line c ount (only  if OUTYPE =0) ; ^TMP ($J,A1,"SE L",...2) -  See RPTOU T for deta ils ; Outp ut: LNCNT  - Updated  line count  (only if  OUTYPE=0)  ; STOP - 1  if user q uit out (o nly if OUT YPE=0) ; I NPUT - 9th  '^' piece  update wi th current  line # is  OUTYPE=1  ; DATA - 1  if at lea st one lin e of data  is found ;  ^TMP("RCD PE_MAP",$J ,CTR) - Ou tput lines  for Listm an (only i f OUTYPE=1 ) N DATAR, FIRSTS,IEN 3444,IEN34 441,LN1,LN 2,LN3,UORP ,UORPF,UOR PL,XX,YY S  IEN3444=" ",FIRSTS=1 ,UORPF=1 F   D  Q:IEN 3444=""  Q :STOP . S  IEN3444=$O (^TMP($J,A 1,"SEL",AD ATE,SVAL,I EN3444)) .  Q:IEN3444 ="" . S IE N34441=""  . S XX=$O( ^TMP($J,A1 ,"SEL",ADA TE,SVAL,IE N3444,""))  . S XX=^T MP($J,A1," SEL",ADATE ,SVAL,IEN3 444,XX) .  S UORPL=$P (XX,"^",SO RT) . F  D   Q:IEN344 41="" . .  S IEN34441 =$O(^TMP($ J,A1,"SEL" ,ADATE,SVA L,IEN3444, IEN34441))  . . Q:IEN 34441="" .  . S DATA= 1 ; found  data . . ;  . . S DAT AR=^TMP($J ,A1,"SEL", ADATE,SVAL ,IEN3444,I EN34441) .  . S:SORT= 2 LN1=" Pa yer: "_$P( DATAR,"^", 1),LN2=" U ser: "_$P( DATAR,"^", 2) . . S:S ORT=1 LN1= " User: "_ $P(DATAR," ^",2),LN2= " Payer: " _$P(DATAR, "^",1) . .  S LN3=$P( DATAR,"^", 3) ; ERA #  . . S YY= $P(DATAR," ^",4) ; Cl aim # . .  S LN3=$$SE TSTR^VALM1 (YY,LN3,13 ,10) . . S  YY=$P(DAT AR,"^",5)  ; Trace #  . . S LN3= $$SETSTR^V ALM1(YY,LN 3,25,50) .  . S UORP= $P(DATAR," ^",SORT) .  . I OUTYP E=2 D  Q                           ; Excel  Output . .  . S XX=^T MP($J,A1," SEL",ADATE )_"^" . .  . I SORT=1  D . . . .  S XX=XX_$ P(DATAR,"^ ",2)_"^"_$ P(DATAR,"^ ",1) . . .  E  D . .  . . S XX=X X_$P(DATAR ,"^",1,2)  . . . S XX =XX_"^"_$P (DATAR,"^" ,3,5) . .  . W !,XX .  . ; . . ;  Listman o utput . .  I OUTYPE=1  D RPT3LM( A1,.INPUT, .FIRSTS,.U ORP,.UORPL ,.UORPF,LN 2,LN3) Q .  . ; . . ;  Output to  Paper/Scr een - chec k if we ne ed a page  break . .  I (LNCNT+3 )>IOSL D   Q:STOP . .  . S STOP= $$ASKSTOP^ RCDPEMAP()  . . . Q:S TOP . . .  D PHEADER( INPUT,.LNC NT,.PAGE)  . . . W !! ,"Auto-Pos t Date: "_ ^TMP($J,A1 ,"SEL",ADA TE) . . .  S LNCNT=LN CNT+2 . .  . W !,LN1  . . . S LN CNT=LNCNT+ 1 . . I UO RP'=UORPL  D . . . S  UORPL=UORP ,LNCNT=LNC T+2,UORPF= 0 . . . W  !!,LN2 . .  I UORPF D  . . . S L NCNT=LNCNT +1,UORPF=0  . . . W ! ,LN2 . . W  !,LN3 . .  S LNCNT=L NCNT+1 Q ; RPT3LM(A1, INPUT,FIRS TS,UORP,UO RPL,UORPF, LN2,LN3) ;  Continue  listman ou tput ; Inp ut: A1 - " RCDPE_MAP"  ; INPUT -  9th piece  contains  the curren t listman  line count er ; FIRST S - 1 if t his is the  first Pay er for the  current d ate, 0 oth erwise ; U ORP - Curr ent User o r Payer Na me (whiche ver we're  not sortin g by) ; UO RPL - Curr ent last U ser or Pay er Name (w hichever w e're not s orting by)  ; UORPF -  1 if this  is the fi rst user o r payer fo r the curr ent sor va lue ; 0 ot herwise ;  LN2 - Paye r or User  Name (what ever is no t the sort ) display  line ; LN3  - ERA dis play line  ; ^TMP(A1, $J,XX) - C urrent lis tman displ ay lines ;  Output: I NPUT - Upd ated 9th p iece conta ins the cu rrent list man line c ounter ; F IRSTS - Up dated to 0  (potentia lly) ; UOR P - Update d User or  Payer Name  (potentia lly) ; UOR PL - Updat ed last Us er or Paye r Name (po tentially)  ; UORPF -  Updated ;  ^TMP(A1,$ J,XX) - Cu rrent list man displa y lines N  XX S XX=$P (INPUT,"^" ,9) I UORP F D                                     ; f irst User  or Payer f or sort va lue and da te . S UOR PF=0,XX=XX +1,UORPL=U ORP . S ^T MP(A1,$J,X X)=LN2 I U ORP'=UORPL  D                               ; Differen t User or  Payer for  date . S U ORPL=UORP, UORPF=0 .  S XX=XX+1  . S ^TMP(A 1,$J,XX)=" " . S XX=X X+1 . S ^T MP(A1,$J,X X)=LN2 S X X=XX+1 S ^ TMP(A1,$J, XX)=LN3 S  $P(INPUT," ^",9)=XX Q  ;PHEADER( INPUT,LNCN T,PAGE) ;  Display a  Page Heade r ; Input:  INPUT - S ee REPORT  for a comp lete descr iption ; L NCNT - Cur rent Line  Count ; PA GE - Curre nt Page Co unt ; Outp ut: LNCNT  - Updated  Line Count  ; PAGE -  Updated Pa ge Count N  XX,YY,ZZ  S YY="EEOB s Marked f or Auto-Po st Audit R eport",PAG E=PAGE+1 S  XX=$$NOW^ XLFDT(),XX =$$FMTE^XL FDT(XX) S  XX=$$SETST R^VALM1(XX ,YY,42,21)  S YY="Pag e: "_$J(PA GE,3) S XX =$$SETSTR^ VALM1(YY,X X,69,$L(YY )) W @IOF, XX S LNCNT =1 ; S XX= $$HDRLN2(I NPUT) W !, XX S LNCNT =LNCNT+1 ;  S XX=$$HD RLN3(INPUT ) W !,XX S  LNCNT=LNC NT+1 W ! ;  Blank lin e S LNCNT= LNCNT+1 W  !,"ERA # C laim # Tra ce #" S LN CNT=LNCNT+ 1 W !,"--- ---------- ---------- ---------- ---------- ---------- ---------- ---------- -------" S  LNCNT=LNC NT+1 Q  ;H DRLN2(INPU T) ; Build  the 2nd h eader line  ; Input:  INPUT - Se e REPORT^R CDPEMAP fo r a comple te descrip tion ; Ret urns: Text  for 2nd h eader line  N XX,YY,Z Z S XX="FI LTERS: "_$ S($P(INPUT ,"^",1)=1: "All",1:"S el")_" Div s " S YY=$ P(INPUT,"^ ",3) S XX= XX_"M/P/T:  "_$S(YY=" A":"All",Y Y="M":"Med ical",YY=" P":"Pharma cy",1:"Tri care")_" -  " S XX=XX _$S($P(INP UT,"^",4)= "A":" All" ,1:" Sel") _" Payers  Auto-Post  Date " S Y Y=$P($P(IN PUT,"^",2) ,"|",1),YY =$$FMTE^XL FDT(YY,"2Z ") S ZZ=$P ($P(INPUT, "^",2),"|" ,2),ZZ=$$F MTE^XLFDT( ZZ,"2Z") S  XX=XX_YY_ "-"_ZZ Q X X ;HDRLN3( INPUT) ; B uild the 2 nd header  line ; Inp ut: INPUT  - See REPO RT^RCDPEMA P for a co mplete des cription ;  Returns:  Text for 3 rd header  line N XX, YY,ZZ S YY =$P(INPUT, "^",4) S X X=" "_$S($ P(INPUT,"^ ",5)=1:"Al l ",1:"Sel  ")_"Users " S YY="So rt: "_$S($ P(INPUT,"^ ",6)=1:"Us er ",1:"Pa yer ")_"Na me" S XX=$ $SETSTR^VA LM1(YY,XX, 40,$L(YY))  Q XX ;
  285  
  286  
  287  
  288  
  289  
  290  
  291