ACHSDNA1.m

ACHSDNA1 ; IHS/ITSC/JVK -EDIT THE STATUS OF A DENIAL AND APPEAL STATUS;  [ 10/31/2003  11:42 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**3,6**;JUNE 11,2001

 ;;ACHS*3.1*6 edit reversal as well as cancel ROUTINE IS A COPY OF ACHSDNC with enhanced features

 ;

 D VIDEO^ACHS

LOOK ; --- Select the Denial

 K DIR

 W !!

 ;

 K DFN S ACHDOCT="denial"

 D ^ACHSDLK

 I $D(ACHDLKER) D RTRN^ACHS Q

 S DA=ACHSA

 ;

 I $P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U,8)="Y" W !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS CANCELLED",IORVOFF,!! G EDIT

 ;

 I $P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U,8)="R" W !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS REVERSED",IORVOFF,!! G EDIT

 I $P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U,8)="" W !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS ACTIVE",IORVOFF,!! G EDIT

 ;

WHICH ;

 W !!,"Cancel,Reverse or Activate this denial? (C/R/A):  "

 D READ^ACHSFU

 ;

 I $G(ACHSQUIT)=1 K ACHSQUIT Q

 ;

 I $D(DTOUT)!$D(DUOUT) D RTRN^ACHS Q

 I Y'="A",Y'="C",Y'="R" K Y G WHICH

 N STATUS

 ;S STATUS=Y I STATUS="C" S STATUS="Y"

 S STATUS=$S(Y="A":"A",Y="C":"Y",Y="R":"R",1:"")

 ;

SURE ;

 ;IHS/SET/JVK ACHS*3.1*6

 N MSG S MSG="Are You Sure You Want To "_$S(STATUS="Y":"Cancel",STATUS="R":"Reverse",STATUS="A":"Activate")_" This Denial?"

 W !!,*7,*7,IORVON,MSG,!!,"The status change will be recorded",IORVOFF,!!

 S %=$$DIR^ACHS("Y",MSG_" (Y/N)","NO","This entry will not be recorded","",2)

 ;

 I ('%)!$D(DUOUT) W !!,*7,*7,"DENIAL LEFT UNCHANGED",!! D APPEAL

 ;

 I $D(DTOUT) D RTRN^ACHS Q

 ;

SET ;

 W !!,IORVON,"Now ",$S(STATUS="Y":"Cancelling",STATUS="R":"Reversing",STATUS="A":"Activate")_" Denial Number ",$P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U),IORVOFF

 I STATUS="A" S STATUS="@"

 I '$$DIE^ACHSDN("8///"_STATUS) K ACHSA,DIC,DFN Q

 W !,"Completed"

 W !,"Enter Notes",!

 I '$$DIE^ACHSDN(900,2) Q

APPEAL ;

 K DIR

 S DIR(0)="Y",DIR("A")="DO YOU WANT TO EDIT THE APPEAL STATUS",DIR("B")="NO"

 W !!

 D ^DIR

 ;ITSC-SET-JVK 5/27/03 ACHS*3.1*6

 ;I Y=1,'$$DIE^ACHSDN(430,3)

 I Y=1,'$$DIE^ACHSDN(431)

 E  K DIR G LOOK

EDIT ;

 K DIR

 S DIR(0)="Y",DIR("A")="DO YOU WANT TO EDIT THE DENIAL STATUS",DIR("B")="NO"

 S DIR("?")="This will change the denial status only. The appeal status must be changed at the ""Do you want to edit the APPEAL STATUS PROMPT"" that follows. If you know the denial status is reversed you must edit the appeal status."

 W !!

 D ^DIR

 I Y K DIR G WHICH Q

 I 'Y G APPEAL

 Q

