- 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 Feb 18, 2025@23:39:50 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