IBORAT2B.m

IBORAT2B	;ALB/RJS - DATE SETUP IBIBROUTINE  - 1/22/92

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;CALLED BY IBORAT

	;THIS ROUTINE PARSES A TMP FILE CONTAINING DATA FROM FILE

	;399.5 AND CALCULATES BEGINNING AND ENDING DATES

	;FOR BILLING RATES AND MEDICARE DEDUCTIBLES.

	;EG. IF RATE IS EFFECTIVE ON 1/1/87 AND IS SUPERSEDED BY A NEW RATE

	;ON 1/1/88 IT IS IN EFFECT FROM 1/1/87-12/31/87

	;THIS DATA IS STORED IN 

	;^TMP($J,IBROUT,IBSPEC,IBREVCDE,IBEFFDAT)=IBCANCEL^AMOUNT^ACTIVE

	;OUTPUT BY IBORAT2C

	;

START	;

	S IBROUT="IBORAT2A",IBSPEC=""

	F  S IBSPEC=$O(^TMP($J,IBROUT,IBSPEC)) Q:IBSPEC=""  D IBREVCDE

END	;

	K IBCANCEL,IBEFFDAT,IBREVCDE,IBROUT,IBSPEC,X,X1,X2

	Q

IBREVCDE	;

	S IBREVCDE=""

	F  S IBREVCDE=$O(^TMP($J,IBROUT,IBSPEC,IBREVCDE)) Q:IBREVCDE=""  D IBPAYORS

	Q

IBPAYORS	;

	S IBPAYORS=""

	F  S IBPAYORS=$O(^TMP($J,IBROUT,IBSPEC,IBREVCDE,IBPAYORS)) Q:IBPAYORS=""  D IBEFFDAT

	Q

IBEFFDAT	;

	S IBEFFDAT=-1

	F  S IBEFFDAT=$O(^TMP($J,IBROUT,IBSPEC,IBREVCDE,IBPAYORS,IBEFFDAT)) Q:IBEFFDAT=""  D IBCANCEL

	Q

IBCANCEL	;

	S IBCANCEL=$O(^TMP($J,IBROUT,IBSPEC,IBREVCDE,IBPAYORS,IBEFFDAT))

	I IBCANCEL="" D CANDATE2 Q

	S X1=IBCANCEL,X2=-1 D C^%DTC

	S ^TMP($J,"IBORAT2B",IBSPEC,IBEFFDAT,IBREVCDE,IBPAYORS)=X_"^"_^(IBEFFDAT)

	Q

CANDATE2	;

	S ^TMP($J,"IBORAT2B",IBSPEC,IBEFFDAT,IBREVCDE,IBPAYORS)=9999999_"^"_^(IBEFFDAT)

	Q

IBORAT2B  ;ALB/RJS - DATE SETUP IBIBROUTINE  - 1/22/92

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2       ;CALLED BY IBORAT

 +3       ;THIS ROUTINE PARSES A TMP FILE CONTAINING DATA FROM FILE

 +4       ;399.5 AND CALCULATES BEGINNING AND ENDING DATES

 +5       ;FOR BILLING RATES AND MEDICARE DEDUCTIBLES.

 +6       ;EG. IF RATE IS EFFECTIVE ON 1/1/87 AND IS SUPERSEDED BY A NEW RATE

 +7       ;ON 1/1/88 IT IS IN EFFECT FROM 1/1/87-12/31/87

 +8       ;THIS DATA IS STORED IN 

 +9       ;^TMP($J,IBROUT,IBSPEC,IBREVCDE,IBEFFDAT)=IBCANCEL^AMOUNT^ACTIVE

 +10      ;OUTPUT BY IBORAT2C

 +11      ;

START     ;

 +1        SET IBROUT="IBORAT2A"

           SET IBSPEC=""

 +2        FOR 

               SET IBSPEC=$ORDER(^TMP($JOB,IBROUT,IBSPEC))

               IF IBSPEC=""

                   QUIT 

               DO IBREVCDE

END       ;

 +1        KILL IBCANCEL,IBEFFDAT,IBREVCDE,IBROUT,IBSPEC,X,X1,X2

 +2        QUIT 

IBREVCDE  ;

 +1        SET IBREVCDE=""

 +2        FOR 

               SET IBREVCDE=$ORDER(^TMP($JOB,IBROUT,IBSPEC,IBREVCDE))

               IF IBREVCDE=""

                   QUIT 

               DO IBPAYORS

 +3        QUIT 

IBPAYORS  ;

 +1        SET IBPAYORS=""

 +2        FOR 

               SET IBPAYORS=$ORDER(^TMP($JOB,IBROUT,IBSPEC,IBREVCDE,IBPAYORS))

               IF IBPAYORS=""

                   QUIT 

               DO IBEFFDAT

 +3        QUIT 

IBEFFDAT  ;

 +1        SET IBEFFDAT=-1

 +2        FOR 

               SET IBEFFDAT=$ORDER(^TMP($JOB,IBROUT,IBSPEC,IBREVCDE,IBPAYORS,IBEFFDAT))

               IF IBEFFDAT=""

                   QUIT 

               DO IBCANCEL

 +3        QUIT 

IBCANCEL  ;

 +1        SET IBCANCEL=$ORDER(^TMP($JOB,IBROUT,IBSPEC,IBREVCDE,IBPAYORS,IBEFFDAT))

 +2        IF IBCANCEL=""

               DO CANDATE2

               QUIT 

 +3        SET X1=IBCANCEL

           SET X2=-1

           DO C^%DTC

 +4        SET ^TMP($JOB,"IBORAT2B",IBSPEC,IBEFFDAT,IBREVCDE,IBPAYORS)=X_"^"_^(IBEFFDAT)

 +5        QUIT 

CANDATE2  ;

 +1        SET ^TMP($JOB,"IBORAT2B",IBSPEC,IBEFFDAT,IBREVCDE,IBPAYORS)=9999999_"^"_^(IBEFFDAT)

 +2        QUIT