IBCIUDF ;DSI/SLM - CLAIMSMANAGER USER DEFINED FIELDS ;21-MAY-2001
;;2.0;INTEGRATED BILLING;**161**;21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
N IBCIDFN,LINETAG,NUM F NUM=1:1:25 S LINETAG="UDF"_NUM D @LINETAG
Q
UDF1 ;user defined field 1
;determine if a sensitive record. Send "Y" if yes, "N" if no.
S IBCIUDF(1)=$P($G(^DGCR(399,IBIFN,"U")),U,5)
S IBCIUDF(1)=$S(IBCIUDF(1)=1:"Y",1:"N")
Q
UDF2 ;user defined field 2
;determine the name of the coder to send.
N IBCICODR S IBCIUDF(2)=""
S IBCICODR=$$CODER^IBCIUT5(IBIFN),IBCICODR=$P(IBCICODR,U,3)
I IBCICODR]"" S IBCIUDF(2)=IBCICODR
Q
UDF3 ;user defined field 3
;determine the name of the biller to send.
N IBCIBILR S IBCIUDF(3)=""
S IBCIBILR=$$BILLER^IBCIUT5(IBIFN),IBCIBILR=$P(IBCIBILR,U,2)
I IBCIBILR]"" S IBCIUDF(3)=IBCIBILR
Q
UDF4 ;user defined field 4
;determine the type of plan for a specific payer sequence
S IBCIUDF(4)=$$TOP^IBCIUT6(IBIFN)
Q
UDF5 ;user defined field 5
S IBCIUDF(5)=""
Q
UDF6 ;user defined field 6
S IBCIUDF(6)=""
Q
UDF7 ;user defined field 7
S IBCIUDF(7)=""
Q
UDF8 ;user defined field 8
S IBCIUDF(8)=""
Q
UDF9 ;user defined field 9
S IBCIUDF(9)=""
Q
UDF10 ;user defined field 10
S IBCIUDF(10)=""
Q
UDF11 ;user defined field 11
S IBCIUDF(11)=""
Q
UDF12 ;user defined field 12
S IBCIUDF(12)=""
Q
UDF13 ;user defined field 13
S IBCIUDF(13)=""
Q
UDF14 ;user defined field 14
S IBCIUDF(14)=""
Q
UDF15 ;user defined field 15
S IBCIUDF(15)=""
Q
UDF16 ;user defined field 16
S IBCIUDF(16)=""
Q
UDF17 ;user defined field 17
S IBCIUDF(17)=""
Q
UDF18 ;user defined field 18
S IBCIUDF(18)=""
Q
UDF19 ;user defined field 19
S IBCIUDF(19)=""
Q
UDF20 ;user defined field 20
S IBCIUDF(20)=""
Q
UDF21 ;user defined field 21
S IBCIUDF(21)=""
Q
UDF22 ;user defined field 22
S IBCIUDF(22)=""
Q
UDF23 ;user defined field 23
S IBCIUDF(23)=""
Q
UDF24 ;user defined field 24
S IBCIUDF(24)=""
Q
UDF25 ;user defined field 25
S IBCIUDF(25)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCIUDF 2083 printed Nov 22, 2024@17:23:31 Page 2
IBCIUDF ;DSI/SLM - CLAIMSMANAGER USER DEFINED FIELDS ;21-MAY-2001
+1 ;;2.0;INTEGRATED BILLING;**161**;21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
+4 NEW IBCIDFN,LINETAG,NUM
FOR NUM=1:1:25
SET LINETAG="UDF"_NUM
DO @LINETAG
+5 QUIT
UDF1 ;user defined field 1
+1 ;determine if a sensitive record. Send "Y" if yes, "N" if no.
+2 SET IBCIUDF(1)=$PIECE($GET(^DGCR(399,IBIFN,"U")),U,5)
+3 SET IBCIUDF(1)=$SELECT(IBCIUDF(1)=1:"Y",1:"N")
+4 QUIT
UDF2 ;user defined field 2
+1 ;determine the name of the coder to send.
+2 NEW IBCICODR
SET IBCIUDF(2)=""
+3 SET IBCICODR=$$CODER^IBCIUT5(IBIFN)
SET IBCICODR=$PIECE(IBCICODR,U,3)
+4 IF IBCICODR]""
SET IBCIUDF(2)=IBCICODR
+5 QUIT
UDF3 ;user defined field 3
+1 ;determine the name of the biller to send.
+2 NEW IBCIBILR
SET IBCIUDF(3)=""
+3 SET IBCIBILR=$$BILLER^IBCIUT5(IBIFN)
SET IBCIBILR=$PIECE(IBCIBILR,U,2)
+4 IF IBCIBILR]""
SET IBCIUDF(3)=IBCIBILR
+5 QUIT
UDF4 ;user defined field 4
+1 ;determine the type of plan for a specific payer sequence
+2 SET IBCIUDF(4)=$$TOP^IBCIUT6(IBIFN)
+3 QUIT
UDF5 ;user defined field 5
+1 SET IBCIUDF(5)=""
+2 QUIT
UDF6 ;user defined field 6
+1 SET IBCIUDF(6)=""
+2 QUIT
UDF7 ;user defined field 7
+1 SET IBCIUDF(7)=""
+2 QUIT
UDF8 ;user defined field 8
+1 SET IBCIUDF(8)=""
+2 QUIT
UDF9 ;user defined field 9
+1 SET IBCIUDF(9)=""
+2 QUIT
UDF10 ;user defined field 10
+1 SET IBCIUDF(10)=""
+2 QUIT
UDF11 ;user defined field 11
+1 SET IBCIUDF(11)=""
+2 QUIT
UDF12 ;user defined field 12
+1 SET IBCIUDF(12)=""
+2 QUIT
UDF13 ;user defined field 13
+1 SET IBCIUDF(13)=""
+2 QUIT
UDF14 ;user defined field 14
+1 SET IBCIUDF(14)=""
+2 QUIT
UDF15 ;user defined field 15
+1 SET IBCIUDF(15)=""
+2 QUIT
UDF16 ;user defined field 16
+1 SET IBCIUDF(16)=""
+2 QUIT
UDF17 ;user defined field 17
+1 SET IBCIUDF(17)=""
+2 QUIT
UDF18 ;user defined field 18
+1 SET IBCIUDF(18)=""
+2 QUIT
UDF19 ;user defined field 19
+1 SET IBCIUDF(19)=""
+2 QUIT
UDF20 ;user defined field 20
+1 SET IBCIUDF(20)=""
+2 QUIT
UDF21 ;user defined field 21
+1 SET IBCIUDF(21)=""
+2 QUIT
UDF22 ;user defined field 22
+1 SET IBCIUDF(22)=""
+2 QUIT
UDF23 ;user defined field 23
+1 SET IBCIUDF(23)=""
+2 QUIT
UDF24 ;user defined field 24
+1 SET IBCIUDF(24)=""
+2 QUIT
UDF25 ;user defined field 25
+1 SET IBCIUDF(25)=""
+2 QUIT
