- 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
