ABMDCOPN ; IHS/ASDST/DMJ - RE-OPEN COMPLETED CLAIM ;
;;2.6;IHS 3P BILLING SYSTEM;**9**;NOV 12, 2009
;
; IHS/SD/SDR - v2.5 p12 - UFMS
; If user isn't logged into cashiering session they can't do
; this option
;
START ;START
;start new code abm*2.6*9 NOHEAT - ensure UFMS is setup
I $P($G(^ABMDPARM(DUZ(2),1,4)),U,15)="" D Q
.W !!,"* * UFMS SETUP MUST BE DONE BEFORE ANY BILLING FUNCTIONS CAN BE USED! * *",!
.S DIR(0)="E",DIR("A")="Enter RETURN to Continue" D ^DIR K DIR
;end new code
I $P($G(^ABMDPARM(DUZ(2),1,4)),U,15)=1 D Q:+$G(ABMUOPNS)=0
.S ABMUOPNS=$$FINDOPEN^ABMUCUTL(DUZ)
.I +$G(ABMUOPNS)=0 D Q
..W !!,"* * YOU MUST SIGN IN TO BE ABLE TO PERFORM BILLING FUNCTIONS! * *",!
..S DIR(0)="E",DIR("A")="Enter RETURN to Continue" D ^DIR K DIR
S DIC="^ABMDCLM(DUZ(2),",DIE=DIC,DIC(0)="AEMQ"
F D Q:$G(ABM("QUIT"))
.W !
.D ^DIC I Y<0 S ABM("QUIT")=1 Q
.S ABM("C#")=+Y
.S ABM("CSTATUS")=$P(^ABMDCLM(DUZ(2),ABM("C#"),0),"^",4)
.S ABM("SNAR")=$F("FERUCX",ABM("CSTATUS"))
.S ABM("SNAR")=$P("^Flagged as Billable^Edit Mode^Claim Rejected^Uneditable (Billed)^Complete^Closed","^",ABM("SNAR"))
.W !,"Current Claim Status is: ",ABM("SNAR")
.I ABM("CSTATUS")="U" W *7," ??" Q
.I ABM("CSTATUS")="X"!(ABM("CSTATUS")="C") D OPEN ;CLOSED OR COMPLETE
.I ABM("CSTATUS")'="X"&(ABM("CSTATUS")'="C") D CLOSE ;CLOSED OR COMPLETE
K DIC,ABM Q
OPEN ;OPEN CLOSED CLAIM
S DIR(0)="Y",DIR("A")="Re-Open Claim",DIR("B")="NO" D ^DIR K DIR
Q:Y'=1
S DA=ABM("C#"),DR=".04///E" D ^DIE
N DA,DIC,DIE,X,Y,DIR
S DA(1)=ABM("C#")
S DIC="^ABMDCLM(DUZ(2),"_DA(1)_",69,"
S DIC("P")=$P(^DD(9002274.3,69,0),U,2)
S DIC(0)="L"
S X="NOW"
S DIC("DR")=".02////"_DUZ_";.03////O"
D ^DIC
W !!,"Claim # ",ABM("C#")," now in Edit Mode.",!
Q
CLOSE ;CLOSE OPEN CLAIM
S DIR(0)="Y",DIR("A")="Change Status to Closed",DIR("B")="NO" D ^DIR K DIR
Q:Y'=1
S DA=ABM("C#"),DR=".04///X" D ^DIE
N DA,DIC,DIE,X,Y,DIR
S DA(1)=ABM("C#")
S DIC="^ABMDCLM(DUZ(2),"_DA(1)_",69,"
S DIC("P")=$P(^DD(9002274.3,69,0),U,2)
S DIC(0)="L"
S X="NOW"
S DIC("DR")=".02////"_DUZ_";.03////C"
D ^DIC
S ABMANS=Y
K DIC,DIE,X,Y,DIR,DA,DR
S DA(1)=ABM("C#")
S DIE="^ABMDCLM(DUZ(2),"_DA(1)_",69,"
S DA=+ABMANS
S DR=".04R"
S DIE("NO^")=""
D ^DIE
W !!,"Claim # ",ABM("C#")," Now in Status Closed.",!
Q
ABMDCOPN ; IHS/ASDST/DMJ - RE-OPEN COMPLETED CLAIM ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**9**;NOV 12, 2009
+2 ;
+3 ; IHS/SD/SDR - v2.5 p12 - UFMS
+4 ; If user isn't logged into cashiering session they can't do
+5 ; this option
+6 ;
START ;START
+1 ;start new code abm*2.6*9 NOHEAT - ensure UFMS is setup
+2 IF $PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,15)=""
Begin DoDot:1
+3 WRITE !!,"* * UFMS SETUP MUST BE DONE BEFORE ANY BILLING FUNCTIONS CAN BE USED! * *",!
+4 SET DIR(0)="E"
SET DIR("A")="Enter RETURN to Continue"
DO ^DIR
KILL DIR
End DoDot:1
QUIT
+5 ;end new code
+6 IF $PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,15)=1
Begin DoDot:1
+7 SET ABMUOPNS=$$FINDOPEN^ABMUCUTL(DUZ)
+8 IF +$GET(ABMUOPNS)=0
Begin DoDot:2
+9 WRITE !!,"* * YOU MUST SIGN IN TO BE ABLE TO PERFORM BILLING FUNCTIONS! * *",!
+10 SET DIR(0)="E"
SET DIR("A")="Enter RETURN to Continue"
DO ^DIR
KILL DIR
End DoDot:2
QUIT
End DoDot:1
IF +$GET(ABMUOPNS)=0
QUIT
+11 SET DIC="^ABMDCLM(DUZ(2),"
SET DIE=DIC
SET DIC(0)="AEMQ"
+12 FOR
Begin DoDot:1
+13 WRITE !
+14 DO ^DIC
IF Y<0
SET ABM("QUIT")=1
QUIT
+15 SET ABM("C#")=+Y
+16 SET ABM("CSTATUS")=$PIECE(^ABMDCLM(DUZ(2),ABM("C#"),0),"^",4)
+17 SET ABM("SNAR")=$FIND("FERUCX",ABM("CSTATUS"))
+18 SET ABM("SNAR")=$PIECE("^Flagged as Billable^Edit Mode^Claim Rejected^Uneditable (Billed)^Complete^Closed","^",ABM("SNAR"))
+19 WRITE !,"Current Claim Status is: ",ABM("SNAR")
+20 IF ABM("CSTATUS")="U"
WRITE *7," ??"
QUIT
+21 ;CLOSED OR COMPLETE
IF ABM("CSTATUS")="X"!(ABM("CSTATUS")="C")
DO OPEN
+22 ;CLOSED OR COMPLETE
IF ABM("CSTATUS")'="X"&(ABM("CSTATUS")'="C")
DO CLOSE
End DoDot:1
IF $GET(ABM("QUIT"))
QUIT
+23 KILL DIC,ABM
QUIT
OPEN ;OPEN CLOSED CLAIM
+1 SET DIR(0)="Y"
SET DIR("A")="Re-Open Claim"
SET DIR("B")="NO"
DO ^DIR
KILL DIR
+2 IF Y'=1
QUIT
+3 SET DA=ABM("C#")
SET DR=".04///E"
DO ^DIE
+4 NEW DA,DIC,DIE,X,Y,DIR
+5 SET DA(1)=ABM("C#")
+6 SET DIC="^ABMDCLM(DUZ(2),"_DA(1)_",69,"
+7 SET DIC("P")=$PIECE(^DD(9002274.3,69,0),U,2)
+8 SET DIC(0)="L"
+9 SET X="NOW"
+10 SET DIC("DR")=".02////"_DUZ_";.03////O"
+11 DO ^DIC
+12 WRITE !!,"Claim # ",ABM("C#")," now in Edit Mode.",!
+13 QUIT
CLOSE ;CLOSE OPEN CLAIM
+1 SET DIR(0)="Y"
SET DIR("A")="Change Status to Closed"
SET DIR("B")="NO"
DO ^DIR
KILL DIR
+2 IF Y'=1
QUIT
+3 SET DA=ABM("C#")
SET DR=".04///X"
DO ^DIE
+4 NEW DA,DIC,DIE,X,Y,DIR
+5 SET DA(1)=ABM("C#")
+6 SET DIC="^ABMDCLM(DUZ(2),"_DA(1)_",69,"
+7 SET DIC("P")=$PIECE(^DD(9002274.3,69,0),U,2)
+8 SET DIC(0)="L"
+9 SET X="NOW"
+10 SET DIC("DR")=".02////"_DUZ_";.03////C"
+11 DO ^DIC
+12 SET ABMANS=Y
+13 KILL DIC,DIE,X,Y,DIR,DA,DR
+14 SET DA(1)=ABM("C#")
+15 SET DIE="^ABMDCLM(DUZ(2),"_DA(1)_",69,"
+16 SET DA=+ABMANS
+17 SET DR=".04R"
+18 SET DIE("NO^")=""
+19 DO ^DIE
+20 WRITE !!,"Claim # ",ABM("C#")," Now in Status Closed.",!
+21 QUIT
