| [613] | 1 | NURAED4 ;HIRMFO/MD/RM-DATA ENTRY FOR POSITION ;10/15/90
|
|---|
| 2 | ;;4.0;NURSING SERVICE;**2,7**;Apr 25, 1997
|
|---|
| 3 | EDTADD ;
|
|---|
| 4 | K NURSW D GETNOD I $D(^VA(200,ID,.11)),($P(^(.11),"^",1)!($P(^(.11),"^",2)'="")!($P(^(.11),"^",3)'="")!($P(^(.11),"^",4)'="")!($P(^(.11),"^",5)'="")!($P(^(.11),"^",6)'=""))
|
|---|
| 5 | E S NURSW=1 Q
|
|---|
| 6 | S NURSADD1=$P(^VA(200,ID,.11),"^",1),NURSADD2=$P(^(.11),"^",2),NURSADD3=$P(^(.11),"^",3),NURSCITY=$P(^(.11),"^",4),NURSZIP=$P(^(.11),"^",6),NURSTATE=$S($P(^(.11),"^",5)="":"",'$D(^DIC(5,$P(^VA(200,ID,.11),"^",5),0)):"",1:$P(^(0),"^",1))
|
|---|
| 7 | W !,"STREET ADDRESS: ",NURSADD1 G PRT
|
|---|
| 8 | EDTMAIL ;
|
|---|
| 9 | K NURSW
|
|---|
| 10 | I $D(^NURSF(210,DA,15)),($P(^(15),"^",1)'=""!($P(^(15),"^",2)'="")!($P(^(15),"^",3)'="")!($P(^(15),"^",4)'="")!($P(^(15),"^",5)'="")!($P(^(15),"^",6)'=""))
|
|---|
| 11 | E S NURSW=1 Q
|
|---|
| 12 | S NURSADD1=$P(^NURSF(210,DA,15),"^",1),NURSADD2=$P(^(15),"^",2),NURSADD3=$P(^(15),"^",3),NURSCITY=$P(^(15),"^",4),NURSZIP=$P(^(15),"^",6),NURSTATE=$S($P(^(15),"^",5)="":"",'$D(^DIC(5,$P(^NURSF(210,DA,15),"^",5),0)):"",1:$P(^(0),"^",1))
|
|---|
| 13 | W !,"MAILING ADDRESS: ",NURSADD1
|
|---|
| 14 | PRT W:NURSADD2'="" !,?18,NURSADD2 W:NURSADD3'="" !,?18,NURSADD3
|
|---|
| 15 | W !,"CITY: ",NURSCITY,!,"STATE: ",NURSTATE,?20,"ZIP CODE: ",NURSZIP
|
|---|
| 16 | K NURSADD1,NURSADD2,NURSADD3,NURSCITY,NURSTATE,NURSZIP,ID
|
|---|
| 17 | Q
|
|---|
| 18 | GETNOD ;OBTAIN POINTER TO VA(200
|
|---|
| 19 | S ID=$P(^NURSF(210,+NURSDBA,0),"^")
|
|---|
| 20 | Q
|
|---|
| 21 | STST ; SET START DATE FOR POSITION DISPLAY
|
|---|
| 22 | W !!,"Would you like to see this employee's (C)urrent or (P)ast",!,"positions: C// " R NURLS:DTIME I '$T!(NURLS?1"^".E) S NUROUT=1 Q
|
|---|
| 23 | S NURLS=$S("Cc"[NURLS:"C","Pp"[NURLS:"P",1:NURLS)
|
|---|
| 24 | S:NURLS?1L X=$C($A(NURLS)-32) I '(NURLS="C"!(NURLS="P")) W $C(7),!!?4,"ENTER A C TO SEE CURRENT POSITIONS,",!?12,"P TO SEE PAST POSITIONS" G STST
|
|---|
| 25 | G:NURLS'="P" STDT
|
|---|
| 26 | CPDS ; SELECT A DATE IF PAST SELECTED
|
|---|
| 27 | S %DT("A")="From what date would you like to list the positions: "
|
|---|
| 28 | I $D(^NURSF(210,+NURSDBA,0)),+$P(^(0),U,6) S (%DT(0),Y)=$P(^(0),U,6) D D^DIQ S:Y'="" %DT("B")=Y
|
|---|
| 29 | ;I X?1"?".E W $C(7),!!?4,"SELECT A DATE THAT PRECEEDS ALL POSITION START DATES IN THE DESIRED DISPLAY." G CPDS
|
|---|
| 30 | S %DT="AE" D ^%DT K %DT I "^"[X S NUROUT=1 Q
|
|---|
| 31 | I +Y'>0 W $C(7) G CPDS
|
|---|
| 32 | STDT ; SET THE DATE
|
|---|
| 33 | S NURSTDT=$S(NURLS="C":DT,1:Y)
|
|---|
| 34 | Q
|
|---|
| 35 | MORHELP ;
|
|---|
| 36 | W $C(7)
|
|---|
| 37 | I $O(NURSASS("")) S XQH="NURA-ASSIGNMENT SELECTION" D EN1^XQH K XQH S:$G(DIRUT) NUROUT=1
|
|---|
| 38 | I '$O(NURSASS("")) W !!?5,"TO ADD NEW POSITIONS ENTER THE LETTER 'N'."
|
|---|
| 39 | I 'NUROUT W !!,"Press return to continue or ""^"" to exit " R X:DTIME S:'$T X="^^" I X="^^"!(X=U) S NUROUT=1 Q
|
|---|
| 40 | Q
|
|---|
