ANSEAF.m

ANSEAF ;IHS/OIRM/DSD/CSC - ENTER/EDIT ADJUSTMENT FACTORS; [ 02/25/98  10:32 AM ]

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

 ;;ADD/EDIT ADJUSTMENT FACTORS

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

EXIT K DUOUT,ANSA

 Q

EN1 K ANSA

 D DISP

A1 S DIC="^ANSD(59.3,",DIC(0)="AQZEM",DIC("A")="Adjustment Factor: "

 W !

 D DIC^ANSDIC

 I +Y<1 S DUOUT="" Q

 S F=+Y

 I $P($G(ANSAF),U,F) W "  Deleted." S $P(ANSAF,U,F)="" D DELET^ANSEA2 Q

 S $P(ANSAF,U,F)=F

 D:'$D(^ANSR(+$G(ANSDA),"F",F)) FACTOR^ANSEA2

 W "  Added."

 Q

DISP Q:'$G(ANSDA)

 N I,ANSA

 S I=0

 F  S I=$O(^ANSR(ANSDA,"F",I)) Q:'I  S $P(ANSAF,U,I)=I,ANSA(I)=""

 I '$D(ANSA) W !!,"No Adjustment Listed For This Patient. " Q

 W !!,"Current Adjustments: "

 S J=0

 F I=1:1 S J=$O(ANSA(J)) Q:J=""  I $D(^ANSD(59.3,J,0)) D

 .W:I>1 ", "

 .W $P(^ANSD(59.3,J,0),U,2)

 Q

ANSEAF    ;IHS/OIRM/DSD/CSC - ENTER/EDIT ADJUSTMENT FACTORS; [ 02/25/98  10:32 AM ]

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

 +2       ;;ADD/EDIT ADJUSTMENT FACTORS

EN         FOR 

               DO EN1

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

                   QUIT 

EXIT       KILL DUOUT,ANSA

 +1        QUIT 

EN1        KILL ANSA

 +1        DO DISP

A1         SET DIC="^ANSD(59.3,"

           SET DIC(0)="AQZEM"

           SET DIC("A")="Adjustment Factor: "

 +1        WRITE !

 +2        DO DIC^ANSDIC

 +3        IF +Y<1

               SET DUOUT=""

               QUIT 

 +4        SET F=+Y

 +5        IF $PIECE($GET(ANSAF),U,F)

               WRITE "  Deleted."

               SET $PIECE(ANSAF,U,F)=""

               DO DELET^ANSEA2

               QUIT 

 +6        SET $PIECE(ANSAF,U,F)=F

 +7        IF '$DATA(^ANSR(+$GET(ANSDA),"F",F))

               DO FACTOR^ANSEA2

 +8        WRITE "  Added."

 +9        QUIT 

DISP       IF '$GET(ANSDA)

               QUIT 

 +1        NEW I,ANSA

 +2        SET I=0

 +3        FOR 

               SET I=$ORDER(^ANSR(ANSDA,"F",I))

               IF 'I

                   QUIT 

               SET $PIECE(ANSAF,U,I)=I

               SET ANSA(I)=""

 +4        IF '$DATA(ANSA)

               WRITE !!,"No Adjustment Listed For This Patient. "

               QUIT 

 +5        WRITE !!,"Current Adjustments: "

 +6        SET J=0

 +7        FOR I=1:1

               SET J=$ORDER(ANSA(J))

               IF J=""

                   QUIT 

               IF $DATA(^ANSD(59.3,J,0))

                   Begin DoDot:1

 +8                    IF I>1

                           WRITE ", "

 +9                    WRITE $PIECE(^ANSD(59.3,J,0),U,2)

                   End DoDot:1

 +10       QUIT