source: FOIAVistA/trunk/r/CONTROLLED_SUBSTANCES-PSD/PSDSP.m@ 952

Last change on this file since 952 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 460 bytes
Line 
1PSDSP ;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)
4EN 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)),"^")
7END K CNT,JJ,LOC
Note: See TracBrowser for help on using the repository browser.