| [613] | 1 | IBCNSA0 ;ALB/NLR - ANNUAL BENEFITS EDIT - CONTINUED ; 21-MAY-1993
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN ; -- entry to do actions
|
|---|
| 6 | D POL,USERINF,ADDCOM,HOSPICE
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | POL ; -- Policy information region
|
|---|
| 10 | S IBCABD=$G(^IBA(355.4,IBCAB,0))
|
|---|
| 11 | S IBCABC=$G(^IBA(355.3,+$P(IBCABD,U,2),0))
|
|---|
| 12 | N OFFSET,START
|
|---|
| 13 | S START=1,OFFSET=20
|
|---|
| 14 | D SET^IBCNSP(START,OFFSET+6," Policy Information ",IORVON,IORVOFF)
|
|---|
| 15 | S Y=+IBCABD D D^DIQ
|
|---|
| 16 | S IBYE=Y
|
|---|
| 17 | ;D SET^IBCNSP(START+1,OFFSET+16,"Year: "_IBYE)
|
|---|
| 18 | ;D SET^IBCNSP(START+2,OFFSET+14,"Group: "_IBCGN)
|
|---|
| 19 | D SET^IBCNSP(START+1,OFFSET+3,"Max. Out of Pocket: $"_$J($P(IBCABD,U,5),7))
|
|---|
| 20 | D SET^IBCNSP(START+2,OFFSET-1,"Ambulance Coverage (%): "_$J($P(IBCABD,U,6),8)_"%")
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | HOSPICE ;
|
|---|
| 24 | S IBCABD4=$G(^IBA(355.4,+IBCAB,4))
|
|---|
| 25 | S START=29,OFFSET=43
|
|---|
| 26 | D SET^IBCNSP(START,OFFSET+7," Hospice ",IORVON,IORVOFF)
|
|---|
| 27 | D SET^IBCNSP(START+1,OFFSET+2,"Annual Deductible: $"_$J($P(IBCABD4,U,1),7))
|
|---|
| 28 | D SET^IBCNSP(START+2,OFFSET-2,"Inpatient Annual Max.: $"_$J($P(IBCABD4,U,2),7))
|
|---|
| 29 | D SET^IBCNSP(START+3,OFFSET+6,"Lifetime Max.: $"_$J($P(IBCABD4,U,3),7))
|
|---|
| 30 | D SET^IBCNSP(START+4,OFFSET+1,"Room and Board (%): "_$J($P(IBCABD4,U,4),8)_"%")
|
|---|
| 31 | D SET^IBCNSP(START+5,OFFSET-4,"Other Inpt. Charges (%): "_$J($P(IBCABD4,U,5),8)_"%")
|
|---|
| 32 | Q
|
|---|
| 33 | USERINF ;
|
|---|
| 34 | S IBCABD1=$G(^IBA(355.4,+IBCAB,1))
|
|---|
| 35 | S IBDUZ=$P(IBCABD1,U,2)
|
|---|
| 36 | S START=43,OFFSET=3
|
|---|
| 37 | D SET^IBCNSP(START,OFFSET+1," User Information ",IORVON,IORVOFF)
|
|---|
| 38 | D SET^IBCNSP(START+1,OFFSET+8,"Entered By: "_$P($G(^VA(200,+IBDUZ,0)),U))
|
|---|
| 39 | D SET^IBCNSP(START+2,OFFSET+8,"Entered On: "_$$DAT1^IBOUTL($P(IBCABD1,U)))
|
|---|
| 40 | S IBDUZ=$P(IBCABD1,U,6)
|
|---|
| 41 | D SET^IBCNSP(START+3,OFFSET+3,"Last Updated By: "_$P($G(^VA(200,+IBDUZ,0)),U))
|
|---|
| 42 | D SET^IBCNSP(START+4,OFFSET+3,"Last Updated On: "_$$DAT1^IBOUTL($P(IBCABD1,U,5)))
|
|---|
| 43 | Q
|
|---|
| 44 | ADDCOM ;
|
|---|
| 45 | ;S START=12,OFFSET=4
|
|---|
| 46 | ;D SET^IBCNSP(START,OFFSET+4," Comments ",IORVON,IORVOFF)
|
|---|
| 47 | ;D SET^IBCNSP(START+1,OFFSET+2,""_$P(IBCABD1,U,8))
|
|---|
| 48 | Q
|
|---|
