| 1 | IBCRLD ;ALB/ARH - RATES: DISPLAY INTRO ; 16-MAY-1996
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**52,106**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN ; -- main entry point for IBCR INTRODUCTION
|
|---|
| 6 | D EN^VALM("IBCR INTRODUCTION")
|
|---|
| 7 | K VALMBCK
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | HDR ; -- header code
|
|---|
| 11 | S VALMHDR(1)="Only authorized persons may edit this data: IB SUPERVISOR key required to edit."
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | INIT ; -- init variables and list array
|
|---|
| 15 | K ^TMP("IBCRLD",$J)
|
|---|
| 16 | D BLD
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | HELP ; -- help code
|
|---|
| 20 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | EXIT ; -- exit code
|
|---|
| 24 | K ^TMP("IBCRLD",$J),IBFASTXT
|
|---|
| 25 | D CLEAR^VALM1,CLEAN^VALM10
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | BLD ; build array for display of introduction screen
|
|---|
| 29 | N IBI,IBJ,IBLN,IBLN1,IBT,IBIARR K IBIARR
|
|---|
| 30 | ;
|
|---|
| 31 | S VALMCNT=0
|
|---|
| 32 | D TXT
|
|---|
| 33 | ;
|
|---|
| 34 | ; create LM display array
|
|---|
| 35 | S IBI=0 F S IBI=$O(IBIARR(IBI)) Q:'IBI D
|
|---|
| 36 | . S IBLN=IBIARR(IBI),IBLN1=""
|
|---|
| 37 | . S IBT=IBLN
|
|---|
| 38 | . S IBJ=0 F S IBJ=$O(IBIARR(IBI,IBJ)) Q:'IBJ D
|
|---|
| 39 | .. S IBLN1=IBIARR(IBI,IBJ)
|
|---|
| 40 | .. D SET(IBT,IBLN1) S IBT="",IBLN1=""
|
|---|
| 41 | . I IBT'="" D SET(IBT,IBLN1)
|
|---|
| 42 | ;
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | SET(IBT,IBL) ;
|
|---|
| 46 | N IBX
|
|---|
| 47 | S VALMCNT=VALMCNT+1
|
|---|
| 48 | S IBX=$E(IBT,U,20)
|
|---|
| 49 | S IBX=IBX_$J("",(25-$L(IBX)))_IBL
|
|---|
| 50 | S ^TMP("IBCRLD",$J,VALMCNT,0)=IBX
|
|---|
| 51 | I IBT'="" D CNTRL^VALM10(VALMCNT,1,20,IOINHI,IOINORM)
|
|---|
| 52 | Q
|
|---|
| 53 | ;
|
|---|
| 54 | TXT ; set up array with text
|
|---|
| 55 | ;
|
|---|
| 56 | N IBC,IBC1
|
|---|
| 57 | S (IBC,IBC1)=0
|
|---|
| 58 | S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Rate Type:"
|
|---|
| 59 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Type of Payer."
|
|---|
| 60 | ;
|
|---|
| 61 | S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Billing Rate:"
|
|---|
| 62 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Type of Charge."
|
|---|
| 63 | ;
|
|---|
| 64 | S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Charge Set:"
|
|---|
| 65 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Charges for a specific Billing Rate, broken down by"
|
|---|
| 66 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="type of event to be billed/charged."
|
|---|
| 67 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" Charge Item: The individual items for a Set"
|
|---|
| 68 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" and their charge amounts."
|
|---|
| 69 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" Billing Region: The region or divisions the"
|
|---|
| 70 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" charges apply to."
|
|---|
| 71 | ;
|
|---|
| 72 | S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Rate Schedule:"
|
|---|
| 73 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Definition of charges billable to specific payers."
|
|---|
| 74 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Link between Charge Sets and Rate Types."
|
|---|
| 75 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Once the Rate Type is set for a bill, the"
|
|---|
| 76 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Rate Schedule will be used to find all charges to"
|
|---|
| 77 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="add to the bill."
|
|---|
| 78 | ;
|
|---|
| 79 | S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Special Groups:"
|
|---|
| 80 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Special requirements that are applied when charges are"
|
|---|
| 81 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)="calculated for a bill: "
|
|---|
| 82 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" Revenue Code links to care provided"
|
|---|
| 83 | S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" Provider discounts"
|
|---|
| 84 | Q
|
|---|
