11. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/11/2018 8:57:47 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

11.1 Files compared

# Location File Last Modified
1 OSCIF MCCF EDI TAS_Sept2018.zip TAS+eBill+SDD+US2599+v2.00.docx Fri Jun 29 19:51:09 2018 UTC
2 OSCIF MCCF EDI TAS_Sept2018.zip TAS+eBill+SDD+US2599+v2.00.docx Mon Sep 10 18:29:54 2018 UTC

11.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 10 1938
Changed 9 18
Inserted 0 0
Removed 0 0

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

11.4 Active regular expressions

No regular expressions were active.

11.5 Comparison detail

  1   TAS eBill  SDD US2599
  2   System Des ign Docume nt
  3   IB*2.0*608
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   March 2018
  10   Version 2. 0
  11   User Story  Number: U S-2599
  12   User Story  Name: non -MCCF Pay- to Address _Rate Type s
  13   Product Ba cklog ID:  n/a
  14   Rally ID:  US-2599
  15   Epic Taxon omy
  16     eBiz Com pliance         Port        Upda te         Increase N o Touch         TAS A pps
  17   Design/Res olution
  18   Overall De sign Compo nents:
  19   Data Dicti onary File s:
  20   Site Param eters’ TRI CARE Pay-T o Provider s sub-file  – #350.92 9 (modifie d)
  21   Site Param eters’ Non -MCCF  Rat e Types fo r PTP sub- file - #35 0.928 (new )
  22  
  23   Routines:
  24   IBJPS2 (mo dified)
  25   IBJPS3 (mo dified)
  26   IBJPS4 (mo dified)
  27   IBJPS7 (ne w)
  28  
  29   List Templ ates:
  30   IBJP IB TR ICARE PAY- TO PROVS ( modified)
  31   IBJP IB NO N-MCCF RAT E TYPES (n ew)
  32  
  33   Protocols:
  34   IBJP IB TR ICARE PAY- TO PROVIDE RS MENU (d elete)
  35   IBJP IB NO N-MCCF RAT E TYPE ADD  (new)
  36   IBJP IB NO N-MCCF RAT E TYPE DEL  (new)
  37   IBJP IB NO N-MCCF RAT E TYPES (n ew)
  38   IBJP IB NO N-MCCF RAT E TYPES ME NU (new)
  39   IBJP IB NO N-MCCF PAY -TO PROVID ERS MENU ( new)
  40  
  41   *NOTE – Na mes of the  protocols  and/or wo rklists ar e not bein g changed.   They are  internall y viewable  only.   C hanging th ose names  would requ ire either  an integr ation agre ement with  the proto col file t o change t hem or rem oving them  all and s ending new  ones in t heir place .  The gai ns would n ot be wort h the extr a work or  risk.  In  addition,  the protoc ol “IBJP I B TRICARE  PAY-TO PRO VIDERS MEN U” is bein g deleted  because it  is being  replaced b y “IBJP IB  NON-MCCF  PAY-TO PRO VIDERS MEN U”.
  42  
  43   *NOTE-Chan ging all d isplayed n ames for p rompts, et c. are bei ng changed  from TRIC ARE to Non -MCCF.
  44  
  45   *NOTE-The  code to co mpare for  the exact  same addre ss is alre ady in pla ce (DIFF^I BJPS3) and  does not  require ch anges.  Th e only cod e change r equired to  this exis ting code  is the TRI CARE^IBJPS 4 module o f code whi ch determi nes whethe r the Bill /Claim has  one of th e Non-MCCF  Rate Type s. 
  46   Detailed D esign:
  47   DATA DICTI ONARY FILE S:
  48   Site Param eters’ TRI CARE Pay-T o Provider s sub-file  – #350.92 9 (modific ations)
  49   Data Dicti onary
  50   Activities
  51   FileName &  Number
  52   Site Param eters’ TRI CARE Pay-T o Provider s sub-file  (#350.929 )
  53   Current Da ta Definit ions
  54   STANDARD D ATA DICTIO NARY #350. 929 -- TRI CARE PAY-T O PROVIDER S SUB-FILE    2/21/18     PAGE 1
  55   STORED IN  ^IBE(350.9 ,D0,29,     SITE:  PII     UCI: VISTA ,ROU   
  56  
  57   DATA           NAME                    GLOB AL         DATA
  58   ELEMENT        TITLE                   LOCA TION       TYPE
  59   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------
  60   This multi ple contai ns the lis t of TRICA RE-specifi c Pay-To P roviders f or this
  61   VistA data base.  
  62  
  63   CROSS
  64   REFERENCED  BY: TC FA CILITY(B)
  65   INDEXED BY :    TC FA CILITY (AC )
  66  
  67   350.929,.0 1   TC FAC ILITY             0;1  POINTER T O INSTITUT ION FILE ( #4)
  68                  INPUT  TRANSFORM:   S DIC("S ")="I $$SC RN4^IBJPS4 (Y)" D ^DI C K DIC S
  69                                       DIC=DIE ,X=+Y K:Y< 0 X
  70                  LAST E DITED:       JUL 09,  2014 
  71                  HELP-P ROMPT:       Please c hoose the  TRICARE-sp ecific Pay -To 
  72                                      Provider  from the  Institutio n file. 
  73                  DESCRI PTION:       Enter a  TRICARE-sp ecific Pay -to Provid er. 
  74                                      Usually,  a Pay-to  Provider i s a medica l center
  75                                      (e.g. VA MC, M&ROC,  etc.).  I f you ente r only
  76                                      one TRIC ARE-specif ic Pay-to  Provider,  it will
  77                                      be the d efault Pay -to Provid er for all  TRICARE
  78                                      claims a nd you wou ld not nee d to assoc iate
  79                                      division s with the  default.   Multiple  TRICARE- 
  80                                      specific  Pay-to Pr oviders mu st be asso ciated
  81                                      with the  divisions  to which  they apply .  
  82  
  83                  SCREEN :            S DIC("S ")="I $$SC RN4^IBJPS4 (Y)"
  84                  EXPLAN ATION:       Inactive , not nati onal, and  pharmacy e ntries ar
  85                                      e screen ed out.
  86                  CROSS- REFERENCE:   350.929^
  87                                      1)= S ^I BE(350.9,D A(1),29,"B ",$E(X,1,3 0),DA)=""
  88                                      2)= K ^I BE(350.9,D A(1),29,"B ",$E(X,1,3 0),DA)
  89  
  90                  FIELD  INDEX:       AC (#871 )    MUMPS     IR     ACTION
  91                      Sh ort Descr:   Name and  address d efaults
  92                      De scription:   The purp ose of thi s x-ref is  to defaul t the
  93                                      name and  address f ields in t his sub-fi le from
  94                                      data fou nd in the  Institutio n file.  T he idea
  95                                      is that  the user w ill select  a VA Inst itution 
  96                                      from fil e 4 to be  one of the  TRICARE-s pecific
  97                                      Pay-To P roviders i n this sub -file.  Th e name
  98                                      and addr ess of the  VA Instit ution will  be used
  99                                      as defau lts for th e name and  address f ields
  100                                      here in  this sub-f ile.  The  default na me and
  101                                      address  informatio n may be o verridden.   
  102                         Set Logic:   I $G(X1( 1))'=$G(X2 (1)) D DEF ^IBJPS3(+$ G(X2(1)),
  103                                      .DA,1)
  104                       K ill Logic:   Q
  105                              X(1):   TC FACIL ITY  (350. 929,.01)   (forwards)
  106  
  107   350.929,.0 2   TC NAM E                 0;2  FREE TEXT  (Required )
  108                  TRICAR E Pay-to P rovider Na me   
  109                  INPUT  TRANSFORM:   K:$L(X)> 35!($L(X)< 1) X
  110                  LAST E DITED:       JUL 09,  2014 
  111                  HELP-P ROMPT:       Answer m ust be 1-3 5 characte rs in leng th. 
  112                  DESCRI PTION:       You may  modify the  TRICARE-s pecific Pa y-to
  113                                      Provider  name for  use on ele ctronic or  printed
  114                                      claims.   
  115  
  116                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  117                                      of the . 01 field.   
  118  
  119   350.929,.0 3   TC FED ERAL TAX N UMBER  0;3  FREE TEXT
  120                  TRICAR E Pay-to P rovider Fe deral Tax  ID Number    
  121                  INPUT  TRANSFORM:   K:$L(X)> 10!($L(X)< 10)!'(X?2N 1"-"7N) X
  122                  LAST E DITED:       JUL 09,  2014 
  123                  HELP-P ROMPT:       Answer m ust be 10  characters  in the fo rmat 
  124                                      NN-NNNNN NN. 
  125                  DESCRI PTION:       Enter th e Federal  Tax ID for  the
  126                                      TRICARE- specific P ay-to Prov ider.  Mak e sure
  127                                      you ente r the Tax  ID Number  for the TR ICARE
  128                                      Pay-to P rovider, w hich may b e differen t from
  129                                      your sit e's Tax ID .  Enter 1 0 characte rs in the 
  130                                      format N N-NNNNNNN.   
  131  
  132                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  133                                      of the . 01 field i f the .01  field is t he same
  134                                      institut ion as def ined in th e IB site
  135                                      paramete rs field 3 50.9, .02.   
  136  
  137   350.929,.0 4   TC TEL EPHONE NUM BER    0;4  FREE TEXT
  138                  TRICAR E Pay-to P rovider Ph one Number    
  139                  INPUT  TRANSFORM:   K:$L(X)> 30!($L(X)< 1) X
  140                  LAST E DITED:       JUL 09,  2014 
  141                  HELP-P ROMPT:       Answer m ust be 1-3 0 characte rs in leng th. 
  142                  DESCRI PTION:       Enter th e phone nu mber to be  used on e lectronic
  143                                      or print ed claims.   This is  the number  you
  144                                      would wa nt a payer  to use to  contact t he site
  145                                      about a  TRICARE cl aim.  
  146  
  147   350.929,.0 5   TC PAR ENT PAY-TO  PROVIDER  0;5 NUMBER
  148                  INPUT  TRANSFORM:   K:+X'=X! (X>9999)!( X<1)!(X?.E 1"."1N.N)  X
  149                  LAST E DITED:       MAY 08,  2014 
  150                  HELP-P ROMPT:       Type a n umber betw een 1 and  9999, 0 de cimal 
  151                                      digits. 
  152                  DESCRI PTION:       This fie ld determi nes if thi s entry in  the
  153                                      sub-file  is a TRIC ARE Pay-to  Provider
  154                                      institut ion or if  it is a Di vision bei ng linked
  155                                      to the p arent TRIC ARE Pay-to  Provider
  156                                      institut ion, that  is, anothe r sub-file  entry.  
  157                                       
  158                                      If this  field is d efined, th en it hold s the IEN
  159                                      in this  sub-file o f the pare nt TRICARE  Pay-to
  160                                      Provider  instituti on for thi s specific
  161                                      division .  
  162                                       
  163                                      If this  field is n il, then t his sub-fi le entry
  164                                      is the p arent TRIC ARE Pay-to  Provider
  165                                      institut ion.  
  166                                       
  167                                      This fie ld should  not be set  via FileM an.  The
  168                                      applicat ion in the  IB Site P aremeter e dit
  169                                      option w ill set th is field a ppropriate ly based
  170                                      on user  input.  
  171  
  172   350.929,1. 01  TC STR EET ADDRES S 1    1;1  FREE TEXT
  173                  TRICAR E Pay-to P rovider Ad dress Line  1   
  174                  INPUT  TRANSFORM:   K:$L(X)> 55!($L(X)< 1) X
  175                  LAST E DITED:       JUL 09,  2014 
  176                  HELP-P ROMPT:       Answer m ust be 1-5 5 characte rs in leng th. 
  177                  DESCRI PTION:       You may  modify the  TRICARE-s pecific Pa y-To
  178                                      Provider  Address f or use on  electronic  or
  179                                      printed  claims.  Y ou may ent er a P.O.  Box.  
  180  
  181                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  182                                      of the . 01 field.   
  183  
  184   350.929,1. 02  TC STR EET ADDRES S 2    1;2  FREE TEXT
  185                  TRICAR E Pay-to P rovider Ad dress Line  2   
  186                  INPUT  TRANSFORM:   K:$L(X)> 55!($L(X)< 1) X
  187                  LAST E DITED:       JUL 09,  2014 
  188                  HELP-P ROMPT:       Answer m ust be 1-5 5 characte rs in leng th. 
  189                  DESCRI PTION:       Enter ad ditional a ddress inf ormation,  if
  190                                      needed.   
  191  
  192                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  193                                      of the . 01 field.   
  194  
  195   350.929,1. 03  TC CIT Y                 1;3  FREE TEXT
  196                  TRICAR E Pay-to P rovider Ci ty   
  197                  INPUT  TRANSFORM:   K:$L(X)> 40!($L(X)< 2) X
  198                  LAST E DITED:       JUL 09,  2014 
  199                  HELP-P ROMPT:       Answer m ust be 2-4 0 characte rs in leng th. 
  200                  DESCRI PTION:       You may  modify the  TRICARE P ay-to Prov ider
  201                                      address  for use on  electroni c or print ed
  202                                      claims.   
  203  
  204                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  205                                      of the . 01 field.   
  206  
  207   350.929,1. 04  TC STA TE                1;4  POINTER T O STATE FI LE (#5)
  208                  TRICAR E Pay-to P rovider St ate   
  209                  LAST E DITED:       JUL 09,  2014 
  210                  HELP-P ROMPT:       Answer w ith State  Number, or  Name, or 
  211                                      Abbrevia tion. 
  212                  DESCRI PTION:       You may  modify the  TRICARE P ay-to Prov ider
  213                                      address  for use on  electroni c or print ed
  214                                      claims.   
  215  
  216                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  217                                      of the . 01 field.   
  218  
  219   350.929,1. 05  TC ZIP                   1;5  FREE TEXT
  220                  TRICAR E Pay-to P rovider Zi p Code   
  221                  INPUT  TRANSFORM:   K:$L(X)> 15!($L(X)< 3) X
  222                  LAST E DITED:       JUL 09,  2014 
  223                  HELP-P ROMPT:       Answer m ust be 3-1 5 characte rs in leng th. 
  224                  DESCRI PTION:       You may  modify the  TRICARE P ay-to Prov ider
  225                                      address  for use on  electroni c or print ed
  226                                      claims.   
  227  
  228                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  229                                      of the . 01 field.   
  230  
  231         FILE S POINTED  TO                        FIELDS
  232   INSTITUTIO N (#4)                    TC FAC ILITY (#.0 1)
  233   STATE (#5)                           TC STA TE (#1.04)
  234  
  235   INPUT TEMP LATE(S):
  236   PRINT TEMP LATE(S):
  237   SORT TEMPL ATE(S):
  238   FORM(S)/BL OCK(S):
  239   Modified L ogic (Chan ges are in  bold)
  240   STANDARD D ATA DICTIO NARY #350. 929 -- TRI CARE PAY-T O PROVIDER S SUB-FILE    2/22/18     PAGE 1
  241   STORED IN  ^IBE(350.9 ,D0,29,     SITE:  PII     UCI: VISTA ,ROU   
  242  
  243   DATA           NAME                    GLOB AL         DATA
  244   ELEMENT        TITLE                   LOCA TION       TYPE
  245   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------
  246   This multi ple contai ns the lis t of Non-M CCF-specif ic Pay-To  Providers  for this
  247   VistA data base.  
  248  
  249   CROSS
  250   REFERENCED  BY: TC FA CILITY(B)
  251   INDEXED BY :    TC FA CILITY (AC )
  252  
  253   350.929,.0 1   TC FAC ILITY             0;1  POINTER T O INSTITUT ION FILE ( #4)
  254                  INPUT  TRANSFORM:   S DIC("S ")="I $$SC RN4^IBJPS4 (Y)" D ^DI C K DIC S
  255                                       DIC=$G( DIE),X=+Y  K:Y<0 X
  256                  LAST E DITED:       FEB 22,  2018 
  257                  HELP-P ROMPT:       Please c hoose the  Non-MCCF-s pecific Pa y-To 
  258                                      Provider  from the  Institutio n file. 
  259                  DESCRI PTION:       Enter a  Non-MCCF-s pecific Pa y-to Provi der. 
  260                                      Usually,  a Pay-to  Provider i s a medica l center
  261                                      (e.g. VA MC, M&ROC,  etc.).  I f you ente r only
  262                                      one Non- MCCF-speci fic Pay-to  Provider,  it will
  263                                      be the d efault Pay -to Provid er for all  Non-MCCF
  264                                      claims a nd you wou ld not nee d to assoc iate
  265                                      division s with the  default.   Multiple  Non-MCCF- 
  266                                      specific  Pay-to Pr oviders mu st be asso ciated
  267                                      with the  divisions  to which  they apply .  
  268  
  269                  SCREEN :            S DIC("S ")="I $$SC RN4^IBJPS4 (Y)"
  270                  EXPLAN ATION:       Inactive , not nati onal, and  pharmacy e ntries ar
  271                                      e screen ed out.
  272                  CROSS- REFERENCE:   350.929^
  273                                      1)= S ^I BE(350.9,D A(1),29,"B ",$E(X,1,3 0),DA)=""
  274                                      2)= K ^I BE(350.9,D A(1),29,"B ",$E(X,1,3 0),DA)
  275  
  276                  FIELD  INDEX:       AC (#871 )    MUMPS     IR     ACTION
  277                      Sh ort Descr:   Name and  address d efaults
  278                      De scription:   The purp ose of thi s x-ref is  to defaul t the
  279                                      name and  address f ields in t his sub-fi le from
  280                                      data fou nd in the  Institutio n file.  T he idea
  281                                      is that  the user w ill select  a VA Inst itution 
  282                                      from fil e 4 to be  one of the  TRICARE-s pecific
  283                                      Pay-To P roviders i n this sub -file.  Th e name
  284                                      and addr ess of the  VA Instit ution will  be used
  285                                      as defau lts for th e name and  address f ields
  286                                      here in  this sub-f ile.  The  default na me and
  287                                      address  informatio n may be o verridden.   
  288                         Set Logic:   I $G(X1( 1))'=$G(X2 (1)) D DEF ^IBJPS3(+$ G(X2(1)),
  289                                      .DA,1)
  290                       K ill Logic:   Q
  291                              X(1):   TC FACIL ITY  (350. 929,.01)   (forwards)
  292  
  293   350.929,.0 2   TC NAM E                 0;2  FREE TEXT  (Required )
  294                  Non-MC CF Pay-to  Provider N ame   
  295                  INPUT  TRANSFORM:   K:$L(X)> 35!($L(X)< 1) X
  296                  LAST E DITED:       FEB 22,  2018 
  297                  HELP-P ROMPT:       Answer m ust be 1-3 5 characte rs in leng th. 
  298                  DESCRI PTION:       You may  modify the  Non-MCCF- specific P ay-to
  299                                      Provider  name for  use on ele ctronic or  printed
  300                                      claims.   
  301  
  302                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  303                                      of the . 01 field.   
  304  
  305   350.929,.0 3   TC FED ERAL TAX N UMBER  0;3  FREE TEXT
  306                  Non-MC CF Pay-to  Provider F ederal Tax  ID Number    
  307                  INPUT  TRANSFORM:   K:$L(X)> 10!($L(X)< 10)!'(X?2N 1"-"7N) X
  308                  LAST E DITED:       FEB 22,  2018 
  309                  HELP-P ROMPT:       Answer m ust be 10  characters  in the fo rmat 
  310                                      NN-NNNNN NN. 
  311                  DESCRI PTION:       Enter th e Federal  Tax ID for  the
  312                                      Non-MCCF -specific  Pay-to Pro vider.  Ma ke sure
  313                                      you ente r the Tax  ID Number  for the No n-MCCF
  314                                      Pay-to P rovider, w hich may b e differen t from
  315                                      your sit e's Tax ID .  Enter 1 0 characte rs in the 
  316                                      format N N-NNNNNNN.   
  317  
  318                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  319                                      of the . 01 field i f the .01  field is t he same
  320                                      institut ion as def ined in th e IB site
  321                                      paramete rs field 3 50.9, .02.   
  322  
  323   350.929,.0 4   TC TEL EPHONE NUM BER    0;4  FREE TEXT
  324                  Non-MC CF Pay-to  Provider P hone Numbe r   
  325                  INPUT  TRANSFORM:   K:$L(X)> 30!($L(X)< 1) X
  326                  LAST E DITED:       FEB 22,  2018 
  327                  HELP-P ROMPT:       Answer m ust be 1-3 0 characte rs in leng th. 
  328                  DESCRI PTION:       Enter th e phone nu mber to be  used on e lectronic
  329                                      or print ed claims.   This is  the number  you
  330                                      would wa nt a payer  to use to  contact t he site
  331                                      about a  Non-MCCF c laim.  
  332  
  333   350.929,.0 5   TC PAR ENT PAY-TO  PROVIDER  0;5 NUMBER
  334                  INPUT  TRANSFORM:   K:+X'=X! (X>9999)!( X<1)!(X?.E 1"."1N.N)  X
  335                  LAST E DITED:       FEB 22,  2018 
  336                  HELP-P ROMPT:       Type a n umber betw een 1 and  9999, 0 de cimal 
  337                                      digits. 
  338                  DESCRI PTION:       This fie ld determi nes if thi s entry in  the
  339                                      sub-file  is a Non- MCCF Pay-t o Provider
  340                                      institut ion or if  it is a Di vision bei ng linked
  341                                      to the p arent Non- MCCF Pay-t o Provider
  342                                      institut ion, that  is, anothe r sub-file  entry.  
  343                                       
  344                                      If this  field is d efined, th en it hold s the IEN
  345                                      in this  sub-file o f the pare nt Non-MCC F Pay-to
  346                                      Provider  instituti on for thi s specific
  347                                      division .  
  348                                       
  349                                      If this  field is n il, then t his sub-fi le entry
  350                                      is the p arent Non- MCCF Pay-t o Provider
  351                                      institut ion.  
  352                                       
  353                                      This fie ld should  not be set  via FileM an.  The
  354                                      applicat ion in the  IB Site P aremeter e dit
  355                                      option w ill set th is field a ppropriate ly based
  356                                      on user  input.  
  357  
  358   350.929,1. 01  TC STR EET ADDRES S 1    1;1  FREE TEXT
  359                  Non-MC CF Pay-to  Provider A ddress Lin e 1   
  360                  INPUT  TRANSFORM:   K:$L(X)> 55!($L(X)< 1) X
  361                  LAST E DITED:       FEB 22,  2018 
  362                  HELP-P ROMPT:       Answer m ust be 1-5 5 characte rs in leng th. 
  363                  DESCRI PTION:       You may  modify the  Non-MCCF- specific P ay-To
  364                                      Provider  Address f or use on  electronic  or
  365                                      printed  claims.  Y ou may ent er a P.O.  Box.  
  366  
  367                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  368                                      of the . 01 field.   
  369  
  370   350.929,1. 02  TC STR EET ADDRES S 2    1;2  FREE TEXT
  371                  Non-MC CF Pay-to  Provider A ddress Lin e 2   
  372                  INPUT  TRANSFORM:   K:$L(X)> 55!($L(X)< 1) X
  373                  LAST E DITED:       FEB 22,  2018 
  374                  HELP-P ROMPT:       Answer m ust be 1-5 5 characte rs in leng th. 
  375                  DESCRI PTION:       Enter ad ditional a ddress inf ormation,  if
  376                                      needed.   
  377  
  378                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  379                                      of the . 01 field.   
  380  
  381   350.929,1. 03  TC CIT Y                 1;3  FREE TEXT
  382                  Non-MC CF Pay-to  Provider C ity   
  383                  INPUT  TRANSFORM:   K:$L(X)> 40!($L(X)< 2) X
  384                  LAST E DITED:       FEB 22,  2018 
  385                  HELP-P ROMPT:       Answer m ust be 2-4 0 characte rs in leng th. 
  386                  DESCRI PTION:       You may  modify the  Non-MCCF  Pay-to Pro vider
  387                                      address  for use on  electroni c or print ed
  388                                      claims.   
  389  
  390                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  391                                      of the . 01 field.   
  392  
  393   350.929,1. 04  TC STA TE                1;4  POINTER T O STATE FI LE (#5)
  394                  Non-MC CF Pay-to  Provider S tate   
  395                  LAST E DITED:       FEB 22,  2018 
  396                  HELP-P ROMPT:       Answer w ith State  Number, or  Name, or 
  397                                      Abbrevia tion. 
  398                  DESCRI PTION:       You may  modify the  Non-MCCF  Pay-to Pro vider
  399                                      address  for use on  electroni c or print ed
  400                                      claims.   
  401  
  402                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  403                                      of the . 01 field.   
  404  
  405   350.929,1. 05  TC ZIP                   1;5  FREE TEXT
  406                  Non-MC CF Pay-to  Provider Z ip Code   
  407                  INPUT  TRANSFORM:   K:$L(X)> 15!($L(X)< 3) X
  408                  LAST E DITED:       FEB 22,  2018 
  409                  HELP-P ROMPT:       Answer m ust be 3-1 5 characte rs in leng th. 
  410                  DESCRI PTION:       You may  modify the  Non-MCCF  Pay-to Pro vider
  411                                      address  for use on  electroni c or print ed
  412                                      claims.   
  413  
  414                  TECHNI CAL DESCR:   This fie ld is init ially set  by the "AC " x-ref
  415                                      of the . 01 field.   
  416  
  417         FILE S POINTED  TO                        FIELDS
  418   INSTITUTIO N (#4)                    TC FAC ILITY (#.0 1)
  419   STATE (#5)                           TC STA TE (#1.04)
  420  
  421   INPUT TEMP LATE(S):
  422   PRINT TEMP LATE(S):
  423   SORT TEMPL ATE(S):
  424   FORM(S)/BL OCK(S):
  425  
  426   Site Param eters’ Non -MCCF  Rat e Types fo r PTP sub- file - #35 0.928 (new )
  427   Data Dicti onary
  428   Activities
  429   FileName &  Number
  430   Site Param eters’ Non -MCCF Rate  Types for  PTP sub-f ile (#350. 928)
  431   Current Da ta Definit ions
  432  
  433   N/A
  434   Modified L ogic (Chan ges are in  bold)
  435   STANDARD D ATA DICTIO NARY #350. 928 -- NON -MCCF RATE  TYPES FOR  PTP SUB-F ILE   2/27 /18    PAG E 1
  436   STORED IN  ^IBE(350.9 ,D0,28,     SITE:  PII     UCI: VISTA ,ROU   
  437  
  438   DATA           NAME                    GLOB AL         DATA
  439   ELEMENT        TITLE                   LOCA TION       TYPE
  440   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------
  441   This conta ins the No n-MCCF Rat e Types th at are rel ated to th e Non-MCCF  Pay-To
  442   Providers.   If a cla im has one  of the ra te types i n this mul tiple fiel d, the
  443   claim is c onsidered  to be a No n-MCCF Cla im.  
  444  
  445   CROSS
  446   REFERENCED  BY: NON-M CCF RATE T YPES FOR P TP(B)
  447  
  448   350.928,.0 1   NON-MC CF RATE TY PES FOR PT P 0;1 POIN TER TO RAT E TYPE FIL E (#399.3
  449                                      ) (Multi ply asked)
  450  
  451                  LAST E DITED:       FEB 27,  2018 
  452                  HELP-P ROMPT:       Enter Ra te Types f or which n on-MCCF Pa y to 
  453                                      Provider  should be  used. 
  454                  DESCRI PTION:       Each mul tiple fiel d should b e a Non-MC CF Rate
  455                                      Type.  I t is used  to determi ne if a cl aim is a
  456                                      Non-MCCF  Claim.
  457  
  458                  CROSS- REFERENCE:   350.928^
  459                                      1)= S ^I BE(350.9,D A(1),28,"B ",$E(X,1,3 0),DA)=""
  460                                      2)= K ^I BE(350.9,D A(1),28,"B ",$E(X,1,3 0),DA)
  461  
  462         FILE S POINTED  TO                        FIELDS
  463   RATE TYPE  (#399.3)                  NON-MC CF RATE TY PES FOR PT P (#.01)
  464  
  465   INPUT TEMP LATE(S):
  466   PRINT TEMP LATE(S):
  467   SORT TEMPL ATE(S):
  468   FORM(S)/BL OCK(S):
  469  
  470   Routines:
  471   To change  the name o f #12 from  “TRICARE  Pay-To Pro viders” to  “Non-MCCF  Pay-To Pr oviders” o n initial  IB Screen  for MCCR S ite Parame ters (see  below);
  472   IB Site Pa rameters              Nov 27, 20 17@14:49:2 1           Page:     3 of  5 
  473   Only autho rized pers ons may ed it this da ta.
  474   +                                                                                      
  475   [10]Bill S igner Name    : <No l onger used >     Fede ral Tax #       : 83- 0168494   
  476       Bill S igner Titl e  : <No l onger used >                                          
  477                                                                                          
  478   [11]Pay-To  Providers    : 3 def ined, defa ult - CENT RAL PLAINS  CPAC (CHE YENNE,44  
  479                                                                                          
  480   [12]TRICAR E Pay-To P roviders:  2 defined,  default -  CHEYENNE  VAMC                 
  481                                                                                          
  482   [13]Inpt H ealth Summ ary: INPAT IENT HEALT H SUMMARY                                  
  483       Opt He alth Summa ry : OUTPA TIENT HEAL TH SUMMARY                                 
  484                                                                                          
  485   [14]HIPPA  NCPDP Acti ve Flag           : A ctive                                      
  486                                                                                          
  487   [15]Inpati ent TP Act ive : YES                                                        
  488       Outpat ient TP Ac tive: YES                                                        
  489       Pharma cy TP Acti ve  : YES                                                        
  490       Prosth etic TP Ac tive: YES                                                        
  491                                                                                          
  492   +          Enter ?? f or more ac tions                                                 
  493   EP  Edit S et                                            EX  Exit
  494   Select Act ion: Next  Screen// 
  495  
  496   the routin e ^IBJPS2,  needed to  be modifi ed:
  497   Routines
  498   Activities
  499   Routine Na me
  500   IBJPS2
  501   Enhancemen t Category
  502    New
  503    Modify
  504    Delete
  505    No Change
  506   RTM
  507  
  508   Related Op tions
  509   None
  510   Related Ro utines
  511   Routines “ Called By”
  512   Routines “ Called”   
  513  
  514  
  515  
  516   Data Dicti onary (DD)  Reference s
  517   None
  518   Related Pr otocols
  519   None
  520   Related In tegration  Control Re gistration s (ICRs)
  521   None
  522   Data Passi ng
  523    Input
  524    Output Re ference
  525    Both
  526    Global Re ference
  527    Local
  528   Input Attr ibute Name  and Defin ition
  529   Name:
  530   Definition :
  531   Output Att ribute Nam e and Defi nition
  532   Name:
  533   Definition :
  534   Current Lo gic
  535   IBJPS2 ;AL B/MAF,ARH  - IBSP IB  SITE PARAM ETER BUILD  (cont) ;2 2-DEC-1995  ;;2.0;INT EGRATED BI LLING;**39 ,52,115,14 3,51,137,1 61,155,320 ,348,349,3 77,384,400 ,432,494,4 61,516,547 ,592**;21- MAR-94;Bui ld 25 ;;Pe r VA Direc tive 6402,  this rout ine should  not be mo dified. ;B LD2 ; - co ntinue bui ld screen  array for  IB paramet ers ; N Z, Z0,PTPSTR, BPZZ D RIG HT(1,1,1)  ; - facili ty/med cen ter (new l ine for ea ch) S IBLN =$$SET("Me dical Cent er",$$EXSE T^IBJU1($P (IBPD0,U,2 ),350.9,.0 2),IBLN,IB LR,IBSEL)  S IBLN=$$S ET("MAS Se rvice",$$E XSET^IBJU1 ($P(IBPD1, U,14),350. 9,1.14),IB LN,IBLR,IB SEL) ; D L EFT(2) S I BLN=$$SET( "Default D ivision",$ $EXSET^IBJ U1($P(IBPD 1,U,25),35 0.9,1.25), IBLN,IBLR, IBSEL) S I BLN=$$SET( "Billing S upervisor" ,$$EXSET^I BJU1($P(IB PD1,U,8),3 50.9,1.08) ,IBLN,IBLR ,IBSEL) ;  D RIGHT(1, 1,1) S IBL N=$$SET("I nitiator A uthorize", $$YN(+$P(I BPD1,U,23) ),IBLN,IBL R,IBSEL) S  IBLN=$$SE T("Ask HIN Q in MCCR" ,$$YN(+$P( IBPD1,U,16 )),IBLN,IB LR,IBSEL)  S IBLN=$$S ET("Multip le Form Ty pes",$$YN( +$P(IBPD1, U,22)),IBL N,IBLR,IBS EL) ; D LE FT(2) S IB LN=$$SET(" Xfer Proc  to Sched", $$YN(+$P(I BPD1,U,19) ),IBLN,IBL R,IBSEL) S  IBLN=$$SE T("Use Non -PTF Codes ",$$YN(+$P (IBPD1,U,1 5)),IBLN,I BLR,IBSEL)  S IBLN=$$ SET("Use O P CPT scre en",$$YN(+ $P(IBPD1,U ,17)),IBLN ,IBLR,IBSE L) ; ; IB  patch 349  for UB-04  claim form  and param eters D RI GHT(1,1,1)  S IBLN=$$ SET("UB-04  Print IDs ",$$EXSET^ IBJU1($P(I BPD1,U,33) ,350.9,1.3 3),IBLN,IB LR,IBSEL)  S IBLN=$$S ET("CMS-15 00 Print I Ds",$$EXSE T^IBJU1($P (IBPD1,U,3 2),350.9,1 .32),IBLN, IBLR,IBSEL ) S IBLN=$ $SET("CMS- 1500 Auto  Prter",$$E XSET^IBJU1 ($P(IBPD8, U,14),350. 9,8.14),IB LN,IBLR,IB SEL) S IBL N=$$SET("E OB Auto Pr ter",$$EXS ET^IBJU1($ P(IBPD8,U, 16),350.9, 8.16),IBLN ,IBLR,IBSE L) ; D LEF T(2) S IBL N=$$SET("U B-04 Addre ss Col",$P (IBPD1,U,3 1),IBLN,IB LR,IBSEL)  S IBLN=$$S ET("CMS-15 00 Addr Co l",$P(IBPD 1,U,27),IB LN,IBLR,IB SEL) S IBL N=$$SET("U B-04 Auto  Prter",$$E XSET^IBJU1 ($P(IBPD8, U,15),350. 9,8.15),IB LN,IBLR,IB SEL) S IBL N=$$SET("M RA Auto Pr ter",$$EXS ET^IBJU1($ P(IBPD8,U, 19),350.9, 8.19),IBLN ,IBLR,IBSE L) ; ; VAD  - IB*2.0* 547 - inse rted a new  section 8 . Only cou nt activat ed codes D  RIGHT(3,1 ,1) S (Z,Z 0)=0 F  S  Z=$O(^IBE( 350.9,1,15 ,"B",Z)) Q :'Z  I $P( $G(^DGCR(3 99.2,Z,0)) ,U,3)=1 S  Z0=Z0+1 S  PTPSTR=Z0_ " Activate d Codes De fined" S I BLN=$$SET( "Printed C laims Rev  Code Excl" ,PTPSTR,IB LN,IBLR,IB SEL) ; D R IGHT(1,1,1 ) S Z=$$IC D9SYS^IBAC SV(DT) I Z =1 S IBLN= $$SET("Def ault RX DX  Cd",$$EXS ET^IBJU1($ P(IBPD1,U, 29),350.9, 1.29)_" (I CD-9)",IBL N,IBLR,IBS EL) I Z'=1  S IBLN=$$ SET("Defau lt RX DX C d",$$EXSET ^IBJU1($P( IBPD7,U,5) ,350.9,7.0 5)_" (ICD- 10)",IBLN, IBLR,IBSEL ) S IBLN=$ $SET("Defa ult RX CPT  Cd",$$EXS ET^IBJU1($ P(IBPD1,U, 30),350.9, 1.30),IBLN ,IBLR,IBSE L) ; D LEF T(2) S IBL N=$$SET("D efault ASC  Rev Cd",$ $EXSET^IBJ U1($P(IBPD 1,U,18),35 0.9,1.18), IBLN,IBLR, IBSEL) S I BLN=$$SET( "Default R X Rev Cd", $$EXSET^IB JU1($P(IBP D1,U,28),3 50.9,1.28) ,IBLN,IBLR ,IBSEL) ;  D RIGHT(1, 1,1) S IBL N=$$SET("B ill Signer  Name","<N o longer u sed>",IBLN ,IBLR,IBSE L) S IBLN= $$SET("Bil l Signer T itle","<No  longer us ed>",IBLN, IBLR,IBSEL ) ; D LEFT (2) S IBLN =$$SET("Fe deral Tax  #",$P(IBPD 1,U,5),IBL N,IBLR,IBS EL) ; D RI GHT(3,1,1)  ; - Pay-T o Provider s - sectio n 11 S (Z, Z0)=0 F  S  Z=$O(^IBE (350.9,1,1 9,Z)) Q:'Z   S:$P($G( ^IBE(350.9 ,1,19,Z,0) ),U,5)=""  Z0=Z0+1 S  Z=+$P($G(^ IBE(350.9, 1,11)),U,3 ),PTPSTR=Z 0_" define d"_$S(Z>0: ", default  - "_$P($$ PTG^IBJPS3 (Z,0),U),1 :"") S IBL N=$$SET("P ay-To Prov iders",PTP STR,IBLN,I BLR,IBSEL)  ; ; MRD;I B*2.0*516  - Added TR ICARE Pay- To Provide rs. D RIGH T(3,1,1) ;  - TRICARE  Pay-To Pr oviders -  section 12  S (Z,Z0)= 0 F  S Z=$ O(^IBE(350 .9,1,29,Z) ) Q:'Z  S: $P($G(^IBE (350.9,1,2 9,Z,0)),U, 5)="" Z0=Z 0+1 S Z=+$ P($G(^IBE( 350.9,1,11 )),U,4),PT PSTR=Z0_"  defined"_$ S(Z>0:", d efault - " _$P($$PTG^ IBJPS3(Z,1 ),U),1:"")  S IBLN=$$ SET("TRICA RE Pay-To  Providers" ,PTPSTR,IB LN,IBLR,IB SEL) ;
  536    
  537    
  538  
  539   Modified L ogic (Chan ges are in  bold)
  540   IBJPS2 ;AL B/MAF,ARH  - IBSP IB  SITE PARAM ETER BUILD  (cont) ;2 2-DEC-1995  ;;2.0;INT EGRATED BI LLING;**39 ,52,115,14 3,51,137,1 61,155,320 ,348,349,3 77,384,400 ,432,494,4 61,516,547 ,592,608** ;21-MAR-94 ;Build 25  ;;Per VA D irective 6 402, this  routine sh ould not b e modified . ;BLD2 ;  - continue  build scr een array  for IB par ameters ;  N Z,Z0,PTP STR,BPZZ D  RIGHT(1,1 ,1) ; - fa cility/med  center (n ew line fo r each) S  IBLN=$$SET ("Medical  Center",$$ EXSET^IBJU 1($P(IBPD0 ,U,2),350. 9,.02),IBL N,IBLR,IBS EL) S IBLN =$$SET("MA S Service" ,$$EXSET^I BJU1($P(IB PD1,U,14), 350.9,1.14 ),IBLN,IBL R,IBSEL) ;  D LEFT(2)  S IBLN=$$ SET("Defau lt Divisio n",$$EXSET ^IBJU1($P( IBPD1,U,25 ),350.9,1. 25),IBLN,I BLR,IBSEL)  S IBLN=$$ SET("Billi ng Supervi sor",$$EXS ET^IBJU1($ P(IBPD1,U, 8),350.9,1 .08),IBLN, IBLR,IBSEL ) ; D RIGH T(1,1,1) S  IBLN=$$SE T("Initiat or Authori ze",$$YN(+ $P(IBPD1,U ,23)),IBLN ,IBLR,IBSE L) S IBLN= $$SET("Ask  HINQ in M CCR",$$YN( +$P(IBPD1, U,16)),IBL N,IBLR,IBS EL) S IBLN =$$SET("Mu ltiple For m Types",$ $YN(+$P(IB PD1,U,22)) ,IBLN,IBLR ,IBSEL) ;  D LEFT(2)  S IBLN=$$S ET("Xfer P roc to Sch ed",$$YN(+ $P(IBPD1,U ,19)),IBLN ,IBLR,IBSE L) S IBLN= $$SET("Use  Non-PTF C odes",$$YN (+$P(IBPD1 ,U,15)),IB LN,IBLR,IB SEL) S IBL N=$$SET("U se OP CPT  screen",$$ YN(+$P(IBP D1,U,17)), IBLN,IBLR, IBSEL) ; ;  IB patch  349 for UB -04 claim  form and p arameters  D RIGHT(1, 1,1) S IBL N=$$SET("U B-04 Print  IDs",$$EX SET^IBJU1( $P(IBPD1,U ,33),350.9 ,1.33),IBL N,IBLR,IBS EL) S IBLN =$$SET("CM S-1500 Pri nt IDs",$$ EXSET^IBJU 1($P(IBPD1 ,U,32),350 .9,1.32),I BLN,IBLR,I BSEL) S IB LN=$$SET(" CMS-1500 A uto Prter" ,$$EXSET^I BJU1($P(IB PD8,U,14), 350.9,8.14 ),IBLN,IBL R,IBSEL) S  IBLN=$$SE T("EOB Aut o Prter",$ $EXSET^IBJ U1($P(IBPD 8,U,16),35 0.9,8.16), IBLN,IBLR, IBSEL) ; D  LEFT(2) S  IBLN=$$SE T("UB-04 A ddress Col ",$P(IBPD1 ,U,31),IBL N,IBLR,IBS EL) S IBLN =$$SET("CM S-1500 Add r Col",$P( IBPD1,U,27 ),IBLN,IBL R,IBSEL) S  IBLN=$$SE T("UB-04 A uto Prter" ,$$EXSET^I BJU1($P(IB PD8,U,15), 350.9,8.15 ),IBLN,IBL R,IBSEL) S  IBLN=$$SE T("MRA Aut o Prter",$ $EXSET^IBJ U1($P(IBPD 8,U,19),35 0.9,8.19), IBLN,IBLR, IBSEL) ; ;  VAD - IB* 2.0*547 -  inserted a  new secti on 8. Only  count act ivated cod es D RIGHT (3,1,1) S  (Z,Z0)=0 F   S Z=$O(^ IBE(350.9, 1,15,"B",Z )) Q:'Z  I  $P($G(^DG CR(399.2,Z ,0)),U,3)= 1 S Z0=Z0+ 1 S PTPSTR =Z0_" Acti vated Code s Defined"  S IBLN=$$ SET("Print ed Claims  Rev Code E xcl",PTPST R,IBLN,IBL R,IBSEL) ;  D RIGHT(1 ,1,1) S Z= $$ICD9SYS^ IBACSV(DT)  I Z=1 S I BLN=$$SET( "Default R X DX Cd",$ $EXSET^IBJ U1($P(IBPD 1,U,29),35 0.9,1.29)_ " (ICD-9)" ,IBLN,IBLR ,IBSEL) I  Z'=1 S IBL N=$$SET("D efault RX  DX Cd",$$E XSET^IBJU1 ($P(IBPD7, U,5),350.9 ,7.05)_" ( ICD-10)",I BLN,IBLR,I BSEL) S IB LN=$$SET(" Default RX  CPT Cd",$ $EXSET^IBJ U1($P(IBPD 1,U,30),35 0.9,1.30), IBLN,IBLR, IBSEL) ; D  LEFT(2) S  IBLN=$$SE T("Default  ASC Rev C d",$$EXSET ^IBJU1($P( IBPD1,U,18 ),350.9,1. 18),IBLN,I BLR,IBSEL)  S IBLN=$$ SET("Defau lt RX Rev  Cd",$$EXSE T^IBJU1($P (IBPD1,U,2 8),350.9,1 .28),IBLN, IBLR,IBSEL ) ; D RIGH T(1,1,1) S  IBLN=$$SE T("Bill Si gner Name" ,"<No long er used>", IBLN,IBLR, IBSEL) S I BLN=$$SET( "Bill Sign er Title", "<No longe r used>",I BLN,IBLR,I BSEL) ; D  LEFT(2) S  IBLN=$$SET ("Federal  Tax #",$P( IBPD1,U,5) ,IBLN,IBLR ,IBSEL) ;  D RIGHT(3, 1,1) ; - P ay-To Prov iders - se ction 11 S  (Z,Z0)=0  F  S Z=$O( ^IBE(350.9 ,1,19,Z))  Q:'Z  S:$P ($G(^IBE(3 50.9,1,19, Z,0)),U,5) ="" Z0=Z0+ 1 S Z=+$P( $G(^IBE(35 0.9,1,11)) ,U,3),PTPS TR=Z0_" de fined"_$S( Z>0:", def ault - "_$ P($$PTG^IB JPS3(Z,0), U),1:"") S  IBLN=$$SE T("Pay-To  Providers" ,PTPSTR,IB LN,IBLR,IB SEL) ; ; M RD;IB*2.0* 516 - Adde d TRICARE  Pay-To Pro viders. D  RIGHT(3,1, 1) ; - TRI CARE Pay-T o Provider s - sectio n 12 S (Z, Z0)=0 F  S  Z=$O(^IBE (350.9,1,2 9,Z)) Q:'Z   S:$P($G( ^IBE(350.9 ,1,29,Z,0) ),U,5)=""  Z0=Z0+1 S  Z=+$P($G(^ IBE(350.9, 1,11)),U,4 ),PTPSTR=Z 0_" define d"_$S(Z>0: ", default  - "_$P($$ PTG^IBJPS3 (Z,1),U),1 :"") S IBL N=$$SET("N on-MCCF Pa y-To Provi ders",PTPS TR,IBLN,IB LR,IBSEL)  ; IB*2*608  (vd) - Ch anged "TRI CARE..." t o "Non-MCC F..." ; 
  541    
  542    
  543  
  544  
  545   Changed th e ENTITY N AME and SC REEN TITLE  on the “I BJP IB TRI CARE PAY-T O PROVS” L ist Manage r Template  which is  invoked by  the “EP”  (Edit Set)  action on  the IB Si te Paramet ers screen  from:
  546   List Manag er Workben ch                                     Nov  27, 2017@1 6:56:57                                        Page:     1 of    
  547   Template:  IBJP IB TR ICARE PAY- TO PROVS
  548   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------
  549     Demograp hics                                          List Reg ion                  
  550    Template  Name: IBJP  IB TRICAR E PAY-TO P ROVS           Top Ma rgin:   2            
  551      Entity  Name: IB T RICARE Pay -To Provid ers         Bottom     "  :  18            
  552     Screen T itle: TRIC ARE Pay-To  Providers              Right     "  :  80            
  553                                                                                          
  554     Protocol  Informati on                                 Other Fi elds                 
  555      Type of  List: PRO TOCOL                                 OK to  Transport ?: OK     
  556     Protocol  Menu: IBJ P IB TRICA RE PAY-TO  PROV          Use Cur sor Contro l: YES    
  557    Print Pro tocol:                               Allowa ble Number  of Action s: 1      
  558       Hidden  Menu: VAL M HIDDEN A CTIONS                     Date  Range Limi t:        
  559                                                             Automat ic Default s: YES    
  560                                                                                          
  561     MUMPS Co de Related                                                                  
  562    Header: D  HDR^IBJPS 3(1)                                                             
  563     Entry: D  INIT^IBJP S3(1)                                                            
  564      Exit: D  EXIT^IBJP S3                                                               
  565    Expand:                                                                               
  566      Help: D  HELP^IBJP S3                                                               
  567     Array:                                                                               
  568                                                                                          
  569     Caption  Line Infor mation                                                           
  570    Name       Column     Width      Display T ext                    Video  Sc roll Lock 
  571  
  572   to:
  573   List Manag er Workben ch                                     Nov  27, 2017@1 6:56:57                                        Page:     1 of    
  574   Template:  IBJP IB TR ICARE PAY- TO PROVS
  575   ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------
  576     Demograp hics                                          List Reg ion                  
  577    Template  Name: IBJP  IB TRICAR E PAY-TO P ROVS           Top Ma rgin:   2            
  578      Entity  Name: IB N on-MCCR Pa y-To Provi ders        Bottom     "  :  18            
  579     Screen T itle: Non- MCCR Pay-T o Provider s            Right     "  :  80            
  580                                                                                          
  581     Protocol  Informati on                                 Other Fi elds                 
  582      Type of  List: PRO TOCOL                                 OK to  Transport ?: OK     
  583     Protocol  Menu: IBJ P IB TRICA RE PAY-TO  PROV          Use Cur sor Contro l: YES    
  584    Print Pro tocol:                               Allowa ble Number  of Action s: 1      
  585       Hidden  Menu: VAL M HIDDEN A CTIONS                     Date  Range Limi t:        
  586                                                             Automat ic Default s: YES    
  587                                                                                         
  588     MUMPS Co de Related                                                                  
  589    Header: D  HDR^IBJPS 3(1)                                                             
  590     Entry: D  INIT^IBJP S3(1)                                                            
  591      Exit: D  EXIT^IBJP S3                                                               
  592    Expand:                                                                               
  593      Help: D  HELP^IBJP S3                                                               
  594     Array:                                                                               
  595                                                                                          
  596     Caption  Line Infor mation                                                           
  597    Name       Column     Width      Display T ext                    Video  Sc roll Lock 
  598  
  599   In additio n, the rou tine ^IBJP S3 was cha nged to di splay “Non -MCCF” ins tead of “T RICARE” on  the List  Manager sc reens for  prompts an d messages :
  600   Routines
  601   Activities
  602   Routine Na me
  603   IBJPS3
  604   Enhancemen t Category
  605    New
  606    Modify
  607    Delete
  608    No Change
  609   RTM
  610  
  611   Related Op tions
  612   None
  613   Related Ro utines
  614   Routines “ Called By”
  615   Routines “ Called”   
  616  
  617  
  618  
  619   Data Dicti onary (DD)  Reference s
  620   None
  621   Related Pr otocols
  622   None
  623   Related In tegration  Control Re gistration s (ICRs)
  624   None
  625   Data Passi ng
  626    Input
  627    Output Re ference
  628    Both
  629    Global Re ference
  630    Local
  631   Input Attr ibute Name  and Defin ition
  632   Name:
  633   Definition :
  634   Output Att ribute Nam e and Defi nition
  635   Name:
  636   Definition :
  637   Current Lo gic
  638   IBJPS3 ;BP /YMG - IB  Site Param eters, Pay -To Provid er ;20-Oct -2008 ;;2. 0;INTEGRAT ED BILLING ;**400,432 ,516,577** ;21-MAR-94 ;Build 38  ;;Per VA D irective 6 402, this  routine sh ould not b e modified . ; ; MRD; IB*2.0*516  - Added l ogic perta ining to T RICARE-Spe cific Pay- To ; Provi ders, whic h entailed  adding th e paramete r IBTCFLAG  to many ;  procedure s here and  in ^IBJPS 4. ;EN(IBT CFLAG) ; - - main ent ry point f or IBJP IB  PAY-TO PR OVIDERS D  EN^VALM("I BJP IB "_$ S(IBTCFLAG :"TRICARE  PAY-TO PRO VS",1:"PAY -TO PROVID ERS")) Q ; HDR(IBTCFL AG) ; -- h eader code  ; Not set ting VALMH DR causes  this tag t o be calle d upon ret urn from e very actio n,  ; this  is done t o keep VAL MSG displa yed at all  times, in stead of t he default  message o n the lowe r bar. S V ALMSG="* =  Default " _$S(IBTCFL AG:"TRICAR E ",1:"")_ "Pay-to pr ovider" Q  ;INIT(IBTC FLAG) ; --  init vari ables and  list array  N IBCNT,I BLN,IBSTR, PIEN,PDATA ,IBNODE S  IBNODE=$$N ODE^IBJPS4 (IBTCFLAG)  ; S (VALM CNT,IBCNT, IBLN)=0 S  PIEN=0 F   S PIEN=$O( ^IBE(350.9 ,1,IBNODE, PIEN)) Q:' PIEN  D .I  $P($G(^IB E(350.9,1, IBNODE,PIE N,0)),U,5) '="" Q .S  PDATA=$$PT G(PIEN,IBT CFLAG),IBC NT=IBCNT+1  .S IBSTR= $$SETSTR^V ALM1(IBCNT _".","",2, 4) .I $$IS DFLT(PIEN, IBTCFLAG)  S IBSTR=$$ SETSTR^VAL M1("*",IBS TR,7,1) .S  IBSTR=$$S ETSTR^VALM 1("Name :  "_$P(PDATA ,U),IBSTR, 8,45) .;S  IBSTR=$$SE TSTR^VALM1 ("State :  "_$P(PDATA ,U,8),IBST R,54,25) ; JRA IB*2.0 *577 ';' . S IBLN=$$S ET(IBLN,IB STR) .;S I BSTR=$$SET STR^VALM1( "Address 1 : "_$P(PDA TA,U,5),"" ,8,45) ;JR A IB*2.0*5 77 ';' .S  IBSTR=$$SE TSTR^VALM1 ("Address  1: "_$P(PD ATA,U,5)," ",8,66) ;J RA IB*2.0* 577 expand  to 55 cha rs .;S IBS TR=$$SETST R^VALM1("Z ip Code: " _$P(PDATA, U,9),IBSTR ,54,25) ;J RA IB*2.0* 577 ';' .S  IBLN=$$SE T(IBLN,IBS TR) .;S IB STR=$$SETS TR^VALM1(" Address 2:  "_$P(PDAT A,U,6),"", 8,45) ;JRA  IB*2.0*57 7 ';' .S I BSTR=$$SET STR^VALM1( "Address 2 : "_$P(PDA TA,U,6),"" ,8,66) ;JR A IB*2.0*5 77 expand  to 55 char s .;S IBST R=$$SETSTR ^VALM1("Ph one : "_$P (PDATA,U,4 ),IBSTR,54 ,25) ;JRA  IB*2.0*577  ';' .S IB LN=$$SET(I BLN,IBSTR)  .S IBSTR= $$SETSTR^V ALM1("City  : "_$P(PD ATA,U,7)," ",8,45) .S  IBLN=$$SE T(IBLN,IBS TR) .;S IB STR=$$SETS TR^VALM1(" Tax ID : " _$P(PDATA, U,3),IBSTR ,54,25) ;J RA IB*2.0* 577 ';' .; JRA Move S tate, Zip  Code, Phon e and Tax  ID under C ity to all ow for lon ger addres s lines .S  IBSTR=$$S ETSTR^VALM 1("State :  "_$P(PDAT A,U,8),IBS TR,8,25) ; JRA IB*2.0 *577 .S IB LN=$$SET(I BLN,IBSTR)  ;JRA IB*2 .0*577 .S  IBSTR=$$SE TSTR^VALM1 ("Zip Code  : "_$P(PD ATA,U,9),I BSTR,8,25)  ;JRA IB*2 .0*577 .S  IBLN=$$SET (IBLN,IBST R) ;JRA IB *2.0*577 . S IBSTR=$$ SETSTR^VAL M1("Phone  : "_$P(PDA TA,U,4),IB STR,8,25)  ;JRA IB*2. 0*577 .S I BLN=$$SET( IBLN,IBSTR ) ;JRA IB* 2.0*577 .S  IBSTR=$$S ETSTR^VALM 1("Tax ID  : "_$P(PDA TA,U,3),IB STR,8,25)  ;JRA IB*2. 0*577 .S I BLN=$$SET( IBLN,IBSTR ),IBLN=$$S ET(IBLN,"" ) .S @VALM AR@("ZIDX" ,IBCNT,PIE N)="" .Q ;  I 'IBLN S  IBLN=$$SE T(IBLN,$$S ETSTR^VALM 1("No "_$S (IBTCFLAG: "TRICARE " ,1:"")_"Pa y-To Provi ders defin ed.","",13 ,40)) ; S  VALMCNT=IB LN,VALMBG= 1 Q ;HELP  ; -- help  code S X=" ?" D DISP^ XQORM1 W ! ! Q ;EXIT  ; -- exit  code D CLE AR^VALM1,C LEAN^VALM1 0 Q ;PRVAD D(IBTCFLAG ) ; add ne w pay-to p rovider N  X,Y,DIC,DA ,DLAYGO,DI E,DR,DIR,D IRUT,DUOUT ,DTOUT,IEN ,IBNODE S  IBNODE=$$N ODE^IBJPS4 (IBTCFLAG)  D FULL^VA LM1 S VALM BCK="R" S  DIC="^IBE( 350.9,1,"_ IBNODE_"," ,DIC(0)="A ELMQ",DA(1 )=1,DLAYGO =350.9 S D IC("A")="E nter "_$S( IBTCFLAG:" TRICARE ", 1:"")_"Pay -to Provid er: " D ^D IC S IEN=+ Y I IEN'>0  Q D PRVED IT1 I $P($ G(^IBE(350 .9,1,IBNOD E,IEN,0)), U,2)="" D  PRVDEL1 Q  ;PRVDEL(IB TCFLAG) ;  delete a p ay-to prov ider N DA, DR,DIE,X,Y ,DIR,DIRUT ,DUOUT,DTO UT,I,IEN,D IVS,DFLT,I BNODE,IBDI SP S IBNOD E=$$NODE^I BJPS4(IBTC FLAG) S IB DISP=$S(IB TCFLAG:"TR ICARE ",1: "")_"Pay-T o Provider " S VALMBC K="R" D FU LL^VALM1 S  IEN=$$SEL (IBTCFLAG)  Q:'IEN S  DFLT=$$ISD FLT(IEN,IB TCFLAG) I  DFLT W !!, "WARNING:  This is th e default  "_IBDISP_" ." D GETDI VS^IBJPS4( IEN,.DIVS, IBTCFLAG)  I 'DFLT D  .W !!,"The  following  divisions  are curre ntly assoc iated with  this "_IB DISP_": "  .S I="" F   S I=$O(DI VS(I)) Q:I =""  W !,? 5,DIVS(I)  .W:'$D(DIV S) "None", ! W ! .Q S  DIR("?")= "Enter Yes  to delete  this "_IB DISP_"." S  DIR("A")= "Delete "_ IBDISP_" " _$P($G(^IB E(350.9,1, IBNODE,IEN ,0)),U,2)  S DIR(0)=" YO",DIR("B ")="NO" D  ^DIR Q:'Y  I DFLT S D IE="^IBE(3 50.9,",DA= 1,DR=$S(IB TCFLAG:"11 .04",1:"11 .03")_"/// /@" D ^DIE  I $D(DIVS ) K DIK S  DIK="^IBE( 350.9,1,"_ IBNODE_"," ,DA(1)=1,I ="" F  S I =$O(DIVS(I )) Q:I=""   S DA=I D  ^DIK K DIK PRVDEL1 ;  N DIK K DA  S DIK="^I BE(350.9,1 ,"_IBNODE_ "," S DA(1 )=1,DA=IEN  D ^DIK D  CLEAN^VALM 10,INIT(IB TCFLAG) Q  ;PRVEDIT(I BTCFLAG) ;  edit exis ting pay-t o provider  N IEN,IBN ODE S IBNO DE=$$NODE^ IBJPS4(IBT CFLAG) S V ALMBCK="R"  D FULL^VA LM1 S IEN= $$SEL(IBTC FLAG) Q:'I ENPRVEDIT1  ; N DIE,D A,DR,DIR,D IRUT,DUOUT ,DTOUT,X,Y  S DIE="^I BE(350.9,1 ,"_IBNODE_ "," S DA=I EN,DA(1)=1  S DR=".02 T;1.01T;1. 02T;1.03T; 1.04T;1.05 T;.04T;.03 T;.05///@"  D ^DIE S  DIR("?")=" Enter Yes  to make th is entry t he default  "_$S(IBTC FLAG:"TRIC ARE ",1:"" )_"Pay-to  Provider."  S DIR("A" )="Is this  the defau lt "_$S(IB TCFLAG:"TR ICARE ",1: "")_"Pay-T o Provider " S DIR(0) ="YO" S DI R("B")="YE S" I $$GET DFLT(IBTCF LAG),'$$IS DFLT(IEN,I BTCFLAG) S  DIR("B")= "NO" D ^DI R I Y K DA  S DIE="^I BE(350.9," ,DA=1,DR=$ S(IBTCFLAG :"11.04",1 :"11.03")_ "////"_IEN  D ^DIE D  CLEAN^VALM 10,INIT(IB TCFLAG) Q  ;SET(IBLN, IBSTR) ; a
  639   dd a line  to display  list ; re turns line  number ad ded S IBLN =IBLN+1 D  SET^VALM10 (IBLN,IBST R) Q IBLN  ;ISDFLT(PI EN,IBTCFLA G) ; retur ns 1 if pr ovider wit h ien PIEN  is the de fault pay- to provide r, 0 other wise Q:PIE N="" 0 Q $ $GETDFLT(I BTCFLAG)=P IEN ;GETDF LT(IBTCFLA G) ; retur ns ien of  default pa y-to provi der Q $P($ G(^IBE(350 .9,1,11)), U,$S(IBTCF LAG:4,1:3) ) ;SEL(IBT CFLAG) ; s elect pay- to provide r ; return s ien of s elected pa y-to provi der, or 0  if nothing  is select ed N DIR,I EN,MAX,X,Y  S IEN=0 I  VALMLST>4  D . ; the re is at l east one e ntry . S M AX=$O(@VAL MAR@("ZIDX ",""),-1)  S:MAX=1 Y= 1 . I MAX> 1 D . . S  DIR("A")=" Select "_$ S(IBTCFLAG :"TRICARE  ",1:"")_"P ay-To Prov ider (1-"_ MAX_"): "  . . S DIR( 0)="NA^"_1 _":"_MAX_" :0" . . D  ^DIR . . Q  . S:+Y>0  IEN=$O(@VA LMAR@("ZID X",Y,""))  . Q Q +IEN
  640    
  641    
  642  
  643   Modified L ogic (Chan ges are in  bold)
  644   IBJPS3 ;BP /YMG - IB  Site Param eters, Pay -To Provid er ;20-Oct -2008 ;;2. 0;INTEGRAT ED BILLING ;**400,432 ,516,577,6 08**;21-MA R-94;Build  38 ;;Per  VA Directi ve 6402, t his routin e should n ot be modi fied. ; ;  MRD;IB*2.0 *516 - Add ed logic p ertaining  to TRICARE -Specific  Pay-To ; P roviders,  which enta iled addin g the para meter IBTC FLAG to ma ny ; proce dures here  and in ^I BJPS4. ;EN (IBTCFLAG)  ; -- main  entry poi nt for IBJ P IB PAY-T O PROVIDER S D EN^VAL M("IBJP IB  "_$S(IBTC FLAG:"TRIC ARE PAY-TO  PROVS",1: "PAY-TO PR OVIDERS"))  Q ;HDR(IB TCFLAG) ;  -- header  code ; Not  setting V ALMHDR cau ses this t ag to be c alled upon  return fr om every a ction,  ;  this is do ne to keep  VALMSG di splayed at  all times , instead  of the def ault messa ge on the  lower bar.
  645    ;/IB*2.0* 608 – vd ( US2599) Ch anged TRIC ARE to Non -MCCF. S V ALMSG="* =  Default " _$S(IBTCFL AG:"Non-MC CF ",1:"") _"Pay-to p rovider" Q  ;INIT(IBT CFLAG) ; - - init var iables and  list arra y N IBCNT, IBLN,IBSTR ,PIEN,PDAT A,IBNODE S  IBNODE=$$ NODE^IBJPS 4(IBTCFLAG ) ; S (VAL MCNT,IBCNT ,IBLN)=0 S  PIEN=0 F   S PIEN=$O (^IBE(350. 9,1,IBNODE ,PIEN)) Q: 'PIEN  D . I $P($G(^I BE(350.9,1 ,IBNODE,PI EN,0)),U,5 )'="" Q .S  PDATA=$$P TG(PIEN,IB TCFLAG),IB CNT=IBCNT+ 1 .S IBSTR =$$SETSTR^ VALM1(IBCN T_".","",2 ,4) .I $$I SDFLT(PIEN ,IBTCFLAG)  S IBSTR=$ $SETSTR^VA LM1("*",IB STR,7,1) . S IBSTR=$$ SETSTR^VAL M1("Name :  "_$P(PDAT A,U),IBSTR ,8,45) .;S  IBSTR=$$S ETSTR^VALM 1("State :  "_$P(PDAT A,U,8),IBS TR,54,25)  ;JRA IB*2. 0*577 ';'  .S IBLN=$$ SET(IBLN,I BSTR) .;S  IBSTR=$$SE TSTR^VALM1 ("Address  1: "_$P(PD ATA,U,5)," ",8,45) ;J RA IB*2.0* 577 ';' .S  IBSTR=$$S ETSTR^VALM 1("Address  1: "_$P(P DATA,U,5), "",8,66) ; JRA IB*2.0 *577 expan d to 55 ch ars .;S IB STR=$$SETS TR^VALM1(" Zip Code:  "_$P(PDATA ,U,9),IBST R,54,25) ; JRA IB*2.0 *577 ';' . S IBLN=$$S ET(IBLN,IB STR) .;S I BSTR=$$SET STR^VALM1( "Address 2 : "_$P(PDA TA,U,6),"" ,8,45) ;JR A IB*2.0*5 77 ';' .S  IBSTR=$$SE TSTR^VALM1 ("Address  2: "_$P(PD ATA,U,6)," ",8,66) ;J RA IB*2.0* 577 expand  to 55 cha rs .;S IBS TR=$$SETST R^VALM1("P hone : "_$ P(PDATA,U, 4),IBSTR,5 4,25) ;JRA  IB*2.0*57 7 ';' .S I BLN=$$SET( IBLN,IBSTR ) .S IBSTR =$$SETSTR^ VALM1("Cit y : "_$P(P DATA,U,7), "",8,45) . S IBLN=$$S ET(IBLN,IB STR) .;S I BSTR=$$SET STR^VALM1( "Tax ID :  "_$P(PDATA ,U,3),IBST R,54,25) ; JRA IB*2.0 *577 ';' . ;JRA Move  State, Zip  Code, Pho ne and Tax  ID under  City to al low for lo nger addre ss lines . S IBSTR=$$ SETSTR^VAL M1("State  : "_$P(PDA TA,U,8),IB STR,8,25)  ;JRA IB*2. 0*577 .S I BLN=$$SET( IBLN,IBSTR ) ;JRA IB* 2.0*577 .S  IBSTR=$$S ETSTR^VALM 1("Zip Cod e : "_$P(P DATA,U,9), IBSTR,8,25 ) ;JRA IB* 2.0*577 .S  IBLN=$$SE T(IBLN,IBS TR) ;JRA I B*2.0*577  .S IBSTR=$ $SETSTR^VA LM1("Phone  : "_$P(PD ATA,U,4),I BSTR,8,25)  ;JRA IB*2 .0*577 .S  IBLN=$$SET (IBLN,IBST R) ;JRA IB *2.0*577 . S IBSTR=$$ SETSTR^VAL M1("Tax ID  : "_$P(PD ATA,U,3),I BSTR,8,25)  ;JRA IB*2 .0*577 .S  IBLN=$$SET (IBLN,IBST R),IBLN=$$ SET(IBLN," ") .S @VAL MAR@("ZIDX ",IBCNT,PI EN)="" .Q  ; ;/IB*2.0 *608 – vd  (US2599) C hanged TRI CARE to No n-MCCF. I  'IBLN S IB LN=$$SET(I BLN,$$SETS TR^VALM1(" No "_$S(IB TCFLAG:"No n-MCCF ",1 :"")_"Pay- To Provide rs defined .","",13,4 0)) ; S VA LMCNT=IBLN ,VALMBG=1  Q ;HELP ;  -- help co de S X="?"  D DISP^XQ ORM1 W !!  Q ;EXIT ;  -- exit co de D CLEAR ^VALM1,CLE AN^VALM10  Q ;PRVADD( IBTCFLAG)  ; add new  pay-to pro vider N X, Y,DIC,DA,D LAYGO,DIE, DR,DIR,DIR UT,DUOUT,D TOUT,IEN,I BNODE S IB NODE=$$NOD E^IBJPS4(I BTCFLAG) D  FULL^VALM 1 S VALMBC K="R" S DI C="^IBE(35 0.9,1,"_IB NODE_",",D IC(0)="AEL MQ",DA(1)= 1,DLAYGO=3 50.9 ;/IB* 2.0*608 –  vd (US2599 ) Changed  TRICARE to  Non-MCCF.  S DIC("A" )="Enter " _$S(IBTCFL AG:"Non-MC CF ",1:"") _"Pay-to P rovider: "  D ^DIC S  IEN=+Y I I EN'>0 Q D  PRVEDIT1 I  $P($G(^IB E(350.9,1, IBNODE,IEN ,0)),U,2)= "" D PRVDE L1 Q ;PRVD EL(IBTCFLA G) ; delet e a pay-to  provider  N DA,DR,DI E,X,Y,DIR, DIRUT,DUOU T,DTOUT,I, IEN,DIVS,D FLT,IBNODE ,IBDISP S  IBNODE=$$N ODE^IBJPS4 (IBTCFLAG)  ;/IB*2.0* 608 – vd ( US2599) Ch anged TRIC ARE to Non -MCCF. S I BDISP=$S(I BTCFLAG:"N on-MCCF ", 1:"")_"Pay -To Provid er" S VALM BCK="R" D  FULL^VALM1  S IEN=$$S EL(IBTCFLA G) Q:'IEN  S DFLT=$$I SDFLT(IEN, IBTCFLAG)  I DFLT W ! !,"WARNING : This is  the defaul t "_IBDISP _"." D GET DIVS^IBJPS 4(IEN,.DIV S,IBTCFLAG ) I 'DFLT  D .W !!,"T he followi ng divisio ns are cur rently ass ociated wi th this "_ IBDISP_":  " .S I=""  F  S I=$O( DIVS(I)) Q :I=""  W ! ,?5,DIVS(I ) .W:'$D(D IVS) "None ",! W ! .Q  S DIR("?" )="Enter Y es to dele te this "_ IBDISP_"."  S DIR("A" )="Delete  "_IBDISP_"  "_$P($G(^ IBE(350.9, 1,IBNODE,I EN,0)),U,2 ) S DIR(0) ="YO",DIR( "B")="NO"  D ^DIR Q:' Y I DFLT S  DIE="^IBE (350.9,",D A=1,DR=$S( IBTCFLAG:" 11.04",1:" 11.03")_"/ ///@" D ^D IE I $D(DI VS) K DIK  S DIK="^IB E(350.9,1, "_IBNODE_" ,",DA(1)=1 ,I="" F  S  I=$O(DIVS (I)) Q:I=" "  S DA=I  D ^DIK K D IKPRVDEL1  ; N DIK K  DA S DIK=" ^IBE(350.9 ,1,"_IBNOD E_"," S DA (1)=1,DA=I EN D ^DIK  D CLEAN^VA LM10,INIT( IBTCFLAG)  Q ;PRVEDIT (IBTCFLAG)  ; edit ex isting pay -to provid er N IEN,I BNODE S IB NODE=$$NOD E^IBJPS4(I BTCFLAG) S  VALMBCK=" R" D FULL^ VALM1 S IE N=$$SEL(IB TCFLAG) Q: 'IENPRVEDI T1 ; N DIE ,DA,DR,DIR ,DIRUT,DUO UT,DTOUT,X ,Y S DIE=" ^IBE(350.9 ,1,"_IBNOD E_"," S DA =IEN,DA(1) =1 S DR=". 02T;1.01T; 1.02T;1.03 T;1.04T;1. 05T;.04T;. 03T;.05/// @" D ^DIE  ;/IB*2.0*6 08 – vd (U S2599) Cha nged TRICA RE to Non- MCCF. S DI R("?")="En ter Yes to  make this  entry the  default " _$S(IBTCFL AG:"Non-MC CF ",1:"") _"Pay-to P rovider."  S DIR("A") ="Is this  the defaul t "_$S(IBT CFLAG:"Non -MCCF ",1: "")_"Pay-T o Provider " S DIR(0) ="YO" S DI R("B")="YE S" I $$GET DFLT(IBTCF LAG),'$$IS DFLT(IEN,I BTCFLAG) S  DIR("B")= "NO" D ^DI R I Y K DA  S DIE="^I BE(350.9," ,DA=1,DR=$ S(IBTCFLAG :"11.04",1 :"11.03")_ "////"_IEN  D ^DIE D  CLEAN^VALM 10,INIT(IB TCFLAG) Q  ;SET(IBLN, IBSTR) ; a dd a line  to display  list ; re turns line  number ad ded S IBLN =IBLN+1 D  SET^VALM10 (IBLN,IBST R) Q IBLN  ;ISDFLT(PI EN,IBTCFLA G) ; retur ns 1 if pr ovider wit h ien PIEN  is the de fault pay- to provide r, 0 other wise Q:PIE N="" 0 Q $ $GETDFLT(I BTCFLAG)=P IEN ;GETDF LT(IBTCFLA G) ; retur ns ien of  default pa y-to provi der Q $P($ G(^IBE(350 .9,1,11)), U,$S(IBTCF LAG:4,1:3) ) ;SEL(IBT CFLAG) ; s elect pay- to provide r ; return s ien of s elected pa y-to provi der, or 0 
  646   if nothing  is select ed N DIR,I EN,MAX,X,Y  S IEN=0 I  VALMLST>4  D . ; the re is at l east one e ntry . S M AX=$O(@VAL MAR@("ZIDX ",""),-1)  S:MAX=1 Y= 1 . I MAX> 1 D . . ;/ IB*2.0*608  – vd (US2 599) Chang ed TRICARE  to Non-MC CF. . . S  DIR("A")=" Select "_$ S(IBTCFLAG :"Non-MCCF  ",1:"")_" Pay-To Pro vider (1-" _MAX_"): "  . . S DIR (0)="NA^"_ 1_":"_MAX_ ":0" . . D  ^DIR . .  Q . S:+Y>0  IEN=$O(@V ALMAR@("ZI DX",Y,""))  . Q Q +IE N; 
  647    
  648    
  649  
  650  
  651   Changed al l of the d isplay lab els and pr ompts from  “TRICARE”  to “Non-M CCF” in th e routine  IBJPS4:
  652   Routines
  653   Activities
  654   Routine Na me
  655   IBJPS4
  656   Enhancemen t Category
  657    New
  658    Modify
  659    Delete
  660    No Change
  661   RTM
  662  
  663   Related Op tions
  664   None
  665   Related Ro utines
  666   Routines “ Called By”
  667   Routines “ Called”   
  668  
  669  
  670  
  671   Data Dicti onary (DD)  Reference s
  672   None
  673   Related Pr otocols
  674   None
  675   Related In tegration  Control Re gistration s (ICRs)
  676   None
  677   Data Passi ng
  678    Input
  679    Output Re ference
  680    Both
  681    Global Re ference
  682    Local
  683   Input Attr ibute Name  and Defin ition
  684   Name:
  685   Definition :
  686   Output Att ribute Nam e and Defi nition
  687   Name:
  688   Definition :
  689   Current Lo gic
  690   IBJPS4 ;BP /YMG - IB  Site Param eters, Pay -To Provid er Associa tions ;06- Nov-2008 ; ;2.0;INTEG RATED BILL ING;**400, 516**;21-M AR-94;Buil d 123 ;;Pe r VA Direc tive 6402,  this rout ine should  not be mo dified. ;  ; MRD;IB*2 .0*516 - A dded logic  pertainin g to TRICA RE-Specifi c Pay-To ;  Providers , which en tailed add ing the pa rameter IB TCFLAG to  many ; pro cedures he re and in  ^IBJPS3. ; EN(IBTCFLA G) ; -- ma in entry p oint for I BJP IB PAY -TO ASSOCI ATIONS ; s elect pay- to provide r D EN^VAL M("IBJP IB  "_$S(IBTC FLAG:"TRIC ARE PAY-TO  ASSOCS",1 :"PAY-TO A SSOCIATION S")) S VAL MBCK="R" Q  ;HDR ; --  header co de S VALMH DR(1)="" Q  ;INIT(IBT CFLAG) ; - - init var iables and  list arra y N DFLT,H ASDIVS,IBC NT,IBLN,IB STR,IEN4,P IEN,PROVS  S DFLT=$$G ETDFLT^IBJ PS3(IBTCFL AG) D BLD( DFLT,.PROV S,IBTCFLAG ) I $D(PRO VS) D .; c reate list man array  .S (IBCNT, IBLN)=0 S  PIEN="" F   S PIEN=$O (PROVS(PIE N)) Q:PIEN =""  D ..S  IBLN=IBLN +1 ..S IBS TR=$$SETST R^VALM1(PR OVS(PIEN)_ $S($$ISDFL T^IBJPS3(P IEN,IBTCFL AG):" (Def ault)",1:" "),"",2,75 ) ..D SET^ VALM10(IBL N,IBSTR) . .S HASDIVS =0,IEN4=""  F  S IEN4 =$O(PROVS( PIEN,IEN4) ) Q:IEN4=" "  D ...S  IBLN=IBLN+ 1,IBCNT=IB CNT+1 S:'H ASDIVS HAS DIVS=1 ... S IBSTR=$$ SETSTR^VAL M1(IBCNT," ",8,4) ... S IBSTR=$$ SETSTR^VAL M1($P(PROV S(PIEN,IEN 4),U,2),IB STR,14,8)  ...S IBSTR =$$SETSTR^ VALM1($P(P ROVS(PIEN, IEN4),U),I BSTR,24,55 ) ...D SET ^VALM10(IB LN,IBSTR)  ...S @VALM AR@("ZIDX" ,IBCNT,IEN 4)="" ...Q  ..I 'HASD IVS S IBST R=$$SETSTR ^VALM1("No  Divisions  found."," ",8,45) S  IBLN=IBLN+ 1 D SET^VA LM10(IBLN, IBSTR) ..S  IBLN=IBLN +1 D SET^V ALM10(IBLN ,"") ..Q . Q I 'DFLT  S IBLN=$$S ET^IBJPS3( 0,$$SETSTR ^VALM1("No  Default " _$S(IBTCFL AG:"TRICAR E ",1:"")_ "Pay-To Pr ovider fou nd.","",11 ,42)) I DF LT,'$D(PRO VS) S IBLN =$$SET^IBJ PS3(0,$$SE TSTR^VALM1 ("No "_$S( IBTCFLAG:" TRICARE ", 1:"")_"Pay -To Provid ers found. ","",15,35 )) S VALMC NT=IBLN,VA LMBG=1 Q; 
  691    
  692    
  693  
  694    ;DIVADD(I BTCFLAG) ;  associate  division  with a pay -to provid er N DA,DF LT,DIC,DIE ,DIEN,DIR, DNAME,DR,I EN4,IEN19, Y,IBNODE S  IBNODE=$$ NODE(IBTCF LAG) ; D F ULL^VALM1  S VALMBCK= "R" S IEN4 =$$SEL I I EN4>0 D .S  IEN19=$O( ^IBE(350.9 ,1,IBNODE, "B",IEN4," ")) I IEN1 9="" D ..;  create a  new entry  in 350.9 . .S DIEN=$$ FIND1^DIC( 40.8,,"QX" ,IEN4,"AD" ) I 'DIEN  Q ..S DNAM E=$$GET1^D IQ(40.8,DI EN,.01),DF LT=$$GETDF LT^IBJPS3( IBTCFLAG)  I 'DFLT Q  ..I IEN4=+ $G(^IBE(35 0.9,1,IBNO DE,DFLT,0) ) D ERR Q  ..S DIC="^ IBE(350.9, 1,"_IBNODE _",",DIC(0 )="L",DIC( "DR")=".02 ////"_DNAM E_";.05/// /"_DFLT,X= IEN4,DLAYG O=350.9,DA (1)=1 ..K  DD,DO D FI LE^DICN I  +Y>0 S IEN 19=+Y ..K  DIC,DD,DO, DLAYGO ..Q  .I +IEN19 >0 D ..I $ P($G(^IBE( 350.9,1,IB NODE,IEN19 ,0)),U,5)= "" D ERR Q  ..S DIR(0 )="P^IBE(3 50.9,1,"_I BNODE_",:M ",DIR("S") ="I $P(^(0 ),U,5)=""" "" ..S DA( 1)=1,DIR(" A")="Selec t "_$S(IBT CFLAG:"TRI CARE ",1:" ")_"Pay-To  Provider"  ..D ^DIR  ..I +Y>0 S  DIE="^IBE (350.9,1," _IBNODE_", ",DA=IEN19 ,DA(1)=1,D R=".05//// "_+Y D ^DI E .Q D CLE AN^VALM10, CLEAN^DILF ,INIT(IBTC FLAG) Q ;E RR ; N DIR  S DIR("A" ,1)="A div ision used  as a Pay- to Provide r cannot b e associat ed" S DIR( "A",2)="wi th another  Pay-to Pr ovider." S  DIR("A")= "Press RET URN to con tinue: " S  DIR(0)="E A" D ^DIR  Q ;GETPROV (PIEN,IBTC FLAG) ; re turn pay-t o provider  ien for a  given div ision, or  0 if provi der can't  be found ;  PIEN has  to be a va lid ien in  pay-to pr oviders su b-file ; N  PRVZ,NXTP IEN,OUT,IB NODE S PRV Z(PIEN)=""  ; this ar ray holds  ien's to p revent inf inite chai n S IBNODE =$$NODE(IB TCFLAG) S  OUT=0 F  S  NXTPIEN=+ $P($G(^IBE (350.9,1,I BNODE,PIEN ,0)),U,5)  D  Q:OUT   ; .I 'NXTP IEN S OUT= 1 Q  ; no  parent - t his is pay -to provid er .I $D(P RVZ(NXTPIE N)) S PIEN =0,OUT=1 Q   ; we are  in an inf inite loop , so get o ut .S PIEN =NXTPIEN,P RVZ(NXTPIE N)="" ; pa rent exist s, so cont inue the l oop .Q Q P IEN ;GETDI VS(PIEN,DI VS,IBTCFLA G) ; retur n array of  divisions  associate d with pay -to provid er PIEN N  I,DIV,PPRO V,IBNODE S  IBNODE=$$ NODE(IBTCF LAG) S I=" " F  S I=$ O(^IBE(350 .9,1,IBNOD E,"B",I))  Q:I=""  D  .S DIV=$O( ^IBE(350.9 ,1,IBNODE, "B",I,""))  .Q:+DIV'> 0 S PPROV= $$GETPROV( DIV,IBTCFL AG) .I PPR OV=PIEN,DI V'=PIEN S  DIVS(DIV)= $P($G(^IBE (350.9,1,I BNODE,DIV, 0)),U,2) . Q Q ;NODE( IBTCFLAG)  ; Determin e appropri ate pay-to  provide n ode within  ^IBE(350. 9). ; '29'  for TRICA RE, otherw ise '19'.  Q $S(IBTCF LAG:29,1:1 9) ;SCRN4( IEN) ; Scr een for IN STITUTION( #4) file N  DIERR,IEN S,FIELDS,Z ,ZERR S IE NS=+IEN_", ",FIELDS=" 11;13;101"  D GETS^DI Q(4,IENS,F IELDS,"IE" ,"Z","ZERR ") I $D(DI ERR) Q 0 ; Check to s ee if Nati onal I Z(4 ,IENS,11," I")'="N" Q  0 ;Check  to see if  Inactive I  Z(4,IENS, 101,"I") Q  0 ;Check  to see if  Pharmacy I  "^PHARM^C MOP^MSN^"[ (U_Z(4,IEN S,13,"E")_ U) Q 0 ;De fault Q 1  ;TRICARE(I BIFN) ; De termine wh ether this  bill/clai m is TRICA RE or not.  ; Return  '1' if TRI CARE, '0'  if not. Th ere are tw o rate typ es that ;  should ret urn '1': T RICARE and  TRICARE R EIMB. INS.  ; I '$G(I BIFN) Q 0  N IBRATE S  IBRATE=$P (^DGCR(399 ,IBIFN,0), U,7) I 'IB RATE Q 0 I  $P($G(^DG CR(399.3,I BRATE,0)), U)'["TRICA RE" Q 0 ;  ; At this  point, the  claim has  a rate ty pe of TRIC ARE or TRI CARE ; REI MB. INS. H owever, qu it with a  '1' only i f a defaul t TRICARE-  ; specifi c pay-to p rovider is  defined.  Otherwise,  quit with  a '0'. ;  I $$GETDFL T^IBJPS3(1 ) Q 1 Q 0
  695   Modified L ogic (Chan ges are in  bold)
  696   IBJPS4 ;BP /YMG - IB  Site Param eters, Pay -To Provid er Associa tions ;06- Nov-2008 ; ;2.0;INTEG RATED BILL ING;**400, 516,608**; 21-MAR-94; Build 123  ;;Per VA D irective 6 402, this  routine sh ould not b e modified . ; ; MRD; IB*2.0*516  - Added l ogic perta ining to T RICARE-Spe cific Pay- To ; Provi ders, whic h entailed  adding th e paramete r IBTCFLAG  to many ;  procedure s here and  in ^IBJPS 3. ;EN(IBT CFLAG) ; - - main ent ry point f or IBJP IB  PAY-TO AS SOCIATIONS  ; select  pay-to pro vider D EN ^VALM("IBJ P IB "_$S( IBTCFLAG:" TRICARE PA Y-TO ASSOC S",1:"PAY- TO ASSOCIA TIONS")) S  VALMBCK=" R" Q ;HDR  ; -- heade r code S V ALMHDR(1)= "" Q ;INIT (IBTCFLAG)  ; -- init  variables  and list  array N DF LT,HASDIVS ,IBCNT,IBL N,IBSTR,IE N4,PIEN,PR OVS S DFLT =$$GETDFLT ^IBJPS3(IB TCFLAG) D  BLD(DFLT,. PROVS,IBTC FLAG) I $D (PROVS) D  .; create  listman ar ray .S (IB CNT,IBLN)= 0 S PIEN=" " F  S PIE N=$O(PROVS (PIEN)) Q: PIEN=""  D  ..S IBLN= IBLN+1 ..S  IBSTR=$$S ETSTR^VALM 1(PROVS(PI EN)_$S($$I SDFLT^IBJP S3(PIEN,IB TCFLAG):"  (Default)" ,1:""),"", 2,75) ..D  SET^VALM10 (IBLN,IBST R) ..S HAS DIVS=0,IEN 4="" F  S  IEN4=$O(PR OVS(PIEN,I EN4)) Q:IE N4=""  D . ..S IBLN=I BLN+1,IBCN T=IBCNT+1  S:'HASDIVS  HASDIVS=1  ...S IBST R=$$SETSTR ^VALM1(IBC NT,"",8,4)  ...S IBST R=$$SETSTR ^VALM1($P( PROVS(PIEN ,IEN4),U,2 ),IBSTR,14 ,8) ...S I BSTR=$$SET STR^VALM1( $P(PROVS(P IEN,IEN4), U),IBSTR,2 4,55) ...D  SET^VALM1 0(IBLN,IBS TR) ...S @ VALMAR@("Z IDX",IBCNT ,IEN4)=""  ...Q ..I ' HASDIVS S  IBSTR=$$SE TSTR^VALM1 ("No Divis ions found .","",8,45 ) S IBLN=I BLN+1 D SE T^VALM10(I BLN,IBSTR)  ..S IBLN= IBLN+1 D S ET^VALM10( IBLN,"") . .Q .Q I 'D FLT S IBLN =$$SET^IBJ PS3(0,$$SE TSTR^VALM1 ("No Defau lt "_$S(IB TCFLAG:"No n-MCCF ",1 :"")_"Pay- To Provide r found.", "",11,42))  I DFLT,'$ D(PROVS) S  IBLN=$$SE T^IBJPS3(0 ,$$SETSTR^ VALM1("No  "_$S(IBTCF LAG:"Non-M CCF ",1:"" )_"Pay-To  Providers  found.","" ,15,35)) S  VALMCNT=I BLN,VALMBG =1 Q; 
  697    
  698    
  699  
  700    ;DIVADD(I BTCFLAG) ;  associate  division  with a pay -to provid er N DA,DF LT,DIC,DIE ,DIEN,DIR, DNAME,DR,I EN4,IEN19, Y,IBNODE S  IBNODE=$$ NODE(IBTCF LAG) ; D F ULL^VALM1  S VALMBCK= "R" S IEN4 =$$SEL I I EN4>0 D .S  IEN19=$O( ^IBE(350.9 ,1,IBNODE, "B",IEN4," ")) I IEN1 9="" D ..;  create a  new entry  in 350.9 . .S DIEN=$$ FIND1^DIC( 40.8,,"QX" ,IEN4,"AD" ) I 'DIEN  Q ..S DNAM E=$$GET1^D IQ(40.8,DI EN,.01),DF LT=$$GETDF LT^IBJPS3( IBTCFLAG)  I 'DFLT Q  ..I IEN4=+ $G(^IBE(35 0.9,1,IBNO DE,DFLT,0) ) D ERR Q  ..S DIC="^ IBE(350.9, 1,"_IBNODE _",",DIC(0 )="L",DIC( "DR")=".02 ////"_DNAM E_";.05/// /"_DFLT,X= IEN4,DLAYG O=350.9,DA (1)=1 ..K  DD,DO D FI LE^DICN I  +Y>0 S IEN 19=+Y ..K  DIC,DD,DO, DLAYGO ..Q  .I +IEN19 >0 D ..I $ P($G(^IBE( 350.9,1,IB NODE,IEN19 ,0)),U,5)= "" D ERR Q  ..S DIR(0 )="P^IBE(3 50.9,1,"_I BNODE_",:M ",DIR("S") ="I $P(^(0 ),U,5)=""" "" ..S DA( 1)=1,DIR(" A")="Selec t "_$S(IBT CFLAG:"Non -MCCF ",1: "")_"Pay-T o Provider " ..D ^DIR  ..I +Y>0  S DIE="^IB E(350.9,1, "_IBNODE_" ,",DA=IEN1 9,DA(1)=1, DR=".05/// /"_+Y D ^D IE .Q D CL EAN^VALM10 ,CLEAN^DIL F,INIT(IBT CFLAG) Q ; ERR ; N DI R S DIR("A ",1)="A di vision use d as a Pay -to Provid er cannot  be associa ted" S DIR ("A",2)="w ith anothe r Pay-to P rovider."  S DIR("A") ="Press RE TURN to co ntinue: "  S DIR(0)=" EA" D ^DIR  Q ;GETPRO V(PIEN,IBT CFLAG) ; r eturn pay- to provide r ien for  a given di vision, or  0 if prov ider can't  be found  ; PIEN has  to be a v alid ien i n pay-to p roviders s ub-file ;  N PRVZ,NXT PIEN,OUT,I BNODE S PR VZ(PIEN)=" " ; this a rray holds  ien's to  prevent in finite cha in S IBNOD E=$$NODE(I BTCFLAG) S  OUT=0 F   S NXTPIEN= +$P($G(^IB E(350.9,1, IBNODE,PIE N,0)),U,5)  D  Q:OUT   ; .I 'NXT PIEN S OUT =1 Q  ; no  parent -  this is pa y-to provi der .I $D( PRVZ(NXTPI EN)) S PIE N=0,OUT=1  Q  ; we ar e in an in finite loo p, so get  out .S PIE N=NXTPIEN, PRVZ(NXTPI EN)="" ; p arent exis ts, so con tinue the  loop .Q Q  PIEN ;GETD IVS(PIEN,D IVS,IBTCFL AG) ; retu rn array o f division s associat ed with pa y-to provi der PIEN N  I,DIV,PPR OV,IBNODE  S IBNODE=$ $NODE(IBTC FLAG) S I= "" F  S I= $O(^IBE(35 0.9,1,IBNO DE,"B",I))  Q:I=""  D  .S DIV=$O (^IBE(350. 9,1,IBNODE ,"B",I,"") ) .Q:+DIV' >0 S PPROV =$$GETPROV (DIV,IBTCF LAG) .I PP ROV=PIEN,D IV'=PIEN S  DIVS(DIV) =$P($G(^IB E(350.9,1, IBNODE,DIV ,0)),U,2)  .Q Q ;NODE (IBTCFLAG)  ; Determi ne appropr iate pay-t o provide  node withi n ^IBE(350 .9). ; '29 ' for TRIC ARE, other wise '19'.  Q $S(IBTC FLAG:29,1: 19) ;SCRN4 (IEN) ; Sc reen for I NSTITUTION (#4) file  N DIERR,IE NS,FIELDS, Z,ZERR S I ENS=+IEN_" ,",FIELDS= "11;13;101 " D GETS^D IQ(4,IENS, FIELDS,"IE ","Z","ZER R") I $D(D IERR) Q 0  ;Check to  see if Nat ional I Z( 4,IENS,11, "I")'="N"  Q 0 ;Check  to see if  Inactive  I Z(4,IENS ,101,"I")  Q 0 ;Check  to see if  Pharmacy  I "^PHARM^ CMOP^MSN^" [(U_Z(4,IE NS,13,"E") _U) Q 0 ;D efault Q 1  ;TRICARE( IBIFN) ; D etermine w hether thi s bill/cla im is TRIC ARE or not . ; Return  '1' if TR ICARE, '0'  if not. T here are t wo rate ty pes that ;  should re turn '1':  TRICARE an d TRICARE  REIMB. INS . ;  ; Thi s has been  modified  to reflect  Non-MCCF  Claims and  not just  TRICARE. -  IB*2.0*60 8 - vd (US 2599) ; I  '$G(IBIFN)  Q 0 N IBR ATE S IBRA TE=$P(^DGC R(399,IBIF N,0),U,7)  I 'IBRATE  Q 0 ; ;/Be gin IB*2.0 *608 - vd  (US2599) -  Replaced  the follow ing lines  ; I $P($G( ^DGCR(399. 3,IBRATE,0 )),U)'["TR ICARE" Q 0  I '$D(^IB E(350.9,1, 28,”B”,IBR ATE)) Q 0  ; Not a No n-MCCF Pay -to Provid er Rate Ty pe. ;/End  IB*2.0*508  - vd ; ;  At this po int, the c laim has a  Non-MCCF  rate type.   However,
  701    ; quit wi th a '1' o nly if a d efault Non -MCCF-spec ific pay-t o
  702    ; provide r is defin ed. Otherw ise, quit  with a '0' . ; I $$GE TDFLT^IBJP S3(1) Q 1  Q 0
  703  
  704   Created th e routine  IBJPS7 to  handle the  adding an d removing  of Rate T ypes for t he new Lis t Template , "IBJP IB  NON-MCCF  RATE TYPES ”:
  705   Routines
  706   Activities
  707   Routine Na me
  708   IBJPS7
  709   Enhancemen t Category
  710    New
  711    Modify
  712    Delete
  713    No Change
  714   RTM
  715  
  716   Related Op tions
  717   None
  718   Related Ro utines
  719   Routines “ Called By”
  720   Routines “ Called”   
  721  
  722  
  723  
  724   Data Dicti onary (DD)  Reference s
  725   None
  726   Related Pr otocols
  727   None
  728   Related In tegration  Control Re gistration s (ICRs)
  729   None
  730   Data Passi ng
  731    Input
  732    Output Re ference
  733    Both
  734    Global Re ference
  735    Local
  736   Input Attr ibute Name  and Defin ition
  737   Name:
  738   Definition :
  739   Output Att ribute Nam e and Defi nition
  740   Name:
  741   Definition :
  742   Current Lo gic
  743  
  744   N/A
  745  
  746   Modified L ogic (Chan ges are in  bold)
  747   IBJPS7 ;AL B/VD - IB  Site Param eters, Pay -To Provid er Rate Ty pes ;06-No v-2008 ;;2 .0;INTEGRA TED BILLIN G;**608**; 21-MAR-94; Build 123  ;;Per VA D irective 6 402, this  routine sh ould not b e modified . ;EN(IBTC FLAG) ; --  main entr y point fo r IBJP IB  PAY-TO RAT E TYPES ;  select pay -to provid er Q:(IBTC FLAG'=1) ;  Only want  Non-MCCF  Pay-To Pro vider Rate  Types D E N^VALM("IB JP IB NON- MCCF RATE  TYPES") S  VALMBCK="R " Q ;HDR ;  -- header  code S VA LMSG="" Q  ;INIT(IBTC FLAG) ; --  init vari ables and  list array  N ERROR,I BCNT,IBLN, IBSTR,RTYD ATA,RIENS, RTYPE Q:(I BTCFLAG'=1 ) ; Only w ant Non-MC CF Pay-To  Provider R ate Types  ; S (VALMC NT,IBCNT,I BLN)=0 I $ D(^IBE(350 .9,1,28,"B ")) D . S  RTYPE=0 F   S RTYPE=$ O(^IBE(350 .9,1,28,"B ",RTYPE))  Q:'RTYPE   D . . ; .  . S RIENS= RTYPE_","  . . D GETS ^DIQ(399.3 ,RIENS,".0 01;.01;.03 ","I","RTY DATA","ERR OR") . . ;  do not in cluded *RE SERVED cod es (must b e ACTIVATE  = 0 for A ctive, 1 =  InActive)  . . Q:+$G (RTYDATA(3 99.3,RIENS ,.03,"I"))  . . S IBC NT=IBCNT+1  . . S IBS TR=$$SETST R^VALM1($J (IBCNT,4)_ ".","",2,6 ) . . S IB STR=$$SETS TR^VALM1($ J($G(RTYDA TA(399.3,R IENS,.001, "I")),3),I BSTR,10,4)  . . S IBS TR=$$SETST R^VALM1($G (RTYDATA(3 99.3,RIENS ,.01,"I")) ,IBSTR,17, 30) . . S  IBLN=$$SET (IBLN,IBST R) . . S @ VALMAR@("Z IDX",IBCNT ,$G(RTYDAT A(399.3,RI ENS,.001," I")))="" .  . Q ; I ' IBLN S IBL N=$$SET(IB LN,$$SETST R^VALM1("N o Rate Typ es defined .","",13,4 0)) ; S VA LMCNT=IBLN ,VALMBG=1  Q ;HELP ;  -- help co de S X="?"  D DISP^XQ ORM1 W !!  Q ;EXIT ;  -- exit co de D CLEAR ^VALM1,CLE AN^VALM10  Q ;RTADD(I BTCFLAG) ;  -- Add a  new Rate T ype N X,Y, DIE,DR,DIR ,DIRUT,DUO UT,DTOUT,E RRMSG,FDA, RETIEN ; S  VALMBCK=" R" D FULL^ VALM1 D RT ADD1,INIT( IBTCFLAG)  Q ;RTADD1  ; Looping  tag for Ad ding Rate  Types K FD A,RETIEN,E RRMSG,X ;  S DIR(0)=" 350.928,.0 1" S DIR(" A")="Rate  Type" D ^D IR Q:'Y ;  I $D(^IBE( 350.9,1,28 ,"B",+Y))  D  G RTADD 1 . D FULL ^VALM1 . W  @IOF . W  !,"This Ra te Type al ready exis ts on the  Exclusion  list." . W  !,"Please  enter ano ther Rate  Type." . Q  ; S FDA(3 50.928,"+1 ,1,",.01)= +Y D UPDAT E^DIE(""," FDA","RETI EN","ERRMS G") G RTAD D1 ;RTDEL( IBTCFLAG)  ; -- Delet e a Rate T ype N DR D  RTDEL1 S  VALMBCK="R " Q ;RTDEL 1 ; Loopin g tag for  deleting R ate Types  N Z,VALMY  D FULL^VAL M1 D EN^VA LM2($G(XQO RNOD(0)))  S Z=0 F  S  Z=$O(VALM Y(Z)) Q:'Z   D . N DI K,IEN,RIEN  . S IEN=$ O(@VALMAR@ ("ZIDX",Z, "")) . Q:' IEN . S RI EN=$O(^IBE (350.9,1,2 8,"B",IEN, "")) . I + RIEN S DIK ="^IBE(350 .9,1,28,", DA(1)=1,DA =RIEN D ^D IK K @VALM AR D INIT( IBTCFLAG)  Q ;SET(IBL N,IBSTR) ;  -- Add a  line to di splay list  ; returns  line numb er added S  IBLN=IBLN +1 D SET^V ALM10(IBLN ,IBSTR,IBL N) Q IBLN  ;
  748  
  749   3) LIST TE MPLATES:
  750   IBJP IB TR ICARE PAY- TO PROVS ( modified):
  751   List Templ ate
  752   Activities
  753   Name
  754   IBJP IB TR ICARE PAY- TO PROVS
  755   Current De finition:
  756   List Manag er Workben ch         Mar 06, 20 18@14:57:0 7           Page:     1 of    3 
  757   Template:  IBJP IB TR ICARE PAY- TO PROVS
  758                                                                                          
  759     Demograp hics                                          List Reg ion                  
  760    Template  Name: IBJP  IB TRICAR E PAY-TO P ROVS           Top Ma rgin:   2            
  761      Entity  Name: IB T RICARE Pay -To Provid ers         Bottom     "  :  18            
  762     Screen T itle: TRIC ARE Pay-To  Providers              Right     "  :  80                                                                                                    
  763                                                                                          
  764     Protocol  Informati on                                 Other Fi elds                 
  765      Type of  List: PRO TOCOL                                 OK to  Transport ?: OK     
  766     Protocol  Menu: IBJ P IB TRICA RE PAY-TO  PROV          Use Cur sor Contro l: YES    
  767    Print Pro tocol:                               Allowa ble Number  of Action s: 1      
  768       Hidden  Menu: VAL M HIDDEN A CTIONS                     Date  Range Limi t:        
  769                                                             Automat ic Default s: YES                                                                                            
  770                                                                                          
  771   +          Enter ?? f or more ac tions                                              >>>
  772   DE  Demogr aphic Edit       MC   MUMPS Code  Edit        PE  Prot ocol Edit
  773   PI  Protoc ol Informa tion  CE   Caption Ed it           RN  Run  List
  774   LR  List R egion Edit       CL   Change Lis t Template   IT  Inpu t Template
  775   OF  Other  Fields           EA   Edit All                RO  Rout ine Editor
  776   Select Too l:Next Scr een// 
  777  
  778   Modified D efinition  (Changes a re highlig hted):
  779   List Manag er Workben ch         Mar 06, 20 18@15:01:3 7           Page:     1 of    3 
  780   Template:  IBJP IB TR ICARE PAY- TO PROVS
  781                                                                                          
  782     Demograp hics                                          List Reg ion                  
  783    Template  Name: IBJP  IB TRICAR E PAY-TO P ROVS           Top Ma rgin:   2            
  784      Entity  Name: IB N on-MCCF Pa y-To Provi ders        Bottom     "  :  18            
  785     Screen T itle: Non- MCCF Pay-T o Provider s            Right     "  :  80                                                                                                    
  786                                                                                          
  787     Protocol  Informati on                                 Other Fi elds                 
  788      Type of  List: PRO TOCOL                                 OK to  Transport ?: OK     
  789     Protocol  Menu: IBJ P IB NON-M CCF PAY-TO  PRO          Use Cur sor Contro l: YES    
  790    Print Pro tocol:                               Allowa ble Number  of Action s: 1      
  791       Hidden  Menu: VAL M HIDDEN A CTIONS                     Date  Range Limi t:        
  792                                                             Automat ic Default s: YES                                                                                            
  793                                                                                          
  794   +          Enter ?? f or more ac tions                                              >>>
  795   DE  Demogr aphic Edit       MC   MUMPS Code  Edit        PE  Prot ocol Edit
  796   PI  Protoc ol Informa tion  CE   Caption Ed it           RN  Run  List
  797   LR  List R egion Edit       CL   Change Lis t Template   IT  Inpu t Template
  798   OF  Other  Fields           EA   Edit All                RO  Rout ine Editor
  799   Select Too l:Next Scr een// 
  800  
  801  
  802   IBJP IB NO N-MCCF RAT E TYPES (n ew):
  803   List Templ ate
  804   Activities
  805   Name
  806   IBJP IB NO N-MCCF RAT E TYPES
  807   Current De finition:
  808  
  809   N/A
  810   Modified D efinition  (Changes a re highlig hted):
  811   List Manag er Workben ch         Mar 06, 20 18@15:06:3 8           Page:     1 of    3 
  812   Template:  IBJP IB NO N-MCCF RAT E TYPES
  813                                                                                          
  814     Demograp hics                                          List Reg ion                  
  815    Template  Name: IBJP  IB NON-MC CF RATE TY PES            Top Ma rgin:   4            
  816      Entity  Name: Non- MCCF Rate  Types                  Bottom     "  :  19            
  817     Screen T itle: Non- MCCF Rate  Types                   Right     "  :  80                                                                                                    
  818                                                                                          
  819     Protocol  Informati on                                 Other Fi elds                 
  820      Type of  List: PRO TOCOL                                 OK to  Transport ?: OK     
  821     Protocol  Menu: IBJ P IB NON-M CCF RATE T YPES          Use Cur sor Contro l: YES    
  822    Print Pro tocol:                               Allowa ble Number  of Action s: 1      
  823       Hidden  Menu: VAL M HIDDEN A CTIONS                     Date  Range Limi t:        
  824                                                             Automat ic Default s: YES                                                                                            
  825                                                                                          
  826   +          Enter ?? f or more ac tions                                              >>>
  827   DE  Demogr aphic Edit       MC   MUMPS Code  Edit        PE  Prot ocol Edit
  828   PI  Protoc ol Informa tion  CE   Caption Ed it           RN  Run  List
  829   LR  List R egion Edit       CL   Change Lis t Template   IT  Inpu t Template
  830   OF  Other  Fields           EA   Edit All                RO  Rout ine Editor
  831   Select Too l:Next Scr een// 
  832  
  833  
  834   List Manag er Workben ch         Mar 06, 20 18@15:09:5 1           Page:     2 of    3 
  835   Template:  IBJP IB NO N-MCCF RAT E TYPES
  836   +                                                                                      
  837                                                                                          
  838     MUMPS Co de Related                                                                  
  839    Header: D  HDR^IBJPS 7                                                                
  840     Entry: D  INIT^IBJP S7(1)                                                            
  841      Exit: D  EXIT^IBJP S7                                                               
  842    Expand:                                                                               
  843      Help: D  HELP^IBJP S7                                                               
  844     Array:   ^TMP("IBJP S7",$J)                                                          
  845                                                                                          
  846     Caption  Line Infor mation                                                           
  847    Name       Column     Width      Display T ext                    Video  Sc roll Lock 
  848    NBR          5          1        #                                       NO           
  849    RTYP        10          3        RTY                                     NO           
  850    DESCR       17         30        DESCRIPTI ON                            NO           
  851   +          Enter ?? f or more ac tions                                              >>>
  852   DE  Demogr aphic Edit       MC   MUMPS Code  Edit        PE  Prot ocol Edit
  853   PI  Protoc ol Informa tion  CE   Caption Ed it           RN  Run  List
  854   LR  List R egion Edit       CL   Change Lis t Template   IT  Inpu t Template
  855   OF  Other  Fields           EA   Edit All                RO  Rout ine Editor
  856   Select Too l:Next Scr een// 
  857  
  858  
  859   4) PROTOCO L:
  860   IBJP IB NO N-MCCF RAT E TYPE ADD  (new):
  861   Protocol
  862   Activities
  863   Name
  864   IBJP IB NO N-MCCF RAT E TYPE ADD
  865   Current De finition:
  866  
  867   N/A
  868   Modified D efinition  (Changes a re highlig hted):
  869   NAME: IBJP  IB NON-MC CF RATE TY PE ADD     ITEM TEXT:  Add Rate  Type
  870       TYPE: acti on                              CREATOR:  P I
I
  871     PACKAGE:  INTEGRATE D BILLING             IDENTIFIER : AR
  872     ENTRY AC TION: D RT ADD^IBJPS7 (1)        TIMESTAMP:  64692,553 44
  873  
  874  
  875   IBJP IB NO N-MCCF RAT E TYPE DEL  (new):
  876   Protocol
  877   Activities
  878   Name
  879   IBJP IB NO N-MCCF RAT E TYPE DEL
  880   Current De finition:
  881  
  882   N/A
  883   Modified D efinition  (Changes a re highlig hted):
  884   NAME: IBJP  IB NON-MC CF RATE TY PE DEL     ITEM TEXT:  Remove Ra te Type
  885       TYPE: acti on                              CREATOR:  P I
I
  886     PACKAGE:  INTEGRATE D BILLING             IDENTIFIER : RR
  887     ENTRY AC TION: D RT DEL^IBJPS7 (1)        TIMESTAMP:  64692,553 85
  888  
  889  
  890   IBJP IB NO N-MCCF RAT E TYPES (n ew):
  891   Protocol
  892   Activities
  893   Name
  894   IBJP IB NO N-MCCF RAT E TYPES
  895   Current De finition:
  896  
  897   N/A
  898   Modified D efinition  (Changes a re highlig hted):
  899   NAME: IBJP  IB NON-MC CF RATE TY PES        ITEM TEXT:  Rate Type s
  900       TYPE: acti on                              CREATOR:  P I
I
  901     PACKAGE:  INTEGRATE D BILLING             IDENTIFIER : RT
  902     ENTRY AC TION: D EN ^IBJPS7(1)            TIMESTAMP:  64701,430 38
  903  
  904  
  905   IBJP IB NO N-MCCF RAT E TYPES ME NU (new):
  906   Protocol
  907   Activities
  908   Name
  909   IBJP IB NO N-MCCF RAT E TYPES ME NU
  910   Current De finition:
  911  
  912   N/A
  913   Modified D efinition  (Changes a re highlig hted):
  914   NAME: IBJP  IB NON-MC CF RATE TY PES MENU   ITEM TEXT:  Non-MCCF  Rate Types  Menu
  915       TYPE: menu                                 CREATOR:  P I
I
  916     PACKAGE:  INTEGRATE D BILLING             COLUMN WID TH: 26
  917     MNEMONIC  WIDTH: 4                        IDENTIFIER : RM
  918   ITEM: IBJP  IB NON-MC CF RATE TY PE ADD     MNEMONIC:  AR
  919     SEQUENCE : 2
  920   ITEM: IBJP  IB NON-MC CF RATE TY PE DEL     MNEMONIC:  RR
  921     SEQUENCE : 5
  922     HEADER:  D SHOW^VAL M                     TIMESTAMP:  64692,554 30
  923  
  924  
  925   IBJP IB NO N-MCCF PAY -TO PROVID ERS MENU ( new):
  926   Protocol
  927   Activities
  928   Name
  929   IBJP IB NO N-MCCF PAY -TO PROVID ERS MENU
  930   Current De finition:
  931  
  932   N/A
  933   Modified D efinition  (Changes a re highlig hted):
  934   NAME: IBJP  IB NON-MC CF PAY-TO  PROVIDERS  MENU
  935     ITEM TEX T: Non-MCC F Pay-To P roviders M enu
  936       TYPE: menu                                 CREATOR:  P I
I
  937     PACKAGE:  INTEGRATE D BILLING             COLUMN WID TH: 26
  938     MNEMONIC  WIDTH: 4
  939   ITEM: IBJP  IB TRICAR E PAY-TO P ROVIDER AD D
  940     MNEMONIC : AP                             SEQUENCE:  2
  941   ITEM: IBJP  IB TRICAR E PAY-TO P ROVIDER DE L
  942     MNEMONIC : DP                             SEQUENCE:  6
  943   ITEM: IBJP  IB TRICAR E PAY-TO P ROVIDER ED IT
  944     MNEMONIC : EP                             SEQUENCE:  4
  945   ITEM: IBJP  IB TRICAR E PAY-TO P ROVIDER DI VISIONS
  946     MNEMONIC : AS                             SEQUENCE:  8
  947   ITEM: IBJP  IB NON-MC CF RATE TY PES        MNEMONIC:  RT
  948     SEQUENCE : 10
  949     SCREEN:  I $D(^XUSE C("IB EDIT  PAY-TO TC ",DUZ))
  950     HEADER:  D SHOW^VAL M                     TIMESTAMP:  64707,348 19
  951  
  952  
  953   IBJP IB TR ICARE PAY- TO PROVIDE RS MENU (d eleted):
  954   Protocol
  955   Activities
  956   Name
  957   IBJP IB TR ICARE PAY- TO PROVIDE RS MENU
  958   Current De finition:
  959   NAME: IBJP  IB TRICAR E PAY-TO P ROVIDERS M ENU
  960     ITEM TEX T: TRICARE  Pay-To Pr oviders Me nu
  961       TYPE: menu                                 CREATOR:  PI I
  962     PACKAGE:  INTEGRATE D BILLING
  963     COLUMN W IDTH: 26                         MNEMONIC W IDTH: 4
  964   ITEM: IBJP  IB TRICAR E PAY-TO P ROVIDER AD D
  965     MNEMONIC : AP                             SEQUENCE:  2
  966   ITEM: IBJP  IB TRICAR E PAY-TO P ROVIDER DE L
  967     MNEMONIC : DP                             SEQUENCE:  6
  968   ITEM: IBJP  IB TRICAR E PAY-TO P ROVIDER ED IT
  969     MNEMONIC : EP                             SEQUENCE:  4
  970   ITEM: IBJP  IB TRICAR E PAY-TO P ROVIDER DI VISIONS
  971     MNEMONIC : AS                             SEQUENCE:  8
  972     SCREEN:  I $D(^XUSE C("IB EDIT  PAY-TO TC ",DUZ))
  973     HEADER:  D SHOW^VAL M                     TIMESTAMP:  63699,491 21
  974  
  975   Modified D efinition  (Changes a re highlig hted):
  976  
  977   Deleted
  978