| [613] | 1 | FBCHACT1 ;AISC/DMK-NON VA UNAUTHORIZED DAYS FOR ACTIVITY ;01JUL01
|
|---|
| 2 | ;;3.5;FEE BASIS;**28**;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | K ^TMP("FB",$J) F I="00",10,86 S DAYS(I)=0,^TMP("FB",$J,FBK,I)=0
|
|---|
| 5 | F I=FBCHDT:0 S I=$O(^FB583("AD",FBTYPE,I)) Q:I'>0 F J=0:0 S J=$O(^FB583("AD",FBTYPE,I,J)) Q:J'>0 I $D(^FB583(J,0)) S FB(0)=^(0) D VTYPE S:PTYPE="00"!(PTYPE=10)!(PTYPE=86) ^TMP("FB",$J,VTYPE,PTYPE)=DAYS(PTYPE)
|
|---|
| 6 | Q
|
|---|
| 7 | VTYPE S VTYPE=$P(FB(0),"^",3),VTYPE=$S(VTYPE="":"",1:$S($D(^FBAAV(VTYPE,0)):$P(^(0),"^",7),1:""))
|
|---|
| 8 | I VTYPE="" S VTYPE=1
|
|---|
| 9 | S PTYPE=$P(FB(0),"^",10)
|
|---|
| 10 | S FBFRDT=$P(FB(0),"^",13),FBFRDT=$S(FBFRDT<(FBCHDT+1):FBCHDT+1,1:FBFRDT)
|
|---|
| 11 | S FBTODT=$P(FB(0),"^",14),FBTODT=$S(FBTODT>FBENDDT:FBENDDT,1:FBTODT-1)
|
|---|
| 12 | S FBDAYS=0
|
|---|
| 13 | D:FBFRDT'>FBENDDT DAYS^FBCHACT0
|
|---|
| 14 | Q:VTYPE'=FBK
|
|---|
| 15 | I PTYPE="00" S DAYS(PTYPE)=DAYS(PTYPE)+FBDAYS
|
|---|
| 16 | I PTYPE=10 S DAYS(PTYPE)=DAYS(PTYPE)+FBDAYS Q
|
|---|
| 17 | I PTYPE=86 S DAYS(PTYPE)=DAYS(PTYPE)+FBDAYS Q
|
|---|
| 18 | Q
|
|---|
