IBCRLD ;ALB/ARH - RATES: DISPLAY INTRO ; 16-MAY-1996
;;2.0;INTEGRATED BILLING;**52,106**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
EN ; -- main entry point for IBCR INTRODUCTION
D EN^VALM("IBCR INTRODUCTION")
K VALMBCK
Q
;
HDR ; -- header code
S VALMHDR(1)="Only authorized persons may edit this data: IB SUPERVISOR key required to edit."
Q
;
INIT ; -- init variables and list array
K ^TMP("IBCRLD",$J)
D BLD
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
K ^TMP("IBCRLD",$J),IBFASTXT
D CLEAR^VALM1,CLEAN^VALM10
Q
;
BLD ; build array for display of introduction screen
N IBI,IBJ,IBLN,IBLN1,IBT,IBIARR K IBIARR
;
S VALMCNT=0
D TXT
;
; create LM display array
S IBI=0 F S IBI=$O(IBIARR(IBI)) Q:'IBI D
. S IBLN=IBIARR(IBI),IBLN1=""
. S IBT=IBLN
. S IBJ=0 F S IBJ=$O(IBIARR(IBI,IBJ)) Q:'IBJ D
.. S IBLN1=IBIARR(IBI,IBJ)
.. D SET(IBT,IBLN1) S IBT="",IBLN1=""
. I IBT'="" D SET(IBT,IBLN1)
;
Q
;
SET(IBT,IBL) ;
N IBX
S VALMCNT=VALMCNT+1
S IBX=$E(IBT,U,20)
S IBX=IBX_$J("",(25-$L(IBX)))_IBL
S ^TMP("IBCRLD",$J,VALMCNT,0)=IBX
I IBT'="" D CNTRL^VALM10(VALMCNT,1,20,IOINHI,IOINORM)
Q
;
TXT ; set up array with text
;
N IBC,IBC1
S (IBC,IBC1)=0
S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Rate Type:"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Type of Payer."
;
S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Billing Rate:"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Type of Charge."
;
S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Charge Set:"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Charges for a specific Billing Rate, broken down by"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="type of event to be billed/charged."
S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" Charge Item: The individual items for a Set"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" and their charge amounts."
S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" Billing Region: The region or divisions the"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" charges apply to."
;
S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Rate Schedule:"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Definition of charges billable to specific payers."
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Link between Charge Sets and Rate Types."
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Once the Rate Type is set for a bill, the"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Rate Schedule will be used to find all charges to"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="add to the bill."
;
S IBC=IBC+1,IBC1=0,IBIARR(IBC)="Special Groups:"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="Special requirements that are applied when charges are"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)="calculated for a bill: "
S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" Revenue Code links to care provided"
S IBC1=IBC1+1,IBIARR(IBC,IBC1)=" Provider discounts"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCRLD 2816 printed Dec 13, 2024@02:19:41 Page 2
IBCRLD ;ALB/ARH - RATES: DISPLAY INTRO ; 16-MAY-1996
+1 ;;2.0;INTEGRATED BILLING;**52,106**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
EN ; -- main entry point for IBCR INTRODUCTION
+1 DO EN^VALM("IBCR INTRODUCTION")
+2 KILL VALMBCK
+3 QUIT
+4 ;
HDR ; -- header code
+1 SET VALMHDR(1)="Only authorized persons may edit this data: IB SUPERVISOR key required to edit."
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 KILL ^TMP("IBCRLD",$JOB)
+2 DO BLD
+3 QUIT
+4 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 KILL ^TMP("IBCRLD",$JOB),IBFASTXT
+2 DO CLEAR^VALM1
DO CLEAN^VALM10
+3 QUIT
+4 ;
BLD ; build array for display of introduction screen
+1 NEW IBI,IBJ,IBLN,IBLN1,IBT,IBIARR
KILL IBIARR
+2 ;
+3 SET VALMCNT=0
+4 DO TXT
+5 ;
+6 ; create LM display array
+7 SET IBI=0
FOR
SET IBI=$ORDER(IBIARR(IBI))
if 'IBI
QUIT
Begin DoDot:1
+8 SET IBLN=IBIARR(IBI)
SET IBLN1=""
+9 SET IBT=IBLN
+10 SET IBJ=0
FOR
SET IBJ=$ORDER(IBIARR(IBI,IBJ))
if 'IBJ
QUIT
Begin DoDot:2
+11 SET IBLN1=IBIARR(IBI,IBJ)
+12 DO SET(IBT,IBLN1)
SET IBT=""
SET IBLN1=""
End DoDot:2
+13 IF IBT'=""
DO SET(IBT,IBLN1)
End DoDot:1
+14 ;
+15 QUIT
+16 ;
SET(IBT,IBL) ;
+1 NEW IBX
+2 SET VALMCNT=VALMCNT+1
+3 SET IBX=$EXTRACT(IBT,U,20)
+4 SET IBX=IBX_$JUSTIFY("",(25-$LENGTH(IBX)))_IBL
+5 SET ^TMP("IBCRLD",$JOB,VALMCNT,0)=IBX
+6 IF IBT'=""
DO CNTRL^VALM10(VALMCNT,1,20,IOINHI,IOINORM)
+7 QUIT
+8 ;
TXT ; set up array with text
+1 ;
+2 NEW IBC,IBC1
+3 SET (IBC,IBC1)=0
+4 SET IBC=IBC+1
SET IBC1=0
SET IBIARR(IBC)="Rate Type:"
+5 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="Type of Payer."
+6 ;
+7 SET IBC=IBC+1
SET IBC1=0
SET IBIARR(IBC)="Billing Rate:"
+8 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="Type of Charge."
+9 ;
+10 SET IBC=IBC+1
SET IBC1=0
SET IBIARR(IBC)="Charge Set:"
+11 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="Charges for a specific Billing Rate, broken down by"
+12 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="type of event to be billed/charged."
+13 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)=" Charge Item: The individual items for a Set"
+14 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)=" and their charge amounts."
+15 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)=" Billing Region: The region or divisions the"
+16 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)=" charges apply to."
+17 ;
+18 SET IBC=IBC+1
SET IBC1=0
SET IBIARR(IBC)="Rate Schedule:"
+19 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="Definition of charges billable to specific payers."
+20 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="Link between Charge Sets and Rate Types."
+21 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="Once the Rate Type is set for a bill, the"
+22 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="Rate Schedule will be used to find all charges to"
+23 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="add to the bill."
+24 ;
+25 SET IBC=IBC+1
SET IBC1=0
SET IBIARR(IBC)="Special Groups:"
+26 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="Special requirements that are applied when charges are"
+27 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)="calculated for a bill: "
+28 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)=" Revenue Code links to care provided"
+29 SET IBC1=IBC1+1
SET IBIARR(IBC,IBC1)=" Provider discounts"
+30 QUIT
