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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURASPT 663 printed Dec 13, 2024@02:20:05 Page 2
NURASPT ;HIRMFO/BL,RM,FT-VIEW/PRINT FOR THE INDIVIDUAL STAFF RECORD ;5/7/96 11:08
+1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
A ;SELECTS STAFF NAME AND CALLS THE TEMPLATE
+1 if '$DATA(^DIC(213.9,1,"OFF"))
QUIT
if $PIECE(^DIC(213.9,1,"OFF"),"^",1)=1
QUIT
+2 SET NUROUT=0
DO EN1^NURSAUTL
if NUROUT
GOTO QUIT
+3 SET DIC("S")="I +$$EN6^NURSUT3($G(Y))"
+4 DO EN3^NURSAGP1
if NUROUT
GOTO QUIT
+5 SET NURSSSN=$PIECE(^VA(200,$PIECE(^NURSF(210,+Y,0),U),1),U,9)
+6 SET STAFFNO=+Y
SET L=0
SET DIC="^NURSF(210,"
SET BY="@NUMBER"
SET FLDS="[NURS-P-STF]"
SET FR=STAFFNO
SET TO=STAFFNO
KILL PG
+7 DO EN1^DIP
+8 GOTO A
QUIT ;
+1 KILL 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
QUIT
