| [613] | 1 | IBCIUDF ;DSI/SLM - CLAIMSMANAGER USER DEFINED FIELDS ;21-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 | ;
|
|---|
| 5 | N IBCIDFN,LINETAG,NUM F NUM=1:1:25 S LINETAG="UDF"_NUM D @LINETAG
|
|---|
| 6 | Q
|
|---|
| 7 | UDF1 ;user defined field 1
|
|---|
| 8 | ;determine if a sensitive record. Send "Y" if yes, "N" if no.
|
|---|
| 9 | S IBCIUDF(1)=$P($G(^DGCR(399,IBIFN,"U")),U,5)
|
|---|
| 10 | S IBCIUDF(1)=$S(IBCIUDF(1)=1:"Y",1:"N")
|
|---|
| 11 | Q
|
|---|
| 12 | UDF2 ;user defined field 2
|
|---|
| 13 | ;determine the name of the coder to send.
|
|---|
| 14 | N IBCICODR S IBCIUDF(2)=""
|
|---|
| 15 | S IBCICODR=$$CODER^IBCIUT5(IBIFN),IBCICODR=$P(IBCICODR,U,3)
|
|---|
| 16 | I IBCICODR]"" S IBCIUDF(2)=IBCICODR
|
|---|
| 17 | Q
|
|---|
| 18 | UDF3 ;user defined field 3
|
|---|
| 19 | ;determine the name of the biller to send.
|
|---|
| 20 | N IBCIBILR S IBCIUDF(3)=""
|
|---|
| 21 | S IBCIBILR=$$BILLER^IBCIUT5(IBIFN),IBCIBILR=$P(IBCIBILR,U,2)
|
|---|
| 22 | I IBCIBILR]"" S IBCIUDF(3)=IBCIBILR
|
|---|
| 23 | Q
|
|---|
| 24 | UDF4 ;user defined field 4
|
|---|
| 25 | ;determine the type of plan for a specific payer sequence
|
|---|
| 26 | S IBCIUDF(4)=$$TOP^IBCIUT6(IBIFN)
|
|---|
| 27 | Q
|
|---|
| 28 | UDF5 ;user defined field 5
|
|---|
| 29 | S IBCIUDF(5)=""
|
|---|
| 30 | Q
|
|---|
| 31 | UDF6 ;user defined field 6
|
|---|
| 32 | S IBCIUDF(6)=""
|
|---|
| 33 | Q
|
|---|
| 34 | UDF7 ;user defined field 7
|
|---|
| 35 | S IBCIUDF(7)=""
|
|---|
| 36 | Q
|
|---|
| 37 | UDF8 ;user defined field 8
|
|---|
| 38 | S IBCIUDF(8)=""
|
|---|
| 39 | Q
|
|---|
| 40 | UDF9 ;user defined field 9
|
|---|
| 41 | S IBCIUDF(9)=""
|
|---|
| 42 | Q
|
|---|
| 43 | UDF10 ;user defined field 10
|
|---|
| 44 | S IBCIUDF(10)=""
|
|---|
| 45 | Q
|
|---|
| 46 | UDF11 ;user defined field 11
|
|---|
| 47 | S IBCIUDF(11)=""
|
|---|
| 48 | Q
|
|---|
| 49 | UDF12 ;user defined field 12
|
|---|
| 50 | S IBCIUDF(12)=""
|
|---|
| 51 | Q
|
|---|
| 52 | UDF13 ;user defined field 13
|
|---|
| 53 | S IBCIUDF(13)=""
|
|---|
| 54 | Q
|
|---|
| 55 | UDF14 ;user defined field 14
|
|---|
| 56 | S IBCIUDF(14)=""
|
|---|
| 57 | Q
|
|---|
| 58 | UDF15 ;user defined field 15
|
|---|
| 59 | S IBCIUDF(15)=""
|
|---|
| 60 | Q
|
|---|
| 61 | UDF16 ;user defined field 16
|
|---|
| 62 | S IBCIUDF(16)=""
|
|---|
| 63 | Q
|
|---|
| 64 | UDF17 ;user defined field 17
|
|---|
| 65 | S IBCIUDF(17)=""
|
|---|
| 66 | Q
|
|---|
| 67 | UDF18 ;user defined field 18
|
|---|
| 68 | S IBCIUDF(18)=""
|
|---|
| 69 | Q
|
|---|
| 70 | UDF19 ;user defined field 19
|
|---|
| 71 | S IBCIUDF(19)=""
|
|---|
| 72 | Q
|
|---|
| 73 | UDF20 ;user defined field 20
|
|---|
| 74 | S IBCIUDF(20)=""
|
|---|
| 75 | Q
|
|---|
| 76 | UDF21 ;user defined field 21
|
|---|
| 77 | S IBCIUDF(21)=""
|
|---|
| 78 | Q
|
|---|
| 79 | UDF22 ;user defined field 22
|
|---|
| 80 | S IBCIUDF(22)=""
|
|---|
| 81 | Q
|
|---|
| 82 | UDF23 ;user defined field 23
|
|---|
| 83 | S IBCIUDF(23)=""
|
|---|
| 84 | Q
|
|---|
| 85 | UDF24 ;user defined field 24
|
|---|
| 86 | S IBCIUDF(24)=""
|
|---|
| 87 | Q
|
|---|
| 88 | UDF25 ;user defined field 25
|
|---|
| 89 | S IBCIUDF(25)=""
|
|---|
| 90 | Q
|
|---|
