ACHSDNAP.m

ACHSDNAP ; IHS/ITSC/PMF - ADD PROVIDER TO EXISTING DENIAL ;  [ 02/12/2002  10:27 AM ]

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**3,18**;JUN 11, 2001

 ;ACHS*3.1*3 improve the denial/patient look up

 ;           the ENTIRE OLD PROGRAM is removed for this patch

 ;           and what you see here is new

 ;

 S DIWL=5,DIWR=75,DIWF="W"

PAT ; --- Select the Denial

 S ACHDOCT="denial"

 D ^ACHSDLK

 I $D(ACHDLKER) Q

 ;

 D ^ACHSDN3

 Q

ACHSDNAP  ; IHS/ITSC/PMF - ADD PROVIDER TO EXISTING DENIAL ;  [ 02/12/2002  10:27 AM ]

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**3,18**;JUN 11, 2001

 +2       ;ACHS*3.1*3 improve the denial/patient look up

 +3       ;           the ENTIRE OLD PROGRAM is removed for this patch

 +4       ;           and what you see here is new

 +5       ;

 +6        SET DIWL=5

           SET DIWR=75

           SET DIWF="W"

PAT       ; --- Select the Denial

 +1        SET ACHDOCT="denial"

 +2        DO ^ACHSDLK

 +3        IF $DATA(ACHDLKER)

               QUIT 

 +4       ;

 +5        DO ^ACHSDN3

 +6        QUIT