ACHSDNC.m

ACHSDNC ; IHS/ITSC/PMF - CANCEL DENIAL ;   [ 10/31/2003  11:43 AM ]

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

 ;ACHS*3.1*3  allow reversal as well as cancel  WHOLE ROUTINE IS NEW

 ;ACHS*3.1*6 IHS/SET/JVK Added section to add office notes

 ;

 D VIDEO^ACHS

LOOK ; --- Select the Denial

 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,"THIS DENIAL HAS ALREADY BEEN CANCELLED",IORVOFF,!! G LOOK

 ;

 I $P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U,8)="R" W !!,*7,*7,IORVON,"THIS DENIAL HAS ALREADY BEEN REVERSED",IORVOFF,!! G LOOK

 ;

WHICH ;

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

 D READ^ACHSFU

 ;

 I $G(ACHSQUIT)=1 K ACHSQUIT Q

 ;

 N STATUS

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

 ;

SURE ;

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

 W !!,*7,*7,IORVON,MSG,!!,"Once This Happens It Can Never Be Applied Again",IORVOFF,!!

 S %=$$DIR^ACHS("Y",MSG_" (Y/N)","NO","Once This Happens It Can Never Be Applied Again","",2)

 ;

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

 ;

 I $D(DTOUT) D RTRN^ACHS Q

 ;

SET ;

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

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

 W !!,"Completed",!!

 ;IHS/SET/JVK ACHS*3.1*6 ADD NEXT TWO LINES

 W !,"Enter Notes",!

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

 Q

ACHSDNC   ; IHS/ITSC/PMF - CANCEL DENIAL ;   [ 10/31/2003  11:43 AM ]

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

 +2       ;ACHS*3.1*3  allow reversal as well as cancel  WHOLE ROUTINE IS NEW

 +3       ;ACHS*3.1*6 IHS/SET/JVK Added section to add office notes

 +4       ;

 +5        DO VIDEO^ACHS

LOOK      ; --- Select the Denial

 +1        WRITE !!

 +2       ;

 +3        KILL DFN

           SET ACHDOCT="denial"

 +4        DO ^ACHSDLK

 +5        IF $DATA(ACHDLKER)

               DO RTRN^ACHS

               QUIT 

 +6        SET DA=ACHSA

 +7       ;

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

               WRITE !!,*7,*7,IORVON,"THIS DENIAL HAS ALREADY BEEN CANCELLED",IORVOFF,!!

               GOTO LOOK

 +9       ;

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

               WRITE !!,*7,*7,IORVON,"THIS DENIAL HAS ALREADY BEEN REVERSED",IORVOFF,!!

               GOTO LOOK

 +11      ;

WHICH     ;

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

 +2        DO READ^ACHSFU

 +3       ;

 +4        IF $GET(ACHSQUIT)=1

               KILL ACHSQUIT

               QUIT 

 +5       ;

 +6        NEW STATUS

 +7        SET STATUS=Y

           IF STATUS="C"

               SET STATUS="Y"

 +8       ;

SURE      ;

 +1        NEW MSG

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

 +2        WRITE !!,*7,*7,IORVON,MSG,!!,"Once This Happens It Can Never Be Applied Again",IORVOFF,!!

 +3        SET %=$$DIR^ACHS("Y",MSG_" (Y/N)","NO","Once This Happens It Can Never Be Applied Again","",2)

 +4       ;

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

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

               QUIT 

 +6       ;

 +7        IF $DATA(DTOUT)

               DO RTRN^ACHS

               QUIT 

 +8       ;

SET       ;

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

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

               KILL ACHSA,DIC,DFN

               QUIT 

 +3        WRITE !!,"Completed",!!

 +4       ;IHS/SET/JVK ACHS*3.1*6 ADD NEXT TWO LINES

 +5        WRITE !,"Enter Notes",!

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

               QUIT 

 +7        QUIT