PRCBFCP1.m

PRCBFCP1 ;WISC@ALTOONA/CTB-EDIT CONTROL POINT CONT. ;9-6-90/10:26

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

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

OUT K C,D,DQ,D0,DI,DLAYGO,DWLW,I,J,NEW,NEWNAME,OLD,OLDNAME,OLDNUM,PRCFA,Y,X,DIC,DIE,DR,DA Q

REA ;REACTIVATE AN INAACTIVE FUND CONTROL POINT

 K PRCFA S PRCF("X")="AS" D ^PRCFSITE Q:'%

 S PRCFA("REACTIVATE")="",DA(1)=PRC("SITE"),DIC="^PRC(420,"_DA(1)_",1,",DIC(0)="AEMQN" D ^DIC G:Y<0 OUT S DA=+Y

 W !,$C(7) S %A="Are you sure that you wish to reactivate this Fund Control Point",%B="",%=1 D ^PRCFYN I %'=1 G OUT:%<0,REA:%=2

 S $P(^PRC(420,DA(1),1,DA,0),"^",22,24)="0^^",X=" --Fund Control Point has been reactivated*" D MSG^PRCFQ S DIC("A")="Select Next Fund Control Point: " G REA

DEA ;DEACTIVATE A CONTROL POINT

 K PRCFA S PRCF("X")="AS" D ^PRCFSITE Q:'%  S DA(1)=PRC("SITE"),DIC="^PRC(420,"_DA(1)_",1,",DIC(0)="AEMQN" D ^DIC G:Y<0 OUT S DA=+Y

 W !,$C(7) S %A="Are you sure that you wish to deactivate this Fund Control Point",%B="",%=1 D ^PRCFYN I %'=1 G OUT:%<0,DEA:%=2

 S $P(^PRC(420,DA(1),1,DA,0),"^",22,24)="1^"_DUZ_"^"_DT,X=" --Fund Control Point has been deactivated*" D MSG^PRCFQ W ! S DIC("A")="Select Next FUND CONTROL POINT: " G DEA

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCBFCP1   1220     printed  Apr 09, 2024@21:14:46                                                                                                                                                                                                    Page 2

PRCBFCP1  ;WISC@ALTOONA/CTB-EDIT CONTROL POINT CONT. ;9-6-90/10:26

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

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

OUT        KILL C,D,DQ,D0,DI,DLAYGO,DWLW,I,J,NEW,NEWNAME,OLD,OLDNAME,OLDNUM,PRCFA,Y,X,DIC,DIE,DR,DA

           QUIT 

REA       ;REACTIVATE AN INAACTIVE FUND CONTROL POINT

 +1        KILL PRCFA

           SET PRCF("X")="AS"

           DO ^PRCFSITE

           if '%

               QUIT 

 +2        SET PRCFA("REACTIVATE")=""

           SET DA(1)=PRC("SITE")

           SET DIC="^PRC(420,"_DA(1)_",1,"

           SET DIC(0)="AEMQN"

           DO ^DIC

           if Y<0

               GOTO OUT

           SET DA=+Y

 +3        WRITE !,$CHAR(7)

           SET %A="Are you sure that you wish to reactivate this Fund Control Point"

           SET %B=""

           SET %=1

           DO ^PRCFYN

           IF %'=1

               if %<0

                   GOTO OUT

               if %=2

                   GOTO REA

 +4        SET $PIECE(^PRC(420,DA(1),1,DA,0),"^",22,24)="0^^"

           SET X=" --Fund Control Point has been reactivated*"

           DO MSG^PRCFQ

           SET DIC("A")="Select Next Fund Control Point: "

           GOTO REA

DEA       ;DEACTIVATE A CONTROL POINT

 +1        KILL PRCFA

           SET PRCF("X")="AS"

           DO ^PRCFSITE

           if '%

               QUIT 

           SET DA(1)=PRC("SITE")

           SET DIC="^PRC(420,"_DA(1)_",1,"

           SET DIC(0)="AEMQN"

           DO ^DIC

           if Y<0

               GOTO OUT

           SET DA=+Y

 +2        WRITE !,$CHAR(7)

           SET %A="Are you sure that you wish to deactivate this Fund Control Point"

           SET %B=""

           SET %=1

           DO ^PRCFYN

           IF %'=1

               if %<0

                   GOTO OUT

               if %=2

                   GOTO DEA

 +3        SET $PIECE(^PRC(420,DA(1),1,DA,0),"^",22,24)="1^"_DUZ_"^"_DT

           SET X=" --Fund Control Point has been deactivated*"

           DO MSG^PRCFQ

           WRITE !

           SET DIC("A")="Select Next FUND CONTROL POINT: "

           GOTO DEA