source: WorldVistAEHR/trunk/g/IBAT.zwr@ 1789

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

initial load of WorldVistAEHR
File size: 4.9 KB
RevLine 
[613]1FirstRelease WVEHR VER VOE1.0
2Cache 31-Jan-2008 23:07:04 ZWR
3^IBAT(351.6,0)="TRANSFER PRICING PATIENT^351.6P^^"
4^IBAT(351.61,0)="TRANSFER PRICING TRANSACTIONS^351.61^^"
5^IBAT(351.62,0)="TRANSFER PRICING FIELD DEFINITION^351.62^999^23"
6^IBAT(351.62,1,0)="PATIENT NAME^30^0^1^0"
7^IBAT(351.62,1,1)="X:'$D(^UTILITY(""VADM"",$J)) ""N VAHOW S VAHOW=2 D DEM^VADPT"" S IBXDATA=$G(^UTILITY(""VADM"",$J,1))"
8^IBAT(351.62,2,0)="SSN^12^0^2^0"
9^IBAT(351.62,2,1)="X:'$D(^UTILITY(""VADM"",$J)) ""N VAHOW S VAHOW=2 D DEM^VADPT"" S IBXDATA=$P($G(^UTILITY(""VADM"",$J,2)),""^"",2)"
10^IBAT(351.62,3,0)="DOB^11^0^3^0"
11^IBAT(351.62,3,1)="X:'$D(^UTILITY(""VADM"",$J)) ""N VAHOW S VAHOW=2 D DEM^VADPT"" S IBXDATA=$P($G(^UTILITY(""VADM"",$J,3)),""^"",2)"
12^IBAT(351.62,4,0)="PRIMARY ELIGIBILITY^30^0^4^0"
13^IBAT(351.62,4,1)="X:'$D(^UTILITY(""VAEL"",$J)) ""N VAHOW S VAHOW=2 D ELIG^VADPT"" S IBXDATA=$P($G(^UTILITY(""VAEL"",$J,1)),""^"",2)"
14^IBAT(351.62,5,0)="CITY^15^0^6^0"
15^IBAT(351.62,5,1)="X:'$D(^UTILITY(""VAPA"",$J)) ""N VAHOW S VAHOW=2 D ADD^VADPT"" S IBXDATA=$G(^UTILITY(""VAPA"",$J,4))"
16^IBAT(351.62,6,0)="COUNTY^30^0^9^0"
17^IBAT(351.62,6,1)="X:'$D(^UTILITY(""VAPA"",$J)) ""N VAHOW S VAHOW=2 D ADD^VADPT"" S IBXDATA=$P($G(^UTILITY(""VAPA"",$J,7)),""^"",2)"
18^IBAT(351.62,7,0)="STATE^30^0^7^0"
19^IBAT(351.62,7,1)="X:'$D(^UTILITY(""VAPA"",$J)) ""N VAHOW S VAHOW=2 D ADD^VADPT"" S IBXDATA=$P($G(^UTILITY(""VAPA"",$J,5)),""^"",2)"
20^IBAT(351.62,8,0)="PHONE^20^0^5^0"
21^IBAT(351.62,8,1)="X:'$D(^UTILITY(""VAPA"",$J)) ""N VAHOW S VAHOW=2 D ADD^VADPT"" S IBXDATA=$G(^UTILITY(""VAPA"",$J,8))"
22^IBAT(351.62,9,0)="ENROLLED FACILITY^30^0^20^0"
23^IBAT(351.62,9,1)="S IBXDATA=$$PPF^IBATUTL(DFN) S:IBXDATA IBXDATA=$P($$INST^IBATUTL(IBXDATA),""^"")"
24^IBAT(351.62,10,0)="ENROLLED VISN^30^0^21^0"
25^IBAT(351.62,10,1)="S IBXDATA=$$PPF^IBATUTL(DFN) S:IBXDATA IBXDATA=$P($$VISN^IBATUTL(IBXDATA),""^"",2)"
26^IBAT(351.62,11,0)="EVENT DATE^10^0^40^0"
27^IBAT(351.62,11,1)="S:'$D(IBIEN(0)) IBIEN(0)=^IBAT(351.61,IBIEN,0) S IBXDATA=$$FMTE^XLFDT($P(IBIEN(0),""^"",4),""5D"")"
28^IBAT(351.62,12,0)="LOS^3^0^70^1"
29^IBAT(351.62,12,1)="S:'$D(IBIEN(1)) IBIEN(1)=$G(^IBAT(351.61,IBIEN,1)) S IBXDATA=$$NUM^IBATO1($P(IBIEN(1),""^"",3),0,3)"
30^IBAT(351.62,13,0)="TRANS TYPE^10^0^41^0"
31^IBAT(351.62,13,1)="D TYPE^IBATO1(.IBIEN,.IBXDATA)"
32^IBAT(351.62,14,0)="UNIT^10^1^50^0"
33^IBAT(351.62,14,1)="D UNIT^IBATO1(.IBIEN,.IBXDATA,.IBF)"
34^IBAT(351.62,15,0)="UNIT DESCRIPTION^18^1^51^0"
35^IBAT(351.62,15,1)="D DES^IBATO1(.IBIEN,.IBXDATA,.IBF)"
36^IBAT(351.62,16,0)="UNIT PRICE^11^1^52^1"
37^IBAT(351.62,16,1)="D PRICE^IBATO1(.IBIEN,.IBXDATA,.IBF)"
38^IBAT(351.62,17,0)="QTY^3^1^53^1"
39^IBAT(351.62,17,1)="D QTY^IBATO1(.IBIEN,.IBXDATA,.IBF)"
40^IBAT(351.62,18,0)="BILL AMT^10^0^60^1"
41^IBAT(351.62,18,1)="S:'$D(IBIEN(6)) IBIEN(6)=$G(^IBAT(351.61,IBIEN,6)) S IBXDATA=$$NUM^IBATO1($P(IBIEN(6),""^"",2),2,10)"
42^IBAT(351.62,19,0)="COPAY^7^0^61^1"
43^IBAT(351.62,19,1)="S IBXDATA=$$COPAY^IBATO1(.IBIEN)"
44^IBAT(351.62,21,0)="OUTLIER RATE^12^0^72^1"
45^IBAT(351.62,21,1)="S:'$D(IBIEN(1)) IBIEN=$G(^IBAT(351.61,IBIEN,1)) S IBXDATA=$$NUM^IBATO1($P(IBIEN(1),""^"",6),2,6)"
46^IBAT(351.62,22,0)="O/DAY^5^0^71^1"
47^IBAT(351.62,22,1)="S:'$D(IBIEN(1)) IBIEN=$G(^IBAT(351.61,IBIEN,1)) S IBXDATA=$$NUM^IBATO1($P(IBIEN(1),""^"",5),0,5)"
48^IBAT(351.62,23,0)="ZIP^5^0^8^0"
49^IBAT(351.62,23,1)="X:'$D(^UTILITY(""VAPA"",$J)) ""N VAHOW S VAHOW=2 D ADD^VADPT"" S IBXDATA=$G(^UTILITY(""VAPA"",$J,6))"
50^IBAT(351.62,999,0)="CLEAN UP^^0^^0"
51^IBAT(351.62,999,1)="K ^UTILITY(""VADM"",$J),^UTILITY(""VAEL"",$J),^UTILITY(""VAPA"",$J)"
52^IBAT(351.62,"AC",1,1)=""
53^IBAT(351.62,"AC",2,2)=""
54^IBAT(351.62,"AC",3,3)=""
55^IBAT(351.62,"AC",4,4)=""
56^IBAT(351.62,"AC",5,8)=""
57^IBAT(351.62,"AC",6,5)=""
58^IBAT(351.62,"AC",7,7)=""
59^IBAT(351.62,"AC",8,23)=""
60^IBAT(351.62,"AC",9,6)=""
61^IBAT(351.62,"AC",20,9)=""
62^IBAT(351.62,"AC",21,10)=""
63^IBAT(351.62,"AC",40,11)=""
64^IBAT(351.62,"AC",41,13)=""
65^IBAT(351.62,"AC",50,14)=""
66^IBAT(351.62,"AC",51,15)=""
67^IBAT(351.62,"AC",52,16)=""
68^IBAT(351.62,"AC",53,17)=""
69^IBAT(351.62,"AC",60,18)=""
70^IBAT(351.62,"AC",61,19)=""
71^IBAT(351.62,"AC",70,12)=""
72^IBAT(351.62,"AC",71,22)=""
73^IBAT(351.62,"AC",72,21)=""
74^IBAT(351.62,"B","BILL AMT",18)=""
75^IBAT(351.62,"B","CITY",5)=""
76^IBAT(351.62,"B","CLEAN UP",999)=""
77^IBAT(351.62,"B","COPAY",19)=""
78^IBAT(351.62,"B","COUNTY",6)=""
79^IBAT(351.62,"B","DOB",3)=""
80^IBAT(351.62,"B","ENROLLED FACILITY",9)=""
81^IBAT(351.62,"B","ENROLLED VISN",10)=""
82^IBAT(351.62,"B","EVENT DATE",11)=""
83^IBAT(351.62,"B","LOS",12)=""
84^IBAT(351.62,"B","O/DAY",22)=""
85^IBAT(351.62,"B","OUTLIER RATE",21)=""
86^IBAT(351.62,"B","PATIENT NAME",1)=""
87^IBAT(351.62,"B","PHONE",8)=""
88^IBAT(351.62,"B","PRIMARY ELIGIBILITY",4)=""
89^IBAT(351.62,"B","QTY",17)=""
90^IBAT(351.62,"B","SSN",2)=""
91^IBAT(351.62,"B","STATE",7)=""
92^IBAT(351.62,"B","TRANS TYPE",13)=""
93^IBAT(351.62,"B","UNIT",14)=""
94^IBAT(351.62,"B","UNIT DESCRIPTION",15)=""
95^IBAT(351.62,"B","UNIT PRICE",16)=""
96^IBAT(351.62,"B","ZIP",23)=""
97^IBAT(351.67,0)="TRANSFER PRICING INPT PROSTHETIC ITEMS^351.67P^^"
Note: See TracBrowser for help on using the repository browser.