Last change
on this file since 1569 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.