ANSES.m

ANSES ;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 N C,D,I,L,N,P,T,X,Y,Z

 F  D EN1 Q:$D(DTOUT)!$D(DUOUT)

EXIT K ANS,DTOUT,DUOUT,ANSDA,ANSDT,ANSP,ANSS,ANSSH,ANSSTR,ANSUN,ANT,ANSX

 Q

EN1 D HEAD,^ANSUD

 Q:$D(DTOUT)!$D(DUOUT)

 I '$D(ANSDT)!'$D(ANSSH)!'$D(ANSUN) S DUOUT="" Q

 F  D EN2 Q:$D(DTOUT)!$D(DUOUT)

 ;K DTOUT,DUOUT  ;CSC 10-97

 Q

EN2 S ANSDA=$O(^ANS("AU",ANSDT,ANSUN,ANSSH,0))

 I ANSDA,$D(^ANS(ANSDA,0)) S ANSSTR=^(0)

 I 'ANSDA S ANSDR=".02////"_ANSSH_";.03////"_ANSUN,ANSDA="" D SET

 Q:'ANSDA

 D:ANSDA DISP

 S DIR(0)="YO",DIR("A")="Edit this data"

 W !

 D DIR^ANSDIC

 Q:$D(DTOUT)!$D(DUOUT)

 I Y'=1 S DUOUT="" Q

 S DA=ANSDA,DIE="^ANS(",DR=".04RN Hours............;.05Non-RN Hours........"

 W !

 D DIE^ANSDIC

 D ^ANSES1

 Q

SET S DIC="^ANS(",DIC(0)="L",X=ANSDT,DIC("DR")=ANSDR

 D FILE^ANSDIC

 S ANSDA=+Y,ANSSTR=^ANS(ANSDA,0)

 Q

HEAD D ^ANSMENU

 S ANSX="NURSE STAFFING DATA"

 W !!,?80-$L(ANSX)/2,ANSX

 Q

SUBH S Y=ANSDT

 X ^DD("DD")

 W !!,?6,Y

 S Y="",ANSS=$P(ANSPAR,U,5)

 I $D(ANSSH) S X=$T(@ANSS),Y=$P($P(X,";;",ANSSH+1),U,2) W ?30,Y," Shift"

 I ANSUN,$D(^ANSD(59.1,ANSUN,0)) S Z=$P(^(0),U) W ?56,"Unit ",Z

 Q

DISP D HEAD,SUBH

 W !

 D ^ANSESD

 Q

2 ;;1^DAY;;2^NIGHT

3 ;;1^DAY;;2^EVENING;;3^NIGHT

ANSES     ;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         NEW C,D,I,L,N,P,T,X,Y,Z

 +1        FOR 

               DO EN1

               IF $DATA(DTOUT)!$DATA(DUOUT)

                   QUIT 

EXIT       KILL ANS,DTOUT,DUOUT,ANSDA,ANSDT,ANSP,ANSS,ANSSH,ANSSTR,ANSUN,ANT,ANSX

 +1        QUIT 

EN1        DO HEAD

           DO ^ANSUD

 +1        IF $DATA(DTOUT)!$DATA(DUOUT)

               QUIT 

 +2        IF '$DATA(ANSDT)!'$DATA(ANSSH)!'$DATA(ANSUN)

               SET DUOUT=""

               QUIT 

 +3        FOR 

               DO EN2

               IF $DATA(DTOUT)!$DATA(DUOUT)

                   QUIT 

 +4       ;K DTOUT,DUOUT  ;CSC 10-97

 +5        QUIT 

EN2        SET ANSDA=$ORDER(^ANS("AU",ANSDT,ANSUN,ANSSH,0))

 +1        IF ANSDA

               IF $DATA(^ANS(ANSDA,0))

                   SET ANSSTR=^(0)

 +2        IF 'ANSDA

               SET ANSDR=".02////"_ANSSH_";.03////"_ANSUN

               SET ANSDA=""

               DO SET

 +3        IF 'ANSDA

               QUIT 

 +4        IF ANSDA

               DO DISP

 +5        SET DIR(0)="YO"

           SET DIR("A")="Edit this data"

 +6        WRITE !

 +7        DO DIR^ANSDIC

 +8        IF $DATA(DTOUT)!$DATA(DUOUT)

               QUIT 

 +9        IF Y'=1

               SET DUOUT=""

               QUIT 

 +10       SET DA=ANSDA

           SET DIE="^ANS("

           SET DR=".04RN Hours............;.05Non-RN Hours........"

 +11       WRITE !

 +12       DO DIE^ANSDIC

 +13       DO ^ANSES1

 +14       QUIT 

SET        SET DIC="^ANS("

           SET DIC(0)="L"

           SET X=ANSDT

           SET DIC("DR")=ANSDR

 +1        DO FILE^ANSDIC

 +2        SET ANSDA=+Y

           SET ANSSTR=^ANS(ANSDA,0)

 +3        QUIT 

HEAD       DO ^ANSMENU

 +1        SET ANSX="NURSE STAFFING DATA"

 +2        WRITE !!,?80-$LENGTH(ANSX)/2,ANSX

 +3        QUIT 

SUBH       SET Y=ANSDT

 +1        XECUTE ^DD("DD")

 +2        WRITE !!,?6,Y

 +3        SET Y=""

           SET ANSS=$PIECE(ANSPAR,U,5)

 +4        IF $DATA(ANSSH)

               SET X=$TEXT(@ANSS)

               SET Y=$PIECE($PIECE(X,";;",ANSSH+1),U,2)

               WRITE ?30,Y," Shift"

 +5        IF ANSUN

               IF $DATA(^ANSD(59.1,ANSUN,0))

                   SET Z=$PIECE(^(0),U)

                   WRITE ?56,"Unit ",Z

 +6        QUIT 

DISP       DO HEAD

           DO SUBH

 +1        WRITE !

 +2        DO ^ANSESD

 +3        QUIT 

2         ;;1^DAY;;2^NIGHT

3         ;;1^DAY;;2^EVENING;;3^NIGHT