source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCIASN.m@ 1154

Last change on this file since 1154 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1IBCIASN ;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 ;
11EN ;
12 S IBQUIT=0
13 F D ASK Q:IBQUIT=1
14 G Q1
15ASK ;
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
41INFO ; 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
52Q1 ;
53 K %,IBQUIT,IBIFN,Y
54 Q
Note: See TracBrowser for help on using the repository browser.