6 lines
193 B
Mathematica
6 lines
193 B
Mathematica
|
PRCBAFCP ;WISC@ALTOONA/CLH-ADJUST FCP ;10 Sep 89/3:07 PM
|
||
|
|
V ;;5.1;IFCAP;;Oct 20, 2000
|
||
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
||
|
|
I '$D(PRC("SITE")) D ^PRCFSITE Q:'%
|
||
|
|
Q
|