source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHPRC1.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 688 bytes
Line 
1PRCHPRC1 ;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.
4BBFY(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
Note: See TracBrowser for help on using the repository browser.