- ACHSDND ; IHS/ITSC/PMF - DENIAL DELETE ; [ 02/12/2002 10:34 AM ]
- ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**3**;JUN 11, 2001
- ;ACHS*3.1*3 improve patient look up
- ;
- ;D SETCK^ACHSDF1 G END:$D(ACHS("NOTSET")) ; ACHS*3.1*3
- D SETCK^ACHSDF1 I $D(ACHS("NOTSET")) Q ; ACHS*3.1*3
- A1 ;
- ;S DIC="^ACHSDEN("_DUZ(2)_",""D"",",DIC(0)="QAZEMI",DIC("A")="Enter the DENIAL NUMBER or PATIENT NAME : " ; ACHS*3.1*3
- ;D ^DIC G END:+Y<1 S DA=+Y K DIC ; ACHS*3.1*3
- ;
- S ACHDOCT="denial" ; ACHS*3.1*3
- D ^ACHSDLK ; ACHS*3.1*3
- I $D(ACHDLKER) D END Q ; ACHS*3.1*3
- S DA=ACHSA ; ACHS*3.1*3
- ;
- A2 ;
- W !!,"Sure You want to delete Denial #: ",$P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U)
- W !?25," Issued for ",$S($P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U,6)="N":$P($G(^ACHSDEN(DUZ(2),"D",DA,10)),U),$P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U,5):$P($G(^DPT($P($G(^ACHSDEN(DUZ(2),"D",DA,0)),U,5),0)),U),1:"(Temporary)")," ? Delete NO// "
- D READ^ACHSFU G NOND:"Nn"[Y!(Y="")!$D(DUOUT) I ($E(Y)="?")!("Yn"'[Y) D YN^ACHS G A2
- G A1:$D(ACHS("EDIT")) S DIK="^ACHSDEN("_DUZ(2)_",""D"",",DA(1)=DUZ(2) D ^DIK W !!,*7,"This denial has been deleted.",! G A1
- END ;
- K ACHS,DA,DIC,DR
- Q
- NOND ;
- W !!,*7,"<< Nothing Deleted >> ",!
- G A1
- ACHSDND ; IHS/ITSC/PMF - DENIAL DELETE ; [ 02/12/2002 10:34 AM ]
- +1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**3**;JUN 11, 2001
- +2 ;ACHS*3.1*3 improve patient look up
- +3 ;
- +4 ;D SETCK^ACHSDF1 G END:$D(ACHS("NOTSET")) ; ACHS*3.1*3
- +5 ; ACHS*3.1*3
- DO SETCK^ACHSDF1
- IF $DATA(ACHS("NOTSET"))
- QUIT
- A1 ;
- +1 ;S DIC="^ACHSDEN("_DUZ(2)_",""D"",",DIC(0)="QAZEMI",DIC("A")="Enter the DENIAL NUMBER or PATIENT NAME : " ; ACHS*3.1*3
- +2 ;D ^DIC G END:+Y<1 S DA=+Y K DIC ; ACHS*3.1*3
- +3 ;
- +4 ; ACHS*3.1*3
- SET ACHDOCT="denial"
- +5 ; ACHS*3.1*3
- DO ^ACHSDLK
- +6 ; ACHS*3.1*3
- IF $DATA(ACHDLKER)
- DO END
- QUIT
- +7 ; ACHS*3.1*3
- SET DA=ACHSA
- +8 ;
- A2 ;
- +1 WRITE !!,"Sure You want to delete Denial #: ",$PIECE($GET(^ACHSDEN(DUZ(2),"D",DA,0)),U)
- +2 WRITE !?25," Issued for ",$SELECT($PIECE($GET(^ACHSDEN(DUZ(2),"D",DA,0)),U,6)="N":$PIECE(...
- ... $GET(^ACHSDEN(DUZ(2),"D",DA,10)),U),$PIECE($GET(^ACHSDEN(DUZ(2),"D",DA,0)),U,5):$PIECE($GET(^DPT($PIECE($GET(^ACHSDEN(DUZ(2),"D",DA,0)),U,5),0)),U),1:"(Temporary)")," ? Delete NO// "
- +3 DO READ^ACHSFU
- IF "Nn"[Y!(Y="")!$DATA(DUOUT)
- GOTO NOND
- IF ($EXTRACT(Y)="?")!("Yn"'[Y)
- DO YN^ACHS
- GOTO A2
- +4 IF $DATA(ACHS("EDIT"))
- GOTO A1
- SET DIK="^ACHSDEN("_DUZ(2)_",""D"","
- SET DA(1)=DUZ(2)
- DO ^DIK
- WRITE !!,*7,"This denial has been deleted.",!
- GOTO A1
- END ;
- +1 KILL ACHS,DA,DIC,DR
- +2 QUIT
- NOND ;
- +1 WRITE !!,*7,"<< Nothing Deleted >> ",!
- +2 GOTO A1
