12. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/20/2019 1:04:57 PM Eastern 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.

12.1 Files compared

# Location File Last Modified
1 eInsurance_IB_2.0_602.zip TAS eIns US3757 SDD v1.2.docx Wed Feb 27 18:49:32 2019 UTC
2 eInsurance_IB_2.0_602.zip TAS eIns US3757 SDD v1.2.docx Wed Mar 20 16:50:42 2019 UTC

12.2 Comparison summary

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

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

12.4 Active regular expressions

No regular expressions were active.

12.5 Comparison detail

  1   MCCF EDI T AS EINSURA NCE US3757
  2   System Des ign Docume nt
  3   IB*2.0*602
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   Noverber 2 018
  10   Version 1. 2
  11  
  12   User Story  Number: U S3757
  13   User Story  Name: Exc el Report  Titles – M edium Dema nd Reports
  14  
  15  
  16   Epic Taxon omy
  17     eBiz Com pliance         Port         Upd ate         Increase  No Touch         TAS  Apps
  18   Story:
  19   As a...
  20   I want to. ..
  21   So that...
  22   Insurance  Verificati on User
  23   The follow ing report s generate d in Excel  format to  include t he same id entifying  informatio n (with th e exceptio ns of the  label “Pag e:” and th e page num ber) as th at present ed in the  header of  the displa yed report :
  24  
  25   User Edit  Report
  26   Generate I nsurance C ompany Lis tings
  27   List New N ot Verifie d Policies
  28   I can rese arch and i dentify tr ends using  the same  consistent  informati on to comp are one ex port to an other.
  29  
  30  
  31   User Edit  Report
  32                      
  33   Routines
  34   Activities
  35   Routine Na me
  36   IBCNAU3
  37   Enhancemen t Category
  38    New
  39    Modify
  40    Delete
  41    No Change
  42   RTM
  43  
  44   Related Op tions
  45   User Edit  Report [IB CN USER ED IT RPT]
  46   Related Ro utines
  47   Routines “ Called By”
  48   Routines “ Called”   
  49  
  50  
  51   $$GET1^DIQ         
  52   ^DIR                 
  53   $$FMTE^XLF DT        
  54   $$NOW^XLFD T       
  55   Routines
  56   Activities
  57   Data Dicti onary (DD)  Reference s
  58  
  59   Related Pr otocols
  60  
  61   Related In tegration  Control Re gistration s (ICRs)
  62  
  63   Data Passi ng
  64    Input
  65    Output Re ference
  66    Both
  67    Global Re ference
  68    Local
  69   Input Attr ibute Name  and Defin ition
  70   Name:
  71   Definition :
  72   Output Att ribute Nam e and Defi nition
  73   Name:
  74   Definition :
  75   Current Lo gic
  76   IBCNAU3 ;A LB/KML/AWC  - eIV USE R EDIT REP ORT (PRINT ) ;6-APRIL -2015 ;;2. 0;INTEGRAT ED BILLING ;**528**;2 1-MAR-94;B uild 163 ; ;Per VA Di rective 64 02, this r outine sho uld not be  modified.
  77   Modified L ogic (Chan ges are in  bold)
  78   IBCNAU3 ;A LB/KML/AWC  - eIV USE R EDIT REP ORT (PRINT ) ;6-APRIL -2015 ;;2. 0;INTEGRAT ED BILLING ;**528,602 **;21-MAR- 94;Build 1 63 ;;Per V A Directiv e 6402, th is routine  should no t be modif ied.
  79   Current Lo gic
  80   EXCEL(PLAN S) ; user  selected f ormat that  can be vi ewed in MS  Excel N I BI,IBJ,IBK ,IBL,IBM,I B01,IB02,U SER,DATE S  (IB01,IB0 2)=0 W !," USER EDIT  REPORT",!  ; I PLANS  W !,"Insur ance Compa ny^Group N ame^User^D ate/Time o f Change^M odified Fi eld^Previo us Value o f Data^Mod ified Valu e of Data" ,! E  W !, "Insurance  Company^U ser^Date/T ime of Cha nge^Modifi ed Field^P revious Va lue of Dat a^Modified  Value of  Data",! ;  F IB01=0,1  F  S IB02 =$O(^TMP(" IBPR",$J,I B01,IB02))  Q:'IB02   S IBPD=$G( ^TMP("IBPR ",$J,IB01, IB02)) D .  S USER=$$ GET1^DIQ(2 00,$P(IBPD ,U,3)_",", .01) . S D ATE=$$FMTE ^XLFDT($P( IBPD,U,4), 2) . I IB0 1=0 W $P(I BPD,U)_U_U SER_U_DATE _U_$P(IBPD ,U,7)_U_$S ($P(IBPD,U ,5)="":"<n o previous  value>",1 :$P(IBPD,U ,5))_U_$P( IBPD,U,6)  . E  W $P( IBPD,U)_U_ $P(IBPD,U, 2)_U_USER_ U_DATE_U_$ P(IBPD,U,7 )_U_$S($P( IBPD,U,5)= "":"<no pr evious val ue>",1:$P( IBPD,U,5)) _U_$P(IBPD ,U,6) . W  ! ; -- wri te to scre en I $E(IO ST,1,2)["C -" W !,"[E ND OF REPO RT]",! S D IR("A")="P ress RETUR N to conti nue" D PAU SE Q
  81   Modified L ogic (Chan ges are in  bold)
  82   EXCEL(PLAN S) ; user  selected f ormat that  can be vi ewed in MS  Excel N I BI,IBJ,IBK ,IBL,IBM,I B01,IB02,U SER,DATE S  (IB01,IB0 2)=0   IB* nnn/HN ; A dd report  headers to  Excel Spr eadsheets   W !,"USER  EDIT REPO RT^"_$$FMT E^XLFDT($$ NOW^XLFDT, 1) ; IB*60 2/HN end    ;  I PLAN S W !,"Ins urance Com pany^Group  Name^User ^Date/Time  of Change ^Modified  Field^Prev ious Value  of Data^M odified Va lue of Dat a",! E  W  !,"Insuran ce Company ^User^Date /Time of C hange^Modi fied Field ^Previous  Value of D ata^Modifi ed Value o f Data",!  ; F IB01=0 ,1 F  S IB 02=$O(^TMP ("IBPR",$J ,IB01,IB02 )) Q:'IB02   S IBPD=$ G(^TMP("IB PR",$J,IB0 1,IB02)) D  . S USER= $$GET1^DIQ (200,$P(IB PD,U,3)_", ",.01) . S  DATE=$$FM TE^XLFDT($ P(IBPD,U,4 ),2) . I I B01=0 W $P (IBPD,U)_U _USER_U_DA TE_U_$P(IB PD,U,7)_U_ $S($P(IBPD ,U,5)="":" <no previo us value>" ,1:$P(IBPD ,U,5))_U_$ P(IBPD,U,6 ) . E  W $ P(IBPD,U)_ U_$P(IBPD, U,2)_U_USE R_U_DATE_U _$P(IBPD,U ,7)_U_$S($ P(IBPD,U,5 )="":"<no  previous v alue>",1:$ P(IBPD,U,5 ))_U_$P(IB PD,U,6) .  W ! ; -- w rite to sc reen I $E( IOST,1,2)[ "C-" W !," [END OF RE PORT]",! S  DIR("A")= "Press RET URN to con tinue" D P AUSE Q
  83  
  84  
  85  
  86  
  87  
  88   Generate I nsurance C ompany Lis tings
  89  
  90   Routines
  91   Activities
  92   Routine Na me
  93   IBCOMD1
  94   Enhancemen t Category
  95    New
  96    Modify
  97    Delete
  98    No Change
  99   RTM
  100  
  101   Related Op tions
  102   Generate I nsurance C ompany Lis tings [IBC N ID DUP I NSURANCE E NTRIES]
  103   Related Ro utines
  104   Routines “ Called By”
  105   Routines “ Called”   
  106  
  107  
  108   ^%ZISC             
  109   ^DIR              
  110   $$STATE^IB CF2     
  111   $$EXPAND^I BTRE      
  112   $$FMTE^XLF DT              
  113   $$NOW^XLFD T
  114   Routines
  115   Activities
  116   Data Dicti onary (DD)  Reference s
  117  
  118   Related Pr otocols
  119  
  120   Related In tegration  Control Re gistration s (ICRs)
  121  
  122   Data Passi ng
  123    Input
  124    Output Re ference
  125    Both
  126    Global Re ference
  127    Local
  128   Input Attr ibute Name  and Defin ition
  129   Name:
  130   Definition :
  131   Output Att ribute Nam e and Defi nition
  132   Name:
  133   Definition :
  134   Current Lo gic
  135   IBCOMD1 ;A LB/CMS - G ENERATE IN SURANCE CO MPANY LIST INGS ;03-A UG-98 ;;2. 0;INTEGRAT ED BILLING ;**103,528 **;21-MAR- 94;Build 1 63 ;;Per V A Directiv e 6402, th is routine  should no t be modif ied.
  136   Modified L ogic (Chan ges are in  bold)
  137   IBCOMD1 ;A LB/CMS - G ENERATE IN SURANCE CO MPANY LIST INGS ;03-A UG-98 ;;2. 0;INTEGRAT ED BILLING ;**103,528 ,602**;21- MAR-94;Bui ld 163 ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified.
  138   Current Lo gic
  139   HD ; Write  Heading S  IBPAGE=IB PAGE+1 I I BOUT="E" W :($E(IOST, 1,2)["C-")  ! W "Acti ve/Inactiv e^Insuranc e Name^Rei mburse?^St reet Addre ss 1^Stree t Address  2^Street A ddress 3^C ity^State^ ZIP^Phone  Number" Q  W @IOF,"Ge nerate Ins urance Com pany Listi ngs",?50,$ $FMTE^XLFD T($$NOW^XL FDT,"Z"),? 70," Page  ",IBPAGE W  !,"List o f ",$S(IBA IB=1:"Acti ve",IBAIB= 2:"Inactiv e",1:"All" )," Insura nce Compan ies" ; ; -  display d efinition  of screens  I $D(IBCA SE) W ", w here" D .N  I,H .S (H ,I)=0 F  S  I=$O(IBCA SE(I)) Q:' I  D ..W !  I H W ?3, "and" ..S  H=1 W ?8,I BFLD(I),"  " ..W $S(I =4:"Equals  ",$P(IBCA SE(I),"^") ="C":"Cont ains ",1:" Between ")  ..W $S(I= 4:$P($G(^D IC(5,+$P(I BCASE(I)," ^",2),0)), "^"),$P(IB CASE(I),"^ ",2)="":"' FIRST'",1: $P(IBCASE( I),"^",2))  ..I $P(IB CASE(I),"^ ")="R" W "  and ",$S( $P(IBCASE( I),"^",3)= "zzzzzz":" 'LAST'",1: $P(IBCASE( I),"^",3))  ; W !,"In surance Na me/Address ",?33,"Rei mburse?",? 56,"Phone  Number" W  ! F IBX=1: 1:79 W "="  Q ;
  140   Modified L ogic (Chan ges are in  bold)
  141   HD ; Write  Heading S  IBPAGE=IB PAGE+1; IB *nnn/HN ;  Add report  headers t o Excel Sp readsheets    I IBOUT ="E" D  Q  .W !,"Gene rate Insur ance Compa ny Listing s^"_$$FMTE ^XLFDT($$N OW^XLFDT,1 ) .W !,"Li st of ",$S (IBAIB=1:" Active",IB AIB=2:"Ina ctive",1:" All")," In surance Co mpanies" . ; .; - dis play defin ition of s creens .I  $D(IBCASE)  W "^where " D ..N I, H ..S (H,I )=0 F  S I =$O(IBCASE (I)) Q:'I   D ...I H  W "^and" . ..S H=1 W  "^"_IBFLD( I) ...W $S (I=4:"^Equ als ",$P(I BCASE(I)," ^")="C":"^ Contains " ,1:"^Betwe en ") ...W  $S(I=4:$P ($G(^DIC(5 ,+$P(IBCAS E(I),"^",2 ),0)),"^") ,$P(IBCASE (I),"^",2) ="":"^'FIR ST'",1:$P( IBCASE(I), "^",2)) .. .I $P(IBCA SE(I),"^") ="R" W "^a nd ",$S($P (IBCASE(I) ,"^",3)="z zzzzz":"^' LAST'",1:$ P(IBCASE(I ),"^",3))  .; .W !,"A ctive/Inac tive^Insur ance Name^ Reimburse? ^Street Ad dress 1^St reet Addre ss 2^Stree t Address  3^City^Sta te^ZIP^Pho ne Number"  ; IB*602/ HN end  W  @IOF,"Gene rate Insur ance Compa ny Listing s",?50,$$F MTE^XLFDT( $$NOW^XLFD T,"Z"),?70 ," Page ", IBPAGE W ! ,"List of  ",$S(IBAIB =1:"Active ",IBAIB=2: "Inactive" ,1:"All"), " Insuranc e Companie s" ; ; - d isplay def inition of  screens I  $D(IBCASE ) W ", whe re" D .N I ,H .S (H,I )=0 F  S I =$O(IBCASE (I)) Q:'I   D ..W ! I  H W ?3,"a nd" ..S H= 1 W ?8,IBF LD(I)," "  ..W $S(I=4 :"Equals " ,$P(IBCASE (I),"^")=" C":"Contai ns ",1:"Be tween ") . .W $S(I=4: $P($G(^DIC (5,+$P(IBC ASE(I),"^" ,2),0)),"^ "),$P(IBCA SE(I),"^", 2)="":"'FI RST'",1:$P (IBCASE(I) ,"^",2)) . .I $P(IBCA SE(I),"^") ="R" W " a nd ",$S($P (IBCASE(I) ,"^",3)="z zzzzz":"'L AST'",1:$P (IBCASE(I) ,"^",3)) ;  W !,"Insu rance Name /Address", ?33,"Reimb urse?",?56 ,"Phone Nu mber" W !  F IBX=1:1: 79 W "=" Q  ;WRT ; Wr ite data l ines N IBA ,IBNA,IBOF F,IBACT,X, Y S IBQUIT =0 S IBA=" " F  S IBA =$O(^TMP(" IBCOMD",$J ,IBA)) Q:( IBA="")!(I BQUIT=1) D  .I IBPAGE ,(IBOUT="R ") D ASK I  IBQUIT=1  Q .; Excel  Output .I  IBOUT="E"  S IBACT=$ S(IBA=1:"I nactive",1 :"Active")  .; Report  Output .I  IBOUT="R"  D HD W !, $S(IBA=1:" Inactive C ompanies", 1:"Active  Companies" ),! .S IBN A="" F  S  IBNA=$O(^T MP("IBCOMD ",$J,IBA,I BNA)) Q:(I BNA="")!(I BQUIT=1) D  ..S IBDA= "" F  S IB DA=$O(^TMP ("IBCOMD", $J,IBA,IBN A,IBDA)) Q :('IBDA)!( IBQUIT=1)  D ...S IBT MP=^TMP("I BCOMD",$J, IBA,IBNA,I BDA) ...S  IBOFF=$S($ P(IBTMP,U, 4)]""!($P( IBTMP,U,5) ]""):7,1:6 ) ...I ($Y +IBOFF)>IO SL,(IBOUT= "R") D  I  IBQUIT=1 Q  ....D ASK  I IBQUIT= 1 Q ....D  HD ...S IB TMP=^TMP(" IBCOMD",$J ,IBA,IBNA, IBDA) ...;  Excel Out put ...I I BOUT="E" W  !,IBACT_U _IBTMP Q . ..; Report  Output .. .W !!,$P(I BTMP,U,1), ?33,$P(IBT MP,U,2),?5 6,$P(IBTMP ,U,9) ...I  $P(IBTMP, U,3)]"" W  !,$P(IBTMP ,U,3) ...I  $P(IBTMP, U,4)]""!($ P(IBTMP,U, 5)]"") W ! ,$P(IBTMP, U,4) W:$P( IBTMP,U,4) ]""&($P(IB TMP,U,5)]" ") ", " W  $P(IBTMP,U ,5) ...W ! ,$P(IBTMP, U,6) W:$P( IBTMP,U,6) ]""&($P(IB TMP,U,7)]" ") ", " W  $P(IBTMP,U ,7)," ",$P (IBTMP,U,8 ) I 'IBQUI T D ASK Q  ;
  142  
  143  
  144  
  145  
  146  
  147   List New n ot Verifie d Policies
  148  
  149   Routines
  150   Activities
  151   Routine Na me
  152   IBCOC1
  153   Enhancemen t Category
  154    New
  155    Modify
  156    Delete
  157    No Change
  158   RTM
  159  
  160   Related Op tions
  161   List New n ot Verifie d Policies  [IBCN LIS T NEW NOT  VER]
  162   Related Ro utines
  163   Routines “ Called By”
  164   Routines “ Called”   
  165  
  166  
  167   ^%ZIS
  168   HOME^%ZIS          
  169   ^%ZISC               
  170   ^%ZTLOAD             
  171   EN1^DIP            
  172   $$GET1^DIQ           
  173   ^DIR                 
  174   $$ZND^IBCN S1     
  175   ASK^IBCOMC 2        
  176   $$DAT1^IBO UTL      
  177   DATE^IBOUT L         
  178   ADD^VADPT           
  179   DEM^VADPT           
  180   $$FMTE^XLF DT       
  181   Routines
  182   Activities
  183   Data Dicti onary (DD)  Reference s
  184  
  185   Related Pr otocols
  186  
  187   Related In tegration  Control Re gistration s (ICRs)
  188  
  189   Data Passi ng
  190    Input
  191    Output Re ference
  192    Both
  193    Global Re ference
  194    Local
  195   Input Attr ibute Name  and Defin ition
  196   Name:
  197   Definition :
  198   Output Att ribute Nam e and Defi nition
  199   Name:
  200   Definition :
  201   Current Lo gic
  202   IBCOC1 ;AL B/NLR - NE W, NOT VER IFIED INS.  ENTRIES ; 24-NOV-93  ;;2.0;INTE GRATED BIL LING;**528 **;21-MAR- 94;Build 1 63 ;;Per V A Directiv e 6402, th is routine  should no t be modif ied.
  203   Modified L ogic (Chan ges are in  bold)
  204   IBCOC1 ;AL B/NLR - NE W, NOT VER IFIED INS.  ENTRIES ; 24-NOV-93  ;;2.0;INTE GRATED BIL LING;**528 ,602**;21- MAR-94;Bui ld 163 ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified.
  205   Current Lo gic
  206   COMPXL ; C ompile Exc el data; I nput varia bles: ; IB RF - Requi red. Name  Range Star t value ;  IBRL - Req uired. Nam e Range Go  To value  ; IBBDT -  Required.  Begining E ntered Dat e Range ;  IBEDT - Re quired. En ding Enter ed Date Ra nge ; N IB C,IBCDA,IB CDA0,IBCDA 1,IBSSN,IB INS,IBSUBI D,IBENDT,I BENUSR,DFN ,VA,VADM,V AERR,VAPA  K ^TMP("IB COC1",$J)  S IBC=0 F   S IBC=$O( ^DPT("AB", IBC)) Q:'I BC  D .S D FN=0 F  S  DFN=$O(^DP T("AB",IBC ,DFN)) Q:' DFN  D ..K  VA,VADM,V AERR,VAPA  ..D DEM^VA DPT,ADD^VA DPT ..; .. ; I Pt. na me out of  range quit  ..S VADM( 1)=$P($G(V ADM(1)),U, 1) I VADM( 1)="" Q .. I VADM(1)] IBRL Q ..I  IBRF]VADM (1) Q ..;  ..S IBCDA= 0 F  S IBC DA=$O(^DPT ("AB",IBC, DFN,IBCDA) ) Q:'IBCDA   D ...S I BCDA0=$$ZN D^IBCNS1(D FN,IBCDA)  ;516 - baa  ...; ...;  I Verific ation Date  populated  quit ...S  IBCDA1=$G (^DPT(DFN, .312,IBCDA ,1)) ...I  $P(IBCDA1, U,3) Q ... ; ...; I E ntered Dat e out of r ange quit  ...I +$P(I BCDA1,U)>I BEDT Q ... I +$P(IBCD A1,U)<IBBD T Q ...; . ..; Get da ta fields  ...S IBSSN =$$GET1^DI Q(2,DFN,.0 9) ...S IB INS=$$GET1 ^DIQ(2.312 ,IBCDA_"," _DFN_",",. 01) ...S I BSUBID=$$G ET1^DIQ(2. 312,IBCDA_ ","_DFN_", ",7.02) .. .S IBENUSR =$$GET1^DI Q(2.312,IB CDA_","_DF N_",",1.02 ) ...S IBE NDT=$$FMTE ^XLFDT($P( IBCDA1,U), 1) ...; .. .; Set glo bal array  ...S ^TMP( "IBCOC1",$ J,VADM(1), IBCDA)=VAD M(1)_U_IBS SN_U_IBINS _U_IBSUBID _U_IBENUSR _U_IBENDT  ; W "PATIE NT^PATIENT  ID^INSURA NCE CO^SUB SCRIBER ID ^WHO ENTER ED^DATE EN TERED" I ' $D(^TMP("I BCOC1",$J) ) W !!,"**  NO RECORD S FOUND ** " D ASK^IB COMC2 Q D  WRT,ASK^IB COMC2 ; Q
  207   Modified L ogic (Chan ges are in  bold)
  208   COMPXL ; C ompile Exc el data ;  Input vari ables: ; I BRF - Requ ired. Name  Range Sta rt value ;  IBRL - Re quired. Na me Range G o To value  ; IBBDT -  Required.  Begining  Entered Da te Range ;  IBEDT - R equired. E nding Ente red Date R ange ; N I BC,IBCDA,I BCDA0,IBCD A1,IBSSN,I BINS,IBSUB ID,IBENDT, IBENUSR,DF N,VA,VADM, VAERR,VAPA  K ^TMP("I BCOC1",$J)  S IBC=0 F   S IBC=$O (^DPT("AB" ,IBC)) Q:' IBC  D .S  DFN=0 F  S  DFN=$O(^D PT("AB",IB C,DFN)) Q: 'DFN  D .. K VA,VADM, VAERR,VAPA  ..D DEM^V ADPT,ADD^V ADPT ..; . .; I Pt. n ame out of  range qui t ..S VADM (1)=$P($G( VADM(1)),U ,1) I VADM (1)="" Q . .I VADM(1) ]IBRL Q .. I IBRF]VAD M(1) Q ..;  ..S IBCDA =0 F  S IB CDA=$O(^DP T("AB",IBC ,DFN,IBCDA )) Q:'IBCD A  D ...S  IBCDA0=$$Z ND^IBCNS1( DFN,IBCDA)  ;516 - ba a ...; ... ; I Verifi cation Dat e populate d quit ... S IBCDA1=$ G(^DPT(DFN ,.312,IBCD A,1)) ...I  $P(IBCDA1 ,U,3) Q .. .; ...; I  Entered Da te out of  range quit  ...I +$P( IBCDA1,U)> IBEDT Q .. .I +$P(IBC DA1,U)<IBB DT Q ...;  ...; Get d ata fields  ...S IBSS N=$$GET1^D IQ(2,DFN,. 09) ...S I BINS=$$GET 1^DIQ(2.31 2,IBCDA_", "_DFN_",", .01) ...S  IBSUBID=$$ GET1^DIQ(2 .312,IBCDA _","_DFN_" ,",7.02) . ..S IBENUS R=$$GET1^D IQ(2.312,I BCDA_","_D FN_",",1.0 2) ...S IB ENDT=$$FMT E^XLFDT($P (IBCDA1,U) ,1) ...; . ..; Set gl obal array  ...S ^TMP ("IBCOC1", $J,VADM(1) ,IBCDA)=VA DM(1)_U_IB SSN_U_IBIN S_U_IBSUBI D_U_IBENUS R_U_IBENDT  ;
  209    ;IB*2.0*6 02/??? Add  title to  Excel Repo rt W "REPO RT OF NEW,  NOT VERIF IED INSURA NCE ENTRIE S FROM: ", $$DAT1^IBO UTL(IBBDT) ," TO: ",$ $DAT1^IBOU TL(IBEDT)  W !,"NAMES  RANGING F ROM ",$S(I BRF="A":"F IRST",1:IB RF)," TO " ,$S(IBRL=" zzzzzz":"L AST",1:IBR L),!
  210   ; IB*602/H N end W !, "PATIENT^P ATIENT ID^ INSURANCE  CO^SUBSCRI BER ID^WHO  ENTERED^D ATE ENTERE D" I '$D(^ TMP("IBCOC 1",$J)) W  !!,"** NO  RECORDS FO UND **" D  ASK^IBCOMC 2 Q D WRT, ASK^IBCOMC 2 ; Q  ;
  211  
  212  
  213   Revision H istory
  214   Date
  215   Version
  216   Descriptio n
  217   Author
  218   03/09/2018
  219   1.0
  220   Initial dr aft
  221   Henry Norm and
  222   03/21/2018
  223   1.1
  224   After Code  Review
  225   Henry Norm and
  226   11/29/2018
  227   1.2
  228   After IOC  Testing
  229   Henry Norm and
  230  
  231