|
Last change
on this file since 790 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
492 bytes
|
| Line | |
|---|
| 1 | MUSMCR2 ;MONITORING PROGRAM
|
|---|
| 2 | Q
|
|---|
| 3 | BEG ;
|
|---|
| 4 | I '$D(LET) S LET=""
|
|---|
| 5 | S NODE=$G(^DPT(DFN,.21))
|
|---|
| 6 | I $P(NODE,"^",1)="" Q
|
|---|
| 7 | S NAME=$P(^DPT(DFN,0),"^",1)
|
|---|
| 8 | S DPT01=$P(NODE,U),DPT01=$P(DPT01,",",2)_" "_$P(DPT01,",",1)
|
|---|
| 9 | S ADD=$S($D(NODE):NODE,1:""),AD1=$P(ADD,U,3),AD2=$P(ADD,U,4),CTY=$P(ADD,U,6),SN=$P(ADD,U,7),ZIP=$P(ADD,U,8),ST=$S($D(^DIC(5,+SN,0)):$P(^(0),U,2),1:SN)
|
|---|
| 10 | W !?5,DPT01
|
|---|
| 11 | W !?5,"C/O: ",NAME
|
|---|
| 12 | W !?5,AD1
|
|---|
| 13 | I AD2]"" W !?5,AD2
|
|---|
| 14 | W !?5,CTY," ",ST," ",ZIP
|
|---|
| 15 | I "Pp"[$E(LET,1) W !?5,^MUSMCRM(D)
|
|---|
| 16 | W @IOF
|
|---|
| 17 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
