10. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/11/2018 8:57:46 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.

10.1 Files compared

# Location File Last Modified
1 OSCIF MCCF EDI TAS_Sept2018.zip TAS+eBill+SDD+US1909+v2.00.docx Fri Jun 29 19:48:00 2018 UTC
2 OSCIF MCCF EDI TAS_Sept2018.zip TAS+eBill+SDD+US1909+v2.00.docx Mon Sep 10 18:26:02 2018 UTC

10.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 5 546
Changed 4 8
Inserted 0 0
Removed 0 0

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

10.4 Active regular expressions

No regular expressions were active.

10.5 Comparison detail

  1   MCCF EDI T AS US1909
  2   System Des ign Docume nt
  3   IB*2.0*608
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   January 20 18
  10   Version 2. 0
  11  
  12   User Story  Number: U S1909
  13   User Story  Name: Rem ove Abilit y to Defin e Insuranc e Company  as non EDI  (TSEB-2)
  14   Design/Res olution:
  15   To Remove  the abilit y to set I nsurance C ompany as  a non EDI  and send a  one-time  report of  all insura nce compan ies that h ave the tr ansmit ele ctronicall y field se t as NO en tails the  following:
  16   To update  the Insura nce file [ #36]; fiel d TRANSMIT  ELECTRONI CALLY (3.0 1):
  17   Modify the  field to  be “Requir ed”. 
  18   Remove the  option of  “0” (NO)  from the l ist of opt ions, leav e just opt ions “1” ( YES-LIVE)  and “2” (Y ES-TEST).
  19   Modify the  Help Prom pt to be:  “Enter 1 t o bill ele ctronicall y; 2 to on ly transmi t for test ing.”
  20   Modify the  Descripti on to be “ This field  determine s whether  an electro nic claim  to this in surance co mpany is s ent as a t est or a p roduction  claim.
  21   File
  22   Activities
  23   File Name
  24   Insurance  #36
  25   Enhancemen t Category
  26    New
  27    Modify
  28    Delete
  29    No Change
  30   RTM
  31  
  32   Related Op tions
  33   None
  34   Related Ro utines
  35   Routines “ Called By”
  36   Routines “ Called”   
  37  
  38  
  39  
  40  
  41   Data Dicti onary (DD)  Reference s
  42   #36, 3.01
  43  
  44   File Modif ications f or Field # 36,3.01
  45  
  46   FILEMAN VI EW BEFORE:
  47   STANDARD D ATA DICTIO NARY #36 - - INSURANC E COMPANY  FILE       1/16/18     PAGE 1
  48   STORED IN  ^DIC(36,    (1558 ENTR IES)     SITE: 
D NS  UCI: VIST A,ROU                                            (VERSION 2 .0)    
  49  
  50   DATA           NAME                    GLOB AL         DATA
  51   ELEMENT        TITLE                   LOCA TION       TYPE
  52   ---------- ---------- ---------- ---------- ---------- ---------- ----------
  53   36,3.01        TRANSM IT ELECTRO NICALLY 3; 1 SET
  54                                      '0' FOR  NO; 
  55                                      '1' FOR  YES-LIVE; 
  56                                      '2' FOR  YES-TEST; 
  57                  INPUT  TRANSFORM:   K:'$$EDI KEY^IBCNSC  X
  58                  LAST E DITED:       FEB 03,  2006 
  59                  HELP-P ROMPT:       Enter 1  to bill el ectronical ly; 0 to
  60                                      print bi lls for th is insuran ce co; 2
  61                                      to only  transmit f or testing
  62    
  63                  DESCRI PTION:       This is  the flag t hat says w hether or
  64                                      not an i nsurance c ompany is  ready to
  65                                      be bille d electron ically via  837/EDI
  66                                      function s.  
  67  
  68                  NOTES:              XXXX--CA N'T BE ALT ERED EXCEP T BY
  69                                      PROGRAMM ER
  70  
  71  
  72   GLOBAL VIE W BEFORE:
  73   Global ^DD (36,3.01
  74   ^DD(36,3.0 1,0)="TRAN SMIT ELECT RONICALLY^ SX^0:NO;1: YES-LIVE;2 :YES-TEST; ^3;1^K:'$$ EDIKEY^IBC NSC X"
  75                3)="Ente r 1 to bil l electron ically; 0  to print b ills for t his insura nce co; 2  to only tr ansmit for  testing"
  76   ^DD(36,3.0 1,21,0)="^ ^2^2^29908 25^^^^"
  77   ^DD(36,3.0 1,21,1,0)= "This is t he flag th at says wh ether or n ot an insu rance comp any is rea dy"
  78   ^DD(36,3.0 1,21,2,0)= "to be bil led electr onically v ia 837/EDI  functions ."
  79   ^DD(36,3.0 1,"DT")=30 60203
  80  
  81  
  82  
  83   File Modif ications f or Field # 36,3.01
  84  
  85   FILEMAN VI EW AFTER:
  86   STANDARD D ATA DICTIO NARY #36 - - INSURANC E COMPANY  FILE       1/16/18     PAGE 1
  87   STORED IN  ^DIC(36,    (1557 ENTR IES)     SITE: 
D NS  UCI: VIST A,ROU                                            (VERSION 2 .0)    
  88  
  89   DATA           NAME                    GLOB AL         DATA
  90   ELEMENT        TITLE                   LOCA TION       TYPE
  91   ---------- ---------- ---------- ---------- ---------- ---------- ----------
  92   36,3.01        TRANSM IT ELECTRO NICALLY 3; 1 SET (Req uired)
  93                                      '1' FOR  YES-LIVE; 
  94                                      '2' FOR  YES-TEST; 
  95                  INPUT  TRANSFORM:   K:'$$EDI KEY^IBCNSC  X
  96                  LAST E DITED:       JAN 16,  2018 
  97                  HELP-P ROMPT:       Enter 1  to bill el ectronical ly; 2 to
  98                                      only tra nsmit for  testing
  99    
  100                  DESCRI PTION:       This fie ld determi nes whethe r an
  101                                      electron ic claim t o this ins urance
  102                                      company  is sent as  a test or  a
  103                                      producti on claim.   
  104  
  105                  NOTES:              XXXX--CA N'T BE ALT ERED EXCEP T BY
  106                                      PROGRAMM ER
  107  
  108  
  109   GLOBAL VIE W AFTER:
  110   Global ^DD (36,3.01
  111   ^DD(36,3.0 1,0)="TRAN SMIT ELECT RONICALLY^ RSX^1:YES- LIVE;2:YES -TEST;^3;1 ^K:'$$EDIK EY^IBCNSC  X"
  112                3)="Ente r 1 to bil l electron ically; 2  to only tr ansmit for  testing"
  113   ^DD(36,3.0 1,21,0)="^ .001^2^2^3 171211^^^^ "
  114   ^DD(36,3.0 1,21,1,0)= "This fiel d determin es whether  an electr onic claim  to this i nsurance "
  115   ^DD(36,3.0 1,21,2,0)= "company i s sent as  a test or  a producti on claim."
  116   ^DD(36,3.0 1,"DT")=31 80116
  117  
  118  
  119   Create a o ne-time re port that  shows all  Insurance  Companies  that have  the [#36,3 .01] field  set to a  NULL or “0 ” (NO):
  120   Include th e one-time  report as  part of I BY608PO Po st Install  Routine.
  121   The report  should li st the fol lowing dat a elements :
  122   Insurance  Company Na me
  123   Address
  124   Inactive F lag
  125   EDI-Transm it value
  126   The routin e will sen d the repo rt to the  eBiz Rapid  Response  group:  PII
  127   Routines
  128   Activities
  129   Routine Na me
  130   IBY608PO
  131   Enhancemen t Category
  132    New
  133    Modify
  134    Delete
  135    No Change
  136   RTM
  137  
  138   Related Op tions
  139   None
  140   Related Ro utines
  141   Routines “ Called By”
  142   Routines “ Called”   
  143  
  144  
  145  
  146  
  147   Data Dicti onary (DD)  Reference s
  148   None
  149   Related Pr otocols
  150   None
  151   Related In tegration  Control Re gistration s (ICRs)
  152   None
  153   Data Passi ng
  154    Input
  155    Output Re ference
  156    Both
  157    Global Re ference
  158    Local
  159   Input Attr ibute Name  and Defin ition
  160   Name:
  161   Definition :
  162   Output Att ribute Nam e and Defi nition
  163   Name:
  164   Definition :
  165   Current Lo gic
  166   N/A
  167   Modified L ogic (Chan ges are in  bold)
  168   IBY608PO ; ALB/KDM -  POST-INSTA LL FOR IB* 2.0*608 ;1 3-DEC-2017  ;;2.0;INT EGRATED BI LLING;**57 7**;21-MAR -94;Build  5 ;;Per VA  Directive  6402, thi s routine  should not  be modifi ed. ; ;KDM  12/2017 U S1909    ; run repo rt of all  insurance  companies  that have  the curren t setting  for Transm it Electro nically se t to zero-  which is  NO ; send  email of r eport to e Biz rapid  response g roup N IBA ,RNAME S R NAME="IBY6 08PO" K ^T MP(RNAME)  S IBA(2)=" IB*2*608 P ost-Instal l...",(IBA (1),IBA(3) )=" " D ME S^XPDUTL(. IBA) K IBA  D MES^XPD UTL(">> Ru nning Insu rance Comp any EDI Pa rameter Re port...ple ase stand  by....") D  RPT D MES ^XPDUTL("> > Report C ompleted." ) D:$$PROD ^XUPROD(1)  EMAIL       ;LIVE D EM AIL       ;TESTING    S IBA(2)=" IB*2*608 P ost-Instal l Complete .",(IBA(1) ,IBA(3))="  " D MES^X PDUTL(.IBA ) K IBA Q  ;RPT ; Get  all Insur ance compa nies that  have the 3 .01- trans mit electr onically f ield blank  or set to  No. ;N IB ADDRESS,IB CITY,IBNAM E,IBPIEN,I BSTATE,STA TE,TRANSCD ,TRANSMIT  N IBADDRES S,IBCITY,I BNAME,IBPI EN,IBSTATE ,INACTFLG, STATE,TRAN SMIT S IBN AME="" F    S IBNAME=$ O(^DIC(36, "B",IBNAME )) Q:IBNAM E=""    D . S IBPI EN=0 . F    S IBPIEN=$ O(^DIC(36, "B",IBNAME ,IBPIEN))  Q:'+IBPIEN     D . . S TR ANSMIT=$$G ET1^DIQ(36 ,IBPIEN,3. 01,"I")    . . Q:+TRA NSMIT    ;Only want  to report  the insur ance compa nies that  have a set ting of 0  or NULL .  . S (IBADD RESS,IBCIT Y,IBSTATE, INACTFLG,S TATE)="" .  . S IBADD RESS=$$GET 1^DIQ(36,I BPIEN,.111 ) . . S IB CITY=$$GET 1^DIQ(36,I BPIEN,.114 ) . . S IB STATE=$$GE T1^DIQ(36, IBPIEN,.11 5,"I") . .  I +IBSTAT E S STATE= $$GET1^DIQ (5,+IBSTAT E,1) . . S  INACTFLG= $$GET1^DIQ (36,IBPIEN ,.05) . .  I INACTFLG ="" S INAC TFLG="" .  . S ^TMP(R NAME,$J,IB NAME,IBPIE N)=IBADDRE SS_U_IBCIT Y_U_STATE_ U_INACTFLG _U_$S(TRAN SMIT="":"" ,1:"NO") Q  ;EMAIL ;  Send an em ail messag e to eBiz  Rapid Resp onse group  with the  report. N  ADDRESS,CI TY,DATA,FU LLADD,IBNA ME,IBNAMEX ,IBPIEN,IN ACTFLG,LN, MSG N SPAC ES,SITE,SI TENAME,SIT ENO,STATE, STATION,SU BJ,TOTAL,T RANS,TRANS CD,XMINSTR ,XMTO D BM ES^XPDUTL( ">> Sendin g Email... ") D MES^X PDUTL("--- ---------- ") D MES^X PDUTL("Sen ding email  notificat ion to eBi z Rapid re sponse gro up ... ")  ;S SPACES= $J(" ",100 ) S $P(SPA CES,"_",10 0)="_" S S ITE=$$SITE ^VASITE,SI TENAME=$P( SITE,U,2), SITENO=$P( SITE,U,1), STATION=$P (SITE,U,3)  S SUBJ="P ATCH IB*2. 0*608 - In surance Co mpany EDI  Report"_"  for Statio n# "_$P(SI TE,U,3)_"  - "_$P(SIT E,U,2) S S UBJ=$E(SUB J,1,65) S  MSG(1)="PA TCH IB*2.0 *608 - Ins urance Com pany EDI P arameter R eport" S M SG(2)="" S  MSG(3)="S ite: "_SIT ENO_" "_SI TENAME_" -  Station " _STATION S  MSG(4)="D omain: "_$ G(^XMB("NE TNAME")) S  MSG(5)="D ate/Time:  "_$$FMTE^X LFDT($$NOW ^XLFDT) S  MSG(6)=""  S MSG(7)=" INSURANCE  COMPANY___ __________ _____ADDRE SS________ __________ __________ __________ __________ __________ INACTIVE__ __EDI-TRAN SMIT" S MS G(8)="==== ========== ========== ========== ========== ========== ========== ========== ========== ========== ========== ========== ========== " S MSG(9) ="" S LN=1 0,IBNAME=" ",TOTAL=0    S IBNAME=$ O(^TMP(RNA ME,$J,IBNA ME)) Q:IBN AME=""    D . S IBPI EN="" . F    S IBPIEN=$ O(^TMP(RNA ME,$J,IBNA ME,IBPIEN) ) Q:IBPIEN =""    D . . S DA TA=^TMP(RN AME,$J,IBN AME,IBPIEN ) . . S IB NAMEX=$$UN SPACE($E(I BNAME,1,30 )) . . S A DDRESS=$$U NSPACE($E( $P(DATA,U, 1),1,30)), CITY=$$UNS PACE($E($P (DATA,U,2) ,1,25)),ST ATE=$$UNSP ACE($P(DAT A,U,3)) .  . S FULLAD D=ADDRESS_ ", "_CITY_ ", "_STATE  . . I '$L (ADDRESS), '$L(CITY), '$L(STATE)  S FULLADD ="" . . S  INACTFLG=$ P(DATA,U,4 ) . . S TR ANS=$P(DAT A,U,5) . .  S LN=LN+1 ,MSG(LN)=I BNAMEX_$E( SPACES,1,3 5-$L(IBNAM EX))_FULLA DD_$E(SPAC ES,1,68-$L (FULLADD))  . . S MSG (LN)=MSG(L N)_INACTFL G_$E(SPACE S,1,15-$L( INACTFLG)) _TRANS . .  S TOTAL=T OTAL+1 S L N=LN+1,MSG (LN)="" S  LN=LN+1,MS G(LN)="Tot al: "_+TOT AL S LN=LN +1,MSG(LN) ="" S LN=L N+1,MSG(LN )="End of  Report" ;  S XMTO(" PII ")="" ; S  XMINSTR("F ROM")="Vis tA-eBillin g" D SENDM SG^XMXAPI( DUZ,SUBJ," MSG",.XMTO ,.XMINSTR)  ;EMAILX ;  D MES^XPD UTL(" Done .") D CLEA N^DILF Q ; UNSPACE(FL DX) ; Elim inate spac es at the  end of the  field. N  I F    S I=$L(FLD X) Q:($E(F LDX,I)'="  ") I $E(FL DX,I)=" "  S FLDX=$E( FLDX,1,I-1 ) Q FLDX ;
  169  
  170   The Input  Template   IBEDIT INS  CO1 for t he INSURAN CE COMPANY  (#36) fil e needs to  be modifi ed so that  the EDI-T ransmit fi eld will o nly allow  the user t o enter ei ther a “1”  or “2” as  possible  options fo r this fie ld.  Also,  the user  should not  be able t o Delete t he value o f this fie ld.
  171   Templates
  172   Instructio ns
  173   Template N ame
  174   IBEDIT INS  CO1
  175   Enhancemen t Category
  176    New
  177    Modify
  178    Delete
  179    No Change
  180   Template T ype
  181   INPUT
  182   Related Op tions
  183   Insurance  Company En try/Edit    [IBCN INS URANCE CO  EDIT]
  184   Related Ro utines
  185   IBCNSC01
  186   Data Dicti onary (DD)  Reference s
  187   INSURANCE  COMPANY FI LE [#36]
  188   Current Lo gic
  189    
  190    
  191  
  192   @16
  193   I '$$KCHK^ XUSRB("IB  EDI INSURA NCE EDIT")  S Y="@171 "
  194   TRANSMIT E LECTRONICA LLY;"EDI -  Transmit? "
  195   S DIPA("IB TX")=X
  196   I X=$G(IBE DIKEY(1))! $$KCHK^XUS RB("IB EDI  INSURANCE  EDIT") S  Y="@1721"
  197   TRANSMIT E LECTRONICA LLY////^S  X=$G(IBEDI KEY(1))
  198   I $$EDIKEY ^IBCNSC()
  199   S Y="@171"
  200   @1721
  201    
  202    
  203  
  204  
  205   Modified L ogic (Chan ges are in  bold)
  206    
  207    
  208  
  209   @16
  210   I '$$KCHK^ XUSRB("IB  EDI INSURA NCE EDIT")  S Y="@171 "
  211   S DIE("NO^ ")="OUTOK"
  212   TRANSMIT E LECTRONICA LLY;"EDI -  Transmit? "
  213   I '+X S Y= "@16"
  214   S DIPA("IB TX")=X
  215   K DIE("NO^ ")
  216   I X=$G(IBE DIKEY(1))! $$KCHK^XUS RB("IB EDI  INSURANCE  EDIT") S  Y="@1721"
  217   TRANSMIT E LECTRONICA LLY////^S  X=$G(IBEDI KEY(1))
  218   I $$EDIKEY ^IBCNSC()
  219   S Y="@171"
  220   @1721 
  221    
  222    
  223  
  224  
  225  
  226   Modify the  IBCNSC01  routine to  properly  display th e value of  NULL for  the EDI-Tr ansmit fie ld on the  Insurance  Company En try/Edit [ IBCN INSUR ANCE CO ED IT] option .
  227   Routines
  228   Activities
  229   Routine Na me
  230   IBCNSC01
  231   Enhancemen t Category
  232    New
  233    Modify
  234    Delete
  235    No Change
  236   RTM
  237  
  238   Related Op tions
  239   None
  240   Related Ro utines
  241   Routines “ Called By”
  242   Routines “ Called”   
  243  
  244  
  245  
  246  
  247   Data Dicti onary (DD)  Reference s
  248   None
  249   Related Pr otocols
  250   None
  251   Related In tegration  Control Re gistration s (ICRs)
  252   None
  253   Data Passi ng
  254    Input
  255    Output Re ference
  256    Both
  257    Global Re ference
  258    Local
  259   Input Attr ibute Name  and Defin ition
  260   Name:
  261   Definition :
  262   Output Att ribute Nam e and Defi nition
  263   Name:
  264   Definition :
  265   Current Lo gic
  266   IBCNSC01 ; ALB/NLR -  INSURANCE  COMPANY ED IT ;6/1/05  10:06am ; ;2.0;INTEG RATED BILL ING;**52,1 37,191,184 ,232,320,3 49,371,399 ,416,432,4 94,519,547 ,592**;21- MAR-94;Bui ld 25 ;;Pe r VA Direc tive 6402,  this rout ine should  not be mo dified. ;P ARAM ; --  Insurance  company pa rameters r egion N OF FSET,START ,IBCNS0,IB CNS03,IBCN S06,IBCNS0 8,IBCNS13, IBCNS3,IBH PD S IBCNS 0=$G(^DIC( 36,+IBCNS, 0)),IBCNS3 =$G(^(3))  S IBCNS03= $P(IBCNS0, "^",3),IBC NS06=$P(IB CNS0,"^",6 ),IBCNS08= $P(IBCNS0, "^",8) S I BCNS13=$G( ^DIC(36,+I BCNS,.13))  S START=1 ,OFFSET=2  D SET^IBCN SP(START,O FFSET+25,"  Billing P arameters  ",IORVON,I ORVOFF) ;  D SET^IBCN SP(START+1 ,OFFSET+1, "Signature  Required? : "_$S(+IB CNS03:"YES ",1:"NO"))  D SET^IBC NSP(START+ 2,OFFSET+1 0,"Reimbur se?: "_$E( $$EXPAND^I BTRE(36,1, $P(IBCNS0, "^",2)),1, 21)) D SET ^IBCNSP(ST ART+3,OFFS ET+3,"Mult . Bedsecti ons: "_$S( +IBCNS06:" YES",IBCNS 06=0:"NO", 1:"")) D S ET^IBCNSP( START+4,OF FSET+6,"On e Opt. Vis it: "_$S(+ IBCNS08:"Y ES",1:"NO" )) D SET^I BCNSP(STAR T+5,OFFSET +4,"Diff.  Rev. Codes : "_$P(IBC NS0,"^",7) ) D SET^IB CNSP(START +6,OFFSET+ 1,"Amb. Su r. Rev. Co de: "_$P(I BCNS0,"^", 9)) D SET^ IBCNSP(STA RT+7,OFFSE T+1,"Rx Re fill Rev.  Code: "_$P (IBCNS0,"^ ",15)) D S ET^IBCNSP( START+8,OF FSET+3,"Fi ling Time  Frame: "_$ P(IBCNS0," ^",12)_$S( +$P(IBCNS0 ,"^",18):"  ("_$$FTFN ^IBCNSU31( ,+IBCNS)_" )",1:""))  ; S OFFSET =45 D SET^ IBCNSP(STA RT+1,OFFSE T+4,"Type  Of Coverag e: "_$$EXP AND^IBTRE( 36,.13,+$P (IBCNS0,U, 13))) D SE T^IBCNSP(S TART+2,OFF SET+7,"Bil ling Phone : "_$P(IBC NS13,"^",2 )) D SET^I BCNSP(STAR T+3,OFFSET +2,"Verifi cation Pho ne: "_$P(I BCNS13,"^" ,4)) D SET ^IBCNSP(ST ART+4,OFFS ET+2,"Prec ert Comp.  Name: "_$P ($G(^DIC(3 6,+$P(IBCN S13,"^",9) ,0)),"^",1 )) D SET^I BCNSP(STAR T+5,OFFSET +7,"Precer t Phone: " _$$PHONE(I BCNS13)) I  +IBCNS3=2  D SET^IBC NSP(START+ 6,OFFSET," Max # Test  Bills/Day : "_$P(IBC NS3,U,6))  ; S START= 11,OFFSET= 2 D SET^IB CNSP(START ,OFFSET+28 ," EDI Par ameters ", IORVON,IOR VOFF) D SE T^IBCNSP(S TART+1,OFF SET+13,"Tr ansmit?: " _$S(+IBCNS 3=1:"YES-L IVE",+IBCN S3=2:"TEST  ONLY",1:" NO")) D SE T^IBCNSP(S TART+2,OFF SET+1,"Ins t Payer Pr imary ID:  "_$P(IBCNS 3,U,4)) ;  ;WCJ;IB*2. 0*547; Lot s o Change s below to  include n ew Alterna te Primary  ID N IBAC ,IBACND,LO OP S IBACM AX=0 F IBA CND=15,16  D .S LOOP= 0 F  S LOO P=$O(^DIC( 36,+IBCNS, IBACND,LOO P)) Q:'+LO OP  D ..S  IBAC(IBACN D,"CT")=$G (IBAC(IBAC ND,"CT"))+ 1 I IBAC(I BACND,"CT" )>IBACMAX  S IBACMAX= IBAC(IBACN D,"CT") .. S IBAC(IBA CND,IBAC(I BACND,"CT" ))=$P($G(^ DIC(36,+IB CNS,IBACND ,LOOP,0)), U,1,2) ; S  LOOP=0 F   S LOOP=$O (IBAC(15,L OOP)) Q:'L OOP  D .D  SET^IBCNSP (START+2+( LOOP*2-1), OFFSET,"Al t-I Payer  Prim ID Ty pe: "_$$GE T1^DIQ(355 .98,+$P($G (IBAC(15,L OOP)),U),. 01)) .D SE T^IBCNSP(S TART+2+(LO OP*2),OFFS ET,"Alt-In st Payer P rim ID: "_ $P($G(IBAC (15,LOOP)) ,U,2)) ; D  SET^IBCNS P(START+3+ (2*IBACMAX ),OFFSET," Inst Payer  Sec ID Qu al: "_$$GE T1^DIQ(36, +IBCNS,6.0 1)) D SET^ IBCNSP(STA RT+4+(2*IB ACMAX),OFF SET+5,"Ins t Payer Se c ID: "_$$ GET1^DIQ(3 6,+IBCNS,6 .02)) D SE T^IBCNSP(S TART+5+(2* IBACMAX),O FFSET,"Ins t Payer Se c ID Qual:  "_$$GET1^ DIQ(36,+IB CNS,6.03))  D SET^IBC NSP(START+ 6+(2*IBACM AX),OFFSET +5,"Inst P ayer Sec I D: "_$$GET 1^DIQ(36,+ IBCNS,6.04 )) ; ;JWS; IB*2.0*592 ;Dental Pa yer ID, mo ved UMO ID  and HPD d own 1 D SE T^IBCNSP(S TART+7+(2* IBACMAX),O FFSET+7,"D ental Paye r ID: "_$P (IBCNS3,U, 15)) D SET ^IBCNSP(ST ART+8+(2*I BACMAX),OF FSET+12,"B in Number:  "_$P($G(^ DIC(36,+IB CNS,3)),"^ ",3)) ;IB* 2.0*547;WC J Added an d bumped H PID down D  SET^IBCNS P(START+9+ (2*IBACMAX ),OFFSET+1 0,"UMO (27 8) ID: "_$ P($G(^DIC( 36,+IBCNS, 7)),U)) ;i b*2.0*519  S IBHPD=$$ HPD^IBCNHU T1(+IBCNS)  D SET^IBC NSP(START+ 10+(2*IBAC MAX),OFFSE T+13,$P($$ HOD^IBCNHU T1(IBHPD), U,2)_": "_ IBHPD) ; S  OFFSET=41  D SET^IBC NSP(START+ 1,OFFSET+8 ," Insuran ce Type: " _$$EXPAND^ IBTRE(36,3 .09,+$P(IB CNS3,U,9)) ) D SET^IB CNSP(START +2,OFFSET+ 1," Prof P ayer Prima ry ID: "_$ P(IBCNS3,U ,2)) ; S L OOP=0 F  S  LOOP=$O(I BAC(16,LOO P)) Q:'LOO P  D .D SE T^IBCNSP(S TART+2+(LO OP*2-1),OF FSET+1,"Al t-P Payer  Prim ID Ty pe: "_$$GE T1^DIQ(355 .98,+$P($G (IBAC(16,L OOP)),U),. 01)) .D SE T^IBCNSP(S TART+2+(LO OP*2),OFFS ET+1,"Alt- Prof Payer  Prim ID:  "_$P($G(IB AC(16,LOOP )),U,2)) ;  D SET^IBC NSP(START+ 3+(2*IBACM AX),OFFSET ," Prof Pa yer Sec ID  Qual: "_$ $GET1^DIQ( 36,+IBCNS, 6.05)) D S ET^IBCNSP( START+4+(2 *IBACMAX), OFFSET+5,"  Prof Paye r Sec ID:  "_$$GET1^D IQ(36,+IBC NS,6.06))  D SET^IBCN SP(START+5 +(2*IBACMA X),OFFSET, " Prof Pay er Sec ID  Qual: "_$$ GET1^DIQ(3 6,+IBCNS,6 .07)) D SE T^IBCNSP(S TART+6+(2* IBACMAX),O FFSET+5,"  Prof Payer  Sec ID: " _$$GET1^DI Q(36,+IBCN S,6.08)) ; IB*2.0*432 /TAZ Added  fields 6. 09 and 6.1  D SET^IBC NSP(START+ 8+(2*IBACM AX),OFFSET -3," Prnt  Sec/Tert A uto Claims : "_$$GET1 ^DIQ(36,+I BCNS,6.09) ) D SET^IB CNSP(START +9+(2*IBAC MAX),OFFSE T-5," Prnt  Med Sec C laims w/o  MRA: "_$$G ET1^DIQ(36 ,+IBCNS,6. 1)) Q ;
  267    
  268    
  269    
  270  
  271   Modified L ogic (Chan ges are in  bold)
  272   IBCNSC01 ; ALB/NLR -  INSURANCE  COMPANY ED IT ;6/1/05  10:06am ; ;2.0;INTEG RATED BILL ING;**52,1 37,191,184 ,232,320,3 49,371,399 ,416,432,4 94,519,547 ,592,608** ;21-MAR-94 ;Build 25  ;;Per VA D irective 6 402, this  routine sh ould not b e modified . ;PARAM ;  -- Insura nce compan y paramete rs region  N OFFSET,S TART,IBCNS 0,IBCNS03, IBCNS06,IB CNS08,IBCN S13,IBCNS3 ,IBHPD S I BCNS0=$G(^ DIC(36,+IB CNS,0)),IB CNS3=$G(^( 3)) S IBCN S03=$P(IBC NS0,"^",3) ,IBCNS06=$ P(IBCNS0," ^",6),IBCN S08=$P(IBC NS0,"^",8)  S IBCNS13 =$G(^DIC(3 6,+IBCNS,. 13)) S STA RT=1,OFFSE T=2 D SET^ IBCNSP(STA RT,OFFSET+ 25," Billi ng Paramet ers ",IORV ON,IORVOFF ) ; D SET^ IBCNSP(STA RT+1,OFFSE T+1,"Signa ture Requi red?: "_$S (+IBCNS03: "YES",1:"N O")) D SET ^IBCNSP(ST ART+2,OFFS ET+10,"Rei mburse?: " _$E($$EXPA ND^IBTRE(3 6,1,$P(IBC NS0,"^",2) ),1,21)) D  SET^IBCNS P(START+3, OFFSET+3," Mult. Beds ections: " _$S(+IBCNS 06:"YES",I BCNS06=0:" NO",1:""))  D SET^IBC NSP(START+ 4,OFFSET+6 ,"One Opt.  Visit: "_ $S(+IBCNS0 8:"YES",1: "NO")) D S ET^IBCNSP( START+5,OF FSET+4,"Di ff. Rev. C odes: "_$P (IBCNS0,"^ ",7)) D SE T^IBCNSP(S TART+6,OFF SET+1,"Amb . Sur. Rev . Code: "_ $P(IBCNS0, "^",9)) D  SET^IBCNSP (START+7,O FFSET+1,"R x Refill R ev. Code:  "_$P(IBCNS 0,"^",15))  D SET^IBC NSP(START+ 8,OFFSET+3 ,"Filing T ime Frame:  "_$P(IBCN S0,"^",12) _$S(+$P(IB CNS0,"^",1 8):" ("_$$ FTFN^IBCNS U31(,+IBCN S)_")",1:" ")) ; S OF FSET=45 D  SET^IBCNSP (START+1,O FFSET+4,"T ype Of Cov erage: "_$ $EXPAND^IB TRE(36,.13 ,+$P(IBCNS 0,U,13)))  D SET^IBCN SP(START+2 ,OFFSET+7, "Billing P hone: "_$P (IBCNS13," ^",2)) D S ET^IBCNSP( START+3,OF FSET+2,"Ve rification  Phone: "_ $P(IBCNS13 ,"^",4)) D  SET^IBCNS P(START+4, OFFSET+2," Precert Co mp. Name:  "_$P($G(^D IC(36,+$P( IBCNS13,"^ ",9),0))," ^",1)) D S ET^IBCNSP( START+5,OF FSET+7,"Pr ecert Phon e: "_$$PHO NE(IBCNS13 )) I +IBCN S3=2 D SET ^IBCNSP(ST ART+6,OFFS ET,"Max #  Test Bills /Day: "_$P (IBCNS3,U, 6)) ; S ST ART=11,OFF SET=2 D SE T^IBCNSP(S TART,OFFSE T+28," EDI  Parameter s ",IORVON ,IORVOFF)  ;/IB*2*608  (vd) for  US1909 cha nged the l ine below  from "TEST  ONLY" to  "YES-TEST"  ;D SET^IB CNSP(START +1,OFFSET+ 13,"Transm it?: "_$S( +IBCNS3=1: "YES-LIVE" ,+IBCNS3=2 :"TEST ONL Y",$P(IBCN S3,U,1)="" :"",1:"NO" )) D SET^I BCNSP(STAR T+1,OFFSET +13,"Trans mit?: "_$S (+IBCNS3=1 :"YES-LIVE ",+IBCNS3= 2:"YES-TES T",$P(IBCN S3,U,1)="" :"",1:"NO" ))
  273    D SET^IBC NSP(START+ 2,OFFSET+1 ,"Inst Pay er Primary  ID: "_$P( IBCNS3,U,4 )) ; ;WCJ; IB*2.0*547 ; Lots o C hanges bel ow to incl ude new Al ternate Pr imary ID N  IBAC,IBAC ND,LOOP S  IBACMAX=0  F IBACND=1 5,16 D .S  LOOP=0 F   S LOOP=$O( ^DIC(36,+I BCNS,IBACN D,LOOP)) Q :'+LOOP  D  ..S IBAC( IBACND,"CT ")=$G(IBAC (IBACND,"C T"))+1 I I BAC(IBACND ,"CT")>IBA CMAX S IBA CMAX=IBAC( IBACND,"CT ") ..S IBA C(IBACND,I BAC(IBACND ,"CT"))=$P ($G(^DIC(3 6,+IBCNS,I BACND,LOOP ,0)),U,1,2 ) ; S LOOP =0 F  S LO OP=$O(IBAC (15,LOOP))  Q:'LOOP   D .D SET^I BCNSP(STAR T+2+(LOOP* 2-1),OFFSE T,"Alt-I P ayer Prim  ID Type: " _$$GET1^DI Q(355.98,+ $P($G(IBAC (15,LOOP)) ,U),.01))  .D SET^IBC NSP(START+ 2+(LOOP*2) ,OFFSET,"A lt-Inst Pa yer Prim I D: "_$P($G (IBAC(15,L OOP)),U,2) ) ; D SET^ IBCNSP(STA RT+3+(2*IB ACMAX),OFF SET,"Inst  Payer Sec  ID Qual: " _$$GET1^DI Q(36,+IBCN S,6.01)) D  SET^IBCNS P(START+4+ (2*IBACMAX ),OFFSET+5 ,"Inst Pay er Sec ID:  "_$$GET1^ DIQ(36,+IB CNS,6.02))  D SET^IBC NSP(START+ 5+(2*IBACM AX),OFFSET ,"Inst Pay er Sec ID  Qual: "_$$ GET1^DIQ(3 6,+IBCNS,6 .03)) D SE T^IBCNSP(S TART+6+(2* IBACMAX),O FFSET+5,"I nst Payer  Sec ID: "_ $$GET1^DIQ (36,+IBCNS ,6.04)) ;  ;JWS;IB*2. 0*592;Dent al Payer I D, moved U MO ID and  HPD down 1  D SET^IBC NSP(START+ 7+(2*IBACM AX),OFFSET +7,"Dental  Payer ID:  "_$P(IBCN S3,U,15))  D SET^IBCN SP(START+8 +(2*IBACMA X),OFFSET+ 12,"Bin Nu mber: "_$P ($G(^DIC(3 6,+IBCNS,3 )),"^",3))  ;IB*2.0*5 47;WCJ Add ed and bum ped HPID d own D SET^ IBCNSP(STA RT+9+(2*IB ACMAX),OFF SET+10,"UM O (278) ID : "_$P($G( ^DIC(36,+I BCNS,7)),U )) ;ib*2.0 *519 S IBH PD=$$HPD^I BCNHUT1(+I BCNS) D SE T^IBCNSP(S TART+10+(2 *IBACMAX), OFFSET+13, $P($$HOD^I BCNHUT1(IB HPD),U,2)_ ": "_IBHPD ) ; S OFFS ET=41 D SE T^IBCNSP(S TART+1,OFF SET+8," In surance Ty pe: "_$$EX PAND^IBTRE (36,3.09,+ $P(IBCNS3, U,9))) D S ET^IBCNSP( START+2,OF FSET+1," P rof Payer  Primary ID : "_$P(IBC NS3,U,2))  ; S LOOP=0  F  S LOOP =$O(IBAC(1 6,LOOP)) Q :'LOOP  D  .D SET^IBC NSP(START+ 2+(LOOP*2- 1),OFFSET+ 1,"Alt-P P ayer Prim  ID Type: " _$$GET1^DI Q(355.98,+ $P($G(IBAC (16,LOOP)) ,U),.01))  .D SET^IBC NSP(START+ 2+(LOOP*2) ,OFFSET+1, "Alt-Prof  Payer Prim  ID: "_$P( $G(IBAC(16 ,LOOP)),U, 2)) ; D SE T^IBCNSP(S TART+3+(2* IBACMAX),O FFSET," Pr of Payer S ec ID Qual : "_$$GET1 ^DIQ(36,+I BCNS,6.05) ) D SET^IB CNSP(START +4+(2*IBAC MAX),OFFSE T+5," Prof  Payer Sec  ID: "_$$G ET1^DIQ(36 ,+IBCNS,6. 06)) D SET ^IBCNSP(ST ART+5+(2*I BACMAX),OF FSET," Pro f Payer Se c ID Qual:  "_$$GET1^ DIQ(36,+IB CNS,6.07))  D SET^IBC NSP(START+ 6+(2*IBACM AX),OFFSET +5," Prof  Payer Sec  ID: "_$$GE T1^DIQ(36, +IBCNS,6.0 8)) ;IB*2. 0*432/TAZ  Added fiel ds 6.09 an d 6.1 D SE T^IBCNSP(S TART+8+(2* IBACMAX),O FFSET-3,"  Prnt Sec/T ert Auto C laims: "_$ $GET1^DIQ( 36,+IBCNS, 6.09)) D S ET^IBCNSP( START+9+(2 *IBACMAX), OFFSET-5,"  Prnt Med  Sec Claims  w/o MRA:  "_$$GET1^D IQ(36,+IBC NS,6.1)) Q  ;
  274    
  275    
  276    
  277