PSDSP.m

PSDSP ;BIR/JPW-Check for Disp Site - one or more ; 27 Jul 92

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 I '$D(PSDSITE) D ^PSDSET Q:'$D(PSDSITE)

EN S CNT=0 F LOC="M","S" F JJ=0:0 S JJ=$O(^PSD(58.8,"ASITE",+PSDSITE,LOC,JJ)) Q:'JJ  S CNT=CNT+1,LOC(CNT)=JJ

 I '$D(LOC(1)) W !!,"Please contact your Pharmacy Coordinator.",!,"You have not defined a pharmacy Dispensing Site",!! G END

 S:'$D(LOC(2)) PSDS=+LOC(1),PSDSN=$P($G(^PSD(58.8,+PSDS,0)),"^")

END K CNT,JJ,LOC

PSDSP     ;BIR/JPW-Check for Disp Site - one or more ; 27 Jul 92

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 +2        IF '$DATA(PSDSITE)

               DO ^PSDSET

               IF '$DATA(PSDSITE)

                   QUIT 

EN         SET CNT=0

           FOR LOC="M","S"

               FOR JJ=0:0

                   SET JJ=$ORDER(^PSD(58.8,"ASITE",+PSDSITE,LOC,JJ))

                   IF 'JJ

                       QUIT 

                   SET CNT=CNT+1

                   SET LOC(CNT)=JJ

 +1        IF '$DATA(LOC(1))

               WRITE !!,"Please contact your Pharmacy Coordinator.",!,"You have not defined a pharmacy Dispensing Site",!!

               GOTO END

 +2        IF '$DATA(LOC(2))

               SET PSDS=+LOC(1)

               SET PSDSN=$PIECE($GET(^PSD(58.8,+PSDS,0)),"^")

END        KILL CNT,JJ,LOC