IBCIUDF.m

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 ---IBCIUDF   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