IBCNBCD3 ;ALB/AWC - MCCF FY14 IB Annual Benefits/Coverage Limitations Display Screens ;25 Feb 2015
;;2.0;INTEGRATED BILLING;**528**;21-MAR-94;Build 163
;;Per VA Directive 6402, this routine should not be modified.
;
;Input Parameters:
; See routine IBCNBCD1
;
ABDISP(IBIEN,IBDATA,IBPOL) ; Annual Benefits Display screen - Called from ABDSEL^IBCNBCD1 and ABDLC^IBCNBCD1
N Y,IBI,IBW,IBEX,IBN
;
W @IOF
;
; -- header annual benefits
D WRTFLD^IBCNBCD(" Annual Benefits Data ",0,80,"BU") W !
;
S IBN=IBIEN_","
S IBEX=0
F IBI=1:1:59 Q:IBEX D
. ;
. I $Y+5>IOSL D PAUSE^VALM1 W @IOF I 'Y S IBEX=1 Q
. ;
. I IBI=1 S IBW=$G(@IBDATA@(355.4,IBN,.01,"E")) D WRTFLD^IBCNBCD(" Benefit Year : "_IBW,0,80,"") W ! Q
. I IBI=2 S IBW=$G(IBPOL) D WRTFLD^IBCNBCD(" Policy Information : "_IBW,0,80,"") W ! Q
. I IBI=3 S IBW=$G(@IBDATA@(355.4,IBN,.05,"E")) D WRTFLD^IBCNBCD(" Max Out of Pocket : "_IBW,0,80,"") W ! Q
. I IBI=4 S IBW=$G(@IBDATA@(355.4,IBN,.06,"E")) D WRTFLD^IBCNBCD(" Ambulance Coverage(%) : "_IBW,0,80,"") W !,! Q
. ;
. ; -- inpatient
. I IBI=5 D WRTFLD^IBCNBCD("Inpatient:",0,10,"") W ! Q
. I IBI=6 S IBW=$G(@IBDATA@(355.4,IBN,5.01,"E")) D WRTFLD^IBCNBCD(" Annual Deduct : "_IBW,0,80,"") W ! Q
. I IBI=7 S IBW=$G(@IBDATA@(355.4,IBN,5.02,"E")) D WRTFLD^IBCNBCD(" Per Admis Deduct : "_IBW,0,80,"") W ! Q
. I IBI=8 S IBW=$G(@IBDATA@(355.4,IBN,5.03,"E")) D WRTFLD^IBCNBCD(" Inpt. Lifetime Max : "_IBW,0,80,"") W ! Q
. I IBI=9 S IBW=$G(@IBDATA@(355.4,IBN,5.04,"E")) D WRTFLD^IBCNBCD(" Inpt. Annual Max : "_IBW,0,80,"") W ! Q
. I IBI=10 S IBW=$G(@IBDATA@(355.4,IBN,5.09,"E")) D WRTFLD^IBCNBCD(" Room & Board (%) : "_IBW,0,80,"") W ! Q
. I IBI=11 S IBW=$G(@IBDATA@(355.4,IBN,5.07,"E")) D WRTFLD^IBCNBCD(" Drug/Alcohol Lifet. Max : "_IBW,0,80,"") W ! Q
. I IBI=12 S IBW=$G(@IBDATA@(355.4,IBN,5.08,"E")) D WRTFLD^IBCNBCD(" Drug/Alcohol Annual Max : "_IBW,0,80,"") W ! Q
. I IBI=13 S IBW=$G(@IBDATA@(355.4,IBN,5.1,"E")) D WRTFLD^IBCNBCD(" Nursing Home (%) : "_IBW,0,80,"") W ! Q
. I IBI=14 S IBW=$G(@IBDATA@(355.4,IBN,5.12,"E")) D WRTFLD^IBCNBCD(" Other Inpt. Charges (%) : "_IBW,0,80,"") W !,! Q
. ;
. ; -- outpatient
. I IBI=15 D WRTFLD^IBCNBCD("Outpatient:",0,11,"") W ! Q
. I IBI=16 S IBW=$G(@IBDATA@(355.4,IBN,2.01,"E")) D WRTFLD^IBCNBCD(" Annual Deductible : "_IBW,0,80,"") W ! Q
. I IBI=17 S IBW=$G(@IBDATA@(355.4,IBN,2.02,"E")) D WRTFLD^IBCNBCD(" Per Visit Deductible : "_IBW,0,80,"") W ! Q
. I IBI=18 S IBW=$G(@IBDATA@(355.4,IBN,2.03,"E")) D WRTFLD^IBCNBCD(" Lifetime Max : "_IBW,0,80,"") W ! Q
. I IBI=19 S IBW=$G(@IBDATA@(355.4,IBN,2.04,"E")) D WRTFLD^IBCNBCD(" Annual Max : "_IBW,0,80,"") W ! Q
. I IBI=20 S IBW=$G(@IBDATA@(355.4,IBN,2.09,"E")) D WRTFLD^IBCNBCD(" Visit (%) : "_IBW,0,80,"") W ! Q
. I IBI=21 S IBW=$G(@IBDATA@(355.4,IBN,2.15,"E")) D WRTFLD^IBCNBCD(" Max Visits Per Year : "_IBW,0,80,"") W ! Q
. I IBI=22 S IBW=$G(@IBDATA@(355.4,IBN,2.13,"E")) D WRTFLD^IBCNBCD(" Surgery (%) : "_IBW,0,80,"") W ! Q
. I IBI=23 S IBW=$G(@IBDATA@(355.4,IBN,2.1,"E")) D WRTFLD^IBCNBCD(" Emergency (%) : "_IBW,0,80,"") W ! Q
. I IBI=24 S IBW=$G(@IBDATA@(355.4,IBN,2.12,"E")) D WRTFLD^IBCNBCD(" Prescription (%) : "_IBW,0,80,"") W ! Q
. I IBI=25 S IBW=$G(@IBDATA@(355.4,IBN,2.17,"E")) D WRTFLD^IBCNBCD(" Adult Day Health Care? : "_IBW,0,80,"") W ! Q
. I IBI=26 S IBW=$G(@IBDATA@(355.4,IBN,2.07,"E")) D WRTFLD^IBCNBCD(" Dental Coverage Type : "_IBW,0,80,"") W ! Q
. I IBI=27 D
. . I $G(IBW)="PER VISIT AMOUNT" D Q
. . . S IBW=$G(@IBDATA@(355.4,IBN,2.08,"E")) D WRTFLD^IBCNBCD(" Dental Coverage ($) : "_IBW,0,80,"") W !,! Q
. . ;
. . I $G(IBW)="PERCENTAGE AMOUNT" D Q
. . . S IBW=$G(@IBDATA@(355.4,IBN,2.08,"E")) D WRTFLD^IBCNBCD(" Dental Coverage (%) : "_IBW,0,80,"") W !,! Q
. . ;
. . I $G(IBW)="NONE" D
. . . S IBW=$G(@IBDATA@(355.4,IBN,2.08,"E")) D WRTFLD^IBCNBCD(" Dental Coverage : "_IBW,0,80,"") W !,! Q
. ;
. ; -- mental health inpatient
. I IBI=28 D WRTFLD^IBCNBCD("Mental Health Inpatient:",0,25,"") W ! Q
. I IBI=29 S IBW=$G(@IBDATA@(355.4,IBN,5.14,"E")) D WRTFLD^IBCNBCD(" MH Inpt. Max Days/Year : "_IBW,0,80,"") W ! Q
. I IBI=30 S IBW=$G(@IBDATA@(355.4,IBN,5.05,"E")) D WRTFLD^IBCNBCD(" MH Lifetime Inpt. Max : "_IBW,0,80,"") W ! Q
. I IBI=31 S IBW=$G(@IBDATA@(355.4,IBN,5.06,"E")) D WRTFLD^IBCNBCD(" MH Annl Inpt Max : "_IBW,0,80,"") W ! Q
. I IBI=32 S IBW=$G(@IBDATA@(355.4,IBN,5.11,"E")) D WRTFLD^IBCNBCD(" Mental Health Inpt. (%) : "_IBW,0,80,"") W !,! Q
. ;
. ; -- mental health outpatient
. I IBI=33 D WRTFLD^IBCNBCD("Mental Health Outpatient:",0,25,"") W ! Q
. I IBI=34 S IBW=$G(@IBDATA@(355.4,IBN,2.14,"E")) D WRTFLD^IBCNBCD(" MH Opt. Max Days/Year : "_IBW,0,80,"") W ! Q
. I IBI=35 S IBW=$G(@IBDATA@(355.4,IBN,2.05,"E")) D WRTFLD^IBCNBCD(" MH Lifetime Opt. Max : "_IBW,0,80,"") W ! Q
. I IBI=36 S IBW=$G(@IBDATA@(355.4,IBN,2.06,"E")) D WRTFLD^IBCNBCD(" MH Annual Opt. Max : "_IBW,0,80,"") W ! Q
. I IBI=37 S IBW=$G(@IBDATA@(355.4,IBN,2.11,"E")) D WRTFLD^IBCNBCD(" Mental Health Opt. (%) : "_IBW,0,80,"") W !,! Q
. ;
. ; -- home health care
. I IBI=38 D WRTFLD^IBCNBCD("Home Health Care:",0,17,"") W ! Q
. I IBI=39 S IBW=$G(@IBDATA@(355.4,IBN,3.01,"E")) D WRTFLD^IBCNBCD(" Care Level : "_IBW,0,80,"") W ! Q
. I IBI=40 S IBW=$G(@IBDATA@(355.4,IBN,3.02,"E")) D WRTFLD^IBCNBCD(" Visits Per Year : "_IBW,0,80,"") W ! Q
. I IBI=41 S IBW=$G(@IBDATA@(355.4,IBN,3.03,"E")) D WRTFLD^IBCNBCD(" Max. Days Per Year : "_IBW,0,80,"") W ! Q
. I IBI=42 S IBW=$G(@IBDATA@(355.4,IBN,3.04,"E")) D WRTFLD^IBCNBCD(" Med. Equipment (%) : "_IBW,0,80,"") W ! Q
. I IBI=43 S IBW=$G(@IBDATA@(355.4,IBN,3.05,"E")) D WRTFLD^IBCNBCD(" Visit Definition : "_IBW,0,80,"") W !,! Q
. ;
. ; -- hospice
. I IBI=44 D WRTFLD^IBCNBCD("Hospice:",0,8,"") W ! Q
. I IBI=45 S IBW=$G(@IBDATA@(355.4,IBN,4.01,"E")) D WRTFLD^IBCNBCD(" Annual Deductible : "_IBW,0,80,"") W ! Q
. I IBI=46 S IBW=$G(@IBDATA@(355.4,IBN,4.02,"E")) D WRTFLD^IBCNBCD(" Inpatient Annual Max. : "_IBW,0,80,"") W ! Q
. I IBI=47 S IBW=$G(@IBDATA@(355.4,IBN,4.03,"E")) D WRTFLD^IBCNBCD(" Inpatient Lifetime Max. : "_IBW,0,80,"") W ! Q
. I IBI=48 S IBW=$G(@IBDATA@(355.4,IBN,4.04,"E")) D WRTFLD^IBCNBCD(" Room and Board (%) : "_IBW,0,80,"") W ! Q
. I IBI=49 S IBW=$G(@IBDATA@(355.4,IBN,4.05,"E")) D WRTFLD^IBCNBCD(" Other Inpt. Charges (%) : "_IBW,0,80,"") W !,! Q
. ;
. ; -- rehabilitation
. I IBI=50 D WRTFLD^IBCNBCD("Rehabilitation:",0,15,"") W ! Q
. I IBI=51 S IBW=$G(@IBDATA@(355.4,IBN,3.06,"E")) D WRTFLD^IBCNBCD(" Occu. Therapy # Visits : "_IBW,0,80,"") W ! Q
. I IBI=52 S IBW=$G(@IBDATA@(355.4,IBN,3.07,"E")) D WRTFLD^IBCNBCD(" Phys. Therapy # Visits : "_IBW,0,80,"") W ! Q
. I IBI=53 S IBW=$G(@IBDATA@(355.4,IBN,3.08,"E")) D WRTFLD^IBCNBCD(" Spch. Therapy # Visits : "_IBW,0,80,"") W ! Q
. I IBI=54 S IBW=$G(@IBDATA@(355.4,IBN,3.09,"E")) D WRTFLD^IBCNBCD(" Med Cnslg. # Visits : "_IBW,0,80,"") W !,! Q
. ;
. ; -- iv management
. I IBI=55 D WRTFLD^IBCNBCD("IV Management:",0,14,"") W ! Q
. I IBI=56 S IBW=$G(@IBDATA@(355.4,IBN,4.06,"E")) D WRTFLD^IBCNBCD(" IV Infusion Opt? : "_IBW,0,80,"") W ! Q
. I IBI=57 S IBW=$G(@IBDATA@(355.4,IBN,4.07,"E")) D WRTFLD^IBCNBCD(" IV Infusion Inpt? : "_IBW,0,80,"") W ! Q
. I IBI=58 S IBW=$G(@IBDATA@(355.4,IBN,4.08,"E")) D WRTFLD^IBCNBCD(" IV Antibiotics Opt? : "_IBW,0,80,"") W ! Q
. I IBI=59 S IBW=$G(@IBDATA@(355.4,IBN,4.09,"E")) D WRTFLD^IBCNBCD(" IV Antibiotics Inpt? : "_IBW,0,80,"") W !
Q IBEX
;
CVDISP(IBDATA,IBPLAN) ; Display Insurance Group Coverage Limitations - Called from CVDSEL^IBCNBCD2 and CVDCRE^IBCNBCD2
N IBI,IBJ,IBEX,IBSP,IBH,IBOUT,DTOUT
S IBH="D WRTFLD^IBCNBCD("" Coverage Limitations Data "",0,80,""BU"") W !"
S IBSP=" "
;
; -- header
W @IOF
X IBH
;
S IBEX=0
F IBI=1:1:60 Q:IBEX D
. ;
. I $Y+4>IOSL D PAUSE^VALM1 S:'Y!($D(DTOUT)) IBEX=1 Q:IBEX W @IOF X IBH
. ;
. ; -- inpatient
. I IBI=1 W ! Q
. I IBI=2 D WRTFLD^IBCNBCD("INPATIENT:",0,10,"") Q
. I IBI=3 W ! Q
. I IBI=4 D WRTFLD^IBCNBCD(" Inpatient Coverage : "_$G(@IBDATA@("INPATIENT",.04,"E")),0,80,"") Q
. I IBI=5 W ! Q
. I IBI=6 D WRTFLD^IBCNBCD(" Inpatient Date of Coverage : "_$G(@IBDATA@("INPATIENT",.03,"E")),0,80,"") Q
. I IBI=7 S IBJ=$O(@IBDATA@("INPATIENT","COMM",0)),IBJ=$S(+IBJ:IBJ,1:0) W ! Q
. I IBI=8 D WRTFLD^IBCNBCD(" Inpatient Limit Comments : "_$G(@IBDATA@("INPATIENT","COMM",IBJ)),0,80,"") Q
. I IBI=9 W ! Q
. I IBI=10,$O(@IBDATA@("INPATIENT","COMM",IBJ)) D Q
. . F IBJ=IBJ:0 S IBJ=$O(@IBDATA@("INPATIENT","COMM",IBJ)) Q:IBJ'>0!(IBEX) D
. . . I $Y+4>IOSL D PAUSE^VALM1 S:'Y!($D(DTOUT)) IBEX=1 Q:IBEX W @IOF X IBH
. . . D WRTFLD^IBCNBCD(IBSP_@IBDATA@("INPATIENT","COMM",IBJ),0,80,"") W !
. ;
. ; -- outpatient
. I IBI=11 W ! Q
. I IBI=12 D WRTFLD^IBCNBCD("OUTPATIENT:",0,11,"") Q
. I IBI=13 W ! Q
. I IBI=14 D WRTFLD^IBCNBCD(" Outpatient Coverage : "_$G(@IBDATA@("OUTPATIENT",.04,"E")),0,80,"") Q
. I IBI=15 W ! Q
. I IBI=16 D WRTFLD^IBCNBCD(" Outpatient Date of Coverage : "_$G(@IBDATA@("OUTPATIENT",.03,"E")),0,80,"") Q
. I IBI=17 S IBJ=$O(@IBDATA@("OUTPATIENT","COMM",0)),IBJ=$S(+IBJ:IBJ,1:0) W ! Q
. I IBI=18 D WRTFLD^IBCNBCD(" Outpatient Limit Comments : "_$G(@IBDATA@("OUTPATIENT","COMM",IBJ)),0,80,"") Q
. I IBI=19 W ! Q
. I IBI=20,$O(@IBDATA@("OUTPATIENT","COMM",IBJ)) D Q
. . F IBJ=IBJ:0 S IBJ=$O(@IBDATA@("OUTPATIENT","COMM",IBJ)) Q:IBJ'>0!(IBEX) D
. . . I $Y+4>IOSL D PAUSE^VALM1 S:'Y!($D(DTOUT)) IBEX=1 Q:IBEX W @IOF X IBH
. . . D WRTFLD^IBCNBCD(IBSP_@IBDATA@("OUTPATIENT","COMM",IBJ),0,80,"") W !
. ;
. ; -- pharmacy
. I IBI=21 W ! Q
. I IBI=22 D WRTFLD^IBCNBCD("PHARMACY:",0,11,"") Q
. I IBI=23 W ! Q
. I IBI=24 D WRTFLD^IBCNBCD(" Pharmacy Coverage : "_$G(@IBDATA@("PHARMACY",.04,"E")),0,80,"") Q
. I IBI=25 W ! Q
. I IBI=26 D WRTFLD^IBCNBCD(" Pharmacy Date of Coverage : "_$G(@IBDATA@("PHARMACY",.03,"E")),0,80,"") Q
. I IBI=27 S IBJ=$O(@IBDATA@("PHARMACY","COMM",0)),IBJ=$S(+IBJ:IBJ,1:0) W ! Q
. I IBI=28 D WRTFLD^IBCNBCD(" Pharmacy Limit Comments : "_$G(@IBDATA@("PHARMACY","COMM",IBJ)),0,80,"") Q
. I IBI=29 W ! Q
. I IBI=30,$O(@IBDATA@("PHARMACY","COMM",IBJ)) D Q
. . F IBJ=IBJ:0 S IBJ=$O(@IBDATA@("PHARMACY","COMM",IBJ)) Q:IBJ'>0!(IBEX) D
. . . I $Y+4>IOSL D PAUSE^VALM1 S:'Y!($D(DTOUT)) IBEX=1 Q:IBEX W @IOF X IBH
. . . D WRTFLD^IBCNBCD(IBSP_@IBDATA@("PHARMACY","COMM",IBJ),0,80,"") W !
. ;
. ; -- dental
. I IBI=31 W ! Q
. I IBI=32 D WRTFLD^IBCNBCD("DENTAL:",0,7,"") Q
. I IBI=33 W ! Q
. I IBI=34 D WRTFLD^IBCNBCD(" Dental Coverage : "_$G(@IBDATA@("DENTAL",.04,"E")),0,80,"") Q
. I IBI=35 W ! Q
. I IBI=36 D WRTFLD^IBCNBCD(" Dental Date of Coverage : "_$G(@IBDATA@("DENTAL",.03,"E")),0,80,"") Q
. I IBI=37 S IBJ=$O(@IBDATA@("DENTAL","COMM",0)),IBJ=$S(+IBJ:IBJ,1:0) W ! Q
. I IBI=38 D WRTFLD^IBCNBCD(" Dental Limit Comments : "_$G(@IBDATA@("DENTAL","COMM",IBJ)),0,80,"") Q
. I IBI=39 W ! Q
. I IBI=40,$O(@IBDATA@("DENTAL","COMM",IBJ)) D Q
. . F IBJ=IBJ:0 S IBJ=$O(@IBDATA@("DENTAL","COMM",IBJ)) Q:IBJ'>0!(IBEX) D
. . . I $Y+4>IOSL D PAUSE^VALM1 S:'Y!($D(DTOUT)) IBEX=1 Q:IBEX W @IOF X IBH
. . . D WRTFLD^IBCNBCD(IBSP_@IBDATA@("DENTAL","COMM",IBJ),0,80,"") W !
. ;
. ; -- mental health
. I IBI=41 W ! Q
. I IBI=42 D WRTFLD^IBCNBCD("MENTAL HEALTH:",0,14,"") Q
. I IBI=43 W ! Q
. I IBI=44 D WRTFLD^IBCNBCD(" MH Health Coverage : "_$G(@IBDATA@("MENTAL HEALTH",.04,"E")),0,80,"") Q
. I IBI=45 W ! Q
. I IBI=46 D WRTFLD^IBCNBCD(" MH Health Date of Coverage : "_$G(@IBDATA@("MENTAL HEALTH",.03,"E")),0,80,"") Q
. I IBI=47 S IBJ=$O(@IBDATA@("MENTAL HEALTH","COMM",0)),IBJ=$S(+IBJ:IBJ,1:0) W ! Q
. I IBI=48 D WRTFLD^IBCNBCD(" MH Health Limit Comments : "_$G(@IBDATA@("MENTAL HEALTH","COMM",IBJ)),0,80,"") Q
. I IBI=49 W ! Q
. I IBI=50,$O(@IBDATA@("MENTAL HEALTH","COMM",IBJ)) D Q
. . F IBJ=IBJ:0 S IBJ=$O(@IBDATA@("MENTAL HEALTH","COMM",IBJ)) Q:IBJ'>0!(IBEX) D
. . . I $Y+4>IOSL D PAUSE^VALM1 S:'Y!($D(DTOUT)) IBEX=1 Q:IBEX W @IOF X IBH
. . . D WRTFLD^IBCNBCD(IBSP_@IBDATA@("MENTAL HEALTH","COMM",IBJ),0,80,"") W !
. ;
. ; -- long term
. I IBI=51 W ! Q
. I IBI=52 D WRTFLD^IBCNBCD("LONG TERM CARE:",0,15,"") Q
. I IBI=53 W ! Q
. I IBI=54 D WRTFLD^IBCNBCD(" Long Term Coverage : "_$G(@IBDATA@("LONG TERM CARE",.04,"E")),0,80,"") Q
. I IBI=55 W ! Q
. I IBI=56 D WRTFLD^IBCNBCD(" Long Term Date of Coverage : "_$G(@IBDATA@("LONG TERM CARE",.03,"E")),0,80,"") Q
. I IBI=57 S IBJ=$O(@IBDATA@("LONG TERM CARE","COMM",0)),IBJ=$S(+IBJ:IBJ,1:0) W ! Q
. I IBI=58 D WRTFLD^IBCNBCD(" Long Term Limit Comments : "_$G(@IBDATA@("LONG TERM CARE","COMM",IBJ)),0,80,"") Q
. I IBI=59 W ! Q
. I IBI=60,$O(@IBDATA@("LONG TERM","COMM",IBJ)) D
. . F IBJ=1=IBJ:0 S IBJ=$O(@IBDATA@("LONG TERM CARE","COMM",IBJ)) Q:IBJ'>0!(IBEX) D
. . . I $Y+4>IOSL D PAUSE^VALM1 S:'Y!($D(DTOUT)) IBEX=1 Q:IBEX W @IOF X IBH
. . . D WRTFLD^IBCNBCD(IBSP_@IBDATA@("LONG TERM CARE","COMM",IBJ),0,80,"") W !
Q IBEX
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNBCD3 13616 printed Nov 22, 2024@17:23:55 Page 2
IBCNBCD3 ;ALB/AWC - MCCF FY14 IB Annual Benefits/Coverage Limitations Display Screens ;25 Feb 2015
+1 ;;2.0;INTEGRATED BILLING;**528**;21-MAR-94;Build 163
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;Input Parameters:
+5 ; See routine IBCNBCD1
+6 ;
ABDISP(IBIEN,IBDATA,IBPOL) ; Annual Benefits Display screen - Called from ABDSEL^IBCNBCD1 and ABDLC^IBCNBCD1
+1 NEW Y,IBI,IBW,IBEX,IBN
+2 ;
+3 WRITE @IOF
+4 ;
+5 ; -- header annual benefits
+6 DO WRTFLD^IBCNBCD(" Annual Benefits Data ",0,80,"BU")
WRITE !
+7 ;
+8 SET IBN=IBIEN_","
+9 SET IBEX=0
+10 FOR IBI=1:1:59
if IBEX
QUIT
Begin DoDot:1
+11 ;
+12 IF $Y+5>IOSL
DO PAUSE^VALM1
WRITE @IOF
IF 'Y
SET IBEX=1
QUIT
+13 ;
+14 IF IBI=1
SET IBW=$GET(@IBDATA@(355.4,IBN,.01,"E"))
DO WRTFLD^IBCNBCD(" Benefit Year : "_IBW,0,80,"")
WRITE !
QUIT
+15 IF IBI=2
SET IBW=$GET(IBPOL)
DO WRTFLD^IBCNBCD(" Policy Information : "_IBW,0,80,"")
WRITE !
QUIT
+16 IF IBI=3
SET IBW=$GET(@IBDATA@(355.4,IBN,.05,"E"))
DO WRTFLD^IBCNBCD(" Max Out of Pocket : "_IBW,0,80,"")
WRITE !
QUIT
+17 IF IBI=4
SET IBW=$GET(@IBDATA@(355.4,IBN,.06,"E"))
DO WRTFLD^IBCNBCD(" Ambulance Coverage(%) : "_IBW,0,80,"")
WRITE !,!
QUIT
+18 ;
+19 ; -- inpatient
+20 IF IBI=5
DO WRTFLD^IBCNBCD("Inpatient:",0,10,"")
WRITE !
QUIT
+21 IF IBI=6
SET IBW=$GET(@IBDATA@(355.4,IBN,5.01,"E"))
DO WRTFLD^IBCNBCD(" Annual Deduct : "_IBW,0,80,"")
WRITE !
QUIT
+22 IF IBI=7
SET IBW=$GET(@IBDATA@(355.4,IBN,5.02,"E"))
DO WRTFLD^IBCNBCD(" Per Admis Deduct : "_IBW,0,80,"")
WRITE !
QUIT
+23 IF IBI=8
SET IBW=$GET(@IBDATA@(355.4,IBN,5.03,"E"))
DO WRTFLD^IBCNBCD(" Inpt. Lifetime Max : "_IBW,0,80,"")
WRITE !
QUIT
+24 IF IBI=9
SET IBW=$GET(@IBDATA@(355.4,IBN,5.04,"E"))
DO WRTFLD^IBCNBCD(" Inpt. Annual Max : "_IBW,0,80,"")
WRITE !
QUIT
+25 IF IBI=10
SET IBW=$GET(@IBDATA@(355.4,IBN,5.09,"E"))
DO WRTFLD^IBCNBCD(" Room & Board (%) : "_IBW,0,80,"")
WRITE !
QUIT
+26 IF IBI=11
SET IBW=$GET(@IBDATA@(355.4,IBN,5.07,"E"))
DO WRTFLD^IBCNBCD(" Drug/Alcohol Lifet. Max : "_IBW,0,80,"")
WRITE !
QUIT
+27 IF IBI=12
SET IBW=$GET(@IBDATA@(355.4,IBN,5.08,"E"))
DO WRTFLD^IBCNBCD(" Drug/Alcohol Annual Max : "_IBW,0,80,"")
WRITE !
QUIT
+28 IF IBI=13
SET IBW=$GET(@IBDATA@(355.4,IBN,5.1,"E"))
DO WRTFLD^IBCNBCD(" Nursing Home (%) : "_IBW,0,80,"")
WRITE !
QUIT
+29 IF IBI=14
SET IBW=$GET(@IBDATA@(355.4,IBN,5.12,"E"))
DO WRTFLD^IBCNBCD(" Other Inpt. Charges (%) : "_IBW,0,80,"")
WRITE !,!
QUIT
+30 ;
+31 ; -- outpatient
+32 IF IBI=15
DO WRTFLD^IBCNBCD("Outpatient:",0,11,"")
WRITE !
QUIT
+33 IF IBI=16
SET IBW=$GET(@IBDATA@(355.4,IBN,2.01,"E"))
DO WRTFLD^IBCNBCD(" Annual Deductible : "_IBW,0,80,"")
WRITE !
QUIT
+34 IF IBI=17
SET IBW=$GET(@IBDATA@(355.4,IBN,2.02,"E"))
DO WRTFLD^IBCNBCD(" Per Visit Deductible : "_IBW,0,80,"")
WRITE !
QUIT
+35 IF IBI=18
SET IBW=$GET(@IBDATA@(355.4,IBN,2.03,"E"))
DO WRTFLD^IBCNBCD(" Lifetime Max : "_IBW,0,80,"")
WRITE !
QUIT
+36 IF IBI=19
SET IBW=$GET(@IBDATA@(355.4,IBN,2.04,"E"))
DO WRTFLD^IBCNBCD(" Annual Max : "_IBW,0,80,"")
WRITE !
QUIT
+37 IF IBI=20
SET IBW=$GET(@IBDATA@(355.4,IBN,2.09,"E"))
DO WRTFLD^IBCNBCD(" Visit (%) : "_IBW,0,80,"")
WRITE !
QUIT
+38 IF IBI=21
SET IBW=$GET(@IBDATA@(355.4,IBN,2.15,"E"))
DO WRTFLD^IBCNBCD(" Max Visits Per Year : "_IBW,0,80,"")
WRITE !
QUIT
+39 IF IBI=22
SET IBW=$GET(@IBDATA@(355.4,IBN,2.13,"E"))
DO WRTFLD^IBCNBCD(" Surgery (%) : "_IBW,0,80,"")
WRITE !
QUIT
+40 IF IBI=23
SET IBW=$GET(@IBDATA@(355.4,IBN,2.1,"E"))
DO WRTFLD^IBCNBCD(" Emergency (%) : "_IBW,0,80,"")
WRITE !
QUIT
+41 IF IBI=24
SET IBW=$GET(@IBDATA@(355.4,IBN,2.12,"E"))
DO WRTFLD^IBCNBCD(" Prescription (%) : "_IBW,0,80,"")
WRITE !
QUIT
+42 IF IBI=25
SET IBW=$GET(@IBDATA@(355.4,IBN,2.17,"E"))
DO WRTFLD^IBCNBCD(" Adult Day Health Care? : "_IBW,0,80,"")
WRITE !
QUIT
+43 IF IBI=26
SET IBW=$GET(@IBDATA@(355.4,IBN,2.07,"E"))
DO WRTFLD^IBCNBCD(" Dental Coverage Type : "_IBW,0,80,"")
WRITE !
QUIT
+44 IF IBI=27
Begin DoDot:2
+45 IF $GET(IBW)="PER VISIT AMOUNT"
Begin DoDot:3
+46 SET IBW=$GET(@IBDATA@(355.4,IBN,2.08,"E"))
DO WRTFLD^IBCNBCD(" Dental Coverage ($) : "_IBW,0,80,"")
WRITE !,!
QUIT
End DoDot:3
QUIT
+47 ;
+48 IF $GET(IBW)="PERCENTAGE AMOUNT"
Begin DoDot:3
+49 SET IBW=$GET(@IBDATA@(355.4,IBN,2.08,"E"))
DO WRTFLD^IBCNBCD(" Dental Coverage (%) : "_IBW,0,80,"")
WRITE !,!
QUIT
End DoDot:3
QUIT
+50 ;
+51 IF $GET(IBW)="NONE"
Begin DoDot:3
+52 SET IBW=$GET(@IBDATA@(355.4,IBN,2.08,"E"))
DO WRTFLD^IBCNBCD(" Dental Coverage : "_IBW,0,80,"")
WRITE !,!
QUIT
End DoDot:3
End DoDot:2
+53 ;
+54 ; -- mental health inpatient
+55 IF IBI=28
DO WRTFLD^IBCNBCD("Mental Health Inpatient:",0,25,"")
WRITE !
QUIT
+56 IF IBI=29
SET IBW=$GET(@IBDATA@(355.4,IBN,5.14,"E"))
DO WRTFLD^IBCNBCD(" MH Inpt. Max Days/Year : "_IBW,0,80,"")
WRITE !
QUIT
+57 IF IBI=30
SET IBW=$GET(@IBDATA@(355.4,IBN,5.05,"E"))
DO WRTFLD^IBCNBCD(" MH Lifetime Inpt. Max : "_IBW,0,80,"")
WRITE !
QUIT
+58 IF IBI=31
SET IBW=$GET(@IBDATA@(355.4,IBN,5.06,"E"))
DO WRTFLD^IBCNBCD(" MH Annl Inpt Max : "_IBW,0,80,"")
WRITE !
QUIT
+59 IF IBI=32
SET IBW=$GET(@IBDATA@(355.4,IBN,5.11,"E"))
DO WRTFLD^IBCNBCD(" Mental Health Inpt. (%) : "_IBW,0,80,"")
WRITE !,!
QUIT
+60 ;
+61 ; -- mental health outpatient
+62 IF IBI=33
DO WRTFLD^IBCNBCD("Mental Health Outpatient:",0,25,"")
WRITE !
QUIT
+63 IF IBI=34
SET IBW=$GET(@IBDATA@(355.4,IBN,2.14,"E"))
DO WRTFLD^IBCNBCD(" MH Opt. Max Days/Year : "_IBW,0,80,"")
WRITE !
QUIT
+64 IF IBI=35
SET IBW=$GET(@IBDATA@(355.4,IBN,2.05,"E"))
DO WRTFLD^IBCNBCD(" MH Lifetime Opt. Max : "_IBW,0,80,"")
WRITE !
QUIT
+65 IF IBI=36
SET IBW=$GET(@IBDATA@(355.4,IBN,2.06,"E"))
DO WRTFLD^IBCNBCD(" MH Annual Opt. Max : "_IBW,0,80,"")
WRITE !
QUIT
+66 IF IBI=37
SET IBW=$GET(@IBDATA@(355.4,IBN,2.11,"E"))
DO WRTFLD^IBCNBCD(" Mental Health Opt. (%) : "_IBW,0,80,"")
WRITE !,!
QUIT
+67 ;
+68 ; -- home health care
+69 IF IBI=38
DO WRTFLD^IBCNBCD("Home Health Care:",0,17,"")
WRITE !
QUIT
+70 IF IBI=39
SET IBW=$GET(@IBDATA@(355.4,IBN,3.01,"E"))
DO WRTFLD^IBCNBCD(" Care Level : "_IBW,0,80,"")
WRITE !
QUIT
+71 IF IBI=40
SET IBW=$GET(@IBDATA@(355.4,IBN,3.02,"E"))
DO WRTFLD^IBCNBCD(" Visits Per Year : "_IBW,0,80,"")
WRITE !
QUIT
+72 IF IBI=41
SET IBW=$GET(@IBDATA@(355.4,IBN,3.03,"E"))
DO WRTFLD^IBCNBCD(" Max. Days Per Year : "_IBW,0,80,"")
WRITE !
QUIT
+73 IF IBI=42
SET IBW=$GET(@IBDATA@(355.4,IBN,3.04,"E"))
DO WRTFLD^IBCNBCD(" Med. Equipment (%) : "_IBW,0,80,"")
WRITE !
QUIT
+74 IF IBI=43
SET IBW=$GET(@IBDATA@(355.4,IBN,3.05,"E"))
DO WRTFLD^IBCNBCD(" Visit Definition : "_IBW,0,80,"")
WRITE !,!
QUIT
+75 ;
+76 ; -- hospice
+77 IF IBI=44
DO WRTFLD^IBCNBCD("Hospice:",0,8,"")
WRITE !
QUIT
+78 IF IBI=45
SET IBW=$GET(@IBDATA@(355.4,IBN,4.01,"E"))
DO WRTFLD^IBCNBCD(" Annual Deductible : "_IBW,0,80,"")
WRITE !
QUIT
+79 IF IBI=46
SET IBW=$GET(@IBDATA@(355.4,IBN,4.02,"E"))
DO WRTFLD^IBCNBCD(" Inpatient Annual Max. : "_IBW,0,80,"")
WRITE !
QUIT
+80 IF IBI=47
SET IBW=$GET(@IBDATA@(355.4,IBN,4.03,"E"))
DO WRTFLD^IBCNBCD(" Inpatient Lifetime Max. : "_IBW,0,80,"")
WRITE !
QUIT
+81 IF IBI=48
SET IBW=$GET(@IBDATA@(355.4,IBN,4.04,"E"))
DO WRTFLD^IBCNBCD(" Room and Board (%) : "_IBW,0,80,"")
WRITE !
QUIT
+82 IF IBI=49
SET IBW=$GET(@IBDATA@(355.4,IBN,4.05,"E"))
DO WRTFLD^IBCNBCD(" Other Inpt. Charges (%) : "_IBW,0,80,"")
WRITE !,!
QUIT
+83 ;
+84 ; -- rehabilitation
+85 IF IBI=50
DO WRTFLD^IBCNBCD("Rehabilitation:",0,15,"")
WRITE !
QUIT
+86 IF IBI=51
SET IBW=$GET(@IBDATA@(355.4,IBN,3.06,"E"))
DO WRTFLD^IBCNBCD(" Occu. Therapy # Visits : "_IBW,0,80,"")
WRITE !
QUIT
+87 IF IBI=52
SET IBW=$GET(@IBDATA@(355.4,IBN,3.07,"E"))
DO WRTFLD^IBCNBCD(" Phys. Therapy # Visits : "_IBW,0,80,"")
WRITE !
QUIT
+88 IF IBI=53
SET IBW=$GET(@IBDATA@(355.4,IBN,3.08,"E"))
DO WRTFLD^IBCNBCD(" Spch. Therapy # Visits : "_IBW,0,80,"")
WRITE !
QUIT
+89 IF IBI=54
SET IBW=$GET(@IBDATA@(355.4,IBN,3.09,"E"))
DO WRTFLD^IBCNBCD(" Med Cnslg. # Visits : "_IBW,0,80,"")
WRITE !,!
QUIT
+90 ;
+91 ; -- iv management
+92 IF IBI=55
DO WRTFLD^IBCNBCD("IV Management:",0,14,"")
WRITE !
QUIT
+93 IF IBI=56
SET IBW=$GET(@IBDATA@(355.4,IBN,4.06,"E"))
DO WRTFLD^IBCNBCD(" IV Infusion Opt? : "_IBW,0,80,"")
WRITE !
QUIT
+94 IF IBI=57
SET IBW=$GET(@IBDATA@(355.4,IBN,4.07,"E"))
DO WRTFLD^IBCNBCD(" IV Infusion Inpt? : "_IBW,0,80,"")
WRITE !
QUIT
+95 IF IBI=58
SET IBW=$GET(@IBDATA@(355.4,IBN,4.08,"E"))
DO WRTFLD^IBCNBCD(" IV Antibiotics Opt? : "_IBW,0,80,"")
WRITE !
QUIT
+96 IF IBI=59
SET IBW=$GET(@IBDATA@(355.4,IBN,4.09,"E"))
DO WRTFLD^IBCNBCD(" IV Antibiotics Inpt? : "_IBW,0,80,"")
WRITE !
End DoDot:1
+97 QUIT IBEX
+98 ;
CVDISP(IBDATA,IBPLAN) ; Display Insurance Group Coverage Limitations - Called from CVDSEL^IBCNBCD2 and CVDCRE^IBCNBCD2
+1 NEW IBI,IBJ,IBEX,IBSP,IBH,IBOUT,DTOUT
+2 SET IBH="D WRTFLD^IBCNBCD("" Coverage Limitations Data "",0,80,""BU"") W !"
+3 SET IBSP=" "
+4 ;
+5 ; -- header
+6 WRITE @IOF
+7 XECUTE IBH
+8 ;
+9 SET IBEX=0
+10 FOR IBI=1:1:60
if IBEX
QUIT
Begin DoDot:1
+11 ;
+12 IF $Y+4>IOSL
DO PAUSE^VALM1
if 'Y!($DATA(DTOUT))
SET IBEX=1
if IBEX
QUIT
WRITE @IOF
XECUTE IBH
+13 ;
+14 ; -- inpatient
+15 IF IBI=1
WRITE !
QUIT
+16 IF IBI=2
DO WRTFLD^IBCNBCD("INPATIENT:",0,10,"")
QUIT
+17 IF IBI=3
WRITE !
QUIT
+18 IF IBI=4
DO WRTFLD^IBCNBCD(" Inpatient Coverage : "_$GET(@IBDATA@("INPATIENT",.04,"E")),0,80,"")
QUIT
+19 IF IBI=5
WRITE !
QUIT
+20 IF IBI=6
DO WRTFLD^IBCNBCD(" Inpatient Date of Coverage : "_$GET(@IBDATA@("INPATIENT",.03,"E")),0,80,"")
QUIT
+21 IF IBI=7
SET IBJ=$ORDER(@IBDATA@("INPATIENT","COMM",0))
SET IBJ=$SELECT(+IBJ:IBJ,1:0)
WRITE !
QUIT
+22 IF IBI=8
DO WRTFLD^IBCNBCD(" Inpatient Limit Comments : "_$GET(@IBDATA@("INPATIENT","COMM",IBJ)),0,80,"")
QUIT
+23 IF IBI=9
WRITE !
QUIT
+24 IF IBI=10
IF $ORDER(@IBDATA@("INPATIENT","COMM",IBJ))
Begin DoDot:2
+25 FOR IBJ=IBJ:0
SET IBJ=$ORDER(@IBDATA@("INPATIENT","COMM",IBJ))
if IBJ'>0!(IBEX)
QUIT
Begin DoDot:3
+26 IF $Y+4>IOSL
DO PAUSE^VALM1
if 'Y!($DATA(DTOUT))
SET IBEX=1
if IBEX
QUIT
WRITE @IOF
XECUTE IBH
+27 DO WRTFLD^IBCNBCD(IBSP_@IBDATA@("INPATIENT","COMM",IBJ),0,80,"")
WRITE !
End DoDot:3
End DoDot:2
QUIT
+28 ;
+29 ; -- outpatient
+30 IF IBI=11
WRITE !
QUIT
+31 IF IBI=12
DO WRTFLD^IBCNBCD("OUTPATIENT:",0,11,"")
QUIT
+32 IF IBI=13
WRITE !
QUIT
+33 IF IBI=14
DO WRTFLD^IBCNBCD(" Outpatient Coverage : "_$GET(@IBDATA@("OUTPATIENT",.04,"E")),0,80,"")
QUIT
+34 IF IBI=15
WRITE !
QUIT
+35 IF IBI=16
DO WRTFLD^IBCNBCD(" Outpatient Date of Coverage : "_$GET(@IBDATA@("OUTPATIENT",.03,"E")),0,80,"")
QUIT
+36 IF IBI=17
SET IBJ=$ORDER(@IBDATA@("OUTPATIENT","COMM",0))
SET IBJ=$SELECT(+IBJ:IBJ,1:0)
WRITE !
QUIT
+37 IF IBI=18
DO WRTFLD^IBCNBCD(" Outpatient Limit Comments : "_$GET(@IBDATA@("OUTPATIENT","COMM",IBJ)),0,80,"")
QUIT
+38 IF IBI=19
WRITE !
QUIT
+39 IF IBI=20
IF $ORDER(@IBDATA@("OUTPATIENT","COMM",IBJ))
Begin DoDot:2
+40 FOR IBJ=IBJ:0
SET IBJ=$ORDER(@IBDATA@("OUTPATIENT","COMM",IBJ))
if IBJ'>0!(IBEX)
QUIT
Begin DoDot:3
+41 IF $Y+4>IOSL
DO PAUSE^VALM1
if 'Y!($DATA(DTOUT))
SET IBEX=1
if IBEX
QUIT
WRITE @IOF
XECUTE IBH
+42 DO WRTFLD^IBCNBCD(IBSP_@IBDATA@("OUTPATIENT","COMM",IBJ),0,80,"")
WRITE !
End DoDot:3
End DoDot:2
QUIT
+43 ;
+44 ; -- pharmacy
+45 IF IBI=21
WRITE !
QUIT
+46 IF IBI=22
DO WRTFLD^IBCNBCD("PHARMACY:",0,11,"")
QUIT
+47 IF IBI=23
WRITE !
QUIT
+48 IF IBI=24
DO WRTFLD^IBCNBCD(" Pharmacy Coverage : "_$GET(@IBDATA@("PHARMACY",.04,"E")),0,80,"")
QUIT
+49 IF IBI=25
WRITE !
QUIT
+50 IF IBI=26
DO WRTFLD^IBCNBCD(" Pharmacy Date of Coverage : "_$GET(@IBDATA@("PHARMACY",.03,"E")),0,80,"")
QUIT
+51 IF IBI=27
SET IBJ=$ORDER(@IBDATA@("PHARMACY","COMM",0))
SET IBJ=$SELECT(+IBJ:IBJ,1:0)
WRITE !
QUIT
+52 IF IBI=28
DO WRTFLD^IBCNBCD(" Pharmacy Limit Comments : "_$GET(@IBDATA@("PHARMACY","COMM",IBJ)),0,80,"")
QUIT
+53 IF IBI=29
WRITE !
QUIT
+54 IF IBI=30
IF $ORDER(@IBDATA@("PHARMACY","COMM",IBJ))
Begin DoDot:2
+55 FOR IBJ=IBJ:0
SET IBJ=$ORDER(@IBDATA@("PHARMACY","COMM",IBJ))
if IBJ'>0!(IBEX)
QUIT
Begin DoDot:3
+56 IF $Y+4>IOSL
DO PAUSE^VALM1
if 'Y!($DATA(DTOUT))
SET IBEX=1
if IBEX
QUIT
WRITE @IOF
XECUTE IBH
+57 DO WRTFLD^IBCNBCD(IBSP_@IBDATA@("PHARMACY","COMM",IBJ),0,80,"")
WRITE !
End DoDot:3
End DoDot:2
QUIT
+58 ;
+59 ; -- dental
+60 IF IBI=31
WRITE !
QUIT
+61 IF IBI=32
DO WRTFLD^IBCNBCD("DENTAL:",0,7,"")
QUIT
+62 IF IBI=33
WRITE !
QUIT
+63 IF IBI=34
DO WRTFLD^IBCNBCD(" Dental Coverage : "_$GET(@IBDATA@("DENTAL",.04,"E")),0,80,"")
QUIT
+64 IF IBI=35
WRITE !
QUIT
+65 IF IBI=36
DO WRTFLD^IBCNBCD(" Dental Date of Coverage : "_$GET(@IBDATA@("DENTAL",.03,"E")),0,80,"")
QUIT
+66 IF IBI=37
SET IBJ=$ORDER(@IBDATA@("DENTAL","COMM",0))
SET IBJ=$SELECT(+IBJ:IBJ,1:0)
WRITE !
QUIT
+67 IF IBI=38
DO WRTFLD^IBCNBCD(" Dental Limit Comments : "_$GET(@IBDATA@("DENTAL","COMM",IBJ)),0,80,"")
QUIT
+68 IF IBI=39
WRITE !
QUIT
+69 IF IBI=40
IF $ORDER(@IBDATA@("DENTAL","COMM",IBJ))
Begin DoDot:2
+70 FOR IBJ=IBJ:0
SET IBJ=$ORDER(@IBDATA@("DENTAL","COMM",IBJ))
if IBJ'>0!(IBEX)
QUIT
Begin DoDot:3
+71 IF $Y+4>IOSL
DO PAUSE^VALM1
if 'Y!($DATA(DTOUT))
SET IBEX=1
if IBEX
QUIT
WRITE @IOF
XECUTE IBH
+72 DO WRTFLD^IBCNBCD(IBSP_@IBDATA@("DENTAL","COMM",IBJ),0,80,"")
WRITE !
End DoDot:3
End DoDot:2
QUIT
+73 ;
+74 ; -- mental health
+75 IF IBI=41
WRITE !
QUIT
+76 IF IBI=42
DO WRTFLD^IBCNBCD("MENTAL HEALTH:",0,14,"")
QUIT
+77 IF IBI=43
WRITE !
QUIT
+78 IF IBI=44
DO WRTFLD^IBCNBCD(" MH Health Coverage : "_$GET(@IBDATA@("MENTAL HEALTH",.04,"E")),0,80,"")
QUIT
+79 IF IBI=45
WRITE !
QUIT
+80 IF IBI=46
DO WRTFLD^IBCNBCD(" MH Health Date of Coverage : "_$GET(@IBDATA@("MENTAL HEALTH",.03,"E")),0,80,"")
QUIT
+81 IF IBI=47
SET IBJ=$ORDER(@IBDATA@("MENTAL HEALTH","COMM",0))
SET IBJ=$SELECT(+IBJ:IBJ,1:0)
WRITE !
QUIT
+82 IF IBI=48
DO WRTFLD^IBCNBCD(" MH Health Limit Comments : "_$GET(@IBDATA@("MENTAL HEALTH","COMM",IBJ)),0,80,"")
QUIT
+83 IF IBI=49
WRITE !
QUIT
+84 IF IBI=50
IF $ORDER(@IBDATA@("MENTAL HEALTH","COMM",IBJ))
Begin DoDot:2
+85 FOR IBJ=IBJ:0
SET IBJ=$ORDER(@IBDATA@("MENTAL HEALTH","COMM",IBJ))
if IBJ'>0!(IBEX)
QUIT
Begin DoDot:3
+86 IF $Y+4>IOSL
DO PAUSE^VALM1
if 'Y!($DATA(DTOUT))
SET IBEX=1
if IBEX
QUIT
WRITE @IOF
XECUTE IBH
+87 DO WRTFLD^IBCNBCD(IBSP_@IBDATA@("MENTAL HEALTH","COMM",IBJ),0,80,"")
WRITE !
End DoDot:3
End DoDot:2
QUIT
+88 ;
+89 ; -- long term
+90 IF IBI=51
WRITE !
QUIT
+91 IF IBI=52
DO WRTFLD^IBCNBCD("LONG TERM CARE:",0,15,"")
QUIT
+92 IF IBI=53
WRITE !
QUIT
+93 IF IBI=54
DO WRTFLD^IBCNBCD(" Long Term Coverage : "_$GET(@IBDATA@("LONG TERM CARE",.04,"E")),0,80,"")
QUIT
+94 IF IBI=55
WRITE !
QUIT
+95 IF IBI=56
DO WRTFLD^IBCNBCD(" Long Term Date of Coverage : "_$GET(@IBDATA@("LONG TERM CARE",.03,"E")),0,80,"")
QUIT
+96 IF IBI=57
SET IBJ=$ORDER(@IBDATA@("LONG TERM CARE","COMM",0))
SET IBJ=$SELECT(+IBJ:IBJ,1:0)
WRITE !
QUIT
+97 IF IBI=58
DO WRTFLD^IBCNBCD(" Long Term Limit Comments : "_$GET(@IBDATA@("LONG TERM CARE","COMM",IBJ)),0,80,"")
QUIT
+98 IF IBI=59
WRITE !
QUIT
+99 IF IBI=60
IF $ORDER(@IBDATA@("LONG TERM","COMM",IBJ))
Begin DoDot:2
+100 FOR IBJ=1=IBJ:0
SET IBJ=$ORDER(@IBDATA@("LONG TERM CARE","COMM",IBJ))
if IBJ'>0!(IBEX)
QUIT
Begin DoDot:3
+101 IF $Y+4>IOSL
DO PAUSE^VALM1
if 'Y!($DATA(DTOUT))
SET IBEX=1
if IBEX
QUIT
WRITE @IOF
XECUTE IBH
+102 DO WRTFLD^IBCNBCD(IBSP_@IBDATA@("LONG TERM CARE","COMM",IBJ),0,80,"")
WRITE !
End DoDot:3
End DoDot:2
End DoDot:1
+103 QUIT IBEX
