Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
460 bytes
|
Line | |
---|
1 | PSDSP ;BIR/JPW-Check for Disp Site - one or more ; 27 Jul 92
|
---|
2 | ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
|
---|
3 | I '$D(PSDSITE) D ^PSDSET Q:'$D(PSDSITE)
|
---|
4 | 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
|
---|
5 | I '$D(LOC(1)) W !!,"Please contact your Pharmacy Coordinator.",!,"You have not defined a pharmacy Dispensing Site",!! G END
|
---|
6 | S:'$D(LOC(2)) PSDS=+LOC(1),PSDSN=$P($G(^PSD(58.8,+PSDS,0)),"^")
|
---|
7 | END K CNT,JJ,LOC
|
---|
Note:
See
TracBrowser
for help on using the repository browser.