MUSMCR2.m

MUSMCR2  ;MONITORING PROGRAM

 Q

BEG ;

 I '$D(LET) S LET=""

 S NODE=$G(^DPT(DFN,.21))

 I $P(NODE,"^",1)="" Q

 S NAME=$P(^DPT(DFN,0),"^",1)

 S DPT01=$P(NODE,U),DPT01=$P(DPT01,",",2)_" "_$P(DPT01,",",1)

 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)

  W !?5,DPT01

 W !?5,"C/O: ",NAME

 W !?5,AD1

 I AD2]"" W !?5,AD2

 W !?5,CTY,"  ",ST,"  ",ZIP

 I "Pp"[$E(LET,1) W !?5,^MUSMCRM(D)

 W @IOF

 Q