ABMSTAT.m

ABMSTAT ; IHS/SD/TPF - SELECT CLAIM PEND STATUS ;    

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

 ;

EN(CLAIMNUM) ;EP - ALLOW USER ENTRY OF CLAIM STATUS AND PENDING STATUS

 I $G(CLAIMNUM)="" W !,"CLAIM NUMBER NOT DEFINED!" H 3 Q

 I '$D(^ABMDCLM(DUZ(2),CLAIMNUM,0))#2 W !,"CLAIM NUMBER NOT FOUND ON FILE!" H 3 Q

 D EDITSTAT(CLAIMNUM)

 Q:$G(X)=""!($G(X)[U)

 D STUFPEND(CLAIMNUM)

 D STUFFDUZ(CLAIMNUM,.DUZ)

 Q

STUFPEND(CLAIMNUM) ;EP - STUFF PEND STATUS INTO STATUS FIELD

 K DIE,DR,DIC,DIR,DA

 S DA=CLAIMNUM

 S DR=".04////^S X=""P"""

 S DIE="^ABMDCLM("_DUZ(2)_","

 D ^DIE

 K DIE,DR,DIC,DIR,DA

 Q

EDITSTAT(CLAIMNUM) ;EP - EDIT PEND STATUS

 K DIE,DR,DIC,DIR,DA

 S DA=CLAIMNUM

 S DR=".18R"

 S DIE="^ABMDCLM("_DUZ(2)_","

 D ^DIE

 K DIE,DR,DIC,DIR,DA

 Q

STUFFDUZ(CLAIMNUM,DUZ) ;EP - STUFF USER INTO 'PENDING STATUS UPDATER'

 K DIE,DR,DIC,DIR,DA

 S DA=CLAIMNUM

 S DR=".19R////^S X=DUZ"

 S DIE="^ABMDCLM("_DUZ(2)_","

 D ^DIE

 K DIE,DR,DIC,DIR,DA

 Q

ABMSTAT   ; IHS/SD/TPF - SELECT CLAIM PEND STATUS ;    

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

 +2       ;

EN(CLAIMNUM) ;EP - ALLOW USER ENTRY OF CLAIM STATUS AND PENDING STATUS

 +1        IF $GET(CLAIMNUM)=""

               WRITE !,"CLAIM NUMBER NOT DEFINED!"

               HANG 3

               QUIT 

 +2        IF '$DATA(^ABMDCLM(DUZ(2),CLAIMNUM,0))#2

               WRITE !,"CLAIM NUMBER NOT FOUND ON FILE!"

               HANG 3

               QUIT 

 +3        DO EDITSTAT(CLAIMNUM)

 +4        IF $GET(X)=""!($GET(X)[U)

               QUIT 

 +5        DO STUFPEND(CLAIMNUM)

 +6        DO STUFFDUZ(CLAIMNUM,.DUZ)

 +7        QUIT 

STUFPEND(CLAIMNUM) ;EP - STUFF PEND STATUS INTO STATUS FIELD

 +1        KILL DIE,DR,DIC,DIR,DA

 +2        SET DA=CLAIMNUM

 +3        SET DR=".04////^S X=""P"""

 +4        SET DIE="^ABMDCLM("_DUZ(2)_","

 +5        DO ^DIE

 +6        KILL DIE,DR,DIC,DIR,DA

 +7        QUIT 

EDITSTAT(CLAIMNUM) ;EP - EDIT PEND STATUS

 +1        KILL DIE,DR,DIC,DIR,DA

 +2        SET DA=CLAIMNUM

 +3        SET DR=".18R"

 +4        SET DIE="^ABMDCLM("_DUZ(2)_","

 +5        DO ^DIE

 +6        KILL DIE,DR,DIC,DIR,DA

 +7        QUIT 

STUFFDUZ(CLAIMNUM,DUZ) ;EP - STUFF USER INTO 'PENDING STATUS UPDATER'

 +1        KILL DIE,DR,DIC,DIR,DA

 +2        SET DA=CLAIMNUM

 +3        SET DR=".19R////^S X=DUZ"

 +4        SET DIE="^ABMDCLM("_DUZ(2)_","

 +5        DO ^DIE

 +6        KILL DIE,DR,DIC,DIR,DA

 +7        QUIT