NURASPL.m

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 ---NURASPL   1003     printed  Apr 09, 2024@21:24:22                                                                                                                                                                                                     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

Press return to continue: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

 +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