10. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/4/2017 8:57:02 AM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

10.1 Files compared

#	Location	File	Last Modified
1	IB_2.0_577.zip	TAS+eBill+SDD+US127+v1.00.docx	Tue Aug 1 17:53:50 2017 UTC
2	IB_2.0_577.zip	TAS+eBill+SDD+US127+v1.00.docx	Wed Aug 2 15:44:50 2017 UTC

10.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	11	3888
Changed	10	52
Inserted	0	0
Removed	0	0

10.3 Comparison options

Whitespace
Character case	Differences in character case are significant
Line endings	Differences in line endings (`CR` and `LF` characters) are ignored
CR/LF characters	Not shown in the comparison detail

10.4 Active regular expressions

No regular expressions were active.

10.5 Comparison detail

	1	MCCF EDI T AS US-127 (TSEB-01)
	2	System Des ign Docume nt
	3	IB2.0###
	4
	5
	6
	7
	8	Department of Vetera ns Affairs
	9	February 2 017
	10	Version 1. 0
	11
	12	Design/Res olution:
	13	To send el ectronic c laims to t hird-party payers wh ich contai n data ele ments of a length up to the ma ximum leng th allowed in the X1 2N/005010X 222 Health Care Clai m (837) gu ides, the following items need to be mod ified:
	14
	15	IB FORM SK ELETON DEF INITION:
	16	Pay-To Pro vider Addr ess 1
	17	Pay-To Pro vider Addr ess 2
	18	Prior Auth orization #
	19	Referral N umber
	20	Prop/Cas C laim Numbe r
	21	Lab/Facili ty Name
	22	Lab/Facili ty Address 1
	23	Ambulance Address 1
	24	Ambulance Address 2
	25	Other Paye r Prior Au th/Referra l #
	26	Other Paye r Referral Number
	27	Field Modi fications:
	28	File 350.9 (IB SITE PARAMETERS )
	29	PAY-TO PRO VIDERS
	30	STREET ADD RESS 1
	31	STREET ADD RESS 2
	32	File 399 ( BILL/CLAIM S)
	33	TREATMENT AUTHORIZAT ION CODE
	34	PROPERTY/C ASUALTY CL AIM NUMBER
	35	AMBULANCE P/U ADDRES S 1
	36	AMBULANCE P/U ADDRES S 2
	37	AMBULANCE D/O ADDRES S 1
	38	AMBULANCE D/O ADDRES S 2
	39	SECONDARY AUTHORIZAT ION CODE
	40	TERTIARY A UTHORIZATI ON CODE
	41	PRIMARY RE FERRAL NUM BER
	42	SECONDARY REFERRAL N UMBER
	43	TERTIARY R EFERRAL NU MBER
	44	File 355.9 3 IB NON/O THER VA BI LLING PROV IDER
	45	Name
	46	Street Add ress
	47	Billing Sc reen 8 – R outine IBC SC8
	48	Billing Sc reen 9 – R outine IBC SC9
	49	Pay-to-pro vider scre en – Routi ne IBJPS3
	50	Billing Sc reen 10 – No routine changes n ecessary
	51
	52	Enhancemen t Category
	53	New
	54	Modify
	55	Delete
	56	No Change
	57	RTM
	58	US127
	59	Data Dicti onary (DD) Reference s
	60	(changes a re highlig hted)
	61	Necessary Field Modi fications for US127 (Sorted by File)
	62	350.9 no D D changes needed.
	63
	64	350.9004,1 .01 STREET ADDRESS 1 1;1 FREE TEXT
	65
	66	Pay-to Provider Address Li ne 1
	67	INPUT TRANSFORM: K:$L(X)> 55!($L(X)< 1) X
	68	LAST E DITED: NOV 14, 2008
	69	HELP-P ROMPT: Answer m ust be 1-5 5 characte rs in leng th.
	70	DESCRI PTION: You may modify the Pay-to Pr ovider Add ress for
	71	use on e lectronic or printed claims. You may
	72	enter a P.O. Box.
	73
	74	TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref
	75	of the . 01 field.
	76
	77	350.9004,1 .02 STREET ADDRESS 2 1;2 FREE TEXT
	78
	79	Pay-to Provider Address Li ne 2
	80	INPUT TRANSFORM: K:$L(X)> 55!($L(X)< 1) X
	81	LAST E DITED: NOV 14, 2008
	82	HELP-P ROMPT: Answer m ust be 1-5 5 characte rs in leng th.
	83	DESCRI PTION:
	84	Enter ad ditional A ddress inf ormation i f needed.
	85
	86
	87	TECHNI CAL DESCR: This fie ld is init ially set by the "AC " x-ref
	88	of the . 01 field.
	89
	90
	91
	92
	93	PIECE 1 RECORD ID 'PRV1' 364.6[ 1923] 364. 7[1623] 36 4.5[131]
	94	Length=4
	95	Max L ines=0
	96	>S IBXD ATA=""
	97	>S IBXD ATA="PRV1"
	98
	99	PIECE 1. 5 GET PAY -TO PROVID ER DATA 364.6[ 1924] 364. 7[1624] 36 4.5[5]
	100	*** C ALCULATE O NLY, NO OU TPUT ***
	101	>Consta nt Value: ""
	102	>N DIFF S IBXSAVE ("PRV1")=$ $PRVDATA^I BJPS3(IBXI EN),DIFF=$ $DIFF^IBJP S3(IBXIEN,
	103	1) S:'DIFF (IBXSAVE( "PRV1"),IB PTPNPI)="" Q:'DIFF S $P(IBXSA VE("PRV1") ,U,12,14)=
	104	"87^2^24", IBPTPNPI=$ P($G(IBXSA VE("PRV1") ),U,2)
	105
	106	PIECE 2 Entity ID Code 364.6[ 1925] 364. 7[1625] 36 4.5[5]
	107	Length=2
	108	Max L ines=0
	109	>Consta nt Value: ""
	110	>S IBXD ATA=$P($G( IBXSAVE("P RV1")),U,1 2)
	111
	112	PIECE 3 Entity Type Quali fier 364.6[ 1926] 364. 7[1626] 36 4.5[5]
	113	Length=1
	114	Max L ines=0
	115	>Consta nt Value: ""
	116	>S IBXD ATA=$P($G( IBXSAVE("P RV1")),U,1 3)
	117
	118	PIECE 4 BLANK 364.6[ 1927] 364. 7[1627] 36 4.5[56]
	119	Length=1
	120	Max L ines=0
	121	>N Z,Z0 ,Z1,IBZ I $D(^DGCR(3 99,IBXIEN, "I2")) S Z =$$COBN^IB CEF(IBXIEN ) S Z1=$S(
	122	Z>1:"^"_$E (" CB",Z), 1:"B^C") F Z0=1,2 D F^IBCEF("N -UB-04 FOR M LOCATOR 64"_$P(Z1,
	123	U,Z0),"IBZ ",,IBXIEN) S IBXDATA (Z0)=$G(IB Z)
	124	>K IBXD ATA S IBXD ATA=""
	125
	126	PIECE 5 BLANK 364.6[ 1928] 364. 7[1628] 36 4.5[5]
	127	Length=1
	128	Max L ines=0
	129	>Consta nt Value: ""
	130	>K IBXD ATA S IBXD ATA=""
	131
	132	PIECE 6 BLANK 364.6[ 1929] 364. 7[1629] 36 4.5[5]
	133	Length=1
	134	Max L ines=0
	135	>Consta nt Value: ""
	136	>K IBXD ATA S IBXD ATA=""
	137
	138	PIECE 7 Pay-To Provider A ddress 1 364.6[ 1930] 364. 7[1630] 36 4.5[5]
	139	Length=3 5 Need to change length to 55
	140	Max L ines=0
	141	>Consta nt Value: ""
	142	>S IBXD ATA=$P($G( IBXSAVE("P RV1")),U,5 )
	143
	144	PIECE 8 Pay-To Provider A ddress 2 364.6[ 1931] 364. 7[1631] 36 4.5[5]
	145	Length=3 5 Nee d to chang e length t o 55
	146	Max L ines=0
	147	>Consta nt Value: ""
	148	>S IBXD ATA=$P($G( IBXSAVE("P RV1")),U,6 )
	149
	150	PIECE 9 Pay-To Provider C ity Name 364.6[ 1932] 364. 7[1632] 36 4.5[5]
	151	Length=3 0
	152	Max L ines=0
	153	>Consta nt Value: ""
	154	>S IBXD ATA=$P($G( IBXSAVE("P RV1")),U,7 ) I IBXDAT A'="" S IB XDATA=$TR( IBXDATA,"-
	155	/.,()'"," ")
	156
	157	PIECE 10 Pay-To Provider S tate Code 364.6[ 1933] 364. 7[1633] 36 4.5[5]
	158	Length=2
	159	Max L ines=0
	160	>Consta nt Value: ""
	161	>S IBXD ATA=$P($G( IBXSAVE("P RV1")),U,8 )
	162
	163	PIECE 11 Pay-To Provider Z IP Code 364.6[ 1934] 364. 7[1634] 36 4.5[5]
	164	Length=1 5
	165	Max L ines=0
	166	>Consta nt Value: ""
	167	>S IBXD ATA=$P($G( IBXSAVE("P RV1")),U,9 ),IBXDATA= $$NOPUNCT^ IBCEF(IBXD ATA,1)
	168
	169	Number of Pieces : 11
	170	Total Segm ent Length : 137 i ncluding d elimiters
	171
	172	Enhancemen t Category
	173	New
	174	Modify
	175	Delete
	176	No Change
	177	RTM
	178
	179	Data Dicti onary (DD) Reference s
	180	(changes a re highlig hted)
	181	Change to 55
	182
	183	399,271 AMBULA NCE P/U AD DRESS 1 U5 ;2 FREE TE XT
	184
	185	INPUT TRANSFORM: K:$L(X)> 40!($L(X)< 1) X
	186	LAST E DITED: JUL 25, 2010
	187	HELP-P ROMPT: Answer m ust be 1-4 0 characte rs in leng th.
	188	DESCRI PTION: This is line one o f the stre et address where
	189	the pati ent was pi cked up. Required f or
	190	ambulanc e transpor tation.
	191	---------- ---------- ---------- ---------- ----
	192	Change to 55
	193
	194	399,272 AMBULA NCE P/U AD DRESS 2 U5 ;3 FREE TE XT
	195
	196	INPUT TRANSFORM: K:$L(X)> 30!($L(X)< 1) X
	197	LAST E DITED: JUL 25, 2010
	198	HELP-P ROMPT: Answer m ust be 1-3 0 characte rs in leng th.
	199	DESCRI PTION: This is line two o f the addr ess where the
	200	patient was picked up.
	201	---------- ---------- ---------- ---------- ----
	202	Change to 55
	203
	204
	205	399,277 AMBULA NCE D/O AD DRESS 1 U6 ;2 FREE TE XT
	206
	207	INPUT TRANSFORM: K:$L(X)> 40!($L(X)< 1) X
	208	LAST E DITED: AUG 05, 2010
	209	HELP-P ROMPT: Answer m ust be 1-4 0 characte rs in leng th.
	210	DESCRI PTION: This is line one o f the stre et address where
	211	the pati ent was dr opped off. Required for
	212	ambulanc e transpor tation.
	213	---------- ---------- ---------- ---------- ----
	214	Change to 55
	215
	216	399,278 AMBULA NCE D/O AD DRESS 2 U6 ;3 FREE TE XT
	217
	218	INPUT TRANSFORM: K:$L(X)> 30!($L(X)< 1) X
	219	LAST E DITED: AUG 05, 2010
	220	HELP-P ROMPT: Answer m ust be 1-3 0 characte rs in leng th.
	221	DESCRI PTION: This is line two o f the addr ess where the
	222	patient was droppe d off.
	223
	224
	225	Enter the Sequence#, Segment N ame, or "* ": AMB
	226
	227
	228
	229	PIECE 1 RECORD ID 'AMB ' 364.6[ 1937] 364. 7[1637] 36 4.5[131]
	230	Length=4
	231	Max L ines=0
	232	>S IBXD ATA=""
	233	>S IBXD ATA="AMB "
	234
	235	PIECE 1. 9 Ambulan ce Record Setup 364.6[ 2209] 364. 7[1909] 36 4.5[5]
	236	*** C ALCULATE O NLY, NO OU TPUT ***
	237	>Consta nt Value: ""
	238	>D AMB^ IBCEFP(IBX IEN,.IBXSA VE)
	239
	240	PIECE 2 Ambulan ce Addr Ty pe Qual 364.6[ 1938] 364. 7[1638] 36 4.5[5]
	241	Length=2
	242	Max L ines=0
	243	>Consta nt Value: ""
	244	>N DATA ,NODE,Z K IBXDATA S Z=0 F NODE ="U5","U6" S DATA=$G (IBXSAVE(" AMB",NODE)
	245	) I $L(DAT A) S Z=Z+1 ,IBXDATA(Z )=$S(NODE= "U5":"PW", 1:45) D:Z> 1 ID^IBCEF 2(Z,"AMB")
	246
	247	PIECE 3 Ambulan ce Address 1 364.6[ 1940] 364. 7[1640] 36 4.5[5]
	248	Length=4 0
	249	Max L ines=0
	250	>Consta nt Value: ""
	251	>N DATA ,NODE,Z K IBXDATA S Z=0 F NODE ="U5","U6" S DATA=$G (IBXSAVE(" AMB",NODE)
	252	) I $L(DAT A) S Z=Z+1 ,IBXDATA(Z )=$P(IBXSA VE("AMB",N ODE),U,2)
	253
	254	PIECE 4 Ambulan ce Address 2 364.6[ 1941] 364. 7[1641] 36 4.5[5]
	255	Length=3 0
	256	Max L ines=0
	257	>Consta nt Value: ""
	258	>N DATA ,NODE,Z K IBXDATA S Z=0 F NODE ="U5","U6" S DATA=$G (IBXSAVE(" AMB",NODE)
	259	) I $L(DAT A) S Z=Z+1 ,IBXDATA(Z )=$P(IBXSA VE("AMB",N ODE),U,3)
	260
	261	PIECE 5 Ambulan ce City 364.6[ 1942] 364. 7[1642] 36 4.5[5]
	262	Length=3 0
	263	Max L ines=0
	264	>Consta nt Value: ""
	265	>N DATA ,NODE,Z K IBXDATA S Z=0 F NODE ="U5","U6" S DATA=$G (IBXSAVE(" AMB",NODE)
	266	) I $L(DAT A) S Z=Z+1 ,IBXDATA(Z )=$P(IBXSA VE("AMB",N ODE),U,4)
	267
	268	PIECE 6 Ambulan ce State 364.6[ 1943] 364. 7[1643] 36 4.5[5]
	269	Length=2
	270	Max L ines=0
	271	>Consta nt Value: ""
	272	>N DATA ,NODE,Z K IBXDATA S Z=0 F NODE ="U5","U6" S DATA=$G (IBXSAVE(" AMB",NODE)
	273	) I $L(DAT A) S Z=Z+1 ,IBXDATA(Z )=$$STATE^ IBCEFG1($P (IBXSAVE(" AMB",NODE) ,U,5))
	274
	275	PIECE 7 Ambulan ce Zip Cod e 364.6[ 1944] 364. 7[1644] 36 4.5[5]
	276	Length=1 5
	277	Max L ines=0
	278	>Consta nt Value: ""
	279	>N DATA ,NODE,Z K IBXDATA S Z=0 F NODE ="U5","U6" S DATA=$G (IBXSAVE(" AMB",NODE)
	280	) I $L(DAT A) S Z=Z+1 ,IBXDATA(Z )=$P(IBXSA VE("AMB",N ODE),U,6)
	281
	282	PIECE 8 Ambulan ce Drop Of f Location 364.6[ 1951] 364. 7[1651] 36 4.5[5]
	283	Length=6 0
	284	Max L ines=0
	285	>Consta nt Value: ""
	286	>N DATA ,NODE,Z K IBXDATA S Z=0 F NODE ="U5","U6" S DATA=$G (IBXSAVE(" AMB",NODE)
	287	) I $L(DAT A) S Z=Z+1 ,IBXDATA(Z )=$P(IBXSA VE("AMB",N ODE),U,1)
	288
	289	PIECE 99 .9 AMB Cle anup Recor d 364.6[ 2210] 364. 7[1910] 36 4.5[5]
	290	*** C ALCULATE O NLY, NO OU TPUT ***
	291	>Consta nt Value: ""
	292	>K IBXS AVE("AMB")
	293
	294	Number of Pieces : 8
	295	Total Segm ent Length : 190 i ncluding d elimiters
	296
	297	Enhancemen t Category
	298	New
	299	Modify
	300	Delete
	301	No Change
	302	RTM
	303
	304	Data Dicti onary (DD) Reference s
	305	(changes a re highlig hted)
	306	Change to 55
	307
	308	399,163 TREATM ENT AUTHOR IZATION CO DE U;13 FR EE TEXT
	309
	310	INPUT TRANSFORM: K:$L(X)> 18!($L(X)< 1) X
	311	LAST E DITED: FEB 01, 2007
	312	HELP-P ROMPT: Answer m ust be 1-1 8 characte rs in leng th.
	313	DESCRI PTION: This ind icates tha t the trea tment cove red by
	314	this bil l has been authorize d by the p rimary
	315	payer.
	316
	317	On the C MS-1500 th is is box 23, PRIOR
	318	AUTHORIZ ATION NUMB ER. On th e UB-04, t his is
	319	reported in FL63.
	320
	321	NOTES: TRIGGERE D by the P RIMARY INS URANCE POL ICY field
	322	of the B ILL/CLAIMS File
	323	---------- ---------- ---------- ---------- ----
	324	Change to 55
	325
	326	399,230 SECOND ARY AUTHOR IZATION CO DE U2;8 FR EE TEXT
	327
	328	INPUT TRANSFORM: K:$L(X)> 18!($L(X)< 1) X
	329	LAST E DITED: FEB 01, 2007
	330	HELP-P ROMPT: Answer m ust be 1-1 8 characte rs in leng th.
	331	DESCRI PTION: This ind icates tha t the trea tment cove red by
	332	this bil l has been authorize d by the s econdary
	333	payer.
	334
	335	On the C MS-1500 th is is box 23, PRIOR
	336	AUTHORIZ ATION NUMB ER. On th e UB-04, t his is
	337	reported in FL63.
	338
	339	NOTES: XXXX--CA N'T BE ALT ERED EXCEP T BY PROGR AMMER
	340	TRIGGERE D by the S ECONDARY I NSURANCE P OLICY
	341	field of the BILL/ CLAIMS Fil e
	342	---------- ---------- ---------- ---------- ----
	343	Change to 55
	344
	345	399,231 TERTIA RY AUTHORI ZATION COD E U2;9 FRE E TEXT
	346
	347	INPUT TRANSFORM: K:$L(X)> 18!($L(X)< 1) X
	348	LAST E DITED: FEB 01, 2007
	349	HELP-P ROMPT: Answer m ust be 1-1 8 characte rs in leng th.
	350	DESCRI PTION: This ind icates tha t the trea tment cove red by
	351	this bil l has been authorize d by the t ertiary
	352	payer.
	353
	354	On the C MS-1500 th is is box 23, PRIOR
	355	AUTHORIZ ATION NUMB ER. On th e UB-04, t his is
	356	reported in FL63.
	357
	358	NOTES: TRIGGERE D by the T ERTIARY IN SURANCE PO LICY
	359	field of the BILL/ CLAIMS Fil e
	360	---------- ---------- ---------- ---------- --
	361	Change to 1
	362
	363	399,253 PRIMAR Y REFERRAL NUMBER UF 32;1 FREE TEXT
	364
	365	INPUT TRANSFORM: K:$L(X)> 50!($L(X)< 3) X
	366	LAST E DITED: OCT 25, 2010
	367	HELP-P ROMPT: Answer w ith (3-50 chars) Pri mary Refer ral
	368	Number.
	369	DESCRI PTION: This is the primar y referral number as signed to
	370	the insu rance.
	371
	372	NOTES: TRIGGERE D by the P RIMARY INS URANCE POL ICY field
	373	of the B ILL/CLAIMS File
	374	---------- ---------- ---------- ---------- ----
	375	Change to 1
	376
	377	399,254 SECOND ARY REFERR AL NUMBER UF32;2 FRE E TEXT
	378
	379	INPUT TRANSFORM: K:$L(X)> 50!($L(X)< 1) X
	380	LAST E DITED: OCT 25, 2010
	381	HELP-P ROMPT: Answer w ith (1-50 chars) Sec ondary Ref erral
	382	Number.
	383	DESCRI PTION: This is the second ary referr al number assigned
	384	to the i nsurance.
	385
	386	NOTES: TRIGGERE D by the S ECONDARY I NSURANCE P OLICY
	387	field of the BILL/ CLAIMS Fil e
	388
	389	---------- ---------- ---------- ---------- ----
	390	Change to 1
	391
	392	399,255 TERTIA RY REFERRA L NUMBER U F32;3 FREE TEXT
	393
	394	INPUT TRANSFORM: K:$L(X)> 50!($L(X)< 3) X
	395	LAST E DITED: OCT 25, 2010
	396	HELP-P ROMPT: Answer w ith (3-50 chars) Ter tiary Refe rral
	397	Number.
	398	DESCRI PTION: This is the tertia ry referra l number a ssigned
	399	to the i nsurance.
	400
	401	NOTES: TRIGGERE D by the T ERTIARY IN SURANCE PO LICY
	402	field of the BILL/ CLAIMS Fil e
	403	XECUTABLE 'HELP':
	404
	405
	406	Enter the Sequence#, Segment N ame, or "* ": CI3A
	407
	408
	409
	410	PIECE 1 RECORD ID 'CI3A' 364.6[ 2255] 364. 7[1953] 36 4.5[131]
	411	Length=4
	412	Max L ines=0
	413	>S IBXD ATA=""
	414	>S IBXD ATA="CI3A"
	415
	416	PIECE 1. 9 INSURED EMPLR GRP (NM/CITY/ ST) 364.6[ 13] 364. 7[11] 36 4.5[7]
	417	*** C ALCULATE O NLY, NO OU TPUT ***
	418	>N Z,Z1 ,Z2 S Z=$$ COBN^IBCEF (IBXIEN),Z 2=$$ESGHPN L^IBCEF21( IBXIEN,Z), Z1=$P(Z2,U
	419	,2,99) S:' Z2 Z1=$$IN SEMPL^IBCE F(IBXIEN) S IBXDATA= Z1
	420	>S IBXS AVE("EMP") =IBXDATA K IBXDATA
	421
	422	PIECE 2 Insured Employer Name 364.6[ 18] 364. 7[16] 36 4.5[5]
	423	Length=3 0
	424	Max L ines=0
	425	>Consta nt Value: ""
	426	>S IBXD ATA=$P($G( IBXSAVE("E MP")),U)
	427
	428	PIECE 3 Type of Pay/Sourc e of Pay 364.6[ 794] 364. 7[898] 36 4.5[235]
	429	Length=2
	430	Max L ines=0
	431	>S IBXD ATA=$$POLT YP^IBCEF3( IBXIEN)
	432
	433	PIECE 4 Prior A uthorizati on # 364.6[ 957] 364. 7[932] 36 4.5[262]
	434	Length=3 5
	435	Max L ines=0
	436	>N Z S Z=$$COBN^I BCEF(IBXIE N) D F^IBC EF("N-"_$P ("PRIMARY^ SECONDARY^ TERTIARY",
	437	U,Z)_" AUT H CODE",,, IBXIEN)
	438
	439	PIECE 5 Payer C laim Contr ol Number Qualifier 364.6[ 1000] 364. 7[1001] 36 4.5[55]
	440	Length=2
	441	Max L ines=0
	442	>N Z S Z=$$COBN^I BCEF(IBXIE N) D F^IBC EF("N-UB-0 4 FORM LOC ATOR 64"_$ P("^B^C",U
	443	,Z))
	444	>S IBXD ATA=$S(IBX DATA]"":"F 8",1:"")
	445
	446	PIECE 6 Payer C laim Contr ol Number 364.6[ 999] 364. 7[1000] 36 4.5[55]
	447	Length=5 0
	448	Max L ines=0
	449	>N Z S Z=$$COBN^I BCEF(IBXIE N) D F^IBC EF("N-UB-0 4 FORM LOC ATOR 64"_$ P("^B^C",U
	450	,Z))
	451
	452	PIECE 7 Prior A uthorizati on Qualifi er 364.6[ 1966] 364. 7[1666] 36 4.5[262]
	453	Length=2
	454	Max L ines=0
	455	>N Z S Z=$$COBN^I BCEF(IBXIE N) D F^IBC EF("N-"_$P ("PRIMARY^ SECONDARY^ TERTIARY",
	456	U,Z)_" AUT H CODE",,, IBXIEN)
	457	>S IBXD ATA=$S(IBX DATA]"":"G 1",1:"")
	458
	459	PIECE 8 Referra l Number Q ualifier 364.6[ 1967] 364. 7[1667] 36 4.5[341]
	460	Length=2
	461	Max L ines=0
	462	>N Z S Z=$$COBN^I BCEF(IBXIE N) D F^IBC EF("N-"_$P ("PRIMARY^ SECONDARY^ TERTIARY",
	463	U,Z)_" REF ERRAL NUMB ER",,,IBXI EN)
	464	>S IBXD ATA=$S(IBX DATA]"":"9 F",1:"")
	465
	466	PIECE 9 Referra l Number 364.6[ 1968] 364. 7[1668] 36 4.5[341]
	467	Length=2 0
	468	Max L ines=0
	469	>N Z S Z=$$COBN^I BCEF(IBXIE N) D F^IBC EF("N-"_$P ("PRIMARY^ SECONDARY^ TERTIARY",
	470	U,Z)_" REF ERRAL NUMB ER",,,IBXI EN)
	471
	472	PIECE 99 .9 KILL IB XSAVE ARRA Y 364.6[ 146] 364. 7[91] 36 4.5[100]
	473	*** C ALCULATE O NLY, NO OU TPUT ***
	474	>K IBXS AVE
	475	>K IBXS AVE
	476
	477	Number of Pieces : 9
	478	Total Segm ent Length : 155 i ncluding d elimiters
	479
	480	Enter the Sequence#, Segment N ame, or "* ": OI1A
	481
	482
	483
	484	PIECE 1 RECORD ID 'OI1A' 364.6[ 2256] 364. 7[1954] 36 4.5[131]
	485	Length=4
	486	Max L ines=0
	487	>S IBXD ATA=""
	488	>S IBXD ATA="OI1A"
	489
	490	PIECE 2 Payer R esponsibil ity Sequen ce 364.6[ 2257] 364. 7[1955] 36 4.5[101]
	491	Length=1
	492	Max L ines=0
	493	>K IBXS AVE(1) N Z ,C,D,Q S Z =$P($G(^DG CR(399,IBX IEN,0)),U, 21) I $D(^ ("I2"))!$D
	494	(^("I3")) S IBXSAVE( 1)=Z,Q=$S( "P"[Z:"23" ,"S"[Z:"13 ",1:"12") F C=1,2 S D=$E(Q,C),
	495	IBXDATA(C) =$E("PST", D) S:$D(^D GCR(399,IB XIEN,"I"_D )) IBXSAVE (1,D)=IBXD ATA(C)
	496	>N IBZ, Z,Z0 M IBZ =IBXDATA K IBXDATA I $O(IBXSAV E(1,0)) S (Z,Z0)=00 F S Z=$O(
	497	IBXSAVE(1, Z)) Q:'Z S Z0=Z0+1, IBXDATA(Z0 )=IBXSAVE( 1,Z) I Z0> 1 D ID^IBC EF2(Z0,"OI
	498	1A")
	499
	500	PIECE 3 Other P ayer Paid Amt 364.6[ 106] 364. 7[164] 36 4.5[125]
	501	Length=1 5
	502	Max L ines=0
	503	>N Z,Z0 ,Z1,IBZ D F^IBCEF("N -PRIOR PAY MENTS","IB Z") S Z=$$ COBN^IBCEF (IBXIEN) S
	504	Z0=0 F Z1 =1:1:3 I Z 1'=Z,$D(^D GCR(399,IB XIEN,"I"_Z 1)) S Z0=Z 0+1,IBXDAT A(Z0)=$S((
	505	Z1<Z):+$G( IBZ(Z1)),1 :"")
	506	>N Z,Z0 ,IBZ M IBZ =IBXDATA K IBXDATA F Z=1,2 I $ D(^DGCR(39 9,IBXIEN," I"_(Z+1)))
	507	,$D(IBZ(Z) ) S IBXDAT A(Z)=$$DOL LAR^IBCEFG 1(IBZ(Z))
	508
	509	PIECE 4 COB Tot al Non-Cov ered Amoun t 364.6[ 195] 364. 7[188] 36 4.5[351]
	510	Length=1 8
	511	Max L ines=0
	512	>FileMa n Extract - COB TOTA L NON-COVE RED AMOUNT (Field 26 0, File 39 9, EXTERNA L)
	513	>S IBXD ATA=$$NOPU NCT^IBCEF( $G(IBXDATA ))
	514
	515	PIECE 5 COB Tot al Non-Cov ered Amoun t Qualifie r 364.6[ 804] 364. 7[900] 36 4.5[351]
	516	Length=2
	517	Max L ines=0
	518	>FileMa n Extract - COB TOTA L NON-COVE RED AMOUNT (Field 26 0, File 39 9, EXTERNA L)
	519	>S IBXD ATA=$S(IBX DATA]"":"A 8",1:"")
	520
	521	PIECE 6 Remaini ng patient Liability qualifier 364.6[ 2204] 364. 7[1904] 36 4.5[225]
	522	Length=3
	523	Max L ines=0
	524	>K IBXS AVE("CCOB" ) D CCOB1^ IBCEU1(IBX IEN,"0,1,2 ,4")
	525	>M IBXS AVE("CCOB" )=IBXDATA N Z,Z0,IBZ K IBXDATA S (IBZ,Z0 )=0 F S I BZ=$O(IBXS
	526	AVE("CCOB" ,IBZ)) Q:' IBZ S Z0= Z0+1,Z=0 F S Z=$O(I BXSAVE("CC OB",IBZ,Z) ) Q:'Z I
	527	$P($G(IBXS AVE("CCOB" ,IBZ,Z,1)) ,U,2) S IB XDATA(Z0)= "EAF"
	528
	529	PIECE 7 Remaini ng Patient Liability 364.6[ 2205] 364. 7[1905] 36 4.5[5]
	530	Length=1 5
	531	Max L ines=0
	532	>Consta nt Value: ""
	533	>N Z,Z0 ,IBZ K IBX DATA S (IB Z,Z0)=0 F S IBZ=$O( IBXSAVE("C COB",IBZ)) Q:'IBZ S
	534	Z0=Z0+1,Z =0 F S Z= $O(IBXSAVE ("CCOB",IB Z,Z)) Q:'Z I $P($G( IBXSAVE("C COB",IBZ,Z
	535	,1)),U,2) S IBXDATA( Z0)=$$DOLL AR^IBCEFG1 ($G(IBXDAT A(Z0))+$P( IBXSAVE("C COB",IBZ,Z
	536	,1),U,2))
	537
	538	PIECE 8 Other P ayer Prior Auth Qual 364.6[ 806] 364. 7[902] 36 4.5[266]
	539	Length=2 0
	540	Max L ines=0
	541	>N Z,Z0 ,Z1,IBZ D F^IBCEF("N -ALL AUTH CODES","IB Z") S Z=$$ COBN^IBCEF (IBXIEN) S
	542	Z0=0 F Z1 =1:1:3 I Z 1'=Z,$D(^D GCR(399,IB XIEN,"I"_Z 1)) S Z0=Z 0+1,IBXDAT A(Z0)=$G(I
	543	BZ(Z1))
	544	>N Z,IB Z M IBZ=IB XDATA K IB XDATA F Z= 1,2 I $G(I BZ(Z))'="" S IBXDATA (Z)="G1"
	545
	546	PIECE 9 Other P ayer Prior Auth/Refe rral # 364.6[ 956] 364. 7[931] 36 4.5[266]
	547	Length=1 8
	548	Max L ines=0
	549	>N Z,Z0 ,Z1,IBZ D F^IBCEF("N -ALL AUTH CODES","IB Z") S Z=$$ COBN^IBCEF (IBXIEN) S
	550	Z0=0 F Z1 =1:1:3 I Z 1'=Z,$D(^D GCR(399,IB XIEN,"I"_Z 1)) S Z0=Z 0+1,IBXDAT A(Z0)=$G(I
	551	BZ(Z1))
	552	>N Z,IB Z M IBZ=IB XDATA K IB XDATA F Z= 1,2 I $G(I BZ(Z))'="" S IBXDATA (Z)=IBZ(Z)
	553
	554	PIECE 99 .9 KILL IB XSAVE ARRA Y 364.6[ 155] 364. 7[82] 36 4.5[100]
	555	*** C ALCULATE O NLY, NO OU TPUT ***
	556	>K IBXS AVE
	557	>K IBXS AVE
	558
	559	Number of Pieces : 9
	560	Total Segm ent Length : 104 i ncluding d elimiters
	561	Enter the Sequence#, Segment N ame, or "* ": OI4
	562
	563
	564
	565	PIECE 1 RECORD ID 'OI4 ' 364.6[ 1287] 364. 7[453] 36 4.5[131]
	566	Length=4
	567	Max L ines=0
	568	>S IBXD ATA=""
	569	>S IBXD ATA="OI4 "
	570
	571	PIECE 2 Payer R esponsibil ity Sequen ce # Code 364.6[ 1312] 364. 7[1028] 36 4.5[101]
	572	Length=1
	573	Max L ines=0
	574	>K IBXS AVE(1) N Z ,C,D,Q S Z =$P($G(^DG CR(399,IBX IEN,0)),U, 21) I $D(^ ("I2"))!$D
	575	(^("I3")) S IBXSAVE( 1)=Z,Q=$S( "P"[Z:"23" ,"S"[Z:"13 ",1:"12") F C=1,2 S D=$E(Q,C),
	576	IBXDATA(C) =$E("PST", D) S:$D(^D GCR(399,IB XIEN,"I"_D )) IBXSAVE (1,D)=IBXD ATA(C)
	577	>N IBZ, Z,Z0 M IBZ =IBXDATA K IBXDATA I $O(IBXSAV E(1,0)) S (Z,Z0)=0 F S Z=$O(I
	578	BXSAVE(1,Z )) Q:'Z S Z0=Z0+1,I BXDATA(Z0) =IBXSAVE(1 ,Z) I Z0>1 D ID^IBCE F2(Z0,"OI4
	579	")
	580
	581	PIECE 2. 8 EXTRACT OTHER PAY ER FULL AD DRESS 364.6[ 1877] 364. 7[1577] 36 4.5[5]
	582	*** C ALCULATE O NLY, NO OU TPUT ***
	583	>Consta nt Value: ""
	584	>N Z,Z0 ,SEQ K IBX SAVE("OTH_ PAY_ADDR") I $O(IBXS AVE(1,0)) S (Z,Z0)=0 F S Z=$O
	585	(IBXSAVE(1 ,Z)) Q:'Z S Z0=Z0+1 ,SEQ=IBXSA VE(1,Z),IB XSAVE("OTH _PAY_ADDR" ,Z0)=$$ADD
	586	^IBCNADD(I BXIEN,SEQ)
	587
	588	PIECE 2. 9 CLEAN U P OTHER PA YER ADDRES S 364.6[ 1072] 364. 7[326] 36 4.5[5]
	589	*** C ALCULATE O NLY, NO OU TPUT ***
	590	>Consta nt Value: ""
	591	>N Z,AD DR,OK,PCE F Z=1,2 S ADDR=$G(IB XSAVE("OTH _PAY_ADDR" ,Z)) I ADD R'="" S OK
	592	=1 X "F PC E=1,4,5,6 I $P(ADDR, U,PCE)=""" " S OK=0 Q " I 'OK K IBXSAVE("O TH_PAY_ADD
	593	R",Z)
	594
	595	PIECE 3 Other P ayer Addre ss Line 1 364.6[ 1073] 364. 7[333] 36 4.5[5]
	596	Length=5 5
	597	Max L ines=0
	598	>Consta nt Value: ""
	599	>N Z K IBXDATA S Z=0 F S Z =$O(IBXSAV E("OTH_PAY _ADDR",Z)) Q:'Z S I BXDATA(Z)=
	600	$P($G(IBXS AVE("OTH_P AY_ADDR",Z )),U,1)
	601
	602	PIECE 4 Other P ayer Addre ss Line 2 364.6[ 1074] 364. 7[334] 36 4.5[5]
	603	Length=5 5
	604	Max L ines=0
	605	>Consta nt Value: ""
	606	>N Z K IBXDATA S Z=0 F S Z =$O(IBXSAV E("OTH_PAY _ADDR",Z)) Q:'Z S I BXDATA(Z)=
	607	$P($G(IBXS AVE("OTH_P AY_ADDR",Z )),U,2)
	608
	609	PIECE 5 Other P ayer City Name 364.6[ 1075] 364. 7[358] 36 4.5[5]
	610	Length=3 0
	611	Max L ines=0
	612	>Consta nt Value: ""
	613	>N Z K IBXDATA S Z=0 F S Z =$O(IBXSAV E("OTH_PAY _ADDR",Z)) Q:'Z S I BXDATA(Z)=
	614	$TR($P($G( IBXSAVE("O TH_PAY_ADD R",Z)),U,4 ),"-/.,()' "," ")
	615
	616	PIECE 6 Other P ayer State Code 364.6[ 1076] 364. 7[359] 36 4.5[5]
	617	Length=2
	618	Max L ines=0
	619	>Consta nt Value: ""
	620	>N Z K IBXDATA S Z=0 F S Z =$O(IBXSAV E("OTH_PAY _ADDR",Z)) Q:'Z S I BXDATA(Z)=
	621	$$STATE^IB CEFG1($P($ G(IBXSAVE( "OTH_PAY_A DDR",Z)),U ,5))
	622
	623	PIECE 7 Other P ayer ZIP C ode 364.6[ 1077] 364. 7[360] 36 4.5[5]
	624	Length=1 5
	625	Max L ines=0
	626	>Consta nt Value: ""
	627	>N Z K IBXDATA S Z=0 F S Z =$O(IBXSAV E("OTH_PAY _ADDR",Z)) Q:'Z S I BXDATA(Z)=
	628	$P($G(IBXS AVE("OTH_P AY_ADDR",Z )),U,6)
	629
	630	PIECE 7. 9 COB DAT A SETUP 364.6[ 2203] 364. 7[1903] 36 4.5[373]
	631	*** C ALCULATE O NLY, NO OU TPUT ***
	632	>K IBXS AVE("CCOB" ) D CCOB1^ IBCEU1(IBX IEN,"0,1,2 ,4")
	633	>M IBXS AVE("CCOB" )=IBXDATA K IBXDATA
	634
	635	PIECE 8 Other p ayer Check Qualifier 364.6[ 2026] 364. 7[1725] 36 4.5[5]
	636	Length=3
	637	Max L ines=0
	638	>Consta nt Value: ""
	639	>N Z,Z0 ,IBZ K IBX DATA S (IB Z,Z0)=0 F S IBZ=$O( IBXSAVE("C COB",IBZ)) Q:'IBZ S
	640	Z0=Z0+1,Z =0 F S Z= $O(IBXSAVE ("CCOB",IB Z,Z)) Q:'Z I $P($G( IBXSAVE("C COB",IBZ,Z
	641	,0)),U,6) S IBXDATA( Z0)=573
	642
	643	PIECE 9 Other p ayer Check Date 364.6[ 2027] 364. 7[1726] 36 4.5[5]
	644	Length=8
	645	Max L ines=0
	646	>Consta nt Value: ""
	647	>N Z,Z0 ,IBZ K IBX DATA S (IB Z,Z0)=0 F S IBZ=$O( IBXSAVE("C COB",IBZ)) Q:'IBZ S
	648	Z0=Z0+1,Z =0 F S Z= $O(IBXSAVE ("CCOB",IB Z,Z)) Q:'Z I $P($G( IBXSAVE("C COB",IBZ,Z
	649	,0)),U,6) S IBXDATA( Z0)=$$DT^I BCEFG1($P( IBXSAVE("C COB",IBZ,Z ,0),U,6)," ","D8")
	650
	651	PIECE 10 Other p ayer claim status 364.6[ 2028] 364. 7[1727] 36 4.5[5]
	652	Length=2
	653	Max L ines=0
	654	>Consta nt Value: ""
	655	>N Z,Z0 ,IBZ K IBX DATA S (IB Z,Z0)=0 F S IBZ=$O( IBXSAVE("C COB",IBZ)) Q:'IBZ S
	656	Z0=Z0+1,Z =0 F S Z= $O(IBXSAVE ("CCOB",IB Z,Z)) Q:'Z I $P($G( IBXSAVE("C COB",IBZ,Z
	657	,0)),U,21) '="" S IBX DATA(Z0)=$ P(IBXSAVE( "CCOB",IBZ ,Z,0),U,21 )
	658
	659	PIECE 11 Other P ayer Refer ral Number qualifier 364.6[ 2024] 364. 7[1723] 36 4.5[354]
	660	Length=2
	661	Max L ines=0
	662	>N Z,Z0 ,Z1,IBZ D F^IBCEF("N -ALL REFER RAL NUMBER S","IBZ") S Z=$$COBN ^IBCEF(IBX
	663	IEN) S Z0= 0 F Z1=1:1 :3 I Z1'=Z ,($G(IBZ(Z 1))]"") S Z0=Z0+1,IB XDATA(Z0)= $G(IBZ(Z1)
	664	)
	665	>N Z,IB Z M IBZ=IB XDATA K IB XDATA F Z= 1,2 I $G(I BZ(Z))'="" S IBXDATA (Z)="9F"
	666
	667	PIECE 12 Other P ayer Refer ral Number 364.6[ 2025] 364. 7[1724] 36 4.5[354]
	668	Length=2 0
	669	Max L ines=0
	670	>N Z,Z0 ,Z1,IBZ D F^IBCEF("N -ALL REFER RAL NUMBER S","IBZ") S Z=$$COBN ^IBCEF(IBX
	671	IEN) S Z0= 0 F Z1=1:1 :3 I Z1'=Z ,($G(IBZ(Z 1))]"") S Z0=Z0+1,IB XDATA(Z0)= $G(IBZ(Z1)
	672	)
	673	>N Z,IB Z M IBZ=IB XDATA K IB XDATA F Z= 1,2 I $G(I BZ(Z))'="" S IBXDATA (Z)=IBZ(Z)
	674
	675	PIECE 99 IBXSAVE CLEAN-UP 364.6[ 1878] 364. 7[1578] 36 4.5[5]
	676	*** C ALCULATE O NLY, NO OU TPUT ***
	677	>Consta nt Value: ""
	678	>K IBXS AVE("OTH_P AY_ADDR")
	679
	680	Number of Pieces : 12
	681	Total Segm ent Length : 208 i ncluding d elimiters
	682	Enhancemen t Category
	683	New
	684	Modify
	685	Delete
	686	No Change
	687	RTM
	688
	689	Data Dicti onary (DD) Reference s
	690	(changes a re highlig hted)
	691
	692
	693	Change to 50
	694
	695	399,261 PROPER TY/CASUALT Y CLAIM NU MBER U4;2 FREE TEXT
	696
	697	INPUT TRANSFORM: K:$L(X)> 30!($L(X)< 1)!($TR(X, " ")="")!( $E(X)=" "
	698	) X
	699	LAST E DITED: MAR 19, 2015
	700	HELP-P ROMPT: Answer m ust be 1-3 0 characte rs in leng th, not
	701	all spac es, no lea ding space s.
	702	DESCRI PTION: This is a payer-as signed cla im number for a
	703	property and casua lty claim.
	704
	705	NOTES: XXXX--CA N'T BE ALT ERED EXCEP T BY PROGR AMMER:
	706
	707
	708
	709
	710	Enter the Sequence#, Segment N ame, or "* ": PT2
	711
	712
	713
	714	PIECE 1 RECORD ID 'PT2 ' 364.6[ 215] 364. 7[200] 36 4.5[131]
	715	Length=4
	716	Max L ines=0
	717	>S IBXD ATA=""
	718	>S IBXD ATA="PT2 "
	719
	720	PIECE 2 BLANK 364.6[ 43] 364. 7[63] 36 4.5[5]
	721	Length=1
	722	Max L ines=0
	723	>Consta nt Value: ""
	724
	725	PIECE 3 Pt. Pho ne 364.6[ 790] 364. 7[801] 36 4.5[64]
	726	Length=2 0
	727	Max L ines=0
	728	>S IBXD ATA=$$PTAD DR^IBCEF(I BXIEN,8)
	729	>S IBXD ATA=$$NOPU NCT^IBCEF( IBXDATA,1)
	730
	731	PIECE 4 Insured or Pt. De ath DT 364.6[ 795] 364. 7[938] 36 4.5[292]
	732	Length=8
	733	Max L ines=0
	734	>S IBXD ATA=$P($$P TDEM^IBCEF (IBXIEN,6) ,U)
	735	>S:IBXD ATA IBXDAT A=$$DT^IBC EFG1(IBXDA TA,"","D8" )
	736
	737	PIECE 5 Prop/Ca s Claim Nu mber Quali fier 364.6[ 1974] 364. 7[1674] 36 4.5[345]
	738	Length=3
	739	Max L ines=0
	740	>FileMa n Extract - PROPERTY /CASUALTY CLAIM NUMB ER (Field 261, File 399, EXTER NAL)
	741	>S IBXD ATA=$S($TR (IBXDATA," ")]"":"Y4 ",1:"")
	742
	743	PIECE 6 Prop/Ca s Claim Nu mber 364.6[ 1975] 364. 7[1675] 36 4.5[345]
	744	Length=3 0
	745	Max L ines=0
	746	>FileMa n Extract - PROPERTY /CASUALTY CLAIM NUMB ER (Field 261, File 399, EXTER NAL)
	747	>S IBXD ATA=$TR(IB XDATA," ") ,IBXSAVE(" PCCLAIM")= 0 I IBXDAT A]"" S IBX SAVE("PCCL
	748	AIM")=1
	749
	750	PIECE 7 Prop/Ca s Contact Name Quali fier 364.6[ 1976] 364. 7[1676] 36 4.5[346]
	751	Length=2
	752	Max L ines=0
	753	>FileMa n Extract - PROPERTY /CASUALTY CONTACT NA ME (Field 268, File 399, EXTER NAL)
	754	>S IBXD ATA=$S(IBX DATA]"":"I C",1:"") I $G(IBXSAV E("PCCLAIM "))=0 S IB XDATA=""
	755
	756	PIECE 8 Prop/Ca s Contact Name 364.6[ 1977] 364. 7[1677] 36 4.5[346]
	757	Length=6 0
	758	Max L ines=0
	759	>FileMa n Extract - PROPERTY /CASUALTY CONTACT NA ME (Field 268, File 399, EXTER NAL)
	760	>I $G(I BXSAVE("PC CLAIM"))=0 S IBXDATA =""
	761
	762	PIECE 9 Prop/Ca s Contact Tele Quali fier 364.6[ 1978] 364. 7[1678] 36 4.5[347]
	763	Length=2
	764	Max L ines=0
	765	>FileMa n Extract - PROP/CAS COMMUNICA TION NUMBE R (Field 2 69, File 3 99, EXTERN AL)
	766	>S IBXD ATA=$S(IBX DATA]"":"T E",1:"") I $G(IBXSAV E("PCCLAIM "))=0 S IB XDATA=""
	767
	768	PIECE 10 Prop/Ca s Contact Telephone 364.6[ 1979] 364. 7[1679] 36 4.5[347]
	769	Length=1 0
	770	Max L ines=0
	771	>FileMa n Extract - PROP/CAS COMMUNICA TION NUMBE R (Field 2 69, File 3 99, EXTERN AL)
	772	>I $G(I BXSAVE("PC CLAIM"))=0 S IBXDATA =""
	773
	774	PIECE 11 Prop/Ca s Contact Ext Qualif ier 364.6[ 1980] 364. 7[1680] 36 4.5[348]
	775	Length=2
	776	Max L ines=0
	777	>FileMa n Extract - PROP/CAS EXTENSION NUMBER (F ield 269.1 , File 399 , EXTERNAL )
	778	>S IBXD ATA=$S(IBX DATA]"":"E X",1:"") I $G(IBXSAV E("PCCLAIM "))=0 S IB XDATA=""
	779
	780	PIECE 12 Prop/Ca s contact Extension 364.6[ 1981] 364. 7[1681] 36 4.5[348]
	781	Length=1 0
	782	Max L ines=0
	783	>FileMa n Extract - PROP/CAS EXTENSION NUMBER (F ield 269.1 , File 399 , EXTERNAL )
	784	>S:$G(I BXSAVE("PC CLAIM"))=0 IBXDATA=" " K IBXSAV E("PCCLAIM ")
	785
	786	PIECE 99 .9 KILL IB XSAVE ARRA Y 364.6[ 147] 364. 7[90] 36 4.5[100]
	787	*** C ALCULATE O NLY, NO OU TPUT ***
	788	>K IBXS AVE
	789	>K IBXS AVE
	790
	791	Number of Pieces : 12
	792	Total Segm ent Length : 163 i ncluding d elimiters
	793
	794
	795
	796	Enhancemen t Category
	797	New
	798	Modify
	799	Delete
	800	No Change
	801	RTM
	802
	803	Data Dicti onary (DD) Reference s
	804
	805	Change to 60
	806
	807	355.93,.01 NAME 0;1 FREE TEXT (Required )
	808
	809	INPUT TRANSFORM: K:($L(X) >30)!($L(X )<3) X I $ D(X) D PRV FMT^IBCEP
	810	8
	811	LAST E DITED: SEP 17, 2010
	812	HELP-P ROMPT: Enter th e name of a NON-VA p rovider/fa cility or
	813	other VA . Name mu st start w ith a lett er and
	814	can have letters,n umbers,com ma,space,d ash only.
	815	Names a ren't vali d if they exist in t he NEW
	816	PERSON f ile.
	817	DESCRI PTION: This is the name o f either a n individu al NON-VA
	818	provider or a NON- VA or anot her VA fac ility
	819	that pro vides serv ices to th e V.A. for which
	820	the V.A. can in tu rn bill an insurance company
	821	for reim bursement.
	822
	823	For indi vidual typ e entries: The name should be
	824	entered in LAST,FI RST MIDDLE format. Enter
	825	only dat a that is actually p art of the
	826	provider 's name. D o not incl ude extra titles,
	827	identifi cation, fl ags, local informati on, etc.
	828	All indi vidual pro vider name s will be converted
	829	to the ' standardiz ed' format . 'Standar dized'
	830	for indi viduals me ans all pu nctuation except
	831	'-' and space are removed, t he name is changed
	832	to all u ppercase, 2 or more successive '-' or
	833	spaces a re convert ed to a si ngle '-' o r space
	834	and any words for birth posi tion (1ST- 10TH) are
	835	changed to their R oman numer al equival ents.
	836
	837	For faci lity type entries: T he name MU ST start
	838	with an Alpha char acter. The name may contain
	839	numerals , spaces, commas, pe riods, and a hyphen
	840	or dash. No other punctuati on charact ers are
	841	allowed in the nam e.
	842	---------- ---------- ---------- ---------- ----
	843	Change to 55
	844
	845	355.93,.05 STREET ADDRESS 0;5 FREE TEXT (Required )
	846
	847	INPUT TRANSFORM: S X=$$UP ^XLFSTR(X) K:$L(X)>3 0!($L(X)<1 )!$$BADAD
	848	D^IBCEP8 B(X) X I $ D(X),$P($G (^IBA(355. 93,DA,0))
	849	,U,2)'=1 K X
	850	LAST E DITED: MAR 11, 2014
	851	HELP-P ROMPT: Answer m ust be 1-3 0 characte rs in leng th.
	852	Cannot b e a post o ffice box.
	853	DESCRI PTION: This is the street address o f the non- VA
	854	facility that rend ered the c are that i s being
	855	billed b y the VA. It is onl y valid fo r
	856	FACILITY providers . It canno t be a pos t office
	857	box.
	858
	859	NOTES: XXXX--CA N'T BE ALT ERED EXCEP T BY PROGR AMMER
	860	TRIGGERE D by the P ROVIDER TY PE field o f the IB
	861	NON/OTHE R VA BILLI NG PROVIDE R File
	862
	863	Note: If t he Input T ransform d oes not ch ange after editing a field, yo u will nee d to go in to FileMan Utility o ption 5-IN PUT TRANSF ORM (SYNTA X) to modi fy (as sho wn in the example be low):
	864
	865	Select UTI LITY OPTIO N: 5 INPU T TRANSFOR M (SYNTAX)
	866
	867	Modify wha t File: BI LL/CLAIMS/ / (4 entri es)
	868	Select FIE LD: 163 T REATMENT A UTHORIZATI ON CODE
	869	TREATMENT AUTHORIZAT ION CODE I NPUT TRANS FORM: K:$L (X)>18!($L (X)<1) X
	870	Replace 18 With 50 Replace
	871	K:$L(X) >50!($L(X) <1) X
	872	'HELP'-PRO MPT: Answe r must be 1-35 chara cters in l ength.
	873	Replace 3 5 With 50 Replace
	874	Answer must be 1- 50 charact ers in len gth.
	875	XECUTABLE 'HELP':
	876
	877
	878
	879
	880
	881	Enter the Sequence#, Segment N ame, or "* ": SUB
	882
	883
	884
	885	PIECE 1 RECORD ID 'SUB ' 364.6[ 207] 364. 7[219] 36 4.5[131]
	886	Length=4
	887	Max L ines=0
	888	>S IBXD ATA=""
	889	>S IBXD ATA="SUB "
	890
	891	PIECE 1. 5 GET SER VICE FACIL ITY INFO ( CALC ONLY) 364.6[ 1915] 364. 7[1615] 36 4.5[96]
	892	*** C ALCULATE O NLY, NO OU TPUT ***
	893	>S IBXD ATA=$$B^IB CEF79(IBXI EN)
	894	>S IBXS AVE("SERVF ACFLAG")=$ S($P(IBXDA TA,U,3)="" :0,1:1) I IBXSAVE("S ERVFACFLAG
	895	") S IBXSA VE("SERVFA CDATA")=IB XDATA
	896
	897	PIECE 2 Lab/Fac ility Name 364.6[ 170] 364. 7[156] 36 4.5[5]
	898	Length=3 0
	899	Max L ines=0
	900	>Consta nt Value: ""
	901	>Q:'$G( IBXSAVE("S ERVFACFLAG ")) N Z S Z=$G(IBXS AVE("SERVF ACDATA")), IBXDATA=$$
	902	GETFAC^IBC EP8(+$P(Z, U,4),$P(Z, U,3),0)
	903
	904	PIECE 3 Lab/Fac ility Addr ess 1 364.6[ 171] 364. 7[157] 36 4.5[5]
	905	Length=3 5
	906	Max L ines=0
	907	>Consta nt Value: ""
	908	>Q:'$G( IBXSAVE("S ERVFACFLAG ")) N Z S Z=$G(IBXS AVE("SERVF ACDATA")), IBXDATA=$$
	909	GETFAC^IBC EP8(+$P(Z, U,4),$P(Z, U,3),1)
	910
	911	PIECE 4 Lab/Fac ility City Name 364.6[ 172] 364. 7[390] 36 4.5[5]
	912	Length=3 0
	913	Max L ines=0
	914	>Consta nt Value: ""
	915	>Q:'$G( IBXSAVE("S ERVFACFLAG ")) N Z S Z=$G(IBXS AVE("SERVF ACDATA")), IBXDATA=$$
	916	GETFAC^IBC EP8(+$P(Z, U,4),$P(Z, U,3),"3C") ,IBXDATA=$ TR(IBXDATA ,"-/.,()'" ," ")
	917
	918	PIECE 5 Lab/Fac ility Stat e Code 364.6[ 173] 364. 7[159] 36 4.5[5]
	919	Length=2
	920	Max L ines=0
	921	>Consta nt Value: ""
	922	>Q:'$G( IBXSAVE("S ERVFACFLAG ")) N Z S Z=$G(IBXS AVE("SERVF ACDATA")), IBXDATA=$$
	923	GETFAC^IBC EP8(+$P(Z, U,4),$P(Z, U,3),"3S")
	924
	925	PIECE 6 Lab/Fac ility ZIP Code 364.6[ 174] 364. 7[160] 36 4.5[5]
	926	Length=1 5
	927	Max L ines=0
	928	>Consta nt Value: ""
	929	>Q:'$G( IBXSAVE("S ERVFACFLAG ")) N Z S Z=$G(IBXS AVE("SERVF ACDATA")), IBXDATA=$$
	930	GETFAC^IBC EP8(+$P(Z, U,4),$P(Z, U,3),"3Z") ,IBXDATA=$ $NOPUNCT^I BCEF(IBXDA TA,1)
	931
	932	PIECE 7 Total P urchased S ervice Amo unt 364.6[ 783] 364. 7[892] 36 4.5[20]
	933	Length=1 5
	934	Max L ines=0
	935	>N IBSU B,IBXSAVE, Z S IBSUB= $S('$G(^TM P("IBTX",$ J,IBIFN)): "BOX24",1: "OUTPT") D
	936	B24^IBCEF 3(.IBXSAVE ,IBXIEN) K IBXDATA S (IBXDATA, Z)=0 F S Z=$O(IBXSA VE(IBSUB,Z
	937	)) Q:'Z S IBXDATA=I BXDATA+$P( IBXSAVE(IB SUB,Z),U,1 1)
	938	>K IBXS AVE("PS$") K:'$G(IBX DATA) IBXD ATA I $G(I BXDATA) S IBXDATA=$$ DOLLAR^IBC
	939	EFG1(IBXDA TA),IBXSAV E("PS$")=1
	940
	941	PIECE 8 CLIA # 364.6[ 970] 364. 7[947] 36 4.5[112]
	942	Length=1 0
	943	Max L ines=0
	944	>FileMa n Extract - LAB CLIA NUMBER (F ield 235, File 399, EXTERNAL)
	945	>I $D(I BXDATA) S IBXDATA=$$ NOPUNCT^IB CEF(IBXDAT A)
	946
	947	PIECE 9 BLANK 364.6[ 971] 364. 7[948] 36 4.5[5]
	948	Length=1
	949	Max L ines=0
	950	>Consta nt Value: ""
	951	>K IBXD ATA S IBXD ATA=""
	952
	953	PIECE 10 Purchas ed Serv Fl ag 364.6[ 972] 364. 7[949] 36 4.5[273]
	954	Length=1
	955	Max L ines=0
	956	>S IBXD ATA=+$P($G (^DGCR(399 ,IBXIEN,"U 2")),U,11)
	957	>I '$$S UB1OK^IBCE P8A(IBXIEN ) K IBXDAT A
	958
	959	PIECE 11 BLANK 364.6[ 1194] 364. 7[391] 36 4.5[5]
	960	Length=1
	961	Max L ines=0
	962	>Consta nt Value: ""
	963	>K IBXD ATA S IBXD ATA=""
	964
	965	PIECE 12 Lab/Fac ility Addr ess 2 364.6[ 1039] 364. 7[203] 36 4.5[5]
	966	Length=5 0
	967	Max L ines=0
	968	>Consta nt Value: ""
	969	>Q:'$G( IBXSAVE("S ERVFACFLAG ")) N Z S Z=$G(IBXS AVE("SERVF ACDATA")), IBXDATA=$$
	970	GETFAC^IBC EP8(+$P(Z, U,4),$P(Z, U,3),2)
	971
	972	PIECE 99 IBXSAVE CLEAN-UP SUB 364.6[ 1916] 364. 7[1616] 36 4.5[5]
	973	*** C ALCULATE O NLY, NO OU TPUT ***
	974	>Consta nt Value: ""
	975	>K IBXS AVE("SERVF ACFLAG"),I BXSAVE("SE RVFACDATA" )
	976
	977	Number of Pieces : 12
	978	Total Segm ent Length : 205 i ncluding d elimiters
	979
	980	Routine Ch anges
	981	Routines
	982	Activities
	983	Routine Na me
	984	IBCSC8
	985	Enhancemen t Category
	986	New
	987	Modify
	988	Delete
	989	No Change
	990	RTM
	991
	992	Related Op tions
	993	None
	994	Related Ro utines
	995	Routines “ Called By”
	996	Routines “ Called”
	997
	998
	999
	1000
	1001	Data Dicti onary (DD) Reference s
	1002	D399, Fiel d 261 (PR OPERTY/CAS UALTY CLAI M NUMBER)
	1003	Related Pr otocols
	1004	None
	1005	Related In tegration Control Re gistration s (ICRs)
	1006	None
	1007	Data Passi ng
	1008	Input
	1009	Output Re ference
	1010	Both
	1011	Global Re ference
	1012	Local
	1013	Routine Na me
	1014	IBCSC8 (c hanges are Highlight ed)
	1015	IBCSC8 ;AL B/MJB/AAS - MCCR SCR EEN 8 (BIL LING - CLA IM INFORMA TION SCREE N) ;27 MAY 88 10:15
	1016	;;2.0;INT EGRATED BI LLING;*43 2,447,488 *;21-MAR-9 4;Build 18 4
	1017	;;Per VHA Directive 2004-038, this rout ine should not be mo dified.
	1018	;
	1019	;
	1020	EN D ^IBCS CU S IBSR= 8,IBSR1="" S IB("U2" )=$G(^DGCR (399,IBIFN ,"U2")),IB ("U4")=$G( ^DGCR(399, IBIFN,"U4" )),IB("U5" )=$G(^DGCR (399,IBIFN ,"U5")),IB ("U6")=$G( ^DGCR(399, IBIFN,"U6" )),IB("U8" )=$G(^DGCR (399,IBIFN ,"U8"))
	1021	D H^IBCSC U
	1022	; DEM - I BV is set in EDI^IBC B => S IBA C=1,IBV=0 D EN G Q:' IBAC1,EDI
	1023	; I BV=0, or I BV=1 as a flag if fi eld on scr een is req uired
	1024	; o r not. <Fi eld #> ind icates fie ld is not required.
	1025	; [ Field #]
	1026	; Make so me section s NOT avai lable for UB04 form
	1027	S IBT=$P( $G(^DGCR(3 99,IBIFN,0 )),U,19)
	1028	;S IBV1=$ S(IBT=3:"0 01011",IBV :"111111", 1:"000000" )
	1029	S IBV1=$S (IBT=3:"00 1011111",I BV:"111111 111",1:"00 0000000") ; IB2.0 488 (vd)
	1030	;
	1031	S Z=1,IBW =1 X IBWW W " COB No n-Covered Charge Amt : " S X=$P (IB("U4"), U),X2="2$" I X'="" D COMMA^%DT C W X
	1032	S Z=2 X I BWW W " Pr operty Cas ualty Info rmation"
	1033	;W !,?4," Claim Numb er: ",$P( IB("U4"),U ,2),?41,"C ontact Nam e: ",$P(I B("U4"),U, 9) ;JRA ‘ ;’
	1034	W !,?4,"C laim Numbe r: ",$P(I B("U4"),U, 2) ;JRA
	1035	W !,?4,"C ontact Nam e: ",$P(I B("U4"),U, 9) ;JRA
	1036	W !,?4,"D ate of 1st Contact: ",$$FMTE^ XLFDT($P(I B("U4"),U, 3)),?41,"C ontact Pho ne: ",$P( IB("U4"),U ,10)," ", $P(IB("U4" ),U,11)
	1037	; Start I B2.0447 BI
	1038	;S Z=3 X IBWW W " A mbulance I nformation "
	1039	;W !,?41, "D/O Locat ion: ",$P( IB("U6"),U )
	1040	;W !,?4," P/U Addres s1: ",$P( IB("U5"),U ,2),?41,"D /O Address 1: ",$P(I B("U6"),U, 2)
	1041	;W !,?4," P/U Addres s2: ",$P( IB("U5"),U ,3),?41,"D /O Address 2: ",$P(I B("U6"),U, 3)
	1042	;W !,?4," P/U City: ",$P(IB(" U5"),U,4), ?41,"D/O C ity: ",$P (IB("U6"), U,4)
	1043	;W !,?4," P/U State/ Zip: " W: $P(IB("U5" ),U,5)'="" $P($G(^DI C(5,$P(IB( "U5"),U,5) ,0)),U,2)
	1044	;W:$P(IB( "U5"),U,6) ]"" "/"_$P (IB("U5"), U,6)
	1045	;W ?41,"D /O State/Z ip: " W:$ P(IB("U6") ,U,5)'="" $P($G(^DIC (5,$P(IB(" U6"),U,5), 0)),U,2)
	1046	;W:$P(IB( "U6"),U,6) ]"" "/"_$P (IB("U6"), U,6)
	1047	;;W !,?4, "P/U Count ry/SubDiv: ",$P(IB( "U5"),U),? 41,"D/O Co untry/SubD iv: "
	1048	S Z=3 X I BWW W " Su rgical Cod es for Ane sthesia Cl aims"
	1049	W !,?4,"P rimary Cod e: " W:$P (IB("U4"), U,7)'="" $ P($G(^ICPT ($P(IB("U4 "),U,7),0) ),U)
	1050	W ?41,"Se condary Co de: " W:$ P(IB("U4") ,U,8)'="" $P($G(^ICP T($P(IB("U 4"),U,8),0 )),U)
	1051	S Z=4 X I BWW W " Pa perwork At tachment I nformation "
	1052	W !,?4,"R eport Type : " W:$P( IB("U8"),U ,2)'="" $P ($G(^IBE(3 53.3,$P(IB ("U8"),U,2 ),0)),U)
	1053	W ?41,"Tr ansmission Method: ",$P(IB("U 8"),U,3)
	1054	W !,?4,"A ttachment Control #: ",$P(IB( "U8"),U)
	1055	S Z=5 X I BWW W " Di sability S tart Date: ",$$FMTE ^XLFDT($P( IB("U4"),U ,4)),?41," Disability End Date: ",$$FMTE ^XLFDT($P( IB("U4"),U ,5))
	1056	S Z=6 X I BWW W " As sumed Care Date: ", $$FMTE^XLF DT($P(IB(" U4"),U,13) ),?41,"Rel inquished Care Date: ",$$FMTE ^XLFDT($P( IB("U4"),U ,14))
	1057	; End IB* 2.0*447 BI
	1058	;
	1059	;/ Beginn ing of IB* 2.0*488 - code moved from IBCS C10H (vd)
	1060	S Z=7 X I BWW W " Sp ecial Prog ram: " I $P(IB("U2" ),U,16)'=" " S IBZ=$$ EXPAND^IBT RE(399,238 ,$P(IB("U2 "),U,16)) W $S(IBZ'= "":IBZ,$$W NRBILL^IBE FUNC(IBIFN ):"31",1:" ")
	1061	S Z=8 X I BWW W " Ho mebound: ",$$EXPAND ^IBTRE(399 ,236,$P(IB ("U2"),U,1 4))
	1062	S Z=9 X I BWW W " Da te Last Se en: ",$$E XPAND^IBTR E(399,237, $P(IB("U2" ),U,15))
	1063	;/ End of IB2.048 8 (vd)
	1064	REV G ^IBC SCP
	1065	;IBCSC8
	1066
	1067
	1068
	1069
	1070	Routine IB CSC8- Scre en View: C urrent
	1071
	1072
	1073	Routine IB CSC8- Scre en View: A fter Chang es
	1074
	1075	Routines
	1076	Activities
	1077	Routine Na me
	1078	IBCSC9
	1079	Enhancemen t Category
	1080	New
	1081	Modify
	1082	Delete
	1083	No Change
	1084	RTM
	1085
	1086	Related Op tions
	1087	None
	1088	Related Ro utines
	1089	Routines “ Called By”
	1090	Routines “ Called”
	1091
	1092
	1093
	1094
	1095	Data Dicti onary (DD) Reference s
	1096	D399, Fiel d 271 (AMB ULANCE P/U ADDRESS 1 )
	1097	D399, Fiel d 272 (AMB ULANCE P/U ADDRESS 2 )
	1098	D399, Fiel d 277 (AM BULANCE D/ O ADDRESS 1)
	1099	D399, Fiel d 278 (AMB ULANCE D/O ADDRESS 2 )
	1100	Related Pr otocols
	1101	None
	1102	Related In tegration Control Re gistration s (ICRs)
	1103	None
	1104	Data Passi ng
	1105	Input
	1106	Output Re ference
	1107	Both
	1108	Global Re ference
	1109	Local
	1110	Routine Na me
	1111	IBCSC9
	1112	(changes a re Highlig hted)
	1113	IBCSC9 ;AL B/BI - MCC R SCREEN 9 (AMBULANC E INFO) ; 11 MAY 201 1 10:20
	1114	;;2.0;INT EGRATED BI LLING;52 ,51,447,47 3;11-MAY -2011;Buil d 29
	1115	;;Per VHA Directive 2004-038, this rout ine should not be mo dified.
	1116	;
	1117	EN ; Main Entry Poin t
	1118	N IBACI,I BACIX,IB,I BT
	1119	D ^IBCSCU
	1120	S IBT=$P( $G(^DGCR(3 99,IBIFN,0 )),U,19)
	1121	S IBSR=9, IBSR1="",I BV1=$S(IBT =3:"11",IB V:"11",1:" 00")
	1122	S IB("U") =$G(^DGCR( 399,IBIFN, "U"))
	1123	S IB("U1" )=$G(^DGCR (399,IBIFN ,"U1"))
	1124	S IB("U4" )=$G(^DGCR (399,IBIFN ,"U4"))
	1125	S IB("U5" )=$G(^DGCR (399,IBIFN ,"U5"))
	1126	S IB("U6" )=$G(^DGCR (399,IBIFN ,"U6"))
	1127	S IB("U7" )=$G(^DGCR (399,IBIFN ,"U7"))
	1128	S IB("U8" )=$G(^DGCR (399,IBIFN ,"U8"))
	1129	M IB("U9" )=^DGCR(39 9,IBIFN,"U 9")
	1130	D H^IBCSC U
	1131	S Z=1,IBW =1 X IBWW W " Ambula nce Transp ort Data"
	1132	;JRA Rear range Fiel d order so that expa nded 55 ch ar PU/DO A ddress1 & PU/DO Addr ess2 can b e displaye d
	1133	;W !,?41, "D/O Locat ion: ",$P( IB("U6"),U ) ;JRA '; '
	1134	;W !,?4," P/U Addres s1: ",$P(I B("U5"),U, 2),?41,"D/ O Address1 : ",$P(IB( "U6"),U,2) ;JRA ';'
	1135	;W !,?4," P/U Addres s2: ",$P(I B("U5"),U, 3),?41,"D/ O Address2 : ",$P(IB( "U6"),U,3) ;JRA ';'
	1136	;W !,?4," P/U City: ",$P(IB("U 5"),U,4),? 41,"D/O Ci ty: ",$P(I B("U6"),U, 4) ;JRA ' ;'
	1137	;W !,?4," P/U State/ Zip: " W:$ P(IB("U5") ,U,5)'="" $P($G(^DIC (5,$P(IB(" U5"),U,5), 0)),U,2) ;JRA ';'
	1138	;W:$P(IB( "U5"),U,6) ]"" "/"_$P (IB("U5"), U,6) ;JRA ';'
	1139	;W ?41,"D /O State/Z ip: " W:$P (IB("U6"), U,5)'="" $ P($G(^DIC( 5,$P(IB("U 6"),U,5),0 )),U,2) ; JRA ';'
	1140	;W:$P(IB( "U6"),U,6) ]"" "/"_$P (IB("U6"), U,6) ;JRA ';'
	1141	W !,?4,"P /U Address 1: ",$P(IB ("U5"),U,2 ) ;JRA
	1142	W !,?4,"P /U Address 2: ",$P(IB ("U5"),U,3 ) ;JRA
	1143	W !,?4,"P /U City: " ,$P(IB("U5 "),U,4) ; JRA
	1144	W ?41,"P/ U State/Zi p: " W:$P( IB("U5"),U ,5)'="" $P ($G(^DIC(5 ,$P(IB("U5 "),U,5),0) ),U,2) ;J RA
	1145	W:$P(IB(" U5"),U,6)] "" "/"_$P( IB("U5"),U ,6) ;JRA
	1146	W !,?4,"D /O Locatio n: ",$P(IB ("U6"),U) ;JRA
	1147	W !,?4,"D /O Address 1: ",$P(IB ("U6"),U,2 ) ;JRA
	1148	W !,?4,"D /O Address 2: ",$P(IB ("U6"),U,3 ) ;JRA
	1149	W !,?4,"D /O City: " ,$P(IB("U6 "),U,4) ; JRA
	1150	W ?41,"D/ O State/Zi p: " W:$P( IB("U6"),U ,5)'="" $P ($G(^DIC(5 ,$P(IB("U6 "),U,5),0) ),U,2) ;J RA
	1151	W:$P(IB(" U6"),U,6)] "" "/"_$P( IB("U6"),U ,6) ;JRA
	1152	W !,?4,"P atient Wei ght: ",$P( IB("U7"),U ,1),?41,"T ransport D istance: " ,$P(IB("U7 "),U,3)
	1153	W !,?4,"T ransport R eason: " I $P(IB("U7 "),U,2)'=" " D IBWP($ $GET1^DIQ( 353.4,$P(I B("U7"),U, 2)_",",.02 ),22,55)
	1154	W !,?4,"R /T Purpose : " D IBWP ($P(IB("U7 "),U,4),17 ,60)
	1155	W !,?4,"S tretcher P urpose: " D IBWP($P( IB("U7"),U ,5),23,54)
	1156	S Z=2,IBW =2 X IBWW W " Ambula nce Certif ication Da ta"
	1157	W !,?4,"C ondition I ndicator:"
	1158	S IBACIX= 0
	1159	F S IBAC IX=$O(IB(" U9",IBACIX )) Q:+IBAC IX=0 D
	1160	. S IBACI =IB("U9",I BACIX,0)
	1161	. W ?25,$ $GET1^DIQ( 353.5,IBAC I_",",.01) ," - ",$$G ET1^DIQ(35 3.5,IBACI_ ",",.02),!
	1162	K IB("U9" )
	1163	W !
	1164	G ^IBCSCP
	1165	Q
	1166	;
	1167	IBWP(IBX,I BLM,IBRM) ;
	1168	K ^UTILIT Y($J,"W")
	1169	N X,Y,DIW F,DIWL,DIW R S X=IBX
	1170	S DIWL=1, DIWR=IBRM, DIWF="" D ^DIWP
	1171	I $D(^UTI LITY($J,"W ")) S Y=0 F S Y=$O( ^UTILITY($ J,"W",1,Y) ) Q:'Y W: Y>1 !,?(IB LM) W $G(^ UTILITY($J ,"W",1,Y,0 ))
	1172	K ^UTILIT Y($J,"W")
	1173	Q
	1174	;
	1175	SCREEN1(DA 1) ;
	1176	N A,RESPO NSE S RESP ONSE=0
	1177	I +$P($G( ^DGCR(399, DA1,"U9",0 )),U,4)<5 S RESPONSE =1 Q RESPO NSE
	1178	S A(1,"F" )="!?35",A (1)="Maxim um of 5 Co ndition In dicators a llowed"
	1179	D EN^DDIO L(.A)
	1180	Q RESPONS E
	1181	;IBCSC9
	1182
	1183
	1184	Routine IB CSC9- Scre en View- C urrent
	1185
	1186
	1187	Routine IB CSC9- Scre en View-Af ter Change s
	1188
	1189
	1190	Routines
	1191	Activities
	1192	Routine Na me
	1193	IBJPS3
	1194	Enhancemen t Category
	1195	New
	1196	Modify
	1197	Delete
	1198	No Change
	1199	RTM
	1200
	1201	Related Op tions
	1202	None
	1203	Related Ro utines
	1204	Routines “ Called By”
	1205	Routines “ Called”
	1206
	1207
	1208
	1209
	1210	Data Dicti onary (DD) Reference s
	1211	D350.9, Fi eld 1.01 ( STREET ADD RESS 1)
	1212	D350.9, Fi eld 1.02 ( STREET ADD RESS 2)
	1213	Related Pr otocols
	1214	None
	1215	Related In tegration Control Re gistration s (ICRs)
	1216	None
	1217	Data Passi ng
	1218	Input
	1219	Output Re ference
	1220	Both
	1221	Global Re ference
	1222	Routine Na me
	1223	IBJPS3 ( changes ar e Highligh ted)
	1224	IBJPS3 ;BP /YMG - IB Site Param eters, Pay -To Provid er ;20-Oct -2008
	1225	;;2.0;INT EGRATED BI LLING;*40 0,432,516 *;21-MAR-9 4;Build 12 3
	1226	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1227	;
	1228	; MRD;IB* 2.0*516 - Added logi c pertaini ng to TRIC ARE-Specif ic Pay-To
	1229	; Provide rs, which entailed a dding the parameter IBTCFLAG t o many
	1230	; procedu res here a nd in ^IBJ PS4.
	1231	;
	1232	EN(IBTCFLA G) ; -- ma in entry p oint for I BJP IB PAY -TO PROVID ERS
	1233	D EN^VALM ("IBJP IB "_$S(IBTCF LAG:"TRICA RE PAY-TO PROVS",1:" PAY-TO PRO VIDERS"))
	1234	Q
	1235	;
	1236	HDR(IBTCFL AG) ; -- h eader code
	1237	; Not set ting VALMH DR causes this tag t o be calle d upon ret urn from e very actio n,
	1238	; this is done to k eep VALMSG displayed at all ti mes, inste ad of the default me ssage on t he lower b ar.
	1239	S VALMSG= "* = Defau lt "_$S(IB TCFLAG:"TR ICARE ",1: "")_"Pay-t o provider "
	1240	Q
	1241	;
	1242	INIT(IBTCF LAG) ; -- init varia bles and l ist array
	1243	N IBCNT,I BLN,IBSTR, PIEN,PDATA ,IBNODE
	1244	S IBNODE= $$NODE^IBJ PS4(IBTCFL AG)
	1245	;
	1246	S (VALMCN T,IBCNT,IB LN)=0
	1247	S PIEN=0 F S PIEN= $O(^IBE(35 0.9,1,IBNO DE,PIEN)) Q:'PIEN D
	1248	.I $P($G( ^IBE(350.9 ,1,IBNODE, PIEN,0)),U ,5)'="" Q
	1249	.S PDATA= $$PTG(PIEN ,IBTCFLAG) ,IBCNT=IBC NT+1
	1250	.S IBSTR= $$SETSTR^V ALM1(IBCNT _".","",2, 4)
	1251	.I $$ISDF LT(PIEN,IB TCFLAG) S IBSTR=$$SE TSTR^VALM1 ("*",IBSTR ,7,1)
	1252	.S IBSTR= $$SETSTR^V ALM1("Name : "_$ P(PDATA,U) ,IBSTR,8,4 5)
	1253	.;S IBSTR =$$SETSTR^ VALM1("Sta te : "_$ P(PDATA,U, 8),IBSTR,5 4,25) ;JR A ';'
	1254	.S IBLN=$ $SET(IBLN, IBSTR)
	1255	.;S IBSTR =$$SETSTR^ VALM1("Add ress 1: "_ $P(PDATA,U ,5),"",8,4 5) ;JRA ' ;'
	1256	.S IBSTR= $$SETSTR^V ALM1("Addr ess 1: "_$ P(PDATA,U, 5),"",8,66 ) ;JRA e xpand to 5 5 chars
	1257	.;S IBSTR =$$SETSTR^ VALM1("Zip Code: "_$ P(PDATA,U, 9),IBSTR,5 4,25) ;JR A ';'
	1258	.S IBLN=$ $SET(IBLN, IBSTR)
	1259	.;S IBSTR =$$SETSTR^ VALM1("Add ress 2: "_ $P(PDATA,U ,6),"",8,4 5) ;JRA ' ;'
	1260	.S IBSTR= $$SETSTR^V ALM1("Addr ess 2: "_$ P(PDATA,U, 6),"",8,66 ) ;JRA e xpand to 5 5 chars
	1261	.;S IBSTR =$$SETSTR^ VALM1("Pho ne : "_$ P(PDATA,U, 4),IBSTR,5 4,25) ;JR A ';'
	1262	.S IBLN=$ $SET(IBLN, IBSTR)
	1263	.S IBSTR= $$SETSTR^V ALM1("City : "_$ P(PDATA,U, 7),"",8,45 ) ;JRA
	1264	.S IBLN=$ $SET(IBLN, IBSTR) ;J RA
	1265	.;S IBSTR =$$SETSTR^ VALM1("Tax ID : "_$ P(PDATA,U, 3),IBSTR,5 4,25) ;JR A ';'
	1266	.;JRA Mov e State, Z ip Code, P hone and T ax ID unde r City to allow for longer add ress lines
	1267	.S IBSTR= $$SETSTR^V ALM1("Stat e : "_$ P(PDATA,U, 8),IBSTR,8 ,25) ;JRA
	1268	.S IBLN=$ $SET(IBLN, IBSTR) ;J RA
	1269	.S IBSTR= $$SETSTR^V ALM1("Zip Code : "_$ P(PDATA,U, 9),IBSTR,8 ,25) ;JRA
	1270	.S IBLN=$ $SET(IBLN, IBSTR) ;J RA
	1271	.S IBSTR= $$SETSTR^V ALM1("Phon e : "_$ P(PDATA,U, 4),IBSTR,8 ,25) ;JRA
	1272	.S IBLN=$ $SET(IBLN, IBSTR) ;J RA
	1273	.S IBSTR= $$SETSTR^V ALM1("Tax ID : "_$ P(PDATA,U, 3),IBSTR,8 ,25) ;JRA
	1274	.S IBLN=$ $SET(IBLN, IBSTR),IBL N=$$SET(IB LN,"")
	1275	.S @VALMA R@("ZIDX", IBCNT,PIEN )=""
	1276	.Q
	1277	;
	1278	I 'IBLN S IBLN=$$SE T(IBLN,$$S ETSTR^VALM 1("No "_$S (IBTCFLAG: "TRICARE " ,1:"")_"Pa y-To Provi ders defin ed.","",13 ,40))
	1279	;
	1280	S VALMCNT =IBLN,VALM BG=1
	1281	Q
	1282	;
	1283	…
	1284
	1285
	1286
	1287	Routine IB JPS3- Scre en View- C urrent
	1288
	1289
	1290	Routine IB JPS3- Scre en View-Af ter Change s
	1291
	1292	No Routine changes n ecessary:
	1293	Auth/Refer ral: Scre en View: C urrent
	1294
	1295	Auth/Refer ral: Scre en View: A fter Chang es
	1296
	1297
	1298	The output entries n ecessitate a pre ins tall and a filter wh en going i nto the bu ild.
	1299	Here is an example f rom a prio r eBilling patch.
	1300	364.5 IB DATA ELEMENT DE FINITION NO N O YES OVER Y ES NO
	1301	DATA SCR EEN: I $$I NCLUDE^IBY 516PR(5,Y)
	1302
	1303	364.6 IB FORM SKELETON D EFINITION NO N O YES OVER N O NO
	1304	DATA SCR EEN: I $$I NCLUDE^IBY 516PR(6,Y)
	1305
	1306	364.7 IB FORM FIELD CONT ENT NO N O YES OVER Y ES NO
	1307	DATA SCR EEN: I $$I NCLUDE^IBY 516PR(7,Y)
	1308
	1309	IBY516PR ; ALB/WCJ - Pre-Instal lation for IB patch 516 ;4/14/ 14
	1310	; ;2.0;INTEG RATED BILL ING;*516 *;21-MAR-9 4;Build 12 3
	1311	; ;Per VA Di rective 64 02, this r outine sho uld not be modified.
	1312	;
	1313	; delete al l output f ormatter ( O.F.) data elements included i n build
	1314	D DELOF,RIT ,DEL36,IBC LON
	1315	Q
	1316	;
	1317	IBCLON ; Remove lo ck from IB CLON optio n - ICR#61 26
	1318	S DA=$$FIND 1^DIC(19,, ,"IB COPY AND CANCEL ")
	1319	I 'DA G IBC LONQ
	1320	N IBFDA S I BFDA(19,DA _",",3)="@ "
	1321	D FILE^DIE( "","IBFDA" )
	1322	IBCLONQ ;
	1323	Q
	1324	;
	1325	RIT ; recompile billing s creen temp lates
	1326	N X,Y,DMAX, IBN
	1327	D MES^XPDUT L("Recompi ling Input Templates for Billi ng Screens ...")
	1328	F IBN=1:1:8 ,"10","102 ","10H" D
	1329	. S X="IBXS" _$S(IBN=10 :"A",IBN=" 102":"A2", IBN="10H": "AH",1:IBN ),Y=$$FIND
	1330	1^DIC(.402 ,,"X","IB SCREEN"_IB N,"B"),DMA X=$$ROUSIZ E^DILF
	1331	. I Y D EN^D IEZ
	1332	D MES^XPDUT L(" Done." )
	1333	Q
	1334	;
	1335	INC3508(Y) ; functio n to deter mine if en try in IB ERROR file (350.8) s hould be i
	1336	ncluded in the build
	1337	; Y - ien t o file
	1338	N DATA,ENTR Y,LN,OK,TA G
	1339	S OK=0,ENTR Y=U_$P($G( ^IBE(350.8 ,Y,0)),U,3 )_U
	1340	F LN=2:1 S TAG="ENT35 08+"_LN,DA TA=$P($T(@ TAG),";;", 2) Q:DATA= "" I $F(D
	1341	ATA,ENTRY) S OK=1 Q
	1342	Q OK
	1343	;
	1344	INCLUDE(FI LE,Y) ; fu nction to determine if O.F. en try should be includ ed in the
	1345	build
	1346	; FILE=5,6, 7 indicati ng file 36 4.x
	1347	; Y=ien to file
	1348	N EW OK,LN,T AG,DATA
	1349	S OK=0
	1350	F LN=2:1 S TAG="ENT"_ FILE_"+"_L N,DATA=$P( $T(@TAG)," ;;",2) Q:D ATA="" I
	1351	$F(DATA,U_ Y_U) S OK= 1 Q
	1352	Q OK
	1353	;
	1354	DEL36 ; This proc edure dele tes any da ta from fo ur fields in file #3 6, Insuran
	1355	ce Company .
	1356	;
	1357	N DA,DIE,DR ,IBDATA,IB FIELD,IBIN SIEN
	1358	S IBINSIEN= 0
	1359	F S IBINSI EN=$O(^DIC (36,IBINSI EN)) Q:'IB INSIEN D
	1360	. F IBFIELD =4.07,4.11 ,4.12,4.13 D
	1361	. . S IBDAT A=$$GET1^D IQ(36,IBIN SIEN_",",I BFIELD,"I" )
	1362	. . I IBDAT A'="" D
	1363	. . . S DIE ="^DIC(36, "
	1364	. . . S DA= IBINSIEN
	1365	. . . S DR= IBFIELD_"/ //@"
	1366	. . . D ^DI E
	1367	. . . Q
	1368	. . Q
	1369	. Q
	1370	Q
	1371	;
	1372	; Delete edi ted entrie s to insur e clean in stall of n ew entries
	1373	; Delete obs olete entr ies.
	1374	DELOF ; Delete included O F entries
	1375	N EW FILE,DI K,LN,TAG,T AGLN,DATA, PCE,DA,Y
	1376	F FILE=5,6, 7 S DIK="^ IBA(364."_ FILE_"," D
	1377	. F TAG="EN T"_FILE,"D EL"_FILE D
	1378	. . F LN=2:1 S TAGLN=T AG_"+"_LN, DATA=$P($T (@TAGLN)," ;;",2) Q:D ATA="" D
	1379	. .. F PCE=2 :1 S DA=$P (DATA,U,PC E) Q:'DA I $D(^IBA( "364."_FIL E,DA,0)) D
	1380	^DIK
	1381	Q
	1382	;
	1383	; Example f or ENT5, E NT6, ENT7, DEL5, DEL 6, and DEL 7:
	1384	; ;^195^254^ 259^269^32 4^325^
	1385	; Note: Mu st have be ginning an d ending u p-carat
	1386	;
	1387	; 364.5 ent ries modif ied:
	1388	ENT5 ; OF entrie s in file 364.5 to b e included
	1389	;
	1390	; ;^199^200^
	1391	;
	1392	; ---------- ---------- ---------- ---------- ---------- ---------- ----------
	1393	; 364.6 ent ries modif ied:
	1394	;
	1395	ENT6 ; O.F. entr ies in fil e 364.6 to be includ ed
	1396	;
	1397	; ;^66^127^1 32^483^810 ^811^812^9 58^964^974 ^975^977^9 79^
	1398	; ;^1014^102 9^1030^103 1^1034^104 3^
	1399	; ;^1839^184 0^1851^
	1400	; ;^2059^206 0^
	1401	; ;^2231^223 5^2236^223 7^2251^225 2^
	1402	;
	1403	; ---------- ---------- ---------- ---------- ---------- ---------- ----------
	1404	ENT7 ; O.F. entr ies in fil e 364.7 to be includ ed
	1405	;
	1406	; ;^37^69^88 ^89^110^17 9^184^192^ 205^206^20 7^475^
	1407	; ;^829^840^ 842^933^93 9^941^952^ 953^956^
	1408	; ;^1015^153 9^1540^161 5^1674^167 5^1759^176 0^
	1409	; ;^1945^194 6^1947^194 8^1949^195 0^
	1410	;
	1411	; ---------- ---------- ---------- ---------- ---------- ---------- ----------
	1412	DEL5 ; remove O.F. entr ies in fil e 364.5 (n ot re-adde d)
	1413	;
	1414	; ;
	1415	;
	1416	; ---------- ---------- ---------- ---------- ---------- ---------- ----------
	1417	DEL6 ; remove O.F. entr ies in fil e 364.6 (n ot re-adde d)
	1418	;
	1419	; ;^1826^182 7^
	1420	;
	1421	; ---------- ---------- ---------- ---------- ---------- ---------- ----------
	1422	DEL7 ; remove O.F. entr ies in fil e 364.7 (n ot re-adde d)
	1423	;
	1424	; ;
	1425	;
	1426	; ---------- ---------- ---------- ---------- ---------- ---------- ----------
	1427	ENT3508 ; Add New I B Error Co des to Fil e 350.8
	1428	;
	1429	; ;
	1430	;
	1431
	1432
	1433	An existin g IA conta ining one of the imp acted fiel ds was loc ated. Whi le the pat ch using t he IA was cancelled, the IA is still in effect and is now us ed elsewhe re. A sea rch throug h the PRCA (includin g RCD name space) yie lded no po sitive res ults on th is field. Informati on include d here to show this was review ed.
	1434
	1435	INTEGRATIO N REFERENC E INQUIRY #3820 F EB 27,2017 21:09 PAGE 1
	1436	---------- ---------- ---------- ---------- ---------- ---------- ---------- ----------
	1437
	1438
	1439	3820 NAME: DBIA3820- A
	1440	CUSTODIA L PACKAGE: INTEGRATE D BILLING Albany
	1441	SUBSCRIBIN G PACKAGE: ACCOUNTS RECEIVABLE Albany
	1442
	1443	USAGE: Private ENTERED: NOV 3,200 2
	1444	STATUS: Active EXPIRES:
	1445	DURATION: Till Othe rwise Agr VERSION:
	1446	FILE: 399 ROOT: DGCR(399,
	1447	DE SCRIPTION: TYPE: File
	1448	Request ing a dire ct global read of th e followin g fields t o file 399 Bill
	1449	Claims.
	1450	GLOBAL REFERENCE:
	1451	^DGCR (399,
	1452	.27 BILL CHARGE TY PE 0;2 7 Dire ct Global Read & w/F ileman
	1453	.22 DEFA ULT DIVISI ON 0;2 2 Dire ct Global Read & w/F ileman
	1454	.07 RATE TYPE 0;7 Dire ct Global Read & w/F ileman
	1455	.18 SC A T TIME OF CARESC 0;1 8 Dire ct Global Read & w/F ileman
	1456	.2 AUTO 0;2 0 Dire ct Global Read & w/F ileman
	1457	.21 CURR ENT BILL P AYER S 0;2 1 Dire ct Global Read & w/F ileman
	1458	.03 EVEN T DATE 0;3 Dire ct Global Read & w/F ileman
	1459	.04 LOCA TION OF CA RE 0;4 Dire ct Global Read & w/F ileman
	1460	.05 BILL CLASSIFIC ATION 0;5 Dire ct Global Read & w/F ileman
	1461	.06 TIME FRAME OF B ILL 0;6 Dire ct Global Read & w/F ileman
	1462	.09 PROC EDURE CODI NG MET 0;9 Dire ct Global Read & w/F ileman
	1463	.13 STAT US 0;1 3 Dire ct Global Read & w/F ileman
	1464	.14 STAT US DATE 0;1 4 Dire ct Global Read & w/F ileman
	1465	.24 UB92 LOCATION OF CAR 0;2 4 Dire ct Global Read & w/F ileman
	1466	.25 UB92 BILL CLAS SIFICA 0;2 5 Dire ct Global Read & w/F ileman
	1467	.26 UB92 TIMEFRAME OF BI 0;2 6 Dire ct Global Read & w/F ileman
	1468	.01 BILL NUMBER 0;1 Dire ct Global Read & w/F ileman
	1469	.02 PATI ENT NAME 0;2 Dire ct Global Read & w/F ileman
	1470	151 STAT EMENT COVE RS FRO U;1 Dire ct Global Read & w/F ileman
	1471	152 STAT EMENT COVE RS TO U;2 Dire ct Global Read & w/F ileman
	1472	155 IS T HIS A SENS ITIVE U;5 Dire ct Global Read & w/F ileman
	1473	156 ASSI GNMENT OF BENEFI U;6 Dire ct Global Read & w/F ileman
	1474	163 TREA TMENT AUTH ORIZAT U;1 3 Dire ct Global Read & w/F ileman
	1475	202 OFFS ET AMOUNT U1; 2 Dire ct Global Read & w/F ileman
	1476	215 ADMI TTING DIAG NOSIS U2; 1 Dire ct Global Read & w/F ileman
	1477	216 COVE RED DAYS U2; 2 Dire ct Global Read & w/F ileman
	1478	217 NON- COVERED DA YS U2; 3 Dire ct Global Read & w/F ileman
	1479	218 PRIM ARY PRIOR PAYMEN U2; 4 Dire ct Global Read & w/F ileman
	1480	219 SECO NDARY PRIO R PAYM U2; 5 Dire ct Global Read & w/F ileman
	1481	220 TERT IARY PRIOR PAYME U2; 6 Dire ct Global Read & w/F ileman
	1482	10 AUTH ORIZATION DATE S;1 0 Dire ct Global Read & w/F ileman
	1483	12 DATE FIRST PRI NTED S;1 2 Dire ct Global Read & w/F ileman
	1484	135 BILL PAYER CAR RIER MP; 1 Dire ct Global Read & w/F ileman
	1485	122 PRIM ARY PROVID ER M1; 2 Dire ct Global Read & w/F ileman
	1486	123 SECO NDARY PROV IDER M1; 3 Dire ct Global Read & w/F ileman
	1487	124 TERT IARY PROVI DER M1; 4 Dire ct Global Read & w/F ileman
	1488	.11 WHO' S RESPONSI BLE FO 0;1 1 Dire ct Global Read & w/F ileman
	1489	GLOBAL REFERENCE:
	1490	^DGCR (399,D0,CV ,
	1491	.01 VALU E CODE 0;1 Dire ct Global Read & w/F ileman
	1492	.02 VALU E 0;2 Dire ct Global Read & w/F ileman
	1493	GLOBAL REFERENCE:
	1494	^DGCR (399,D0,RC ,
	1495	.01 REVE NUE CODE 0;1 Dire ct Global Read & w/F ileman
	1496	.02 CHAR GES 0;2 Dire ct Global Read & w/F ileman
	1497	.03 UNIT S OF SERVI CE 0;3 Dire ct Global Read & w/F ileman
	1498	.04 TOTA L 0;4 Dire ct Global Read & w/F ileman
	1499	.05 BEDS ECTION 0;5 Dire ct Global Read & w/F ileman
	1500	.09 NON- COVERED DA YS 0;9 Dire ct Global Read & w/F ileman
	1501	.1 TYPE 0;1 0 Dire ct Global Read & w/F ileman
	1502	.11 ITEM 0;1 1 Dire ct Global Read & w/F ileman
	1503	GLOBAL REFERENCE:
	1504	^DGCR (399,D0,OP ,
	1505	.01 OP V ISIT DATE 0;1 Dire ct Global Read & w/F ileman
	1506	GLOBAL REFERENCE:
	1507	^DGCR (399,D0,OC ,
	1508	.01 OCCU RENCE CODE OC; 1 Dire ct Global Read & w/F ileman
	1509	DGC R(399,D0
	1510
	1511
	1512	KEYWORDS: PRCA4.5 179
	1513	MCCF
	1514	Mart
	1515	Extract
	1516	VARI
	1517	Revenue
	1518	Informati on
	1519	Data
	1520
	1521	* ******** ****** ****
	1522
	1523
	1524	Press return to continue
	1525
	1526
	1527	VistA Patc h Display Page: 1
	1528	========== ========== ========== ========== ========== ========== ========== =======
	1529	Run Date: FEB 27, 20 17 Design ation: PRC A4.5179
	1530	Package : ACCOUNTS R ECEIVABLE Priori ty : MAN DATORY
	1531	Version : 4.5 Status : CAN CELLED
	1532	========== ========== ========== ========== ========== ========== ========== =======
	1533
	1534	Subject: CANCELED - DATA MART
	1535
	1536	Category: ROUTINE
	1537	OTHER
	1538
	1539	Descriptio n:
	1540	========== =
	1541
	1542	***** ****** *******
	1543	This patch is no lon ger in act ive develo pment. Th e Chief Bu siness Off ice
	1544	is looking into an a lternate p rocess to what was b eing intro duced by t his
	1545	patch. Th e informat ion contai ned in thi s patch is being pre served for the
	1546	historical benefit i t may prov ide to the new proce ss.
	1547	***** ****** *******
	1548
	1549
	1550	This patch formally releases t he MCCF Da ta Mart Ex tract as a n official
	1551	part of th e AR packa ge. All s ites have been runni ng the mon thly MCCF
	1552	Extract fo r over two years. T his extrac t now can be run fro m a menu
	1553	option ins tead of pr ogrammer m ode. The resulting files are to be
	1554	copied usi ng the Fil e Transfer Protocol (FTP) to t he designa ted IP add ress
	1555	specified below.
	1556
	1557	The Revenu e Office h as assigne d a name t o this ext ract and t he associa ted
	1558	database o n the VHA/ CFO Data M art. The name is VA Revenue I nformation
	1559	(VARI). A ll previou s referenc es in the software a nd its doc umentation
	1560	have been changed fr om MCCF ex tract to V ARI extrac t.
	1561
	1562	The inform ation and analysis d erived fro m these da ta are cur rently
	1563	shared wit h the VISN s and Faci lities CFO s, as well as the Op erations a nd
	1564	Revenue Of fices. MC CF Collect ions, whic h will exc eed $1 Bil lion in FY
	1565	2002 and g row each F Y, are ret ained loca lly as par t of the m edical car e
	1566	fund. MCC F Collecti ons suppor ts ADP pro curements and other medical ca re
	1567	operations .
	1568
	1569	The Financ e Office r equires al l data sub mission, i ncluding t his extrac t,
	1570	to be subm itted star ting the 1 st of each month and received no later t han
	1571	the 5th wo rkday of t he month. Submissio n on the 1 st is high ly
	1572	recommende d.
	1573
	1574	******** ****** ****** ****** ****** ****** ******
	1575
	1576	Functional operation after ins talling th is patch:
	1577
	1578	This patch releases thirteen n ew routine s, two new menu opti ons, one
	1579	security k ey and one mail grou p. There are no oth er compone nts releas ed
	1580	with this patch.
	1581
	1582	All routin es are nam e spaced R CXDM.
	1583
	1584	The routin es are:
	1585
	1586	RCXDM RCXDM1 RCXDM2 RCXDM2A RCXDM2B
	1587	RCXDM3 RCXDM4 RCXDM5 RCXDM6 RCXDM7
	1588	RCXDM8 RCXDM9 RCXDMU
	1589
	1590	After the patch is i nstalled p lease add the approp riate IRM personnel,
	1591	including the IRM Se rvice Chie f, to the VARI EXTRA CT mail gr oup.
	1592
	1593	You can no longer us e the AGNM CC* routin es for thi s extract, as they w ill
	1594	be deleted .
	1595
	1596	The VARI M onthly Ext ract optio n is used to set up the automa tic monthl y
	1597	run of thi s extract. This opt ion will b e executed as part o f the
	1598	installati on of this patch to queue the extract to run on th e first of
	1599	each month . You sho uld rarely have to r un this op tion after that, sin ce
	1600	the extrac t is self- queuing.
	1601
	1602	The extrac t must be run on bot h Primary and Legacy systems.
	1603
	1604	The extrac t works as follows: A program runs in th e backgrou nd which
	1605	collects t he data, s tores it i n several VMS or NT/ DOS level files and
	1606	sends a ma il message to the VA RI EXTRACT mail grou p when it finishes.
	1607	Someone wi ll have to FTP the f iles to th e indicate d IP addre ss
	1608	designated below.
	1609
	1610	Please not e that thi s report m ay take a long time to process . The len gth
	1611	of time is dependent upon the date range selected and the to tal number of
	1612	other proc esses curr ently runn ing. See the steps below on h ow to moni tor
	1613	the progre ss of the report.
	1614
	1615	To run the process a t the VMS sites:
	1616	---------- ---------- ---------- ------
	1617	1. Make su re routine s RCXDM* a re in your productio n account.
	1618	(Legacy and Prima ry if inte grated sit e)
	1619
	1620	2. Run the menu opti on VARI Mo nthly Extr act which can be fou nd on the
	1621	Managem ent Report s menu.
	1622
	1623	3. The pro gram will then promp t you for a director y in which the VMS f iles
	1624	will be created. You may c hoose a di rectory or accept th e default.
	1625
	1626	Make su re the dir ectory has enough sp ace to sto re the fil es, which will
	1627	be quit e large. Also, make sure that TaskMan ( DSMMGR) ca n write to
	1628	that di rectory be cause this will be a queued jo b. The Ta skMan job must
	1629	have en ough privi leges to w rite to th e specifie d director y. Allow for
	1630	at leas t 125 Mega bytes of s pace.
	1631
	1632	4. The pro gram will show you t he Task nu mber when you queue it. You
	1633	should record thi s number. As the ex tract is r unning, yo u can look at
	1634	the tas k in the % ZTSK globa l and see the status .
	1635
	1636	5. When th e extract has finish ed, a mail message w ill be sen t to the V ARI
	1637	EXTRACT mail grou p giving a summary o f the extr act proces s.
	1638
	1639	6. After t he extract has finis hed, you s hould FTP the files to the IP
	1640	address indicated below. S hould tech nical issu es arrive concerning the
	1641	FTP proces s, contact the NVS N ational He lp Desk at P II or
	1642	PII. http ://DNS/
	1643
	1644	The IP add ress for c opying the files is: DNS
	1645
	1646	When yo u FTP the files, you will be a sked for a username and a
	1647	passwor d. They ar e:
	1648
	1649	USERNAME: A I
	1650	PASSWORD: A I
	1651
	1652
	1653	***** ****** ****** ****** ****** ****** *******
	1654	* En sure that the FTP tr ansfer mod e is TEXT/ ASCII mode . *
	1655	* Do not delet e the VMS level file s from you r local *
	1656	* sy stem for a t least 4 weeks, in case you n eed to re- send *
	1657	* th em. *
	1658	***** ****** ****** ****** ****** ****** *******
	1659
	1660
	1661	Here is an exampl e of start ing the ex traction a t a VMS si te (Centra l
	1662	Texas 6 74)
	1663
	1664
	1665	Select CTV HCS Manage ment Repor ts Option: VARI Mont hly Extrac t
	1666
	1667	Do you wan t to queue this extr act to run automatic ally of
	1668	the first of each mo nth?
	1669	Enter Yes or No: YES //
	1670
	1671	Volume/Dir ectory (or return to accept th e default directory) :
	1672
	1673	The file n ames creat ed by this extractio n will be:
	1674	DNS












	1675
	1676	When your extraction completes , a mail m essage wil l be sent to the 'G. VARI
	1677	EXTRACT' m ail group. You will then need to FTP th e files to
	1678	dns.
	1679
	1680	If your ex traction c ompletes a nd you do not see al l 13 files , don't wo rry.
	1681	Your site might not have data for those files.
	1682
	1683	The mail m essage wil l tell you the files created a nd how man y records were
	1684	written to each file .
	1685
	1686	Job queued (766530)
	1687
	1688	Excuse me a moment w hile I del ete any pr evious mon thly
	1689	tasks..... .......... .......... .......... .......
	1690	deleted -
	1691	AUTO^RCXDM ^32383^^58 986,14402^ 58987,1440 0^R^^^DOE, JOHN^VAH^R OU^ZTDES
	1692	C^^....... .......... .......... .......... .......... .........d one
	1693
	1694
	1695
	1696	To run the process o n Cache:
	1697	---------- ---------- --------
	1698	1. Make su re routine s RCXDM* a re in your productio n account.
	1699	(Legacy and Prima ry if inte grated sit e)
	1700
	1701	2. Run the menu opti on VARI Mo nthly Extr act which can be fou nd on the
	1702	Managem ent Report s menu.
	1703
	1704	3. The pro gram will then promp t you for a director y in which the DOS/N T
	1705	files w ill be cre ated. The AVANTI te am suggest s you use the direct ory
	1706	T:\anon ymous\ sho wn below i n the exam ple. Make sure the directory has
	1707	enough space to s tore the f iles which will be q uite large . Also, m ake
	1708	sure th at TaskMan can write to that d irectory b ecause thi s will be a
	1709	queued job. The TaskMan jo b must hav e enough p rivileges to write t o
	1710	the spe cified dir ectory. A llow for a t least 12 5 Megabyte s of space .
	1711
	1712	4. The pro gram will show you t he Task nu mber when you queue it. You
	1713	should record thi s number. As the ex tract is r unning, yo u can look at
	1714	the tas k in the % ZTSK globa l and see the status .
	1715
	1716	5. When th e extract has finish ed, the a mail messa ge will be sent to t he
	1717	VARI EX TRACT mail group giv ing a summ ary of the extract p rocess.
	1718
	1719	6. After t he extract has finis hed, you s hould FTP the files to the IP
	1720	address indicated below. S hould tech nical issu es arrive concerning the
	1721	FTP proces s, contact the NVS N ational He lp Desk at P II or
	1722	PII. h ttp://dns/
	1723
	1724	The IP add ress for c opying the files is: DNS
	1725
	1726	When yo u FTP the files, you will be a sked for a username and a
	1727	passwor d. They ar e:
	1728
	1729	USERNAME: A I
	1730	PASSWORD: A I
	1731
	1732
	1733	***** ****** ****** ****** ****** ****** *******
	1734	* En sure that the FTP tr ansfer mod e is TEXT/ ASCII mode . *
	1735	* Do not delet e the VMS level file s from you r local *
	1736	* sy stem for a t least 4 weeks, in case you n eed to re- send *
	1737	* th em. *
	1738	***** ****** ****** ****** ****** ****** *******
	1739
	1740
	1741
	1742	Here is an example o f starting the extra ct at a Ca che site:
	1743
	1744	Select CTV HCS Manage ment Repor ts Option: VARI Mont hly Extrac t
	1745
	1746	Do you wan t to queue this extr act to run automatic ally of th e first of
	1747	each month ?
	1748	Enter Yes or No: YES //
	1749
	1750	Volume/Dir ectory (or return to accept th e default directory) :
	1751
	1752	The file n ames creat ed by this extractio n will be:
	1753	DNS












	1754
	1755	When your extraction completes , a mail m essage wil l be sent to the
	1756	'G.VARI EX TRACT' mai l group. You will t hen need t o FTP the files to
	1757	DNS.
	1758
	1759	If your ex traction c ompletes a nd you do not see al l 13 files , don't
	1760	worry. Yo ur site mi ght not ha ve data fo r those fi les.
	1761
	1762	The mail m essage wil l tell you the files created a nd how man y records were
	1763	written to each file .
	1764
	1765	Job queued (766530)
	1766
	1767	Excuse me a moment w hile I del ete any pr evious mon thly tasks .......... ..
	1768	.......... .......... .
	1769	deleted -
	1770	AUTO^RCXDM ^32383^^58 986,14402^ 58987,1440 0^R^^^DOE, JOHN^VAH^R OU^ZTDES
	1771
	1772
	1773
	1774	This patch addresses the follo wing E3R(s ):
	1775	---------- ---------- ---------- ---------- --
	1776	There are no E3Rs as sociated w ith this p atch
	1777
	1778
	1779	This patch addresses the follo wing NOIS message(s) :
	1780	---------- ---------- ---------- ---------- ---------- -
	1781	There are no NOIS me ssages ass ociated wi th this pa tch
	1782
	1783
	1784	========== ========== === INSTAL LATION INS TRUCTIONS ========== ========== ==
	1785
	1786	***** ****** ****** ****** ****** ****** ******
	1787	* The extract mu st be run on both Pr imary and Legacy sys tems. *
	1788	***** ****** ****** ****** ****** ****** ******
	1789
	1790	If install ed during the normal workday i t is recom mended tha t the
	1791	following menu optio ns (File # 19) and al l of their descendan ts be
	1792	disabled t o prevent possible c onflicts w hile runni ng the KID S Install.
	1793	Other Vist A users wi ll not be affected.
	1794
	1795	No menu op tions need to be dis abled duri ng this in stall.
	1796
	1797	Install Ti me - Less than 5 min utes.
	1798
	1799	1. LOAD T RANSPORT G LOBAL
	1800	------ ---------- -----
	1801	Choose the PackM an message containin g this pat ch and inv oke the
	1802	INSTAL L/CHECK ME SSAGE Pack Man option .
	1803
	1804	2. DISABL E ROUTINE MAPPING (DSM for O pen VMS si tes only)
	1805	------ ---------- -------
	1806	Disabl e routine mapping on all syste ms for the routines listed in
	1807	step 3 below.
	1808	NOTE: If the ro utines inc luded in t his patch are not cu rrently in
	1809	your m apped rout ine set, p lease skip this step .
	1810
	1811	3. COMPON ENTS SENT WITH PATCH
	1812	------ ---------- ----------
	1813	The fo llowing is a list of the routi nes includ ed in this patch.
	1814	The se cond line of each of these rou tines now looks like :
	1815
	1816	;; 4.5;Accoun ts Receiva ble;*179 *;May 08, 2002
	1817
	1818	CHECK^X TSUMBLD re sults
	1819
	1820	Routi ne name Before Pa tch Aft er Patch Patch Li st
	1821	----- ------- --------- --- --- -------- -------- --
	1822
	1823	RCXDM New 7252536 179
	1824	RCXDM 1 New 6236673 179
	1825	RCXDM 2 New 7377386 179
	1826	RCXDM 2A New 5318273 179
	1827	RCXDM 2B New 6267720 179
	1828	RCXDM 3 New 2507127 179
	1829	RCXDM 4 New 1706025 179
	1830	RCXDM 5 New 2550719 179
	1831	RCXDM 6 New 2347652 179
	1832	RCXDM 7 New 5550712 179
	1833	RCXDM 8 New 1273118 179
	1834	RCXDM 9 New 2275123 179
	1835	RCXDM U New 5172043 179
	1836
	1837	Total num ber of rou tines: 13
	1838
	1839	Twelv e routines will be d eleted by this patch . They are :
	1840
	1841	AGNMC C
	1842	AGNMC C1
	1843	AGNMC C2
	1844	AGNMC C2A
	1845	AGNMC C2B
	1846	AGNMC C3
	1847	AGNMC C4
	1848	AGNMC C5
	1849	AGNMC C6
	1850	AGNMC C7
	1851	AGNMC C8
	1852	AGNMC CU
	1853
	1854
	1855	The f ollowing m ail group will be cr eated by t he patch:
	1856	----- ---------- ---------- ---------- ---------- ---------
	1857	VARI EXTRACT
	1858
	1859	The f ollowing m enus will be added:
	1860	----- ---------- ---------- ---------
	1861
	1862	Added to the Ma nagement R eports [PR CAD MANAGE MENT REPOR T MENU] me nu
	1863
	1864	VARI Monthly Ex tract [RCXDM VA RI AUTO EX TRACT]
	1865	VARI One-time E xtract [RCXDM VA RI ONE-TIM E EXTRACT]
	1866
	1867	The f ollowing S ecurity Ke y will be added:
	1868	----- ---------- ---------- ---------- ------
	1869	RCVAR I
	1870
	1871	4. START UP KIDS
	1872	------ -------
	1873	Start up the Ker nel Instal lation and Distribut ion System Menu
	1874	[XPD M AIN]:
	1875
	1876	E dits and D istributio n ...
	1877	U tilities . ..
	1878	I nstallatio n ...
	1879
	1880	Select Kernel In stallation & Distrib ution Syst em Option: INStallat ion
	1881	---
	1882	L oad a Dist ribution
	1883	P rint Trans port Globa l
	1884	C ompare Tra nsport Glo bal to Cur rent Syste m
	1885	V erify Chec ksums in T ransport G lobal
	1886	I nstall Pac kage(s)
	1887	R estart Ins tall of Pa ckage(s)
	1888	U nload a Di stribution
	1889	B ackup a Tr ansport Gl obal
	1890
	1891	5. Select Installat ion Option :
	1892	------ ---------- ----------
	1893	NOTE: The follo wing are O PTIONAL - (When prom pted for t he INSTALL
	1894	NAME, ent er PRCA4. 5179):
	1895
	1896	a. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup
	1897	me ssage of a ny routine s exported with this patch. It will not
	1898	ba ckup any o ther chang es such as DD's or t emplates.
	1899	b. Co mpare Tran sport Glob al to Curr ent System - This op tion will
	1900	al low you to view all changes th at will be made when this
	1901	pa tch is ins talled. It compares all compon ents of th is patch
	1902	(r outines, D Ds, templa tes, etc.) .
	1903	c. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow you
	1904	to ensure th e integrit y of the r outines th at are in the transp ort
	1905	gl obal.
	1906
	1907	6. Select Installat ion Option : Install Package(s)
	1908	-------- ----------
	1909	**This is the st ep to star t the inst allation o f this KID S patch:
	1910
	1911	a. Ch oose the I nstall Pac kage(s) op tion to st art the pa tch instal l.
	1912	b. Wh en prompte d 'Want KI DS to INHI BIT LOGONs during th e install?
	1913	YE S//' answe r NO.
	1914	c. Wh en prompte d 'Want to DISABLE S cheduled O ptions, Me nu Options ,
	1915	an d Protocol s? YES//' answer NO.
	1916	d. Wh en prompte d 'Do you want to qu eue this e xtract to run
	1917	au tomaticall y on the f irst of ea ch month?' answer Ye s.
	1918	e. Wh en prompte d 'Volume/ Directory (or return to accept the defau lt
	1919	di rectory)' accept the default o r enter a new direct ory using
	1920	th e followin g format V A3$:[ANONY MOUS.PUB]
	1921
	1922	Ma ke sure th e director y has enou gh space t o store th e files, w hich
	1923	wi ll be quit e large. Also, make sure that TaskMan ( DSMMGR) ca n
	1924	wr ite to tha t director y because this will be a queue d job. Th e
	1925	Ta skMan job must have enough pri vileges to write to the specif ied
	1926	di rectory. Allow for at least 1 25 Megabyt es of spac e.
	1927
	1928	7. REBUIL D MAPPED R OUTINE(S) (DSM for Open VMS s ites only)
	1929	------ ---------- ---------
	1930	(Optio nal) Inclu de the rou tines dist ributed wi th this pa tch in the
	1931	mapped routine s et.
	1932
	1933	NOTE: This step is only ne cessary if you perfo rmed step 2 or if yo u
	1934	wish to in clude the routines i n your map ped set.
	1935
	1936	8. After the patch is install ed please add the ap propriate IRM person nel,
	1937	includ ing the IR M Service Chief, to the VARI E XTRACT mai l group.
	1938
	1939	9. After the patch is install ed, please assign th e RCVARI s ecurity ke y to
	1940	approp riate the IRM person nel.
	1941
	1942
	1943	Routine In formation:
	1944	========== ==========
	1945
	1946
	1947	No routine s included .
	1948
	1949
	1950	========== ========== ========== ========== ========== ========== ========== =======
	1951	User Infor mation:
	1952	Entered By : SU RI,ASHWANI D ate Entere d : APR 18,2002
	1953	Complete d By: D ate Comple ted:
	1954	Released By : D ate Releas ed :
	1955	========== ========== ========== ========== ========== ========== ========== =======
	1956
	1957
	1958	Select PAT CH: