W ! S DIC("B")=$P($G(^GMT(142,+$G(^DISV(+$G(DUZ),"^GMT(142,")),0)),U),GMTSTYP=0 S:'$D(DFN) DFN=$S($D(ORVP):$P(ORVP,";"),1:"") D SELPT^GMTS:+DFN'>0,SELTYP^GMTS Q:GMTSTYP'>0 D HSOUT^GMTS
DESCRIPTION
Generates a Health Summary of a specified pre-defined Health Summary Type for
a specified patient.