| [613] | 1 | PRCHPRC1 ;WISC/DJM-FILE 442 CONVERSION ROUTINE, CONTINUED ;1/15/95 1:40 PM
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | BBFY(A,B,C) ;A=station #, B=fcp#, C=1 if display available year
|
|---|
| 5 | ;EF value ~1=0-node of file 420.14, ~2=fcp bbfy, ~3=length of fund, ~4=default year
|
|---|
| 6 | N D,E,F,G,H,I,J
|
|---|
| 7 | S D=$G(^PRC(420,+A,1,+B,5)) I D="" QUIT ""
|
|---|
| 8 | S E=+$$DATE^PRC0C($P(D,"^",8),"I")
|
|---|
| 9 | S F=$$FUND^PRC0C($P(D,"^",1),E) I F="" QUIT ""
|
|---|
| 10 | S $P(F,"~",2)=E,G=$P(F,"^",5)-$P(F,"^",4)+1,$P(F,"~",3)=G
|
|---|
| 11 | S J=+$$DATE^PRC0C($H,"H"),$P(F,"~",4)=J
|
|---|
| 12 | I C D
|
|---|
| 13 | . F I=J-G+1:1:J+G+1 Q:I-E#G=0
|
|---|
| 14 | . S E=I,I="" F H=-3*G+E:G:3*G+E S I=I_H_" " S:H'>J $P(F,"~",4)=H
|
|---|
| 15 | . QUIT
|
|---|
| 16 | QUIT F
|
|---|