ACHSDNA1  ; IHS/ITSC/JVK -EDIT THE STATUS OF A DENIAL AND APPEAL STATUS;  [ 10/31/2003  11:42 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**3,6**;JUNE 11,2001

 +2       ;;ACHS*3.1*6 edit reversal as well as cancel ROUTINE IS A COPY OF ACHSDNC with enhanced features

 +3       ;

 +4        DO VIDEO^ACHS

LOOK      ; --- Select the Denial

 +1        KILL DIR

 +2        WRITE !!

 +3       ;

 +4        KILL DFN

           SET ACHDOCT="denial"

 +5        DO ^ACHSDLK

 +6        IF $DATA(ACHDLKER)

               DO RTRN^ACHS

               QUIT 

 +7        SET DA=ACHSA

 +8       ;

 +9        IF $PIECE($GET(^ACHSDEN(DUZ(2),"D",DA,0)),U,8)="Y"

               WRITE !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS CANCELLED",IORVOFF,!!

               GOTO EDIT

 +10      ;

 +11       IF $PIECE($GET(^ACHSDEN(DUZ(2),"D",DA,0)),U,8)="R"

               WRITE !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS REVERSED",IORVOFF,!!

               GOTO EDIT

 +12       IF $PIECE($GET(^ACHSDEN(DUZ(2),"D",DA,0)),U,8)=""

               WRITE !!,*7,*7,IORVON,"THE STATUS OF THIS DENIAL IS ACTIVE",IORVOFF,!!

               GOTO EDIT

 +13      ;

WHICH     ;

 +1        WRITE !!,"Cancel,Reverse or Activate this denial? (C/R/A):  "

 +2        DO READ^ACHSFU

 +3       ;

 +4        IF $GET(ACHSQUIT)=1

               KILL ACHSQUIT

               QUIT 

 +5       ;

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

               DO RTRN^ACHS

               QUIT 

 +7        IF Y'="A"

               IF Y'="C"

                   IF Y'="R"

                       KILL Y

                       GOTO WHICH

 +8        NEW STATUS

 +9       ;S STATUS=Y I STATUS="C" S STATUS="Y"

 +10       SET STATUS=$SELECT(Y="A":"A",Y="C":"Y",Y="R":"R",1:"")

 +11      ;

SURE      ;

 +1       ;IHS/SET/JVK ACHS*3.1*6

 +2        NEW MSG

           SET MSG="Are You Sure You Want To "_$SELECT(STATUS="Y":"Cancel",STATUS="R":"Reverse",STATUS="A":"Activate")_" This Denial?"

 +3        WRITE !!,*7,*7,IORVON,MSG,!!,"The status change will be recorded",IORVOFF,!!

 +4        SET %=$$DIR^ACHS("Y",MSG_" (Y/N)","NO","This entry will not be recorded","",2)

 +5       ;

 +6        IF ('%)!$DATA(DUOUT)

               WRITE !!,*7,*7,"DENIAL LEFT UNCHANGED",!!

               DO APPEAL

 +7       ;

 +8        IF $DATA(DTOUT)

               DO RTRN^ACHS

               QUIT 

 +9       ;

SET       ;

 +1        WRITE !!,IORVON,"Now ",$SELECT(STATUS="Y":"Cancelling",STATUS="R":"Reversing",STATUS="A":"Activate")_" Denial Number ",$PIECE($GET(^ACHSDEN(DUZ(2),"D",DA,0)),U),IORVOFF

 +2        IF STATUS="A"

               SET STATUS="@"

 +3        IF '$$DIE^ACHSDN("8///"_STATUS)

               KILL ACHSA,DIC,DFN

               QUIT 

 +4        WRITE !,"Completed"

 +5        WRITE !,"Enter Notes",!

 +6        IF '$$DIE^ACHSDN(900,2)

               QUIT 

APPEAL    ;

 +1        KILL DIR

 +2        SET DIR(0)="Y"

           SET DIR("A")="DO YOU WANT TO EDIT THE APPEAL STATUS"

           SET DIR("B")="NO"

 +3        WRITE !!

 +4        DO ^DIR

 +5       ;ITSC-SET-JVK 5/27/03 ACHS*3.1*6

 +6       ;I Y=1,'$$DIE^ACHSDN(430,3)

 +7        IF Y=1

               IF '$$DIE^ACHSDN(431)

 +8       IF '$TEST

               KILL DIR

               GOTO LOOK

EDIT      ;

 +1        KILL DIR

 +2        SET DIR(0)="Y"

           SET DIR("A")="DO YOU WANT TO EDIT THE DENIAL STATUS"

           SET DIR("B")="NO"

 +3        SET DIR("?")="This will change the denial status only. The appeal status must be changed at the ""Do you want to edit the APPEAL STATUS PROMPT"" that follows. If you know the denial status is reversed you must edit the appeal status."

 +4        WRITE !!

 +5        DO ^DIR

 +6        IF Y

               KILL DIR

               GOTO WHICH

               QUIT 

 +7        IF 'Y

               GOTO APPEAL

 +8        QUIT