source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCIUDF.m@ 1226

Last change on this file since 1226 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
RevLine 
[613]1IBCIUDF ;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
7UDF1 ;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
12UDF2 ;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
18UDF3 ;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
24UDF4 ;user defined field 4
25 ;determine the type of plan for a specific payer sequence
26 S IBCIUDF(4)=$$TOP^IBCIUT6(IBIFN)
27 Q
28UDF5 ;user defined field 5
29 S IBCIUDF(5)=""
30 Q
31UDF6 ;user defined field 6
32 S IBCIUDF(6)=""
33 Q
34UDF7 ;user defined field 7
35 S IBCIUDF(7)=""
36 Q
37UDF8 ;user defined field 8
38 S IBCIUDF(8)=""
39 Q
40UDF9 ;user defined field 9
41 S IBCIUDF(9)=""
42 Q
43UDF10 ;user defined field 10
44 S IBCIUDF(10)=""
45 Q
46UDF11 ;user defined field 11
47 S IBCIUDF(11)=""
48 Q
49UDF12 ;user defined field 12
50 S IBCIUDF(12)=""
51 Q
52UDF13 ;user defined field 13
53 S IBCIUDF(13)=""
54 Q
55UDF14 ;user defined field 14
56 S IBCIUDF(14)=""
57 Q
58UDF15 ;user defined field 15
59 S IBCIUDF(15)=""
60 Q
61UDF16 ;user defined field 16
62 S IBCIUDF(16)=""
63 Q
64UDF17 ;user defined field 17
65 S IBCIUDF(17)=""
66 Q
67UDF18 ;user defined field 18
68 S IBCIUDF(18)=""
69 Q
70UDF19 ;user defined field 19
71 S IBCIUDF(19)=""
72 Q
73UDF20 ;user defined field 20
74 S IBCIUDF(20)=""
75 Q
76UDF21 ;user defined field 21
77 S IBCIUDF(21)=""
78 Q
79UDF22 ;user defined field 22
80 S IBCIUDF(22)=""
81 Q
82UDF23 ;user defined field 23
83 S IBCIUDF(23)=""
84 Q
85UDF24 ;user defined field 24
86 S IBCIUDF(24)=""
87 Q
88UDF25 ;user defined field 25
89 S IBCIUDF(25)=""
90 Q
Note: See TracBrowser for help on using the repository browser.