Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCIUDF

IBCIUDF.m

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