NURASPT.m

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

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