ABMDVE04.m

ABMDVE04 ; IHS/ASDST/DMJ - Recreate cancelled claim from PCC ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;Allows user to look up visit by patient and reset .04 field

 ;in visit file and creates ABILL X-ref so claim will be

 ;recreated by claim generator

START ;EP

 S DIC="^AUPNPAT("

 S DIC(0)="AEMQ"

 S DIC("S")="I $D(^AUPNVSIT(""AC"",Y))"

 D ^DIC

 I Y<0 G Q

 S DFN=+Y

 S DIC="^AUPNVSIT("

 S DIC(0)="AEQ"

 S DIC("S")="I $D(^AUPNVSIT(""AC"",DFN,Y))&'$P(^AUPNVSIT(Y,0),U,11)"

 D ^DIC

 I Y<0 G Q

 S ABMV=+Y

 S Y=^AUPNVSIT(ABMV,0)

 N ABMDTC,ABMDTM

 S ABMDTC=$P(Y,U,2)

 S ABMDTM=$P(Y,U,13)

 I $P(Y,U,4)=1 D

 .S DIE=DIC

 .S DR=".04///@"

 .S DA=ABMV

 .D ^DIE

 I '$D(^AUPNVSIT("ABILL",ABMDTC,ABMV)),'$D(^AUPNVSIT("ABILL",+ABMDTM,ABMV)) D

 .S ^AUPNVSIT("ABILL",ABMDTC,ABMV)=""     ;Set ABILL X-ref

 W !!,"Claim will be created for this visit next time claim generator runs."

 G START

 ;

Q K DIC,DIE,ABMV,DR

 Q

ABMDVE04  ; IHS/ASDST/DMJ - Recreate cancelled claim from PCC ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;Allows user to look up visit by patient and reset .04 field

 +3       ;in visit file and creates ABILL X-ref so claim will be

 +4       ;recreated by claim generator

START     ;EP

 +1        SET DIC="^AUPNPAT("

 +2        SET DIC(0)="AEMQ"

 +3        SET DIC("S")="I $D(^AUPNVSIT(""AC"",Y))"

 +4        DO ^DIC

 +5        IF Y<0

               GOTO Q

 +6        SET DFN=+Y

 +7        SET DIC="^AUPNVSIT("

 +8        SET DIC(0)="AEQ"

 +9        SET DIC("S")="I $D(^AUPNVSIT(""AC"",DFN,Y))&'$P(^AUPNVSIT(Y,0),U,11)"

 +10       DO ^DIC

 +11       IF Y<0

               GOTO Q

 +12       SET ABMV=+Y

 +13       SET Y=^AUPNVSIT(ABMV,0)

 +14       NEW ABMDTC,ABMDTM

 +15       SET ABMDTC=$PIECE(Y,U,2)

 +16       SET ABMDTM=$PIECE(Y,U,13)

 +17       IF $PIECE(Y,U,4)=1

               Begin DoDot:1

 +18               SET DIE=DIC

 +19               SET DR=".04///@"

 +20               SET DA=ABMV

 +21               DO ^DIE

               End DoDot:1

 +22       IF '$DATA(^AUPNVSIT("ABILL",ABMDTC,ABMV))

               IF '$DATA(^AUPNVSIT("ABILL",+ABMDTM,ABMV))

                   Begin DoDot:1

 +23      ;Set ABILL X-ref

                       SET ^AUPNVSIT("ABILL",ABMDTC,ABMV)=""

                   End DoDot:1

 +24       WRITE !!,"Claim will be created for this visit next time claim generator runs."

 +25       GOTO START

 +26      ;

Q          KILL DIC,DIE,ABMV,DR

 +1        QUIT