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 ---[H[J[2J[HPRCFSI1 1013 printed Nov 22, 2024@17:14:30 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
