Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PRCBAFCP

PRCBAFCP.m

Go to the documentation of this file.

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:'%

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCBAFCP   198     printed  Dec 13, 2024@02:00:32                                                                                                                                                                                                     Page 2

PRCBAFCP  ;WISC@ALTOONA/CLH-ADJUST FCP ;10 Sep 89/3:07 PM

V         ;;5.1;IFCAP;;Oct 20, 2000

 +1       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +2        IF '$DATA(PRC("SITE"))

               DO ^PRCFSITE

               if '%

                   QUIT

 +3        QUIT