PRCFSI1.m

PRCFSI1 ;WISC/CLH-SITE PARAMETERS CON'T ;8-31-90/09:55

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

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

AFU K PRC("L") S PRC("L")=0 I $O(^PRC(411,"AE",1,0)) S PRC("L")="",N=0 F ZI=1:1 S N=$O(^PRC(411,N)) Q:'N  I $P(^PRC(411,N,0),"^",22)=1,$D(^PRC(411,N,6,"B",DUZ)) S PRC("L")=PRC("L")+1,PRC("L",N)=""

 K ZI,PRC("FU") I PRC("L")="" S X="YOU ARE NOT AN AUTHORIZED FISCAL USER.  CONTACT SITE MANAGER.*" D MSG^PRCFQ S PRC("FU")=1 Q

 I PRC("L")=1 S PRC("I")=$O(PRC("L",0)) K:PRC("I")="" PRC("I") I $D(PRC("I")) S PRC("SITE")=+^PRC(411,+PRC("I"),0)

 I '$D(PRC("I")) S PRC("I")=$S($D(^PRC(411,"AC",1))&($O(^(1,0))):$P(^PRC(411,$O(^(0)),0),"^"),1:$P(^PRC(411,$O(^PRC(411,0)),0),U,1))

 Q

AFU1 K PRC("FU") I $O(^PRC(411,"AE",1,0)),'$D(PRC("SP")),$P(^PRC(411,PRC("SITE"),0),U,22)=1,'$D(^PRC(411,PRC("SITE"),6,"B",DUZ)) D A1

 Q

A1 S X="You are not an AUTHORIZED USER FISCAL user for Station "_PRC("SITE")_".  No further actions taken.*" D MSG^PRCFQ S PRC("FU")=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCFSI1   1013     printed  Apr 23, 2025@18:18:53                                                                                                                                                                                                     Page 2

PRCFSI1   ;WISC/CLH-SITE PARAMETERS CON'T ;8-31-90/09:55

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

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

AFU        KILL PRC("L")

           SET PRC("L")=0

           IF $ORDER(^PRC(411,"AE",1,0))

               SET PRC("L")=""

               SET N=0

               FOR ZI=1:1

                   SET N=$ORDER(^PRC(411,N))

                   if 'N

                       QUIT 

                   IF $PIECE(^PRC(411,N,0),"^",22)=1

                       IF $DATA(^PRC(411,N,6,"B",DUZ))

                           SET PRC("L")=PRC("L")+1

                           SET PRC("L",N)=""

 +1        KILL ZI,PRC("FU")

           IF PRC("L")=""

               SET X="YOU ARE NOT AN AUTHORIZED FISCAL USER.  CONTACT SITE MANAGER.*"

               DO MSG^PRCFQ

               SET PRC("FU")=1

               QUIT 

 +2        IF PRC("L")=1

               SET PRC("I")=$ORDER(PRC("L",0))

               if PRC("I")=""

                   KILL PRC("I")

               IF $DATA(PRC("I"))

                   SET PRC("SITE")=+^PRC(411,+PRC("I"),0)

 +3        IF '$DATA(PRC("I"))

               SET PRC("I")=$SELECT($DATA(^PRC(411,"AC",1))&($ORDER(^(1,0))):$PIECE(^PRC(411,$ORDER(^(0)),0),"^"),1:$PIECE(^PRC(411,$ORDER(^PRC(411,0)),0),U,1))

 +4        QUIT 

AFU1       KILL PRC("FU")

           IF $ORDER(^PRC(411,"AE",1,0))

               IF '$DATA(PRC("SP"))

                   IF $PIECE(^PRC(411,PRC("SITE"),0),U,22)=1

                       IF '$DATA(^PRC(411,PRC("SITE"),6,"B",DUZ))

                           DO A1

 +1        QUIT 

A1         SET X="You are not an AUTHORIZED USER FISCAL user for Station "_PRC("SITE")_".  No further actions taken.*"

           DO MSG^PRCFQ

           SET PRC("FU")=1

 +1        QUIT