ORVAA ;;SLC OIFO/GDU - VA Advantage Indicator for GUI;[01/04/05 08:33]
;;3.0;ORDER ENTRY/RESULTS REPORTING;**215**;Dec 17, 1999
;Input Variable
; DFN - Patient IEN
;Ouput Variable
; ORY - Any array variable that will contain the following.
; If the patient does not have insurance
; Y(0)=0
; If the patient has active insurance
; Y(0)="Pt Insur"^"Patient has active insurance"
; Y(1)=Company ID
; Y(2)=Company Name
; Y(3)=Company Street Address
; Y(4)=Company State, Zip Code
; Y(5)=Phone number
; Y(6)=Coordination of Benefits indicator
; Y(7)=Policy Name
; Y(8)=Policy Reimburasble indicator
; Y(9)=Effective date
; Y(10)=Expiration date
; Y(11)=Subscriber relationship to patient
; Y(12)=Subscriber name
; Y(13)=Subscriber ID
; Y(14)=Pharmacy coverage
; Y(15)=Outpatient coverage
; Y(16)=Inpatient coverage
; Y(17)=Group Number
; Y(18)=Patient relationship to subscriber
; If this is a Tricare plan or Champus plan:
; Y(19)="This is a TriCare/Champus plan."
; If this is a VA Advantage plan:
; Y(19)="This is a VA Advantage plan"
; Y(20)=A blank line
; Repeats as needed for each active policy
;
;Internal Variables
; LC - Loop Counter
; LQ - Loop Quit, stop loop execution
; U - Default delimiter variable, set to "^" by FileMan/Kernel
;External References
; %ZTER - DBIA 1621
; Kernel Standard Error Recording Routine
; $$NOW^XLFDT - DBIA 10103
; Returns current date/time
; $$REPEAT^XLFSTR - DBIA 10104
; Returns a string of character repeated a number of times
; $$INSUR^IBBAPI - DBIA 4419
; API input variables:
; DFN - Patient IEN
; IBDT - Date to check for active insurance
; IBSTAT - Status filter
; ORIBR - Array to store returned Insurance information
; IBFLDS - Specifies what insurance information is to be returned
; API output variables:
; PIC - Patient Insurance Check
; If equal to -1 an error occured during insurance lookup.
; Error message is built and returned to user. This data
; is contained in ORIBR.
;
; If equal to 0 patient has no active insurance. Y is set
; to 0, program run ended.
;
; If equal to 1 patient has actie insurance. The insurance
; information is parsed, a message is built, and returned
; to the user. This data is contained in ORIBR.
;
VAA(ORY,DFN) ;
;Returns primary insurance policy name if VAA or TriCare
N I,IBDT,IBFLDS,IBSTAT,LC,LQ,ORIBR,ORX,PIC,WI
S ORY(0)=""
;Get active insurance information
S IBSTAT="RB",(LC,ORIBR,PIC)="",(LQ,WI)=0,IBFLDS="*"
S IBDT=$$NOW^XLFDT
S PIC=$$INSUR^IBBAPI(DFN,IBDT,IBSTAT,.ORIBR,IBFLDS)
I PIC<0 S ORY(0)=0 Q
I PIC=0 S:ORY(0)="" ORY(0)=0 Q
S $P(ORY(0),U)="Pt Insur",$P(ORY(0),U,2)="Patient has active Insurance"
S $P(ORY(0),U,3)=""
F S LC=$O(ORIBR("IBBAPI","INSUR",LC)) Q:LC=""!(LQ) D
. D FLD01,FLD02,FLD03,FLD04,FLD05,FLD06,FLD07,FLD08,FLD09,FLD10
. D FLD11,FLD12,FLD13,FLD14,FLD15,FLD16,FLD17,FLD18,FLD19,FLD20
. S WI=WI+1,ORY(WI)=""
I ORY(0)="" S ORY(0)=0
Q
FLD01 ;Insurance Company Name
S WI=WI+1,ORY(WI)=$$SBS($P($P($T(F01T),";",3),U),30)
I $G(ORIBR("IBBAPI","INSUR",LC,1))'="" D
. S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,1),U)
S WI=WI+1,ORY(WI)=$$SBS($P($P($T(F01T),";",3),U,2),30)
I $G(ORIBR("IBBAPI","INSUR",LC,1))'="" D
. S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,1),U,2)
Q
FLD02 ;Insurance Company Street Address
S WI=WI+1,ORY(WI)=$$SBS($P($T(F02T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,2))="" Q
S ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,2)
Q
FLD03 ;Insurance Company City
I $G(ORIBR("IBBAPI","INSUR",LC,3))="" S WI=WI+1,ORY(WI)="" Q
S WI=WI+1,ORY(WI)=$$REPEAT^XLFSTR(" ",30)_ORIBR("IBBAPI","INSUR",LC,3)
Q
FLD04 ;Insurance Company State
I $G(ORIBR("IBBAPI","INSUR",LC,4))="" Q
S ORY(WI)=ORY(WI)_", "_$P(ORIBR("IBBAPI","INSUR",LC,4),U,2)
Q
FLD05 ;Insurance Company Zip
I $G(ORIBR("IBBAPI","INSUR",LC,5))="" Q
S ORY(WI)=ORY(WI)_" "_ORIBR("IBBAPI","INSUR",LC,5)
Q
FLD06 ;Insurance Company Phone
S WI=WI+1,ORY(WI)=$$SBS($P($T(F06T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,6))="" Q
S ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,6)
Q
FLD07 ;Coordination of Benefits
S WI=WI+1,ORY(WI)=$$SBS($P($P($T(F07T),";",3),U),30)
I $G(ORIBR("IBBAPI","INSUR",LC,7))="" Q
S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,7),U,2)_" insurer"
Q
FLD08 ;Policy Name
S WI=WI+1,ORY(WI)=$$SBS($P($T(F08T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,8))="" Q
S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,8),U)
S ORY(WI)=ORY(WI)_" - "_$P(ORIBR("IBBAPI","INSUR",LC,8),U,2)
Q
FLD09 ;Policy Reimbursable
S WI=WI+1,ORY(WI)=$$SBS($P($T(F09T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,9))="" Q
S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,9),U,2)
Q
FLD10 ;Effective Date
S WI=WI+1,ORY(WI)=$$SBS($P($T(F10T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,10))="" Q
S ORY(WI)=ORY(WI)_$$FMTE^XLFDT(ORIBR("IBBAPI","INSUR",LC,10))
Q
FLD11 ;Expiration Date
S WI=WI+1,ORY(WI)=$$SBS($P($T(F11T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,11))="" Q
S ORY(WI)=ORY(WI)_$$FMTE^XLFDT(ORIBR("IBBAPI","INSUR",LC,11))
Q
FLD12 ;Subscriber Relationship
S WI=WI+1,ORY(WI)=$$SBS($P($T(F12T),";",3),40)
I $G(ORIBR("IBBAPI","INSUR",LC,12))="" Q
S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,12),U,2)
Q
FLD13 ;Subscriber Name
S WI=WI+1,ORY(WI)=$$SBS($P($T(F13T),";",3),40)
I $G(ORIBR("IBBAPI","INSUR",LC,13))="" Q
S ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,13)
Q
FLD14 ;Subscriber ID
S WI=WI+1,ORY(WI)=$$SBS($P($T(F14T),";",3),40)
I $G(ORIBR("IBBAPI","INSUR",LC,14))="" Q
S ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,14)
Q
FLD15 ;Pharmacy Coverage
S WI=WI+1,ORY(WI)=$$SBS($P($T(F15T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,15))="" Q
S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,15),U,2)
Q
FLD16 ;Outpatient Coverage
S WI=WI+1,ORY(WI)=$$SBS($P($T(F16T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,16))="" Q
S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,16),U,2)
Q
FLD17 ;Inpatient Coverage
S WI=WI+1,ORY(WI)=$$SBS($P($T(F17T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,17))="" Q
S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,17),U,2)
Q
FLD18 ;Group Number
S WI=WI+1,ORY(WI)=$$SBS($P($T(F18T),";",3),30)
I $G(ORIBR("IBBAPI","INSUR",LC,18))="" Q
S ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,18)
Q
FLD19 ;Patient Relationship to Subscriber
S WI=WI+1,ORY(WI)=$$SBS($P($T(F19T),";",3),40)
I $G(ORIBR("IBBAPI","INSUR",LC,19))="" Q
S ORY(WI)=ORY(WI)_$P(ORIBR("IBBAPI","INSUR",LC,19),U,2)
Q
FLD20 ;VA Advantage Flag - Tricare/Champus Flag
S WI=WI+1,ORY(WI)=""
I $G(ORIBR("IBBAPI","INSUR",LC,20))="" Q
I $P(ORIBR("IBBAPI","INSUR",LC,20),U)=1 D
. S ORY(WI)="This is a VA Advantage plan"
I $P(ORIBR("IBBAPI","INSUR",LC,20),U,2)=1 D
. S ORY(WI)="This is a TriCare/Champus plan"
Q
SBS(X,X1) ;Stuff Blank Spaces in line headers
N X2
S X2=X1-$L(X)
S X=X_$$REPEAT^XLFSTR(" ",X2)
Q X
;Field text for output
F01T ;;Company ID:^Company Name:
F02T ;;Company Address:
F06T ;;Phone Number:
F07T ;;Coordination of Benefits:^insurer
F08T ;;Policy Name:
F09T ;;Policy Reimbursable:
F10T ;;Effective Date:
F11T ;;Expiration Date:
F12T ;;Subscriber Relationship to Patient:
F13T ;;Subscriber Name:
F14T ;;Subscriber ID:
F15T ;;Pharmacy Coverage:
F16T ;;Outpatient Coverage:
F17T ;;Inpatient Coverage:
F18T ;;Group Number:
F19T ;;Patient Relationship to Subscriber:
F20T1 ;;This is a VA Advantage plan.
F20T2 ;;This is a TriCare/Champus plan.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORVAA 7836 printed Oct 16, 2024@18:35:16 Page 2
ORVAA ;;SLC OIFO/GDU - VA Advantage Indicator for GUI;[01/04/05 08:33]
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215**;Dec 17, 1999
+2 ;Input Variable
+3 ; DFN - Patient IEN
+4 ;Ouput Variable
+5 ; ORY - Any array variable that will contain the following.
+6 ; If the patient does not have insurance
+7 ; Y(0)=0
+8 ; If the patient has active insurance
+9 ; Y(0)="Pt Insur"^"Patient has active insurance"
+10 ; Y(1)=Company ID
+11 ; Y(2)=Company Name
+12 ; Y(3)=Company Street Address
+13 ; Y(4)=Company State, Zip Code
+14 ; Y(5)=Phone number
+15 ; Y(6)=Coordination of Benefits indicator
+16 ; Y(7)=Policy Name
+17 ; Y(8)=Policy Reimburasble indicator
+18 ; Y(9)=Effective date
+19 ; Y(10)=Expiration date
+20 ; Y(11)=Subscriber relationship to patient
+21 ; Y(12)=Subscriber name
+22 ; Y(13)=Subscriber ID
+23 ; Y(14)=Pharmacy coverage
+24 ; Y(15)=Outpatient coverage
+25 ; Y(16)=Inpatient coverage
+26 ; Y(17)=Group Number
+27 ; Y(18)=Patient relationship to subscriber
+28 ; If this is a Tricare plan or Champus plan:
+29 ; Y(19)="This is a TriCare/Champus plan."
+30 ; If this is a VA Advantage plan:
+31 ; Y(19)="This is a VA Advantage plan"
+32 ; Y(20)=A blank line
+33 ; Repeats as needed for each active policy
+34 ;
+35 ;Internal Variables
+36 ; LC - Loop Counter
+37 ; LQ - Loop Quit, stop loop execution
+38 ; U - Default delimiter variable, set to "^" by FileMan/Kernel
+39 ;External References
+40 ; %ZTER - DBIA 1621
+41 ; Kernel Standard Error Recording Routine
+42 ; $$NOW^XLFDT - DBIA 10103
+43 ; Returns current date/time
+44 ; $$REPEAT^XLFSTR - DBIA 10104
+45 ; Returns a string of character repeated a number of times
+46 ; $$INSUR^IBBAPI - DBIA 4419
+47 ; API input variables:
+48 ; DFN - Patient IEN
+49 ; IBDT - Date to check for active insurance
+50 ; IBSTAT - Status filter
+51 ; ORIBR - Array to store returned Insurance information
+52 ; IBFLDS - Specifies what insurance information is to be returned
+53 ; API output variables:
+54 ; PIC - Patient Insurance Check
+55 ; If equal to -1 an error occured during insurance lookup.
+56 ; Error message is built and returned to user. This data
+57 ; is contained in ORIBR.
+58 ;
+59 ; If equal to 0 patient has no active insurance. Y is set
+60 ; to 0, program run ended.
+61 ;
+62 ; If equal to 1 patient has actie insurance. The insurance
+63 ; information is parsed, a message is built, and returned
+64 ; to the user. This data is contained in ORIBR.
+65 ;
VAA(ORY,DFN) ;
+1 ;Returns primary insurance policy name if VAA or TriCare
+2 NEW I,IBDT,IBFLDS,IBSTAT,LC,LQ,ORIBR,ORX,PIC,WI
+3 SET ORY(0)=""
+4 ;Get active insurance information
+5 SET IBSTAT="RB"
SET (LC,ORIBR,PIC)=""
SET (LQ,WI)=0
SET IBFLDS="*"
+6 SET IBDT=$$NOW^XLFDT
+7 SET PIC=$$INSUR^IBBAPI(DFN,IBDT,IBSTAT,.ORIBR,IBFLDS)
+8 IF PIC<0
SET ORY(0)=0
QUIT
+9 IF PIC=0
if ORY(0)=""
SET ORY(0)=0
QUIT
+10 SET $PIECE(ORY(0),U)="Pt Insur"
SET $PIECE(ORY(0),U,2)="Patient has active Insurance"
+11 SET $PIECE(ORY(0),U,3)=""
+12 FOR
SET LC=$ORDER(ORIBR("IBBAPI","INSUR",LC))
if LC=""!(LQ)
QUIT
Begin DoDot:1
+13 DO FLD01
DO FLD02
DO FLD03
DO FLD04
DO FLD05
DO FLD06
DO FLD07
DO FLD08
DO FLD09
DO FLD10
+14 DO FLD11
DO FLD12
DO FLD13
DO FLD14
DO FLD15
DO FLD16
DO FLD17
DO FLD18
DO FLD19
DO FLD20
+15 SET WI=WI+1
SET ORY(WI)=""
End DoDot:1
+16 IF ORY(0)=""
SET ORY(0)=0
+17 QUIT
FLD01 ;Insurance Company Name
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($PIECE($TEXT(F01T),";",3),U),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,1))'=""
Begin DoDot:1
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,1),U)
End DoDot:1
+4 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($PIECE($TEXT(F01T),";",3),U,2),30)
+5 IF $GET(ORIBR("IBBAPI","INSUR",LC,1))'=""
Begin DoDot:1
+6 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,1),U,2)
End DoDot:1
+7 QUIT
FLD02 ;Insurance Company Street Address
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F02T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,2))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,2)
+4 QUIT
FLD03 ;Insurance Company City
+1 IF $GET(ORIBR("IBBAPI","INSUR",LC,3))=""
SET WI=WI+1
SET ORY(WI)=""
QUIT
+2 SET WI=WI+1
SET ORY(WI)=$$REPEAT^XLFSTR(" ",30)_ORIBR("IBBAPI","INSUR",LC,3)
+3 QUIT
FLD04 ;Insurance Company State
+1 IF $GET(ORIBR("IBBAPI","INSUR",LC,4))=""
QUIT
+2 SET ORY(WI)=ORY(WI)_", "_$PIECE(ORIBR("IBBAPI","INSUR",LC,4),U,2)
+3 QUIT
FLD05 ;Insurance Company Zip
+1 IF $GET(ORIBR("IBBAPI","INSUR",LC,5))=""
QUIT
+2 SET ORY(WI)=ORY(WI)_" "_ORIBR("IBBAPI","INSUR",LC,5)
+3 QUIT
FLD06 ;Insurance Company Phone
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F06T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,6))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,6)
+4 QUIT
FLD07 ;Coordination of Benefits
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($PIECE($TEXT(F07T),";",3),U),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,7))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,7),U,2)_" insurer"
+4 QUIT
FLD08 ;Policy Name
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F08T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,8))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,8),U)
+4 SET ORY(WI)=ORY(WI)_" - "_$PIECE(ORIBR("IBBAPI","INSUR",LC,8),U,2)
+5 QUIT
FLD09 ;Policy Reimbursable
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F09T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,9))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,9),U,2)
+4 QUIT
FLD10 ;Effective Date
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F10T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,10))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$$FMTE^XLFDT(ORIBR("IBBAPI","INSUR",LC,10))
+4 QUIT
FLD11 ;Expiration Date
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F11T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,11))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$$FMTE^XLFDT(ORIBR("IBBAPI","INSUR",LC,11))
+4 QUIT
FLD12 ;Subscriber Relationship
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F12T),";",3),40)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,12))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,12),U,2)
+4 QUIT
FLD13 ;Subscriber Name
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F13T),";",3),40)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,13))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,13)
+4 QUIT
FLD14 ;Subscriber ID
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F14T),";",3),40)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,14))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,14)
+4 QUIT
FLD15 ;Pharmacy Coverage
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F15T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,15))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,15),U,2)
+4 QUIT
FLD16 ;Outpatient Coverage
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F16T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,16))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,16),U,2)
+4 QUIT
FLD17 ;Inpatient Coverage
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F17T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,17))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,17),U,2)
+4 QUIT
FLD18 ;Group Number
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F18T),";",3),30)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,18))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_ORIBR("IBBAPI","INSUR",LC,18)
+4 QUIT
FLD19 ;Patient Relationship to Subscriber
+1 SET WI=WI+1
SET ORY(WI)=$$SBS($PIECE($TEXT(F19T),";",3),40)
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,19))=""
QUIT
+3 SET ORY(WI)=ORY(WI)_$PIECE(ORIBR("IBBAPI","INSUR",LC,19),U,2)
+4 QUIT
FLD20 ;VA Advantage Flag - Tricare/Champus Flag
+1 SET WI=WI+1
SET ORY(WI)=""
+2 IF $GET(ORIBR("IBBAPI","INSUR",LC,20))=""
QUIT
+3 IF $PIECE(ORIBR("IBBAPI","INSUR",LC,20),U)=1
Begin DoDot:1
+4 SET ORY(WI)="This is a VA Advantage plan"
End DoDot:1
+5 IF $PIECE(ORIBR("IBBAPI","INSUR",LC,20),U,2)=1
Begin DoDot:1
+6 SET ORY(WI)="This is a TriCare/Champus plan"
End DoDot:1
+7 QUIT
SBS(X,X1) ;Stuff Blank Spaces in line headers
+1 NEW X2
+2 SET X2=X1-$LENGTH(X)
+3 SET X=X_$$REPEAT^XLFSTR(" ",X2)
+4 QUIT X
+5 ;Field text for output
F01T ;;Company ID:^Company Name:
F02T ;;Company Address:
F06T ;;Phone Number:
F07T ;;Coordination of Benefits:^insurer
F08T ;;Policy Name:
F09T ;;Policy Reimbursable:
F10T ;;Effective Date:
F11T ;;Expiration Date:
F12T ;;Subscriber Relationship to Patient:
F13T ;;Subscriber Name:
F14T ;;Subscriber ID:
F15T ;;Pharmacy Coverage:
F16T ;;Outpatient Coverage:
F17T ;;Inpatient Coverage:
F18T ;;Group Number:
F19T ;;Patient Relationship to Subscriber:
F20T1 ;;This is a VA Advantage plan.
F20T2 ;;This is a TriCare/Champus plan.
