| 1 | IBCIASN ;DSI/JSR - STANDALONE OPTION TO RE-ASSIGN CLAIMS ;18-MAY-2001
|
---|
| 2 | ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94
|
---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | ;; Program Description
|
---|
| 5 | ; This routine is a standalone option routine which allows any user to
|
---|
| 6 | ; re-assign a bill without going through the core IB Enter/Edit Bill
|
---|
| 7 | ; options. Typically this optional way to assign a bill can be
|
---|
| 8 | ; placed on any menu. The decision for this will be determined
|
---|
| 9 | ; at the sites.
|
---|
| 10 | ;
|
---|
| 11 | EN ;
|
---|
| 12 | S IBQUIT=0
|
---|
| 13 | F D ASK Q:IBQUIT=1
|
---|
| 14 | G Q1
|
---|
| 15 | ASK ;
|
---|
| 16 | N %,D,DIC,DISYS,IBCIBII,IBCIBIL,IBCICNM,IBCICOD,IBIFN,TYPE,X
|
---|
| 17 | S IBQUIT=0,DIC="^IBA(351.9,",DIC(0)="AEMQZ",DIC("A")="Select ClaimsManager Bill: " W !!
|
---|
| 18 | ;
|
---|
| 19 | ; The security Key will determine the type of filtering
|
---|
| 20 | ; Without IBCI CLAIMSMANAGER ASSIGN users will only be able to:
|
---|
| 21 | ; 1) select from claims assigned to themselves
|
---|
| 22 | ; 2) only select claims with IB Status of 1
|
---|
| 23 | ; With IBCI CLAIMSMANAGER ASSIGN users will only be able to:
|
---|
| 24 | ; 1) select from a list of all claims in 351.9 that have an IB
|
---|
| 25 | ; status of 1
|
---|
| 26 | ;
|
---|
| 27 | I '$D(^XUSEC("IBCI CLAIMSMANAGER ASSIGN",DUZ)) D
|
---|
| 28 | . S DIC("S")="I $D(^IBA(351.9,""ASN"",DUZ,+Y)),$F("".1."","".""_$P($G(^DGCR(399,+Y,0)),U,13)_""."")" ;DSI/DJW 3/21/02
|
---|
| 29 | E D
|
---|
| 30 | . S DIC("S")="I $F("".1."","".""_$P($G(^DGCR(399,+Y,0)),U,13)_""."")" ;DSI/DJW 3/21/02
|
---|
| 31 | D ^DIC I Y<1 S IBQUIT=1 Q
|
---|
| 32 | S IBIFN=+Y
|
---|
| 33 | L +^DGCR(399,IBIFN):0 E D Q
|
---|
| 34 | . W !!?4,"*** RECORD IS LOCKED ***"
|
---|
| 35 | . W !?4,"Another user is currently editing this bill."
|
---|
| 36 | . W !?4,"Please try again later."
|
---|
| 37 | . Q
|
---|
| 38 | D INFO
|
---|
| 39 | L -^DGCR(399,IBIFN)
|
---|
| 40 | Q
|
---|
| 41 | INFO ; Display the data elements on the 0 node of file 351.9 and displays
|
---|
| 42 | ; biller and coder.
|
---|
| 43 | ; For the purpose of defining a comment path TYPE=5 indicates that a
|
---|
| 44 | ; stand alone option is calling ^IBCISC.
|
---|
| 45 | ; This options allows for the re-assignement of a claim from a coder
|
---|
| 46 | ; biller.
|
---|
| 47 | S TYPE=5 ; This determines which path of comments/assign to person
|
---|
| 48 | D STATS^IBCISC
|
---|
| 49 | Q:$D(DIRUT) ; Exit out of process
|
---|
| 50 | D COMMENT^IBCIUT7(IBIFN,TYPE)
|
---|
| 51 | Q
|
---|
| 52 | Q1 ;
|
---|
| 53 | K %,IBQUIT,IBIFN,Y
|
---|
| 54 | Q
|
---|