- 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 Feb 18, 2025@23:46:29 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
- +1 Press return to continue: 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
