ANSEAL.m

ANSEAL ;IHS/OIRM/DSD/CSC - ENTER/EDIT ACUITY LEVELS; [ 02/25/98  10:32 AM ]

 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 ;;ENTER/EDIT ACUITY LEVELS

 I ANSCL="" D XB1 Q

EN S DIR(0)="YO",DIR("A")="Edit All Categories",DIR("B")="YES"

 S DIR("?",1)="You May Select Individual Care Categories To Edit Or"

 S DIR("?")="Have The Computer 'Loop' Thru Each One Automatically."

 W !

 D DIR^ANSDIC

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

 I Y=1 D XB1 Q

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

 K DUOUT

 Q

A2 W !

 K DIC

 S DIC("A")="Edit Category: "

 S DIC="^ANSD(59,",DIC(0)="AEMQZ"

 W !

 D DIC^ANSDIC

 I +Y<1 S DUOUT="" Q

 S ANSP=+Y,ANSA=$P(Y,U,2),ANSL=$P(Y(0),U,2)

 D SB1

 Q

XB1 ;EP;EDIT ALL CATEGORIES

 S ANSP=0

 F  S ANSP=$O(^ANSD(59,ANSP)) Q:'ANSP!$D(DTOUT)!$D(DUOUT)  I $D(^ANSD(59,ANSP,0)) S ANSA=$P(^(0),U),ANSL=$P(^(0),U,2) D

 .W !!,ANSA

 .D SB1

 .I $D(DUOUT) Q:ANSP=1  S ANSP=ANSP-2

 Q

SB1 ;EDIT CARE LEVEL FOR SPECIFIED CATEGORY

 S L=$P(ANSCL,U,ANSP)

 S DIR(0)="N^1:"_ANSL,DIR("?")="^D S1Q^ANSEAL",DIR("A")="Care Level"

 S:L]"" DIR("B")=L

 D DIR^ANSDIC

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

 S:Y'>ANSL $P(ANSCL,U,ANSP)=Y

 Q

S1Q ;EP;TO DISPLAY CARE LEVEL DESCRIPTIONS FOR CATEGORY

 W !,"  Enter A Number From 1 to ",$G(ANSL)," to Indicate The Care Required",!,"  In This Category Given The Following Descriptions:",!

 S ANC=$G(ANSP)

 D ^ANSUDW

 W !!,ANSA

 Q

ANSEAL    ;IHS/OIRM/DSD/CSC - ENTER/EDIT ACUITY LEVELS; [ 02/25/98  10:32 AM ]

 +1       ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 +2       ;;ENTER/EDIT ACUITY LEVELS

 +3        IF ANSCL=""

               DO XB1

               QUIT 

EN         SET DIR(0)="YO"

           SET DIR("A")="Edit All Categories"

           SET DIR("B")="YES"

 +1        SET DIR("?",1)="You May Select Individual Care Categories To Edit Or"

 +2        SET DIR("?")="Have The Computer 'Loop' Thru Each One Automatically."

 +3        WRITE !

 +4        DO DIR^ANSDIC

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

               QUIT 

 +6        IF Y=1

               DO XB1

               QUIT 

 +7        FOR 

               DO A2

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

                   QUIT 

 +8        KILL DUOUT

 +9        QUIT 

A2         WRITE !

 +1        KILL DIC

 +2        SET DIC("A")="Edit Category: "

 +3        SET DIC="^ANSD(59,"

           SET DIC(0)="AEMQZ"

 +4        WRITE !

 +5        DO DIC^ANSDIC

 +6        IF +Y<1

               SET DUOUT=""

               QUIT 

 +7        SET ANSP=+Y

           SET ANSA=$PIECE(Y,U,2)

           SET ANSL=$PIECE(Y(0),U,2)

 +8        DO SB1

 +9        QUIT 

XB1       ;EP;EDIT ALL CATEGORIES

 +1        SET ANSP=0

 +2        FOR 

               SET ANSP=$ORDER(^ANSD(59,ANSP))

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

                   QUIT 

               IF $DATA(^ANSD(59,ANSP,0))

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

                   SET ANSL=$PIECE(^(0),U,2)

                   Begin DoDot:1

 +3                    WRITE !!,ANSA

 +4                    DO SB1

 +5                    IF $DATA(DUOUT)

                           IF ANSP=1

                               QUIT 

                           SET ANSP=ANSP-2

                   End DoDot:1

 +6        QUIT 

SB1       ;EDIT CARE LEVEL FOR SPECIFIED CATEGORY

 +1        SET L=$PIECE(ANSCL,U,ANSP)

 +2        SET DIR(0)="N^1:"_ANSL

           SET DIR("?")="^D S1Q^ANSEAL"

           SET DIR("A")="Care Level"

 +3        IF L]""

               SET DIR("B")=L

 +4        DO DIR^ANSDIC

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

               QUIT 

 +6        IF Y'>ANSL

               SET $PIECE(ANSCL,U,ANSP)=Y

 +7        QUIT 

S1Q       ;EP;TO DISPLAY CARE LEVEL DESCRIPTIONS FOR CATEGORY

 +1        WRITE !,"  Enter A Number From 1 to ",$GET(ANSL)," to Indicate The Care Required",!,"  In This Category Given The Following Descriptions:",!

 +2        SET ANC=$GET(ANSP)

 +3        DO ^ANSUDW

 +4        WRITE !!,ANSA

 +5        QUIT