| [613] | 1 | NURASPL ;HIRMFO/MD-VIEW OF INDIVIDUAL STAFF POSITIONS
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | A Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^")=1
|
|---|
| 4 | W @IOF S DIC="^NURSF(210,",DIC(0)="AEQMZ",DIC("A")="Select Nursing Staff Name: " D ^DIC K DIC G:"^"[X QUIT
|
|---|
| 5 | I '+Y W $C(7),!!,"NO STAFF RECORD FOR THIS EMPLOYEE:",! G QUIT
|
|---|
| 6 | S NURSDBA=+Y,NUROUT=0,NURLS="A",NID=$S($D(^NURSF(210,+NURSDBA,0)):$P(^(0),"^"),1:""),X1=$O(^NURSF(211.8,"ASDT",+NID,"")),X2=-1 D C^%DTC S Y=X K X1,X2 S NURSTDT=Y
|
|---|
| 7 | D WRITE^NURAED1,WRT1^NURAED1,QC^NURAED1 K NURSDBA
|
|---|
| 8 | W !!,$C(7),"Press return to continue: " R X:DTIME
|
|---|
| 9 | G A
|
|---|
| 10 | QUIT ;
|
|---|
| 11 | K NUR200C,NUROUT,X2,X1,NURSLS,NURSDBA,NID,NURSDT,X,Y,Z D:$D(NURSADD) ^%ZISC
|
|---|
| 12 | Q
|
|---|
| 13 | EN1 ; ENTRY POINT TO DISPLAY CURRENT ASSIGNMENTS IN STAFF PRINT
|
|---|
| 14 | S NURSDBA=+D0,NUROUT=0,NURLS="C",NID=$S($D(^NURSF(210,+NURSDBA,0)):$P(^(0),"^"),1:""),NURSTDT=DT
|
|---|
| 15 | D WRITE^NURAED1,WRT1^NURAED1,QC^NURAED1 K NURSDBA
|
|---|
| 16 | D EN11^NURSUT0($G(D0))
|
|---|
| 17 | S Z=$$EN12^NURSUT0(D0) W !,?24,"SALARY: ",$J(+Z,6,2)
|
|---|
| 18 | D QUIT
|
|---|
| 19 | Q
|
|---|
