ANSES1 ;IHS/OIRM/DSD/CSC - ENTER/EDIT STAFFING DATA; [ 02/25/98 10:32 AM ]
;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
;;ENTER/EDIT STAFFING DATA
EN F D EN1 Q:$D(DTOUT)!$D(DUOUT)
K DTOUT,DUOUT
Q
EN1 S DIC="^ANSD(59.2,",DIC(0)="AQZEM",DIC("A")="Non-Direct Area.....: "
W !
D DIC^ANSDIC
I Y<1 S DUOUT="" Q
S ANSSTR=+Y
I $D(^ANS(ANSDA,"N",+ANSSTR,0)) S ANSSTR=+^(0) D SET Q
D SB1
Q:$D(DTOUT)!$D(DUOUT)
D SET
Q
SET S:'$D(^ANS(ANSDA,"N",0)) ^(0)="^9009053.1P^^"
I '$P(ANSSTR,U,2) D DEL Q
D SET2:$D(^ANS(ANSDA,"N",+ANSSTR)),SET1:'$D(^ANS(ANSDA,"N",+ANSSTR))
Q
SET1 S DIC="^ANS("_ANSDA_",""N"",",DIC(0)="L",DA(1)=ANSDA,(X,DINUM)=+ANSSTR
D FILE^ANSDIC
S DA=+Y
D SET2
Q
SET2 S DIE="^ANS("_ANSDA_",""N"",",DA=+ANSSTR,DA(1)=ANSDA,DR=".02////"_$P(ANSSTR,U,2)
D DIE^ANSDIC
Q
DEL S DA(1)=ANSDA,DA=+ANSSTR,DIK="^ANS("_ANSDA_",""N"","
D DIK^ANSDIC
Q
SB1 S DIR(0)="FO^^D SBCC^ANSES1",DIR("A")="Non-Direct Care Hrs." ;CSC 12-97
S:'$G(T) T=0 ;CSC 12-97
S DIR("B")=T ;CSC 12-97
S DIR("?",1)="Enter A Number From 0 to 999, Fractional Numbers (eg. 12.25)",DIR("?")="May Also Be Entered In Quarter Hours."
W !
D DIR^ANSDIC
Q:$D(DTOUT)!$D(DUOUT)
I 'Y S DUOUT=""
E S $P(ANSSTR,U,2)=+Y
Q
SBD W !!,"Currently Listed Non-Direct Care Areas",!
S (T,C,N)=0
F S N=$O(^ANS(ANSDA,"N",N)) Q:'N D
.S X=^ANS(ANSDA,"N",N,0),Y=$P(X,U,2),X=+X
.Q:'X
.Q:'$D(^ANSD(59.2,X,0))
.S X=$P(^ANSD(59.2,X,0),U),T=T+Y
.W:C ?40
.W " ",$E(X,1,20),?20
.W:C ?60
.W $J(Y,5)
.S C='C
.I $X>41 W !
Q
SBCC ;;CSC 12-97
Q:X?.N
Q:X?1".".2N
Q:X?2N1"."2N
K X
Q
ANSES1 ;IHS/OIRM/DSD/CSC - ENTER/EDIT STAFFING DATA; [ 02/25/98 10:32 AM ]
+1 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996
+2 ;;ENTER/EDIT STAFFING DATA
EN FOR
DO EN1
IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+1 KILL DTOUT,DUOUT
+2 QUIT
EN1 SET DIC="^ANSD(59.2,"
SET DIC(0)="AQZEM"
SET DIC("A")="Non-Direct Area.....: "
+1 WRITE !
+2 DO DIC^ANSDIC
+3 IF Y<1
SET DUOUT=""
QUIT
+4 SET ANSSTR=+Y
+5 IF $DATA(^ANS(ANSDA,"N",+ANSSTR,0))
SET ANSSTR=+^(0)
DO SET
QUIT
+6 DO SB1
+7 IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+8 DO SET
+9 QUIT
SET IF '$DATA(^ANS(ANSDA,"N",0))
SET ^(0)="^9009053.1P^^"
+1 IF '$PIECE(ANSSTR,U,2)
DO DEL
QUIT
+2 IF $DATA(^ANS(ANSDA,"N",+ANSSTR))
DO SET2
IF '$DATA(^ANS(ANSDA,"N",+ANSSTR))
DO SET1
+3 QUIT
SET1 SET DIC="^ANS("_ANSDA_",""N"","
SET DIC(0)="L"
SET DA(1)=ANSDA
SET (X,DINUM)=+ANSSTR
+1 DO FILE^ANSDIC
+2 SET DA=+Y
+3 DO SET2
+4 QUIT
SET2 SET DIE="^ANS("_ANSDA_",""N"","
SET DA=+ANSSTR
SET DA(1)=ANSDA
SET DR=".02////"_$PIECE(ANSSTR,U,2)
+1 DO DIE^ANSDIC
+2 QUIT
DEL SET DA(1)=ANSDA
SET DA=+ANSSTR
SET DIK="^ANS("_ANSDA_",""N"","
+1 DO DIK^ANSDIC
+2 QUIT
SB1 ;CSC 12-97
SET DIR(0)="FO^^D SBCC^ANSES1"
SET DIR("A")="Non-Direct Care Hrs."
+1 ;CSC 12-97
IF '$GET(T)
SET T=0
+2 ;CSC 12-97
SET DIR("B")=T
+3 SET DIR("?",1)="Enter A Number From 0 to 999, Fractional Numbers (eg. 12.25)"
SET DIR("?")="May Also Be Entered In Quarter Hours."
+4 WRITE !
+5 DO DIR^ANSDIC
+6 IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+7 IF 'Y
SET DUOUT=""
+8 IF '$TEST
SET $PIECE(ANSSTR,U,2)=+Y
+9 QUIT
SBD WRITE !!,"Currently Listed Non-Direct Care Areas",!
+1 SET (T,C,N)=0
+2 FOR
SET N=$ORDER(^ANS(ANSDA,"N",N))
IF 'N
QUIT
Begin DoDot:1
+3 SET X=^ANS(ANSDA,"N",N,0)
SET Y=$PIECE(X,U,2)
SET X=+X
+4 IF 'X
QUIT
+5 IF '$DATA(^ANSD(59.2,X,0))
QUIT
+6 SET X=$PIECE(^ANSD(59.2,X,0),U)
SET T=T+Y
+7 IF C
WRITE ?40
+8 WRITE " ",$EXTRACT(X,1,20),?20
+9 IF C
WRITE ?60
+10 WRITE $JUSTIFY(Y,5)
+11 SET C='C
+12 IF $X>41
WRITE !
End DoDot:1
+13 QUIT
SBCC ;;CSC 12-97
+1 IF X?.N
QUIT
+2 IF X?1".".2N
QUIT
+3 IF X?2N1"."2N
QUIT
+4 KILL X
+5 QUIT
