| 1 | IBORAT1B ;ALB/RJS - DATE SETUP IBROUTINE - 3/02/92
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;CALLED BY IBORAT1A
|
|---|
| 4 | ;THIS IBROUTINE PARSES A TMP FILE CONTAINING DATA FROM FILES
|
|---|
| 5 | ;350.2 AND CALCULATES BEGINNING AND ENDING DATES
|
|---|
| 6 | ;FOR BILLING RATES AND MEDICARE DEDUCTIBLES.
|
|---|
| 7 | ;EG. IF RATE IS EFFECTIVE ON 1/1/87 AND IS SUPERSEDED BY A NEW RATE
|
|---|
| 8 | ;ON 1/1/88 IT IS IN EFFECT FROM 1/1/87-12/31/87
|
|---|
| 9 | ;THIS DATA IS STORED IN ^TMP($J,IBROUT,IBSPEC,IBEFFDAT)=IBCANCEL^AMOUNT
|
|---|
| 10 | ;OUTPUT BY IBORAT4
|
|---|
| 11 | ;
|
|---|
| 12 | START ;
|
|---|
| 13 | S IBROUT="IBORAT1A",IBSPEC=""
|
|---|
| 14 | F S IBSPEC=$O(^TMP($J,IBROUT,IBSPEC)) Q:IBSPEC="" D IBSPEC2
|
|---|
| 15 | END ;
|
|---|
| 16 | K IBCANCEL,IBEFFDAT,IBROUT,IBSPEC,X,X1,X2
|
|---|
| 17 | Q
|
|---|
| 18 | IBSPEC2 ;
|
|---|
| 19 | S IBEFFDAT=-1
|
|---|
| 20 | F S IBEFFDAT=$O(^TMP($J,IBROUT,IBSPEC,IBEFFDAT)) Q:IBEFFDAT="" D IBCANCEL
|
|---|
| 21 | Q
|
|---|
| 22 | IBCANCEL ;
|
|---|
| 23 | S IBCANCEL=$O(^TMP($J,IBROUT,IBSPEC,IBEFFDAT))
|
|---|
| 24 | I IBCANCEL="" D CANDATE2 Q
|
|---|
| 25 | S X1=IBCANCEL,X2=-1 D C^%DTC
|
|---|
| 26 | S ^TMP($J,IBROUT,IBSPEC,IBEFFDAT)=X_"^"_^(IBEFFDAT)
|
|---|
| 27 | Q
|
|---|
| 28 | CANDATE2 ;
|
|---|
| 29 | S ^TMP($J,IBROUT,IBSPEC,IBEFFDAT)=9999999_"^"_^(IBEFFDAT)
|
|---|
| 30 | Q
|
|---|
