source: FOIAVistA/trunk/r/ZZOTHER/MUSMCR3.m@ 686

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

initial load of FOIAVistA 6/30/08 version

File size: 426 bytes
Line 
1MUSMCR3 ;ROSE'S DRUG SEARCH
2 Q
3BEG ;
4 S NAME=$P(^DPT(DFN,0),"^",1)
5 S DPT01=$P(^DPT(DFN,0),U),DPT01=$P(DPT01,",",2)_" _$P(DPT01,",",1)
6 S ADD=$S($D(^DPT(DFN,.11)):^(.11),1:"")
7 S AD1=$P(ADD,U,1),AD2=$P(ADD,U,2),CTY=$P(ADD,U,4)
8 S SN=$P(ADD,U,5),ZIP=$P(ADD,U,6)
9 S ST=$S($D(^DIC(5,+SN,0)):$P(^(0), U,2),1:SN)
10 W !?5,DPT01
11 W !?5,AD1
12 I AD2]"" W !?5,AD2 W !?5,CTY," ",ST," ",ZIP
13 I "Pp"[$E(LET,1) W !?5,^MUSMCRM(D)
14 W @IOF Q
Note: See TracBrowser for help on using the repository browser.