| [613] | 1 | NURASPT ;HIRMFO/BL,RM,FT-VIEW/PRINT FOR THE INDIVIDUAL STAFF RECORD ;5/7/96 11:08
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | A ;SELECTS STAFF NAME AND CALLS THE TEMPLATE
|
|---|
| 4 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 5 | S NUROUT=0 D EN1^NURSAUTL G QUIT:NUROUT
|
|---|
| 6 | S DIC("S")="I +$$EN6^NURSUT3($G(Y))"
|
|---|
| 7 | D EN3^NURSAGP1 G:NUROUT QUIT
|
|---|
| 8 | S NURSSSN=$P(^VA(200,$P(^NURSF(210,+Y,0),U),1),U,9)
|
|---|
| 9 | S STAFFNO=+Y,L=0,DIC="^NURSF(210,",BY="@NUMBER",FLDS="[NURS-P-STF]",FR=STAFFNO,TO=STAFFNO K PG
|
|---|
| 10 | D EN1^DIP
|
|---|
| 11 | G A
|
|---|
| 12 | QUIT ;
|
|---|
| 13 | 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
|
|---|
