Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^IBAT(351.6,0)="TRANSFER PRICING PATIENT^351.6P^^"
^IBAT(351.61,0)="TRANSFER PRICING TRANSACTIONS^351.61^^"
^IBAT(351.62,0)="TRANSFER PRICING FIELD DEFINITION^351.62^999^23"
^IBAT(351.62,1,0)="PATIENT NAME^30^0^1^0"
^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))"
^IBAT(351.62,2,0)="SSN^12^0^2^0"
^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)"
^IBAT(351.62,3,0)="DOB^11^0^3^0"
^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)"
^IBAT(351.62,4,0)="PRIMARY ELIGIBILITY^30^0^4^0"
^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)"
^IBAT(351.62,5,0)="CITY^15^0^6^0"
^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))"
^IBAT(351.62,6,0)="COUNTY^30^0^9^0"
^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)"
^IBAT(351.62,7,0)="STATE^30^0^7^0"
^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)"
^IBAT(351.62,8,0)="PHONE^20^0^5^0"
^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))"
^IBAT(351.62,9,0)="ENROLLED FACILITY^30^0^20^0"
^IBAT(351.62,9,1)="S IBXDATA=$$PPF^IBATUTL(DFN) S:IBXDATA IBXDATA=$P($$INST^IBATUTL(IBXDATA),""^"")"
^IBAT(351.62,10,0)="ENROLLED VISN^30^0^21^0"
^IBAT(351.62,10,1)="S IBXDATA=$$PPF^IBATUTL(DFN) S:IBXDATA IBXDATA=$P($$VISN^IBATUTL(IBXDATA),""^"",2)"
^IBAT(351.62,11,0)="EVENT DATE^10^0^40^0"
^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"")"
^IBAT(351.62,12,0)="LOS^3^0^70^1"
^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)"
^IBAT(351.62,13,0)="TRANS TYPE^10^0^41^0"
^IBAT(351.62,13,1)="D TYPE^IBATO1(.IBIEN,.IBXDATA)"
^IBAT(351.62,14,0)="UNIT^10^1^50^0"
^IBAT(351.62,14,1)="D UNIT^IBATO1(.IBIEN,.IBXDATA,.IBF)"
^IBAT(351.62,15,0)="UNIT DESCRIPTION^18^1^51^0"
^IBAT(351.62,15,1)="D DES^IBATO1(.IBIEN,.IBXDATA,.IBF)"
^IBAT(351.62,16,0)="UNIT PRICE^11^1^52^1"
^IBAT(351.62,16,1)="D PRICE^IBATO1(.IBIEN,.IBXDATA,.IBF)"
^IBAT(351.62,17,0)="QTY^3^1^53^1"
^IBAT(351.62,17,1)="D QTY^IBATO1(.IBIEN,.IBXDATA,.IBF)"
^IBAT(351.62,18,0)="BILL AMT^10^0^60^1"
^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)"
^IBAT(351.62,19,0)="COPAY^7^0^61^1"
^IBAT(351.62,19,1)="S IBXDATA=$$COPAY^IBATO1(.IBIEN)"
^IBAT(351.62,21,0)="OUTLIER RATE^12^0^72^1"
^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)"
^IBAT(351.62,22,0)="O/DAY^5^0^71^1"
^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)"
^IBAT(351.62,23,0)="ZIP^5^0^8^0"
^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))"
^IBAT(351.62,999,0)="CLEAN UP^^0^^0"
^IBAT(351.62,999,1)="K ^UTILITY(""VADM"",$J),^UTILITY(""VAEL"",$J),^UTILITY(""VAPA"",$J)"
^IBAT(351.62,"AC",1,1)=""
^IBAT(351.62,"AC",2,2)=""
^IBAT(351.62,"AC",3,3)=""
^IBAT(351.62,"AC",4,4)=""
^IBAT(351.62,"AC",5,8)=""
^IBAT(351.62,"AC",6,5)=""
^IBAT(351.62,"AC",7,7)=""
^IBAT(351.62,"AC",8,23)=""
^IBAT(351.62,"AC",9,6)=""
^IBAT(351.62,"AC",20,9)=""
^IBAT(351.62,"AC",21,10)=""
^IBAT(351.62,"AC",40,11)=""
^IBAT(351.62,"AC",41,13)=""
^IBAT(351.62,"AC",50,14)=""
^IBAT(351.62,"AC",51,15)=""
^IBAT(351.62,"AC",52,16)=""
^IBAT(351.62,"AC",53,17)=""
^IBAT(351.62,"AC",60,18)=""
^IBAT(351.62,"AC",61,19)=""
^IBAT(351.62,"AC",70,12)=""
^IBAT(351.62,"AC",71,22)=""
^IBAT(351.62,"AC",72,21)=""
^IBAT(351.62,"B","BILL AMT",18)=""
^IBAT(351.62,"B","CITY",5)=""
^IBAT(351.62,"B","CLEAN UP",999)=""
^IBAT(351.62,"B","COPAY",19)=""
^IBAT(351.62,"B","COUNTY",6)=""
^IBAT(351.62,"B","DOB",3)=""
^IBAT(351.62,"B","ENROLLED FACILITY",9)=""
^IBAT(351.62,"B","ENROLLED VISN",10)=""
^IBAT(351.62,"B","EVENT DATE",11)=""
^IBAT(351.62,"B","LOS",12)=""
^IBAT(351.62,"B","O/DAY",22)=""
^IBAT(351.62,"B","OUTLIER RATE",21)=""
^IBAT(351.62,"B","PATIENT NAME",1)=""
^IBAT(351.62,"B","PHONE",8)=""
^IBAT(351.62,"B","PRIMARY ELIGIBILITY",4)=""
^IBAT(351.62,"B","QTY",17)=""
^IBAT(351.62,"B","SSN",2)=""
^IBAT(351.62,"B","STATE",7)=""
^IBAT(351.62,"B","TRANS TYPE",13)=""
^IBAT(351.62,"B","UNIT",14)=""
^IBAT(351.62,"B","UNIT DESCRIPTION",15)=""
^IBAT(351.62,"B","UNIT PRICE",16)=""
^IBAT(351.62,"B","ZIP",23)=""
^IBAT(351.67,0)="TRANSFER PRICING INPT PROSTHETIC ITEMS^351.67P^^"