NURASPT ;HIRMFO/BL,RM,FT-VIEW/PRINT FOR THE INDIVIDUAL STAFF RECORD ;5/7/96  11:08
 ;;4.0;NURSING SERVICE;;Apr 25, 1997
A ;SELECTS STAFF NAME AND CALLS THE TEMPLATE
 Q:'$D(^DIC(213.9,1,"OFF"))  Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
 S NUROUT=0 D EN1^NURSAUTL G QUIT:NUROUT
 S DIC("S")="I +$$EN6^NURSUT3($G(Y))"
 D EN3^NURSAGP1 G:NUROUT QUIT
 S NURSSSN=$P(^VA(200,$P(^NURSF(210,+Y,0),U),1),U,9)
 S STAFFNO=+Y,L=0,DIC="^NURSF(210,",BY="@NUMBER",FLDS="[NURS-P-STF]",FR=STAFFNO,TO=STAFFNO K PG
 D EN1^DIP
 G A
QUIT ;
 K N1,N2,NOD1,NOD2,NURNODE4,NURAS,X,Y,ZTSK,NX,NUROUT,NURSSSN,STAFFNO,FR,TO,PG,BY,DIC,FLDS,L,NURSZDA,NURSZAP,NURSZLO,NURSZSP,NURSZORT,NURSX Q