NURASPL ;HIRMFO/MD-VIEW OF INDIVIDUAL STAFF POSITIONS
;;4.0;NURSING SERVICE;;Apr 25, 1997
A Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^")=1
W @IOF S DIC="^NURSF(210,",DIC(0)="AEQMZ",DIC("A")="Select Nursing Staff Name: " D ^DIC K DIC G:"^"[X QUIT
I '+Y W $C(7),!!,"NO STAFF RECORD FOR THIS EMPLOYEE:",! G QUIT
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
D WRITE^NURAED1,WRT1^NURAED1,QC^NURAED1 K NURSDBA
W !!,$C(7),"Press return to continue: " R X:DTIME
G A
QUIT ;
K NUR200C,NUROUT,X2,X1,NURSLS,NURSDBA,NID,NURSDT,X,Y,Z D:$D(NURSADD) ^%ZISC
Q
EN1 ; ENTRY POINT TO DISPLAY CURRENT ASSIGNMENTS IN STAFF PRINT
S NURSDBA=+D0,NUROUT=0,NURLS="C",NID=$S($D(^NURSF(210,+NURSDBA,0)):$P(^(0),"^"),1:""),NURSTDT=DT
D WRITE^NURAED1,WRT1^NURAED1,QC^NURAED1 K NURSDBA
D EN11^NURSUT0($G(D0))
S Z=$$EN12^NURSUT0(D0) W !,?24,"SALARY: ",$J(+Z,6,2)
D QUIT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURASPL 1003 printed Nov 22, 2024@17:30:08 Page 2
NURASPL ;HIRMFO/MD-VIEW OF INDIVIDUAL STAFF POSITIONS
+1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
A if '$DATA(^DIC(213.9,1,"OFF"))
QUIT
if $PIECE(^DIC(213.9,1,"OFF"),"^")=1
QUIT
+1 WRITE @IOF
SET DIC="^NURSF(210,"
SET DIC(0)="AEQMZ"
SET DIC("A")="Select Nursing Staff Name: "
DO ^DIC
KILL DIC
if "^"[X
GOTO QUIT
+2 IF '+Y
WRITE $CHAR(7),!!,"NO STAFF RECORD FOR THIS EMPLOYEE:",!
GOTO QUIT
+3 SET NURSDBA=+Y
SET NUROUT=0
SET NURLS="A"
SET NID=$SELECT($DATA(^NURSF(210,+NURSDBA,0)):$PIECE(^(0),"^"),1:"")
SET X1=$ORDER(^NURSF(211.8,"ASDT",+NID,""))
SET X2=-1
DO C^%DTC
SET Y=X
KILL X1,X2
SET NURSTDT=Y
+4 DO WRITE^NURAED1
DO WRT1^NURAED1
DO QC^NURAED1
KILL NURSDBA
+5 WRITE !!,$CHAR(7),"Press return to continue: "
READ X:DTIME
+6 GOTO A
QUIT ;
+1 KILL NUR200C,NUROUT,X2,X1,NURSLS,NURSDBA,NID,NURSDT,X,Y,Z
if $DATA(NURSADD)
DO ^%ZISC
+2 QUIT
EN1 ; ENTRY POINT TO DISPLAY CURRENT ASSIGNMENTS IN STAFF PRINT
Press return to continue: +1 SET NURSDBA=+D0
SET NUROUT=0
SET NURLS="C"
SET NID=$SELECT($DATA(^NURSF(210,+NURSDBA,0)):$PIECE(^(0),"^"),1:"")
SET NURSTDT=DT
+2 DO WRITE^NURAED1
DO WRT1^NURAED1
DO QC^NURAED1
KILL NURSDBA
+3 DO EN11^NURSUT0($GET(D0))
+4 SET Z=$$EN12^NURSUT0(D0)
WRITE !,?24,"SALARY: ",$JUSTIFY(+Z,6,2)
+5 DO QUIT
+6 QUIT
