- 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 Mar 13, 2025@21:25:08 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
