source:
FOIAVistA/trunk/r/ZZOTHER/MUSMCR3.m@
794
| Last change on this file since 794 was 628, checked in by , 15 years ago | |
|---|---|
| File size: 426 bytes | |
| Line | |
|---|---|
| 1 | MUSMCR3 ;ROSE'S DRUG SEARCH |
| 2 | Q |
| 3 | BEG ; |
| 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.
