5. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 1/23/2018 12:48:51 PM Eastern Standard 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.

5.1 Files compared

#	Location	File	Last Modified
1	IB-2-568_PRCA-4-5315_PSO-7-463.zip	PSO-7-463_TEST_v7.KID	Tue Jan 23 16:46:29 2018 UTC
2	IB-2-568_PRCA-4-5315_PSO-7-463.zip	PSO-7-463_TEST_v7.KID	Tue Jan 23 17:44:48 2018 UTC

5.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	10	5440
Changed	9	18
Inserted	0	0
Removed	0	0

5.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

5.4 Active regular expressions

No regular expressions were active.

5.5 Comparison detail

	1
	2	Packman Ma il Message :
	3	========== ========== =
	4
	5	$END TXT
	6	$KID PSO7 .0463
	7	INSTALL NAME
	8	PSO7.046 3
	9	"BLD",1018 9,0)
	10	PSO7.046 3^OUTPATIE NT PHARMAC Y^0^318011 7^y
	11	"BLD",1018 9,4,0)
	12	^9.64PA^^
	13	"BLD",1018 9,6.3)
	14	36
	15	"BLD",1018 9,"ABPKG")
	16	n
	17	"BLD",1018 9,"INID")
	18	n^n^n
	19	"BLD",1018 9,"KRN",0)
	20	^9.67PA^77 9.2^20
	21	"BLD",1018 9,"KRN",.4 ,0)
	22	.4
	23	"BLD",1018 9,"KRN",.4 01,0)
	24	.401
	25	"BLD",1018 9,"KRN",.4 02,0)
	26	.402
	27	"BLD",1018 9,"KRN",.4 03,0)
	28	.403
	29	"BLD",1018 9,"KRN",.5 ,0)
	30	.5
	31	"BLD",1018 9,"KRN",.8 4,0)
	32	.84
	33	"BLD",1018 9,"KRN",3. 6,0)
	34	3.6
	35	"BLD",1018 9,"KRN",3. 8,0)
	36	3.8
	37	"BLD",1018 9,"KRN",9. 2,0)
	38	9.2
	39	"BLD",1018 9,"KRN",9. 8,0)
	40	9.8
	41	"BLD",1018 9,"KRN",9. 8,"NM",0)
	42	^9.68A^4^4
	43	"BLD",1018 9,"KRN",9. 8,"NM",1,0 )
	44	PSOCPB^^0^ B93273887
	45	"BLD",1018 9,"KRN",9. 8,"NM",2,0 )
	46	PSOCPF^^0^ B65916211
	47	"BLD",1018 9,"KRN",9. 8,"NM",3,0 )
	48	PSOCPF1^^0 ^B49346922
	49	"BLD",1018 9,"KRN",9. 8,"NM",4,0 )
	50	PSOCPF2^^0 ^B16086034
	51	"BLD",1018 9,"KRN",9. 8,"NM","B" ,"PSOCPB", 1)
	52
	53	"BLD",1018 9,"KRN",9. 8,"NM","B" ,"PSOCPF", 2)
	54
	55	"BLD",1018 9,"KRN",9. 8,"NM","B" ,"PSOCPF1" ,3)
	56
	57	"BLD",1018 9,"KRN",9. 8,"NM","B" ,"PSOCPF2" ,4)
	58
	59	"BLD",1018 9,"KRN",19 ,0)
	60	19
	61	"BLD",1018 9,"KRN",19 ,"NM",0)
	62	^9.68A^3^2
	63	"BLD",1018 9,"KRN",19 ,"NM",2,0)
	64	PSOCP MENU ^^2
	65	"BLD",1018 9,"KRN",19 ,"NM",3,0)
	66	PSOCP RESE T COPAY ST ATUS LM^^0
	67	"BLD",1018 9,"KRN",19 ,"NM","B", "PSOCP MEN U",2)
	68
	69	"BLD",1018 9,"KRN",19 ,"NM","B", "PSOCP RES ET COPAY S TATUS LM", 3)
	70
	71	"BLD",1018 9,"KRN",19 .1,0)
	72	19.1
	73	"BLD",1018 9,"KRN",19 .1,"NM",0)
	74	^9.68A^^
	75	"BLD",1018 9,"KRN",10 1,0)
	76	101
	77	"BLD",1018 9,"KRN",10 1,"NM",0)
	78	^9.68A^11^ 10
	79	"BLD",1018 9,"KRN",10 1,"NM",1,0 )
	80	PSO PATIEN T MEDICATI ON MENU^^0
	81	"BLD",1018 9,"KRN",10 1,"NM",2,0 )
	82	PSO PATIEN T MED ACC PRO^^0
	83	"BLD",1018 9,"KRN",10 1,"NM",3,0 )
	84	PSO PATIEN T MED BILL PRO^^0
	85	"BLD",1018 9,"KRN",10 1,"NM",5,0 )
	86	PSO PATIEN T MED TPJI ^^0
	87	"BLD",1018 9,"KRN",10 1,"NM",6,0 )
	88	PSO PATIEN T MED CANC EL^^0
	89	"BLD",1018 9,"KRN",10 1,"NM",7,0 )
	90	PSO PATIEN T MED RESE T^^0
	91	"BLD",1018 9,"KRN",10 1,"NM",8,0 )
	92	PSO PATIEN T MED EXPO RT^^0
	93	"BLD",1018 9,"KRN",10 1,"NM",9,0 )
	94	PSO PATIEN T MED NEW PAT^^0
	95	"BLD",1018 9,"KRN",10 1,"NM",10, 0)
	96	PSO PATIEN T MED PAT BILL^^0
	97	"BLD",1018 9,"KRN",10 1,"NM",11, 0)
	98	PSO PAT ME D PAT INQ^ ^0
	99	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PAT MED PAT IN Q",11)
	100
	101	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MED AC C PRO",2)
	102
	103	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MED BI LL PRO",3)
	104
	105	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MED CA NCEL",6)
	106
	107	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MED EX PORT",8)
	108
	109	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MED NE W PAT",9)
	110
	111	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MED PA T BILL",10 )
	112
	113	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MED RE SET",7)
	114
	115	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MED TP JI",5)
	116
	117	"BLD",1018 9,"KRN",10 1,"NM","B" ,"PSO PATI ENT MEDICA TION MENU" ,1)
	118
	119	"BLD",1018 9,"KRN",40 9.61,0)
	120	409.61
	121	"BLD",1018 9,"KRN",40 9.61,"NM", 0)
	122	^9.68A^1^1
	123	"BLD",1018 9,"KRN",40 9.61,"NM", 1,0)
	124	PSO PATIEN T MEDICATI ON LIST^^0
	125	"BLD",1018 9,"KRN",40 9.61,"NM", "B","PSO P ATIENT MED ICATION LI ST",1)
	126
	127	"BLD",1018 9,"KRN",77 1,0)
	128	771
	129	"BLD",1018 9,"KRN",77 9.2,0)
	130	779.2
	131	"BLD",1018 9,"KRN",87 0,0)
	132	870
	133	"BLD",1018 9,"KRN",89 89.51,0)
	134	8989.51
	135	"BLD",1018 9,"KRN",89 89.52,0)
	136	8989.52
	137	"BLD",1018 9,"KRN",89 94,0)
	138	8994
	139	"BLD",1018 9,"KRN","B ",.4,.4)
	140
	141	"BLD",1018 9,"KRN","B ",.401,.40 1)
	142
	143	"BLD",1018 9,"KRN","B ",.402,.40 2)
	144
	145	"BLD",1018 9,"KRN","B ",.403,.40 3)
	146
	147	"BLD",1018 9,"KRN","B ",.5,.5)
	148
	149	"BLD",1018 9,"KRN","B ",.84,.84)
	150
	151	"BLD",1018 9,"KRN","B ",3.6,3.6)
	152
	153	"BLD",1018 9,"KRN","B ",3.8,3.8)
	154
	155	"BLD",1018 9,"KRN","B ",9.2,9.2)
	156
	157	"BLD",1018 9,"KRN","B ",9.8,9.8)
	158
	159	"BLD",1018 9,"KRN","B ",19,19)
	160
	161	"BLD",1018 9,"KRN","B ",19.1,19. 1)
	162
	163	"BLD",1018 9,"KRN","B ",101,101)
	164
	165	"BLD",1018 9,"KRN","B ",409.61,4 09.61)
	166
	167	"BLD",1018 9,"KRN","B ",771,771)
	168
	169	"BLD",1018 9,"KRN","B ",779.2,77 9.2)
	170
	171	"BLD",1018 9,"KRN","B ",870,870)
	172
	173	"BLD",1018 9,"KRN","B ",8989.51, 8989.51)
	174
	175	"BLD",1018 9,"KRN","B ",8989.52, 8989.52)
	176
	177	"BLD",1018 9,"KRN","B ",8994,899 4)
	178
	179	"BLD",1018 9,"QDEF")
	180	^^^^NO^^^^ NO^^NO
	181	"BLD",1018 9,"QUES",0 )
	182	^9.62^^
	183	"BLD",1018 9,"REQB",0 )
	184	^9.611^2^2
	185	"BLD",1018 9,"REQB",1 ,0)
	186	PSO7.047 6^1
	187	"BLD",1018 9,"REQB",2 ,0)
	188	PSN4.049 2^1
	189	"BLD",1018 9,"REQB"," B","PSN4. 0492",2)
	190
	191	"BLD",1018 9,"REQB"," B","PSO7. 0476",1)
	192
	193	"KRN",19,3 345,-1)
	194	2^2
	195	"KRN",19,3 345,0)
	196	PSOCP MENU ^Copay Men u^^M^1^^^^ ^^^60^^1
	197	"KRN",19,3 345,10,0)
	198	^19.01IP^5 ^4
	199	"KRN",19,3 345,10,5,0 )
	200	11652
	201	"KRN",19,3 345,10,5," ^")
	202	PSOCP RESE T COPAY ST ATUS LM
	203	"KRN",19,3 345,"U")
	204	COPAY MENU
	205	"KRN",19,1 1652,-1)
	206	0^3
	207	"KRN",19,1 1652,0)
	208	PSOCP RESE T COPAY ST ATUS LM^Re set Copay Status Lis t Manager^ ^R^^^^^^^^ OUTPATIENT PHARMACY
	209	"KRN",19,1 1652,1,0)
	210	^^2^2^3160 901^
	211	"KRN",19,1 1652,1,1,0 )
	212	This list manager wi ll allow t he users t o reset ph armacy cop ay status and
	213	"KRN",19,1 1652,1,2,0 )
	214	to cancel copay char ges easier .
	215	"KRN",19,1 1652,25)
	216	EN^PSOCPF
	217	"KRN",19,1 1652,"U")
	218	RESET COPA Y STATUS L IST MANAGE
	219	"KRN",101, 4763,-1)
	220	0^1
	221	"KRN",101, 4763,0)
	222	PSO PATIEN T MEDICATI ON MENU^PS OCP MEDICA TION COPAY LM^^M^^^^ ^^^^OUTPAT IENT PHARM ACY
	223	"KRN",101, 4763,4)
	224	26^3
	225	"KRN",101, 4763,10,0)
	226	^101.01PA^ 10^9
	227	"KRN",101, 4763,10,1, 0)
	228	4764^RC^11 ^^^Reset/C ancel
	229	"KRN",101, 4763,10,1, "^")
	230	PSO PATIEN T MED RESE T
	231	"KRN",101, 4763,10,3, 0)
	232	4766^EC^13 ^^^Excel R eport
	233	"KRN",101, 4763,10,3, "^")
	234	PSO PATIEN T MED EXPO RT
	235	"KRN",101, 4763,10,4, 0)
	236	4959^AP^21 ^^^Account Profile
	237	"KRN",101, 4763,10,4, "^")
	238	PSO PATIEN T MED ACC PRO
	239	"KRN",101, 4763,10,5, 0)
	240	4960^PB^22 ^^^Bill In quiry
	241	"KRN",101, 4763,10,5, "^")
	242	PSO PATIEN T MED PAT BILL
	243	"KRN",101, 4763,10,6, 0)
	244	4961^TP^32 ^^^Third P arty Inq.
	245	"KRN",101, 4763,10,6, "^")
	246	PSO PATIEN T MED TPJI
	247	"KRN",101, 4763,10,7, 0)
	248	4962^PI^23 ^^^Patient Inquiry
	249	"KRN",101, 4763,10,7, "^")
	250	PSO PAT ME D PAT INQ
	251	"KRN",101, 4763,10,8, 0)
	252	4963^BP^31 ^^^Bill Pr ofile
	253	"KRN",101, 4763,10,8, "^")
	254	PSO PATIEN T MED BILL PRO
	255	"KRN",101, 4763,10,9, 0)
	256	4995^CP^33 ^^^Change Patient
	257	"KRN",101, 4763,10,9, "^")
	258	PSO PATIEN T MED NEW PAT
	259	"KRN",101, 4763,10,10 ,0)
	260	4765^CA^12 ^^^Cancel Charge
	261	"KRN",101, 4763,10,10 ,"^")
	262	PSO PATIEN T MED CANC EL
	263	"KRN",101, 4763,26)
	264	D SHOW^VAL M
	265	"KRN",101, 4763,28)
	266	Select Act ion:
	267	"KRN",101, 4763,99)
	268	64419,5205 7
	269	"KRN",101, 4764,-1)
	270	0^7
	271	"KRN",101, 4764,0)
	272	PSO PATIEN T MED RESE T^PSO PATI ENT MED RE SET^^A^^^^ ^^^^OUTPAT IENT PHARM ACY
	273	"KRN",101, 4764,20)
	274	D RESET^PS OCPF1
	275	"KRN",101, 4764,99)
	276	64363,6107 4
	277	"KRN",101, 4765,-1)
	278	0^6
	279	"KRN",101, 4765,0)
	280	PSO PATIEN T MED CANC EL^PSO PAT IENT MED C ANCEL CHAR GE^^A^^^^^ ^^^
	281	"KRN",101, 4765,20)
	282	D CANCEL^P SOCPF1
	283	"KRN",101, 4765,99)
	284	64363,6107 4
	285	"KRN",101, 4766,-1)
	286	0^8
	287	"KRN",101, 4766,0)
	288	PSO PATIEN T MED EXPO RT^PSO PAT IENT MED E XCEL REPOR T^^A^^^^^^ ^^
	289	"KRN",101, 4766,20)
	290	D EXPORT^P SOCPF1
	291	"KRN",101, 4766,99)
	292	64363,6107 4
	293	"KRN",101, 4959,-1)
	294	0^2
	295	"KRN",101, 4959,0)
	296	PSO PATIEN T MED ACC PRO^PSO PA TIENT ACCO UNT PROFIL E^^A^^^^^^ ^^OUTPATIE NT PHARMAC Y
	297	"KRN",101, 4959,2,0)
	298	^101.02A^^ 0
	299	"KRN",101, 4959,20)
	300	D PATACP^P SOCPF2
	301	"KRN",101, 4959,99)
	302	64363,6107 4
	303	"KRN",101, 4960,-1)
	304	0^10
	305	"KRN",101, 4960,0)
	306	PSO PATIEN T MED PAT BILL^PSO P ATIENT PAT IENT BILL INQ^^A^^^^ ^^^^
	307	"KRN",101, 4960,2,0)
	308	^101.02A^^ 0
	309	"KRN",101, 4960,20)
	310	D BILINQ^P SOCPF2
	311	"KRN",101, 4960,99)
	312	64363,6107 4
	313	"KRN",101, 4961,-1)
	314	0^5
	315	"KRN",101, 4961,0)
	316	PSO PATIEN T MED TPJI ^PSO PATIE NT MED TPJ I^^A^^^^^^ ^^OUTPATIE NT PHARMAC Y
	317	"KRN",101, 4961,2,0)
	318	^101.02A^^ 0
	319	"KRN",101, 4961,20)
	320	D TPJI^PSO CPF2
	321	"KRN",101, 4961,99)
	322	64363,6107 4
	323	"KRN",101, 4962,-1)
	324	0^11
	325	"KRN",101, 4962,0)
	326	PSO PAT ME D PAT INQ^ PSO PATIEN T MED INQU IRY^^A^^^^ ^^^^OUTPAT IENT PHARM ACY
	327	"KRN",101, 4962,2,0)
	328	^101.02A^^ 0
	329	"KRN",101, 4962,20)
	330	D PATINQ^P SOCPF2
	331	"KRN",101, 4962,99)
	332	64363,6107 4
	333	"KRN",101, 4963,-1)
	334	0^3
	335	"KRN",101, 4963,0)
	336	PSO PATIEN T MED BILL PRO^PSO P ATIENT BIL L PROFILE^ ^A^^^^^^^^ OUTPATIENT PHARMACY
	337	"KRN",101, 4963,20)
	338	D BILPRO^P SOCPF2
	339	"KRN",101, 4963,99)
	340	64363,6107 4
	341	"KRN",101, 4995,-1)
	342	0^9
	343	"KRN",101, 4995,0)
	344	PSO PATIEN T MED NEW PAT^NEW PA TIENT^^A^^ ^^^^^^
	345	"KRN",101, 4995,20)
	346	D NP^PSOCP F2
	347	"KRN",101, 4995,99)
	348	64363,6107 4
	349	"KRN",409. 61,717,-1)
	350	0^1
	351	"KRN",409. 61,717,0)
	352	PSO PATIEN T MEDICATI ON LIST^1^ ^80^3^18^1 ^1^^PSO PA TIENT MEDI CATION MEN U^Patient Medication s^1^^
	353	"KRN",409. 61,717,1)
	354	^PSO HIDDE N ACTIONS #5
	355	"KRN",409. 61,717,"CO L",0)
	356	^409.621^6 ^6
	357	"KRN",409. 61,717,"CO L",1,0)
	358	LINE^1^4^^ ^0
	359	"KRN",409. 61,717,"CO L",2,0)
	360	NAME^6^27^ Patient Na me^^0
	361	"KRN",409. 61,717,"CO L",3,0)
	362	PID^29^5^I D^^0
	363	"KRN",409. 61,717,"CO L",4,0)
	364	MED^36^26^ Medication ^^0
	365	"KRN",409. 61,717,"CO L",5,0)
	366	FLDT^54^8^ Fill DT^^0
	367	"KRN",409. 61,717,"CO L",6,0)
	368	STAT^63^15 ^Status^^0
	369	"KRN",409. 61,717,"CO L","AIDENT ",0,1)
	370
	371	"KRN",409. 61,717,"CO L","AIDENT ",0,2)
	372
	373	"KRN",409. 61,717,"CO L","AIDENT ",0,3)
	374
	375	"KRN",409. 61,717,"CO L","AIDENT ",0,4)
	376
	377	"KRN",409. 61,717,"CO L","AIDENT ",0,5)
	378
	379	"KRN",409. 61,717,"CO L","AIDENT ",0,6)
	380
	381	"KRN",409. 61,717,"CO L","B","FL DT",5)
	382
	383	"KRN",409. 61,717,"CO L","B","LI NE",1)
	384
	385	"KRN",409. 61,717,"CO L","B","ME D",4)
	386
	387	"KRN",409. 61,717,"CO L","B","NA ME",2)
	388
	389	"KRN",409. 61,717,"CO L","B","PI D",3)
	390
	391	"KRN",409. 61,717,"CO L","B","ST AT",6)
	392
	393	"KRN",409. 61,717,"FN L")
	394	D EXIT^PSO CPF
	395	"KRN",409. 61,717,"HD R")
	396	D HDR^PSOC PF
	397	"KRN",409. 61,717,"HL P")
	398	D HELP^PSO CPF
	399	"KRN",409. 61,717,"IN IT")
	400	D INIT^PSO CPF
	401	"MBREQ")
	402	0
	403	"ORD",15,1 01)
	404	101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA
	405	"ORD",15,1 01,0)
	406	PROTOCOL
	407	"ORD",17,4 09.61)
	408	409.61;17; 1;;;;LME1^ XPDIA1;;;L MDEL^XPDIA 1
	409	"ORD",17,4 09.61,0)
	410	LIST TEMPL ATE
	411	"ORD",18,1 9)
	412	19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA
	413	"ORD",18,1 9,0)
	414	OPTION
	415	"PKG",60,- 1)
	416	1^1
	417	"PKG",60,0 )
	418	OUTPATIENT PHARMACY^ PSO^OUTPAT IENT LABEL S, PROFILE , INVENTOR Y, PRESCRI PTIONS
	419	"PKG",60,2 0,0)
	420	^9.402P^^
	421	"PKG",60,2 2,0)
	422	^9.49I^1^1
	423	"PKG",60,2 2,1,0)
	424	7.0^305111 9^2990416^ 1
	425	"PKG",60,2 2,1,"PAH", 1,0)
	426	463^318011 7
	427	"PKG",60,2 2,1,"PAH", 1,1,0)
	428	^^319^319^ 3170913
	429	"PKG",60,2 2,1,"PAH", 1,1,1,0)
	430	IMPORTANT INSTALLATI ON NOTE:
	431	"PKG",60,2 2,1,"PAH", 1,1,2,0)
	432	---------- ---------- --------
	433	"PKG",60,2 2,1,"PAH", 1,1,3,0)
	434	This patch is part o f a multi- package bu ild. There are three patches
	435	"PKG",60,2 2,1,"PAH", 1,1,4,0)
	436	associated with the FY16 HAPE Revenue En hancement project - IB2.0568 ,
	437	"PKG",60,2 2,1,"PAH", 1,1,5,0)
	438	PRCA4.53 15 and PSO 7.0463. All three patches ar e to be in stalled
	439	"PKG",60,2 2,1,"PAH", 1,1,6,0)
	440	together a s a bundle , IB_2_568 _PRCA_PSO_ BUNDLE_T1. KID
	441	"PKG",60,2 2,1,"PAH", 1,1,7,0)
	442
	443	"PKG",60,2 2,1,"PAH", 1,1,8,0)
	444
	445	"PKG",60,2 2,1,"PAH", 1,1,9,0)
	446	Descriptio n
	447	"PKG",60,2 2,1,"PAH", 1,1,10,0)
	448	---------- -
	449	"PKG",60,2 2,1,"PAH", 1,1,11,0)
	450	The Chief Business O ffice (CBO ) is reque sting syst em enhance ments to
	451	"PKG",60,2 2,1,"PAH", 1,1,12,0)
	452	The Vetera ns Health Informatio n Systems and Techno logy Archi tecture
	453	"PKG",60,2 2,1,"PAH", 1,1,13,0)
	454	(VistA) In tegrated B illing (IB ), Account s Receivab le (AR), a nd
	455	"PKG",60,2 2,1,"PAH", 1,1,14,0)
	456	Outpatient Pharmacy (PSO) soft ware modul es.
	457	"PKG",60,2 2,1,"PAH", 1,1,15,0)
	458
	459	"PKG",60,2 2,1,"PAH", 1,1,16,0)
	460	The missio n of the D epartment of Veteran s Affairs (VA), Offi ce of
	461	"PKG",60,2 2,1,"PAH", 1,1,17,0)
	462	Informatio n & Techno logy (OI&T ), is to p rovide ben efits and services t o
	463	"PKG",60,2 2,1,"PAH", 1,1,18,0)
	464	veterans o f the Unit ed States Armed Forc es. In mee ting these goals,
	465	"PKG",60,2 2,1,"PAH", 1,1,19,0)
	466	OIT strive s to provi de high qu ality, eff ective, an d efficien t
	467	"PKG",60,2 2,1,"PAH", 1,1,20,0)
	468	Informatio n Technolo gy (IT) se rvices to those resp onsible fo r providin g
	469	"PKG",60,2 2,1,"PAH", 1,1,21,0)
	470	care to th e veterans at the po int-of-car e, as well as throug hout all
	471	"PKG",60,2 2,1,"PAH", 1,1,22,0)
	472	the points of the ve terans' he alth care. The VA de pends on
	473	"PKG",60,2 2,1,"PAH", 1,1,23,0)
	474	Informatio nManagemen t/Informat ion Techno logy (IM/I T) systems to meet
	475	"PKG",60,2 2,1,"PAH", 1,1,24,0)
	476	mission
	477	"PKG",60,2 2,1,"PAH", 1,1,25,0)
	478	goals.
	479	"PKG",60,2 2,1,"PAH", 1,1,26,0)
	480
	481	"PKG",60,2 2,1,"PAH", 1,1,27,0)
	482	The overal l FY16 HAP E Revenue Enhancemen t project has been f urther
	483	"PKG",60,2 2,1,"PAH", 1,1,28,0)
	484	divided in to three s ub-project s:
	485	"PKG",60,2 2,1,"PAH", 1,1,29,0)
	486
	487	"PKG",60,2 2,1,"PAH", 1,1,30,0)
	488	NSR #20150 506
	489	"PKG",60,2 2,1,"PAH", 1,1,31,0)
	490	The Revenu e Eligibil ity Enhanc ements Pro ject effor t for the Chief
	491	"PKG",60,2 2,1,"PAH", 1,1,32,0)
	492	Business O ffice (CBO ), bundles several N SRs with s imilar bus iness
	493	"PKG",60,2 2,1,"PAH", 1,1,33,0)
	494	needs into a single requiremen ts documen t. Succes sfully add ressing
	495	"PKG",60,2 2,1,"PAH", 1,1,34,0)
	496	the requir ements con tained wit hin this d ocument wi ll enable the
	497	"PKG",60,2 2,1,"PAH", 1,1,35,0)
	498	Department of Vetera ns Affairs (VA) to a ppropriate ly bill ce rtain
	499	"PKG",60,2 2,1,"PAH", 1,1,36,0)
	500	subsets of billable events by correcting , automati ng, or enh ancing
	501	"PKG",60,2 2,1,"PAH", 1,1,37,0)
	502	current Ve terans Hea lth Inform ation Syst ems and Te chnology
	503	"PKG",60,2 2,1,"PAH", 1,1,38,0)
	504	Architectu re (VistA) systems.
	505	"PKG",60,2 2,1,"PAH", 1,1,39,0)
	506
	507	"PKG",60,2 2,1,"PAH", 1,1,40,0)
	508	NSR #20150 507
	509	"PKG",60,2 2,1,"PAH", 1,1,41,0)
	510	The Revenu e Operatio ns Enhance ments Proj ect combin es several NSRs, as
	511	"PKG",60,2 2,1,"PAH", 1,1,42,0)
	512	well. This effort en ables the Department of Vetera ns Affairs (VA) to
	513	"PKG",60,2 2,1,"PAH", 1,1,43,0)
	514	improve re venue oper ation func tionality related to repayment plans,
	515	"PKG",60,2 2,1,"PAH", 1,1,44,0)
	516	late charg e capture, bill susp ension rea sons, the billing of
	517	"PKG",60,2 2,1,"PAH", 1,1,45,0)
	518	deactivate d provider s, and the display o f appeal r ights and
	519	"PKG",60,2 2,1,"PAH", 1,1,46,0)
	520	responsibi lities on the Vetera ns Benefic iary trave l Bill of
	521	"PKG",60,2 2,1,"PAH", 1,1,47,0)
	522	Collection sform. Im plementati on of the proposed e nhancement s will mak e a
	523	"PKG",60,2 2,1,"PAH", 1,1,48,0)
	524	significan t positive impact on stakehold ers and ta rget users .
	525	"PKG",60,2 2,1,"PAH", 1,1,49,0)
	526
	527	"PKG",60,2 2,1,"PAH", 1,1,50,0)
	528	NSR #20150 505
	529	"PKG",60,2 2,1,"PAH", 1,1,51,0)
	530	The Revenu e Reportin g Enhancem ents Proje ct will en able the V A to
	531	"PKG",60,2 2,1,"PAH", 1,1,52,0)
	532	improve tr acking and reporting of revenu e, and wil l support
	533	"PKG",60,2 2,1,"PAH", 1,1,53,0)
	534	revenuerep orting bus iness rule s and guid elines.
	535	"PKG",60,2 2,1,"PAH", 1,1,54,0)
	536
	537	"PKG",60,2 2,1,"PAH", 1,1,55,0)
	538
	539	"PKG",60,2 2,1,"PAH", 1,1,56,0)
	540	PSO7.046 3 patch en hancements , pertinen t to the a bove NSRs, include:
	541	"PKG",60,2 2,1,"PAH", 1,1,57,0)
	542
	543	"PKG",60,2 2,1,"PAH", 1,1,58,0)
	544	1.) In the event of a Prescrip tion Reset Status/Ca ncel Charg es action,
	545	"PKG",60,2 2,1,"PAH", 1,1,59,0)
	546	all automa tic prepay ment gener ation shal l be
	547	"PKG",60,2 2,1,"PAH", 1,1,60,0)
	548	eliminated .
	549	"PKG",60,2 2,1,"PAH", 1,1,61,0)
	550
	551	"PKG",60,2 2,1,"PAH", 1,1,62,0)
	552	2.) All "c redit bala nces" that are autom atically g enerated i n the even t
	553	"PKG",60,2 2,1,"PAH", 1,1,63,0)
	554	of a Presc ription Re set Status /Cancel Ch arges acti on exempti on to stop .
	555	"PKG",60,2 2,1,"PAH", 1,1,64,0)
	556
	557	"PKG",60,2 2,1,"PAH", 1,1,65,0)
	558	3.) A new on-demand List Manag er report will be ma de availab le for
	559	"PKG",60,2 2,1,"PAH", 1,1,66,0)
	560	identifica tion of Pr escription resets.
	561	"PKG",60,2 2,1,"PAH", 1,1,67,0)
	562	4.) The n ew on-dema nd report for proces sing Presc ription Re sets
	563	"PKG",60,2 2,1,"PAH", 1,1,68,0)
	564	willprovid e an optio n to gener ate a Summ ary Report and/or De tailed Rep ort.
	565	"PKG",60,2 2,1,"PAH", 1,1,69,0)
	566
	567	"PKG",60,2 2,1,"PAH", 1,1,70,0)
	568
	569	"PKG",60,2 2,1,"PAH", 1,1,71,0)
	570
	571	"PKG",60,2 2,1,"PAH", 1,1,72,0)
	572	Associated Patches:
	573	"PKG",60,2 2,1,"PAH", 1,1,73,0)
	574	---------- ---------
	575	"PKG",60,2 2,1,"PAH", 1,1,74,0)
	576	IB2.0568
	577	"PKG",60,2 2,1,"PAH", 1,1,75,0)
	578	PRCA4.53 15
	579	"PKG",60,2 2,1,"PAH", 1,1,76,0)
	580
	581	"PKG",60,2 2,1,"PAH", 1,1,77,0)
	582	Concurrent Developme nt / Depen dencies:
	583	"PKG",60,2 2,1,"PAH", 1,1,78,0)
	584	---------- ---------- ---------- --------
	585	"PKG",60,2 2,1,"PAH", 1,1,79,0)
	586	N/A
	587	"PKG",60,2 2,1,"PAH", 1,1,80,0)
	588
	589	"PKG",60,2 2,1,"PAH", 1,1,81,0)
	590	Category
	591	"PKG",60,2 2,1,"PAH", 1,1,82,0)
	592	--------
	593	"PKG",60,2 2,1,"PAH", 1,1,83,0)
	594	Routine
	595	"PKG",60,2 2,1,"PAH", 1,1,84,0)
	596	Template
	597	"PKG",60,2 2,1,"PAH", 1,1,85,0)
	598	Other
	599	"PKG",60,2 2,1,"PAH", 1,1,86,0)
	600
	601	"PKG",60,2 2,1,"PAH", 1,1,87,0)
	602
	603	"PKG",60,2 2,1,"PAH", 1,1,88,0)
	604	Patch Comp onents:
	605	"PKG",60,2 2,1,"PAH", 1,1,89,0)
	606	---------- -------
	607	"PKG",60,2 2,1,"PAH", 1,1,90,0)
	608	Files & Fi elds Assoc iated:
	609	"PKG",60,2 2,1,"PAH", 1,1,91,0)
	610
	611	"PKG",60,2 2,1,"PAH", 1,1,92,0)
	612	File Name (Number) Field Na me (Number ) New/ Modified/D eleted
	613	"PKG",60,2 2,1,"PAH", 1,1,93,0)
	614	---------- -------- -------- ---------- - ---- ---------- ------
	615	"PKG",60,2 2,1,"PAH", 1,1,94,0)
	616	N/A
	617	"PKG",60,2 2,1,"PAH", 1,1,95,0)
	618
	619	"PKG",60,2 2,1,"PAH", 1,1,96,0)
	620	Options As sociated:
	621	"PKG",60,2 2,1,"PAH", 1,1,97,0)
	622
	623	"PKG",60,2 2,1,"PAH", 1,1,98,0)
	624	Option Nam e Type New/ Modified/D eleted
	625	"PKG",60,2 2,1,"PAH", 1,1,99,0)
	626	---------- - ---- ---- ---------- ------PSOC P
	627	"PKG",60,2 2,1,"PAH", 1,1,100,0)
	628	RESET COPA Y STATUS L M ROUT INE NEW
	629	"PKG",60,2 2,1,"PAH", 1,1,101,0)
	630
	631	"PKG",60,2 2,1,"PAH", 1,1,102,0)
	632	Protocols Associated :
	633	"PKG",60,2 2,1,"PAH", 1,1,103,0)
	634
	635	"PKG",60,2 2,1,"PAH", 1,1,104,0)
	636	Protocol N ame New/Modi fied/Delet ed Acti on
	637	"PKG",60,2 2,1,"PAH", 1,1,105,0)
	638	---------- --- -------- ---------- -- ---- --
	639	"PKG",60,2 2,1,"PAH", 1,1,106,0)
	640	PSO PATIEN T MED ACC PRO NEW
	641	"PKG",60,2 2,1,"PAH", 1,1,107,0)
	642	PSO PATIEN T MED BILL PRO NEW
	643	"PKG",60,2 2,1,"PAH", 1,1,108,0)
	644	PSO PATIEN T MED CANC EL NEW
	645	"PKG",60,2 2,1,"PAH", 1,1,109,0)
	646	PSO PATIEN T MED EXPO RT NEW
	647	"PKG",60,2 2,1,"PAH", 1,1,110,0)
	648	PSO PATIEN T MED PAT INQ NEW
	649	"PKG",60,2 2,1,"PAH", 1,1,111,0)
	650	PSO PATIEN T MED RESE T NEW
	651	"PKG",60,2 2,1,"PAH", 1,1,112,0)
	652	PSO PATIEN T MED TPJI NEW
	653	"PKG",60,2 2,1,"PAH", 1,1,113,0)
	654	PSO PATIEN T MEDICATI ON MENU MODIFIED
	655	"PKG",60,2 2,1,"PAH", 1,1,114,0)
	656
	657	"PKG",60,2 2,1,"PAH", 1,1,115,0)
	658	Templates Associated :
	659	"PKG",60,2 2,1,"PAH", 1,1,116,0)
	660
	661	"PKG",60,2 2,1,"PAH", 1,1,117,0)
	662	Template N ame Type Fil e Name (Nu mber)
	663	"PKG",60,2 2,1,"PAH", 1,1,118,0)
	664	New/Mod/De l--------- ---- ---- -- ---------- ------
	665	"PKG",60,2 2,1,"PAH", 1,1,119,0)
	666	---------- -
	667	"PKG",60,2 2,1,"PAH", 1,1,120,0)
	668	PSO PATIEN T MEDICATI ON LIST LIST N/A NEW
	669	"PKG",60,2 2,1,"PAH", 1,1,121,0)
	670
	671	"PKG",60,2 2,1,"PAH", 1,1,122,0)
	672	New Servic e Requests (NSRs):-- ---------- ---------- ------
	673	"PKG",60,2 2,1,"PAH", 1,1,123,0)
	674	20150505 - Revenue R eporting E nhancement s
	675	"PKG",60,2 2,1,"PAH", 1,1,124,0)
	676	20150506 - Revenue E ligibility Enhanceme nts
	677	"PKG",60,2 2,1,"PAH", 1,1,125,0)
	678	20150507 - Revenue O perations Enhancemen ts
	679	"PKG",60,2 2,1,"PAH", 1,1,126,0)
	680
	681	"PKG",60,2 2,1,"PAH", 1,1,127,0)
	682
	683	"PKG",60,2 2,1,"PAH", 1,1,128,0)
	684	Patient Sa fety Issue s (PSIs):
	685	"PKG",60,2 2,1,"PAH", 1,1,129,0)
	686	---------- ---------- ---------- N/A
	687	"PKG",60,2 2,1,"PAH", 1,1,130,0)
	688
	689	"PKG",60,2 2,1,"PAH", 1,1,131,0)
	690
	691	"PKG",60,2 2,1,"PAH", 1,1,132,0)
	692	Remedy Tic ket(s) & O verviews:
	693	"PKG",60,2 2,1,"PAH", 1,1,133,0)
	694	---------- ---------- ---------
	695	"PKG",60,2 2,1,"PAH", 1,1,134,0)
	696	N/A
	697	"PKG",60,2 2,1,"PAH", 1,1,135,0)
	698
	699	"PKG",60,2 2,1,"PAH", 1,1,136,0)
	700	Test Sites :--------- -
	701	"PKG",60,2 2,1,"PAH", 1,1,137,0)
	702	Durham VAM C
	703	"PKG",60,2 2,1,"PAH", 1,1,138,0)
	704
	705	"PKG",60,2 2,1,"PAH", 1,1,139,0)
	706
	707	"PKG",60,2 2,1,"PAH", 1,1,140,0)
	708	Software a nd Documen tation Ret rieval Ins tructions:
	709	"PKG",60,2 2,1,"PAH", 1,1,141,0)
	710	---------- ---------- ---------- ---------- ---------- --
	711	"PKG",60,2 2,1,"PAH", 1,1,142,0)
	712	Patches fo r this ins tallation are combin ed in host file
	713	"PKG",60,2 2,1,"PAH", 1,1,143,0)
	714	IB_2_568_P RCA_PSO_BU NDLE_T1.KI D
	715	"PKG",60,2 2,1,"PAH", 1,1,144,0)
	716
	717	"PKG",60,2 2,1,"PAH", 1,1,145,0)
	718	Installati on of this host file should be coordinat ed among t he package s
	719	"PKG",60,2 2,1,"PAH", 1,1,146,0)
	720	affected s ince only one instal lation is necessary.
	721	"PKG",60,2 2,1,"PAH", 1,1,147,0)
	722
	723	"PKG",60,2 2,1,"PAH", 1,1,148,0)
	724	The patche s are:
	725	"PKG",60,2 2,1,"PAH", 1,1,149,0)
	726
	727	"PKG",60,2 2,1,"PAH", 1,1,150,0)
	728	IB2. 0568
	729	"PKG",60,2 2,1,"PAH", 1,1,151,0)
	730	PRCA* 4.5*315
	731	"PKG",60,2 2,1,"PAH", 1,1,152,0)
	732	PSO7 .0463
	733	"PKG",60,2 2,1,"PAH", 1,1,153,0)
	734
	735	"PKG",60,2 2,1,"PAH", 1,1,154,0)
	736	Software and Docume ntation Re trieval In structions
	737	"PKG",60,2 2,1,"PAH", 1,1,155,0)
	738	---------- ---------- ---------- ---------- ---------
	739	"PKG",60,2 2,1,"PAH", 1,1,156,0)
	740	Software b eing relea sed as a h ost file a nd/or docu mentation describing the
	741	"PKG",60,2 2,1,"PAH", 1,1,157,0)
	742	new functi onality in troduced b y these pa tches are available.
	743	"PKG",60,2 2,1,"PAH", 1,1,158,0)
	744	The pref erred meth od is to r etrieve fi les from
	745	"PKG",60,2 2,1,"PAH", 1,1,159,0)
	746	URL.
	747	"PKG",60,2 2,1,"PAH", 1,1,160,0)
	748	This trans mits the f iles from the first available server. Si tes may
	749	"PKG",60,2 2,1,"PAH", 1,1,161,0)
	750	also elect to retrie ve files d irectly fr om a speci fic server .
	751	"PKG",60,2 2,1,"PAH", 1,1,162,0)
	752
	753	"PKG",60,2 2,1,"PAH", 1,1,163,0)
	754	Sites may retrieve t he softwar e and/or d ocumentati on directl y using
	755	"PKG",60,2 2,1,"PAH", 1,1,164,0)
	756	Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE
	757	"PKG",60,2 2,1,"PAH", 1,1,165,0)
	758	directory at the fol lowing OI Field Offi ces:
	759	"PKG",60,2 2,1,"PAH", 1,1,166,0)
	760
	761	"PKG",60,2 2,1,"PAH", 1,1,167,0)
	762	OI FIELD O FFICE FTP ADDRES S DIRECTORY
	763	"PKG",60,2 2,1,"PAH", 1,1,168,0)
	764	---------- ----- ---------- ---------- --- ---------- -----
	765	"PKG",60,2 2,1,"PAH", 1,1,169,0)
	766	Albany: URL anonymous. software
	767	"PKG",60,2 2,1,"PAH", 1,1,170,0)
	768	Hines: URL anonymous. software
	769	"PKG",60,2 2,1,"PAH", 1,1,171,0)
	770	Salt Lake City: URL anonymous. software
	771	"PKG",60,2 2,1,"PAH", 1,1,172,0)
	772	The host file is l ocated in the anonym ous.softwa re directo ry.
	773	"PKG",60,2 2,1,"PAH", 1,1,173,0)
	774	Us e ASCII Mo de when do wnloading the file.
	775	"PKG",60,2 2,1,"PAH", 1,1,174,0)
	776
	777	"PKG",60,2 2,1,"PAH", 1,1,175,0)
	778	Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry
	779	"PKG",60,2 2,1,"PAH", 1,1,176,0)
	780	at: http:/ / URL /
	781	"PKG",60,2 2,1,"PAH", 1,1,177,0)
	782
	783	"PKG",60,2 2,1,"PAH", 1,1,178,0)
	784	---------- ---------- ---------- ---------- ---------- ---------- ---------- ----
	785	"PKG",60,2 2,1,"PAH", 1,1,179,0)
	786	Title File Nam e FTP Mode
	787	"PKG",60,2 2,1,"PAH", 1,1,180,0)
	788	---------- ---------- ---------- ---------- ---------- ---------- ---------- ---
	789	"PKG",60,2 2,1,"PAH", 1,1,181,0)
	790	Outpatient Pharmacy Technical
	791	"PKG",60,2 2,1,"PAH", 1,1,182,0)
	792	Manual/ Security G uide pso_7_ TM_R0417.P DF binar y
	793	"PKG",60,2 2,1,"PAH", 1,1,183,0)
	794	Outpatient Pharmacy
	795	"PKG",60,2 2,1,"PAH", 1,1,184,0)
	796	Back-out , and Roll back Guide
	797	"PKG",60,2 2,1,"PAH", 1,1,185,0)
	798	FY1 6RevenuePS OVIP_Deplo yment_Inst allation_G uide
	799	"PKG",60,2 2,1,"PAH", 1,1,186,0)
	800	binar y
	801	"PKG",60,2 2,1,"PAH", 1,1,187,0)
	802
	803	"PKG",60,2 2,1,"PAH", 1,1,188,0)
	804	Sites may retrieve documentat ion direct ly using S ecure File
	805	"PKG",60,2 2,1,"PAH", 1,1,189,0)
	806	TransferPr otocol (SF TP) from t he ANONYMO US.SOFTWAR E director y at the
	807	"PKG",60,2 2,1,"PAH", 1,1,190,0)
	808	following
	809	"PKG",60,2 2,1,"PAH", 1,1,191,0)
	810	OI Field O ffices:
	811	"PKG",60,2 2,1,"PAH", 1,1,192,0)
	812
	813	"PKG",60,2 2,1,"PAH", 1,1,193,0)
	814	Albany: URL
	815	"PKG",60,2 2,1,"PAH", 1,1,194,0)
	816	Hines: URL
	817	"PKG",60,2 2,1,"PAH", 1,1,195,0)
	818	Salt Lake City: URL
	819	"PKG",60,2 2,1,"PAH", 1,1,196,0)
	820
	821	"PKG",60,2 2,1,"PAH", 1,1,197,0)
	822	Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry
	823	"PKG",60,2 2,1,"PAH", 1,1,198,0)
	824	at:
	825	"PKG",60,2 2,1,"PAH", 1,1,199,0)
	826	http:// URL /
	827	"PKG",60,2 2,1,"PAH", 1,1,200,0)
	828
	829	"PKG",60,2 2,1,"PAH", 1,1,201,0)
	830	Title File Name FTP Mode
	831	"PKG",60,2 2,1,"PAH", 1,1,202,0)
	832	---------- ---------- ---------- ---------- ---------- ---------- ---------
	833	"PKG",60,2 2,1,"PAH", 1,1,203,0)
	834	Outpatient Pharmacy Technical Manual/Sec urity
	835	"PKG",60,2 2,1,"PAH", 1,1,204,0)
	836	Guide pso_7 _tm.doc Bi nary
	837	"PKG",60,2 2,1,"PAH", 1,1,205,0)
	838	Outpatient Pharmacy Deployment , Installa tion,
	839	"PKG",60,2 2,1,"PAH", 1,1,206,0)
	840	Back- Out, and R ollback Gu ide
	841	"PKG",60,2 2,1,"PAH", 1,1,207,0)
	842	FY16Re venuePSOVI P_Deployme nt_Install ation_Guid e.doc
	843	"PKG",60,2 2,1,"PAH", 1,1,208,0)
	844	Binary
	845	"PKG",60,2 2,1,"PAH", 1,1,209,0)
	846
	847	"PKG",60,2 2,1,"PAH", 1,1,210,0)
	848
	849	"PKG",60,2 2,1,"PAH", 1,1,211,0)
	850
	851	"PKG",60,2 2,1,"PAH", 1,1,212,0)
	852	Patch Inst allation:
	853	"PKG",60,2 2,1,"PAH", 1,1,213,0)
	854
	855	"PKG",60,2 2,1,"PAH", 1,1,214,0)
	856	Pre/Post I nstallatio n Overview :
	857	"PKG",60,2 2,1,"PAH", 1,1,215,0)
	858	---------- ---------- ---------- -
	859	"PKG",60,2 2,1,"PAH", 1,1,216,0)
	860	N/A
	861	"PKG",60,2 2,1,"PAH", 1,1,217,0)
	862
	863	"PKG",60,2 2,1,"PAH", 1,1,218,0)
	864	Pre-Instal lation Ins tructions:
	865	"PKG",60,2 2,1,"PAH", 1,1,219,0)
	866	---------- ---------- ----------
	867	"PKG",60,2 2,1,"PAH", 1,1,220,0)
	868	N/A
	869	"PKG",60,2 2,1,"PAH", 1,1,221,0)
	870
	871	"PKG",60,2 2,1,"PAH", 1,1,222,0)
	872	Installati on Instruc tions:
	873	"PKG",60,2 2,1,"PAH", 1,1,223,0)
	874	---------- ---------- ------
	875	"PKG",60,2 2,1,"PAH", 1,1,224,0)
	876	This proce ss will in stall new and update d routines and other
	877	"PKG",60,2 2,1,"PAH", 1,1,225,0)
	878	components listed ab ove. There is a post -install r outine tha t will add
	879	"PKG",60,2 2,1,"PAH", 1,1,226,0)
	880	entries to a number of files.
	881	"PKG",60,2 2,1,"PAH", 1,1,227,0)
	882
	883	"PKG",60,2 2,1,"PAH", 1,1,228,0)
	884	The patch will be re leased in conjunctio n with Int egrated Bi lling
	885	"PKG",60,2 2,1,"PAH", 1,1,229,0)
	886	patch, IB* 4.5568, a nd Account s Receivab le, PRCA4 .5*315.
	887	"PKG",60,2 2,1,"PAH", 1,1,230,0)
	888
	889	"PKG",60,2 2,1,"PAH", 1,1,231,0)
	890	****** ****** ** NOT E **** ****** ****
	891	"PKG",60,2 2,1,"PAH", 1,1,232,0)
	892	IF A USE R IS ON TH E SYSTEM A ND USING T HESE PROGR AMS
	893	"PKG",60,2 2,1,"PAH", 1,1,233,0)
	894	AN EDITE D ERROR WI LL OCCUR.
	895	"PKG",60,2 2,1,"PAH", 1,1,234,0)
	896	The patc h should b e installe d when NO Outpatient
	897	"PKG",60,2 2,1,"PAH", 1,1,235,0)
	898	Pharmacy users are on the sy stem.
	899	"PKG",60,2 2,1,"PAH", 1,1,236,0)
	900	****** ****** ****** ****** ****** ****
	901	"PKG",60,2 2,1,"PAH", 1,1,237,0)
	902
	903	"PKG",60,2 2,1,"PAH", 1,1,238,0)
	904	Installat ion will t ake less t han 1 minu te.
	905	"PKG",60,2 2,1,"PAH", 1,1,239,0)
	906
	907	"PKG",60,2 2,1,"PAH", 1,1,240,0)
	908	Suggested time to i nstall: no n-peak req uirement h ours.
	909	"PKG",60,2 2,1,"PAH", 1,1,241,0)
	910
	911	"PKG",60,2 2,1,"PAH", 1,1,242,0)
	912
	913	"PKG",60,2 2,1,"PAH", 1,1,243,0)
	914	1. Obtai n the host file IB_2 _568_PRCA_ PSO_BUNDLE .KIDS whic h contains
	915	"PKG",60,2 2,1,"PAH", 1,1,244,0)
	916	the f ollowing p atches:
	917	"PKG",60,2 2,1,"PAH", 1,1,245,0)
	918	I B4.5568
	919	"PKG",60,2 2,1,"PAH", 1,1,246,0)
	920	P RCA4.531 5
	921	"PKG",60,2 2,1,"PAH", 1,1,247,0)
	922	P SO7.0463
	923	"PKG",60,2 2,1,"PAH", 1,1,248,0)
	924
	925	"PKG",60,2 2,1,"PAH", 1,1,249,0)
	926	2. Start up KIDS
	927	"PKG",60,2 2,1,"PAH", 1,1,250,0)
	928	----- -------- Start u p the Kern el Install ation and Distributi on
	929	"PKG",60,2 2,1,"PAH", 1,1,251,0)
	930	System Men u option
	931	"PKG",60,2 2,1,"PAH", 1,1,252,0)
	932	[XPD MAIN]:
	933	"PKG",60,2 2,1,"PAH", 1,1,253,0)
	934
	935	"PKG",60,2 2,1,"PAH", 1,1,254,0)
	936	E dits and D istributio n ...
	937	"PKG",60,2 2,1,"PAH", 1,1,255,0)
	938	U tilities . ..
	939	"PKG",60,2 2,1,"PAH", 1,1,256,0)
	940	I nstallatio n ...
	941	"PKG",60,2 2,1,"PAH", 1,1,257,0)
	942
	943	"PKG",60,2 2,1,"PAH", 1,1,258,0)
	944	Selec t Kernel I nstallatio n & Distri bution Sys tem Option :
	945	"PKG",60,2 2,1,"PAH", 1,1,259,0)
	946	INStallati on
	947	"PKG",60,2 2,1,"PAH", 1,1,260,0)
	948	---
	949	"PKG",60,2 2,1,"PAH", 1,1,261,0)
	950	L oad a Dist ribution
	951	"PKG",60,2 2,1,"PAH", 1,1,262,0)
	952	P rint Trans port Globa l
	953	"PKG",60,2 2,1,"PAH", 1,1,263,0)
	954	C ompare Tra nsport Glo bal to Cur rent Syste m
	955	"PKG",60,2 2,1,"PAH", 1,1,264,0)
	956	V erify Chec ksums in T ransport G lobal
	957	"PKG",60,2 2,1,"PAH", 1,1,265,0)
	958	I nstall Pac kage(s)
	959	"PKG",60,2 2,1,"PAH", 1,1,266,0)
	960	R estart Ins tall of Pa ckage(s)
	961	"PKG",60,2 2,1,"PAH", 1,1,267,0)
	962	U nload a Di stribution
	963	"PKG",60,2 2,1,"PAH", 1,1,268,0)
	964	B ackup a Tr ansport Gl obal
	965	"PKG",60,2 2,1,"PAH", 1,1,269,0)
	966
	967	"PKG",60,2 2,1,"PAH", 1,1,270,0)
	968	Selec t Installa tion Optio n:
	969	"PKG",60,2 2,1,"PAH", 1,1,271,0)
	970
	971	"PKG",60,2 2,1,"PAH", 1,1,272,0)
	972	3. LOAD TRANSPORT GLOBAL FOR MULTI-BUI LD IB_2_56 8_PRCA_PSO _BUNDLE.KI D
	973	"PKG",60,2 2,1,"PAH", 1,1,273,0)
	974	----- ---------- ---------- ---------- ---------- ---------- ------
	975	"PKG",60,2 2,1,"PAH", 1,1,274,0)
	976	From the Instal lation men u, select the Load a Distribut ion option .
	977	"PKG",60,2 2,1,"PAH", 1,1,275,0)
	978
	979	"PKG",60,2 2,1,"PAH", 1,1,276,0)
	980	When prompted f or "Enter a Host Fil e:", enter the full directory path
	981	"PKG",60,2 2,1,"PAH", 1,1,277,0)
	982	where you saved the host file IB_2_ 568_PRCA_P SO_BUNDLE. KID (e.g.,
	983	"PKG",60,2 2,1,"PAH", 1,1,278,0)
	984	SYS$S YSDEVICE:[ ANONYMOUS] IB_2_568_ PRCA_PSO_B UNDLE.KID) .
	985	"PKG",60,2 2,1,"PAH", 1,1,279,0)
	986
	987	"PKG",60,2 2,1,"PAH", 1,1,280,0)
	988	When prompted f or "OK to continue w ith Load? NO//", ent er "YES."
	989	"PKG",60,2 2,1,"PAH", 1,1,281,0)
	990	The f ollowing w ill displa y:
	991	"PKG",60,2 2,1,"PAH", 1,1,282,0)
	992
	993	"PKG",60,2 2,1,"PAH", 1,1,283,0)
	994	Loadi ng Distrib ution...
	995	"PKG",60,2 2,1,"PAH", 1,1,284,0)
	996
	997	"PKG",60,2 2,1,"PAH", 1,1,285,0)
	998	I B2.0568
	999	"PKG",60,2 2,1,"PAH", 1,1,286,0)
	1000	P RCA4.531 5
	1001	"PKG",60,2 2,1,"PAH", 1,1,287,0)
	1002	P SO7.0463
	1003	"PKG",60,2 2,1,"PAH", 1,1,288,0)
	1004
	1005	"PKG",60,2 2,1,"PAH", 1,1,289,0)
	1006	U se INSTALL NAME: IB* 2.0*568to install th is
	1007	"PKG",60,2 2,1,"PAH", 1,1,290,0)
	1008	I B_2_568_PR CA_PSO_BUN DLE.KID di stribution .
	1009	"PKG",60,2 2,1,"PAH", 1,1,291,0)
	1010
	1011	"PKG",60,2 2,1,"PAH", 1,1,292,0)
	1012	4. From this menu, you may s elect to u se the fol lowing opt ions
	1013	"PKG",60,2 2,1,"PAH", 1,1,293,0)
	1014	(when prompted for INSTAL L NAME, en ter IB2.0 568):
	1015	"PKG",60,2 2,1,"PAH", 1,1,294,0)
	1016	a . Verify Checksums in Transpo rt Global - This opt ion will
	1017	"PKG",60,2 2,1,"PAH", 1,1,295,0)
	1018	allow y ou to ensu re the int egrity of the routin es that
	1019	"PKG",60,2 2,1,"PAH", 1,1,296,0)
	1020	are in the transp ort global .
	1021	"PKG",60,2 2,1,"PAH", 1,1,297,0)
	1022	b . Print T ransport G lobal - Th is option will allow you to
	1023	"PKG",60,2 2,1,"PAH", 1,1,298,0)
	1024	view th e componen ts of the KIDS build .
	1025	"PKG",60,2 2,1,"PAH", 1,1,299,0)
	1026	c . Compare Transport Global to Current S ystem - Th is
	1027	"PKG",60,2 2,1,"PAH", 1,1,300,0)
	1028	option w ill allow you to vie w all chan ges that w ill be mad e
	1029	"PKG",60,2 2,1,"PAH", 1,1,301,0)
	1030	when
	1031	"PKG",60,2 2,1,"PAH", 1,1,302,0)
	1032	this pa tch is ins talled. I t compares all compo nents of
	1033	"PKG",60,2 2,1,"PAH", 1,1,303,0)
	1034	this pa tch (routi nes, DD's, templates , etc.).
	1035	"PKG",60,2 2,1,"PAH", 1,1,304,0)
	1036	d . Backup a Transpor t Global - This opti on will cr eate a
	1037	"PKG",60,2 2,1,"PAH", 1,1,305,0)
	1038	backup message of any routi nes export ed with th is patch.
	1039	"PKG",60,2 2,1,"PAH", 1,1,306,0)
	1040	It will not backu p any othe r changes such as DD 's or
	1041	"PKG",60,2 2,1,"PAH", 1,1,307,0)
	1042	templat es.
	1043	"PKG",60,2 2,1,"PAH", 1,1,308,0)
	1044
	1045	"PKG",60,2 2,1,"PAH", 1,1,309,0)
	1046	5. When prompted " Want KIDS to INHIBIT LOGONs du ring the i nstall?
	1047	"PKG",60,2 2,1,"PAH", 1,1,310,0)
	1048	NO//" respond N O.
	1049	"PKG",60,2 2,1,"PAH", 1,1,311,0)
	1050
	1051	"PKG",60,2 2,1,"PAH", 1,1,312,0)
	1052	6. When prompted " Want to DI SABLE Sche duled Opti ons, Menu Options,
	1053	"PKG",60,2 2,1,"PAH", 1,1,313,0)
	1054	and P rotocols? NO//" resp ond NO.
	1055	"PKG",60,2 2,1,"PAH", 1,1,314,0)
	1056
	1057	"PKG",60,2 2,1,"PAH", 1,1,315,0)
	1058
	1059	"PKG",60,2 2,1,"PAH", 1,1,316,0)
	1060
	1061	"PKG",60,2 2,1,"PAH", 1,1,317,0)
	1062	Post-Insta llation In structions :
	1063	"PKG",60,2 2,1,"PAH", 1,1,318,0)
	1064	---------- ---------- ---------- -
	1065	"PKG",60,2 2,1,"PAH", 1,1,319,0)
	1066	There are no special tasks to perform af ter this p atch insta llation.
	1067	"QUES","XP F1",0)
	1068	Y
	1069	"QUES","XP F1","??")
	1070	^D REP^XPD H
	1071	"QUES","XP F1","A")
	1072	Shall I wr ite over y our \|FLAG\| File
	1073	"QUES","XP F1","B")
	1074	YES
	1075	"QUES","XP F1","M")
	1076	D XPF1^XPD IQ
	1077	"QUES","XP F2",0)
	1078	Y
	1079	"QUES","XP F2","??")
	1080	^D DTA^XPD H
	1081	"QUES","XP F2","A")
	1082	Want my da ta \|FLAG\| yours
	1083	"QUES","XP F2","B")
	1084	YES
	1085	"QUES","XP F2","M")
	1086	D XPF2^XPD IQ
	1087	"QUES","XP I1",0)
	1088	YO
	1089	"QUES","XP I1","??")
	1090	^D INHIBIT ^XPDH
	1091	"QUES","XP I1","A")
	1092	Want KIDS to INHIBIT LOGONs du ring the i nstall
	1093	"QUES","XP I1","B")
	1094	NO
	1095	"QUES","XP I1","M")
	1096	D XPI1^XPD IQ
	1097	"QUES","XP M1",0)
	1098	PO^VA(200, :EM
	1099	"QUES","XP M1","??")
	1100	^D MG^XPDH
	1101	"QUES","XP M1","A")
	1102	Enter the Coordinato r for Mail Group '\|F LAG\|'
	1103	"QUES","XP M1","B")
	1104
	1105	"QUES","XP M1","M")
	1106	D XPM1^XPD IQ
	1107	"QUES","XP O1",0)
	1108	Y
	1109	"QUES","XP O1","??")
	1110	^D MENU^XP DH
	1111	"QUES","XP O1","A")
	1112	Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install
	1113	"QUES","XP O1","B")
	1114	NO
	1115	"QUES","XP O1","M")
	1116	D XPO1^XPD IQ
	1117	"QUES","XP Z1",0)
	1118	Y
	1119	"QUES","XP Z1","??")
	1120	^D OPT^XPD H
	1121	"QUES","XP Z1","A")
	1122	Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls
	1123	"QUES","XP Z1","B")
	1124	NO
	1125	"QUES","XP Z1","M")
	1126	D XPZ1^XPD IQ
	1127	"QUES","XP Z2",0)
	1128	Y
	1129	"QUES","XP Z2","??")
	1130	^D RTN^XPD H
	1131	"QUES","XP Z2","A")
	1132	Want to MO VE routine s to other CPUs
	1133	"QUES","XP Z2","B")
	1134	NO
	1135	"QUES","XP Z2","M")
	1136	D XPZ2^XPD IQ
	1137	"RTN")
	1138	4
	1139	"RTN","PSO CPB")
	1140	0^1^B93273 887^B94005 590
	1141	"RTN","PSO CPB",1,0)
	1142	PSOCPB ;BI R/BaB - ph armacy co- pay applic ation cont 'd ;1/30/0 7 9:08am
	1143	"RTN","PSO CPB",2,0)
	1144	;;7.0;OUT PATIENT PH ARMACY;7 2,71,85,18 5,143,219, 239,201,26 3,303,431, 476,463; DEC 1997;B uild 36
	1145	"RTN","PSO CPB",3,0)
	1146	;
	1147	"RTN","PSO CPB",4,0)
	1148	;REF/IA
	1149	"RTN","PSO CPB",5,0)
	1150	;DIS^SDRO UT2/112
	1151	"RTN","PSO CPB",6,0)
	1152	;^IBARX/1 25
	1153	"RTN","PSO CPB",7,0)
	1154	;VADPT/10 061
	1155	"RTN","PSO CPB",8,0)
	1156	;SWSTAT^I BBAPI/4663
	1157	"RTN","PSO CPB",9,0)
	1158	;Referenc e to $$CPT IER^PSNAPI S(P1,P3) s upported b y DBIA #25 31
	1159	"RTN","PSO CPB",10,0)
	1160	COPAY ;
	1161	"RTN","PSO CPB",11,0)
	1162	;Called b y PSON52,P SORN52...R equires PS OCPAY,PSOB ILL,DEA=PS DEA,PSOFLA G
	1163	"RTN","PSO CPB",12,0)
	1164	;PSOFLAG= 1 NEW, PSO FLAG=0 REN EW
	1165	"RTN","PSO CPB",13,0)
	1166	S PSOSAVE =PSOCPAY ; Save orig inal statu s of PSOCP AY
	1167	"RTN","PSO CPB",14,0)
	1168	I '$G(PSO SCP)!('$G( PSOSCA)) D SCP^PSORN 52D ;CIDC -must ask sc if flag ged for it in enroll ment
	1169	"RTN","PSO CPB",15,0)
	1170	I $G(PSOD RUG("DEA") )["S"!($G( PSODRUG("D EA"))["I") !($G(PSODR UG("DEA")) ["N") S PS OCPAY=0
	1171	"RTN","PSO CPB",16,0)
	1172	G:+PSOBIL L'=2&('$G( PSOSCA)) C OPAY2
	1173	"RTN","PSO CPB",17,0)
	1174	D FULL^VA LM1
	1175	"RTN","PSO CPB",18,0)
	1176	I $G(PSOM ESOI)=1,$G (PSORXED) W !!,"The Pharmacy O rderable I tem has ch anged for this order . Please r eview any" ,!,"existi ng SC or E nvironment al Indicat or default s carefull y for appr opriatenes s.",! S PS OMESOI=2
	1177	"RTN","PSO CPB",19,0)
	1178	I $G(PSOM ESFI)=1 W !!,"The Ph armacy Ord erable Ite m has chan ged for th is order. Please rev iew any",! ,"existing SC or Env ironmental Indicator defaults carefully for approp riateness. ",! S PSOM ESFI=2
	1179	"RTN","PSO CPB",20,0)
	1180	S DFN=+$G (PSODFN) D CHKPAG^PS OMLLD2,DIS ^SDROUT2
	1181	"RTN","PSO CPB",21,0)
	1182	ASK ;
	1183	"RTN","PSO CPB",22,0)
	1184	N PSOUFLA G S PSOUFL AG=0
	1185	"RTN","PSO CPB",23,0)
	1186	K PSOCPZ( "DFLG"),PS ONEW("NEWC OPAY")
	1187	"RTN","PSO CPB",24,0)
	1188	W ! K DIR ,DTOUT,DIR UT,DUOUT
	1189	"RTN","PSO CPB",25,0)
	1190	I $G(PSOR X("SC"))=" SC"!($G(PS ORX("SC")) ="NSC")!($ G(PSOSCOTH )) D
	1191	"RTN","PSO CPB",26,0)
	1192	.W:PSOSCP <50&($G(PS ODRUG("DEA "))'["S")& ($G(PSODRU G("DEA"))' ["I")&($G( PSODRUG("D EA"))'["N" ) !,"This Rx has bee n flagged by the pro vider as: "_$S($G(PS OSCOTH):"N O COPAY",$ G(PSORX("S C"))="SC": "NO COPAY" ,1:"COPAY" ),!
	1193	"RTN","PSO CPB",27,0)
	1194	.I $G(PSO SCOTX) S P SOSCOTX=2
	1195	"RTN","PSO CPB",28,0)
	1196	S DIR("A" )="Was tre atment for Service C onnected c ondition", DIR(0)="Y"
	1197	"RTN","PSO CPB",29,0)
	1198	S DIR("?" )="Enter ' Yes' if th is prescri ption is f or a Servi ce Connect ed conditi on"
	1199	"RTN","PSO CPB",30,0)
	1200	I $G(PSOR X("SC"))]" "!($G(PSOR X(+$G(PSOR ENW("OIRXN ")),"SC")) '="") S DI R("B")=$S( $G(PSORX(" SC"))="SC" :"YES",$G( PSORX("SC" ))="NSC":" NO",$G(PSO RX(+$G(PSO RENW("OIRX N")),"SC") )=1:"YES", $G(PSORX(+ $G(PSORENW ("OIRXN")) ,"SC"))=0: "NO",1:"")
	1201	"RTN","PSO CPB",31,0)
	1202	I $G(PSON EWFF),$G(P SOFLAG) I $G(PSOANSQ D("SC"))=0 !($G(PSOAN SQD("SC")) =1) S DIR( "B")=$S($G (PSOANSQD( "SC"))=1:" YES",1:"NO ")
	1203	"RTN","PSO CPB",32,0)
	1204	I $G(DIR( "B"))="YES "!($G(DIR( "B"))="NO" ) S PSOUFL AG=$G(DIR( "B"))
	1205	"RTN","PSO CPB",33,0)
	1206	I $G(DIR( "B"))="" K DIR("B")
	1207	"RTN","PSO CPB",34,0)
	1208	D ^DIR
	1209	"RTN","PSO CPB",35,0)
	1210	I $G(Y)=1 !($G(Y)=0) S PSOANSQ ("SC")=$G( Y) I $G(PS ONEWFF),$G (PSOFLAG) S PSOANSQD ("SC")=$G( Y)
	1211	"RTN","PSO CPB",36,0)
	1212	I PSOFLAG I Y["^"!( $D(DTOUT)) !($D(DUOUT )) S PSOCP Z("DFLG")= 1
	1213	"RTN","PSO CPB",37,0)
	1214	S:Y=0 Y=2
	1215	"RTN","PSO CPB",38,0)
	1216	S PSOANSR =+Y I 'PSO ANSR,'PSOF LAG D S $ P(PSOCPAY, "^")=$S($G (PSOUFLAG) ="NO":1,1: 0) W ! K D IR S DIR(0 )="E",DIR( "A")="Pres s Return t o continue " D ^DIR K DIR G COP AY2
	1217	"RTN","PSO CPB",39,0)
	1218	.W !!,"Th is Renewal has been designated as "_$S($ G(PSOUFLAG )="YES":"S ERVICE CON NECTED",1: "NON-SERVI CE CONNECT ED.")
	1219	"RTN","PSO CPB",40,0)
	1220	.W:PSOSCP <50&($G(PS ODRUG("DEA "))'["S")& ($G(PSODRU G("DEA"))' ["I")&($G( PSODRUG("D EA"))'["N" ) !,"Pleas e use the 'Reset Cop ay Status/ Cancel Cha rges' opti on to make correctio ns."
	1221	"RTN","PSO CPB",41,0)
	1222	.S PSOANS Q("SC")=$S ($G(PSOUFL AG)="YES": 1,1:0)
	1223	"RTN","PSO CPB",42,0)
	1224	I $G(PSOF LAG),$G(PS OCPZ("DFLG ")) G EXIT
	1225	"RTN","PSO CPB",43,0)
	1226	S:PSOANSR =1 PSOCPAY =0 S:PSOAN SR=2 $P(PS OCPAY,"^") =1
	1227	"RTN","PSO CPB",44,0)
	1228	COPAY2 ;
	1229	"RTN","PSO CPB",45,0)
	1230	N PSOPFS S PSOPFS=$ $SWSTAT^IB BAPI()
	1231	"RTN","PSO CPB",46,0)
	1232	;***** be gin - for regression test FMCT - sites m ust not us e this as it will ad versely af fect billi ng results - only us ed by SQA
	1233	"RTN","PSO CPB",47,0)
	1234	; The fol lowing is required f or testing different effective dates. I f date is less than 02/27/17 b ills old w ay. Other wise bills new way.
	1235	"RTN","PSO CPB",48,0)
	1236	;S ^XTMP( "PSOTIEREF TST",0)="3 201231^317 0227^FOR S QA TESTING ONLY" - D efined for SQA testi ng only. Delete th is XTMP wh en regress ion comple te
	1237	"RTN","PSO CPB",49,0)
	1238	D NOW^%DT C N PSOTIE RE
	1239	"RTN","PSO CPB",50,0)
	1240	S PSOTIER E=1 ;use copay tier s - new
	1241	"RTN","PSO CPB",51,0)
	1242	I $P(%,". ")<3170227 S PSOTIER E=0 ;lega cy billing - old
	1243	"RTN","PSO CPB",52,0)
	1244	I $G(^XTM P("PSOTIER EFTST",0)) S PSOTIER E=1 ;for SQA testin g only - b ill with c opay tiers - new
	1245	"RTN","PSO CPB",53,0)
	1246	;***** en d for regr ession tes t
	1247	"RTN","PSO CPB",54,0)
	1248	G COPAY21 :'PSOTIERE
	1249	"RTN","PSO CPB",55,0)
	1250	;Check co pay tier. Tier zero does not h ave copay charges. T ier billin g will be effective 2/27/17 an d IB rate table deci des what a mount to b ill based on rate ef fective da te
	1251	"RTN","PSO CPB",56,0)
	1252	N CPDATE, X,PSOCPT D NOW^%DTC S CPDATE=X ,PSOCPT=$$ CPTIER^PSN APIS("",CP DATE,PSODR UG("IEN")) K CPDATE, X
	1253	"RTN","PSO CPB",57,0)
	1254	I $P(PSOC PT,"^")=0 S PSOCHG=0 K PSONEW( "NEWCOPAY" ) G EXIT ;Tier zero do not se nd to IB f or copay c harge
	1255	"RTN","PSO CPB",58,0)
	1256	;
	1257	"RTN","PSO CPB",59,0)
	1258	COPAY21 I +PSOCPAY=1 ,($P(PSOCP AY,"^",2)= 1)!($P(PSO CPAY,"^",2 )=2) D
	1259	"RTN","PSO CPB",60,0)
	1260	.;set IB node in ^P SRX for co pay if xac tn type is 1 or 2
	1261	"RTN","PSO CPB",61,0)
	1262	.S PSONEW ("NEWCOPAY ")=$P($G(P SOCPAY),"^ ",2)_"^^"_ $S(+$G(PSO PFS):"",1: $P($G(PSOC PAY),"^",2 ))
	1263	"RTN","PSO CPB",62,0)
	1264	EXIT ;
	1265	"RTN","PSO CPB",63,0)
	1266	S PSOCPAY =PSOSAVE ; Restore va l of PSOCP AY
	1267	"RTN","PSO CPB",64,0)
	1268	K PSOSAVE ,PSOANSR,D IR,DUOUT,D IRUT,DTOUT ,Y,X
	1269	"RTN","PSO CPB",65,0)
	1270	Q
	1271	"RTN","PSO CPB",66,0)
	1272	RESET ;RES ET COPAY S TATUS
	1273	"RTN","PSO CPB",67,0)
	1274	K PSOSUMM ,PSOPFS,PS OPFSA,PSOL FIL,PSOPFS G
	1275	"RTN","PSO CPB",68,0)
	1276	I '$D(PSO PAR) D ^PS OLSET G RE SET
	1277	"RTN","PSO CPB",69,0)
	1278	W ! S DIC ="^PSRX(", DIC(0)="AE QZ" D ^DIC K DIC G:Y <0 EXT S P SODA=+Y
	1279	"RTN","PSO CPB",70,0)
	1280	W !,?17," PATIENT: " ,$P($G(^DP T($P(^PSRX (PSODA,0), "^",2),0)) ,"^")
	1281	"RTN","PSO CPB",71,0)
	1282	D ICN^PSO DPT($P(^PS RX(PSODA,0 ),"^",2))
	1283	"RTN","PSO CPB",72,0)
	1284	S PSORXN= $P(^PSRX(P SODA,0),"^ "),PREA="R "
	1285	"RTN","PSO CPB",73,0)
	1286	S PCOPAY= $G(^PSRX(P SODA,"IB") )
	1287	"RTN","PSO CPB",74,0)
	1288	W !!,"Rx # ",PSORXN ," is a ", $S(+PCOPAY :"Copay",1 :"No Copay ")," presc ription"
	1289	"RTN","PSO CPB",75,0)
	1290	S PSOLFIL =$$LF^PSOP FSU1(PSODA ) D PFSA^P SOPFSU1(PS ODA,PSOLFI L,3) ;PSO CPC def PS OPFSA=1 if OP SC/EI' s change.
	1291	"RTN","PSO CPB",76,0)
	1292	D EXEMCHK ^PSOCPC ; CHECK/CHAN GE EXEMPTI ON FLAGS
	1293	"RTN","PSO CPB",77,0)
	1294	S PSOIBQ= $G(^PSRX(P SODA,"IBQ" ))
	1295	"RTN","PSO CPB",78,0)
	1296	I '$G(^PS RX(PSODA," IB")),PSOI BQ'["1" D G ASKCAN
	1297	"RTN","PSO CPB",79,0)
	1298	. K DIR S DIR(0)="Y ",DIR("B") ="N",DIR(" A")="Do yo u want to reset the status to COPAY" D ^ DIR K DIR
	1299	"RTN","PSO CPB",80,0)
	1300	. I Y'=1 Q
	1301	"RTN","PSO CPB",81,0)
	1302	. S DIC=" ^IBE(350.3 ,",DIC("S" )="I $P(^( 0),U,3)'=2 ",DIC(0)=" AEQMZ",DIC ("A")="Sel ect Reason for Reset : " D ^DI C K DIC I Y'<0 S PSO RSN=+Y
	1303	"RTN","PSO CPB",82,0)
	1304	. S PREA= "R",PSOOLD ="No Copay ",PSONW="C opay",PSOC OMM="" D A CTLOG^PSOC PA
	1305	"RTN","PSO CPB",83,0)
	1306	. S PSI=0 ,PSOCOMM=" Copay stat us of this Rx has be en reset t o COPAY." D SETSUMM^ PSOCPC
	1307	"RTN","PSO CPB",84,0)
	1308	. S $P(^P SRX(PSODA, "IB"),"^") =1 ;Reset flag to CO PAY
	1309	"RTN","PSO CPB",85,0)
	1310	;
	1311	"RTN","PSO CPB",86,0)
	1312	I $G(^PSR X(PSODA,"I B")) D G ASKCAN
	1313	"RTN","PSO CPB",87,0)
	1314	. K DIR S DIR(0)="Y ",DIR("B") ="N",DIR(" A")="Do yo u want to reset the status to NO COPAYME NT" D ^DIR K DIR
	1315	"RTN","PSO CPB",88,0)
	1316	. I Y'=1 Q
	1317	"RTN","PSO CPB",89,0)
	1318	. S DIC=" ^IBE(350.3 ,",DIC("S" )="I $P(^( 0),U,3)'=2 ",DIC(0)=" AEQMZ",DIC ("A")="Sel ect Reason for Reset : " D ^DI C K DIC I Y'<0 S PSO RSN=+Y
	1319	"RTN","PSO CPB",90,0)
	1320	. S PREA= "R",PSOOLD ="Copay",P SONW="No C opay",PSOC OMM="" D A CTLOG^PSOC PA
	1321	"RTN","PSO CPB",91,0)
	1322	. S PSI=0 ,PSOCOMM=" Copay stat us of this Rx has be en reset t o NO COPAY ." D SETSU MM^PSOCPC
	1323	"RTN","PSO CPB",92,0)
	1324	. S $P(^P SRX(PSODA, "IB"),"^") ="" ;Reset flag to N O COPAY
	1325	"RTN","PSO CPB",93,0)
	1326	ASKCAN D A SKCAN^PSOC PD
	1327	"RTN","PSO CPB",94,0)
	1328	I '$D(PSO SUMM) S PS I=0,PSOCOM M="No acti on taken" D SETSUMM^ PSOCPC
	1329	"RTN","PSO CPB",95,0)
	1330	D PRTSUMM
	1331	"RTN","PSO CPB",96,0)
	1332	;I $P($G( PSOPFS),"^ ",3)>0&(+$ G(PSOPFSA) ) D CHRG^P SOPFSU1(PS ODA,PSOLFI L,"CG",PSO PFS)
	1333	"RTN","PSO CPB",97,0)
	1334	RESETE K P SODA,PSORX N,PSORSN,P SOREF,X,Y, PCOPAY,PRE A,PSOCOMM, PSI
	1335	"RTN","PSO CPB",98,0)
	1336	G RESET
	1337	"RTN","PSO CPB",99,0)
	1338	EXT K PSOD A,PSORXN,P SORSN,PSOR EF,X,Y,PCO PAY,PREA,P SOCOPAY
	1339	"RTN","PSO CPB",100,0 )
	1340	Q
	1341	"RTN","PSO CPB",101,0 )
	1342	BILLED ;Co llect IB n ums,cancel chrgs,res et flag.
	1343	"RTN","PSO CPB",102,0 )
	1344	W !!,"* ****Cha rges are o n file for this Rx. *********"
	1345	"RTN","PSO CPB",103,0 )
	1346	Q
	1347	"RTN","PSO CPB",104,0 )
	1348	BILL2 ;
	1349	"RTN","PSO CPB",105,0 )
	1350	N PSOPREV ; VAR FOR PREV CANC ELLED
	1351	"RTN","PSO CPB",106,0 )
	1352	S PSOPREV =0
	1353	"RTN","PSO CPB",107,0 )
	1354	S DIC="^I BE(350.3," ,DIC("S")= "I $P(^(0) ,U,3)'=2", DIC(0)="AE QMZ",DIC(" A")="Selec t Reason f or Reset o r Charge C ancellatio n : " D ^D IC K DIC G ENDMSG:Y< 0 S PSORSN =+Y
	1355	"RTN","PSO CPB",108,0 )
	1356	S X=PSOPA R7_"^"_+$P (^PSRX(PSO DA,0),"^", 2)_"^^"_DU Z
	1357	"RTN","PSO CPB",109,0 )
	1358	S SAVX=X
	1359	"RTN","PSO CPB",110,0 )
	1360	I $D(PSOC AN) D:'$G( PSOPFS) I +$G(PSOPF S)!($G(PSO PFSG)) D P FS^PSOPFSU 1 G BILL2E ND:'$D(PSO CAN)
	1361	"RTN","PSO CPB",111,0 )
	1362	. N III S III="" F S III=$O( PSOCAN(III )) Q:III=" " I PSOCA N(III)["PF S" S PSOPF SG=1 Q ;P FSS switch off, chec k for prev cots bill ing
	1363	"RTN","PSO CPB",112,0 )
	1364	D POTBILL 2
	1365	"RTN","PSO CPB",113,0 )
	1366	I '$D(PSO CAN) G BIL L2END
	1367	"RTN","PSO CPB",114,0 )
	1368	I $G(CANT YPE) D PRE VCAN I $O( X(""))="" Q
	1369	"RTN","PSO CPB",115,0 )
	1370	I '$G(CAN TYPE) S I= "" F S I= $O(PSOCAN( I)) Q:I="" S X($P(P SOCAN(I)," ^",1))=$P( PSOCAN(I), "^",2)_"^" _PSORSN
	1371	"RTN","PSO CPB",116,0 )
	1372	D CANCEL^ IBARX
	1373	"RTN","PSO CPB",117,0 )
	1374	I $G(CANT YPE) D MSG
	1375	"RTN","PSO CPB",118,0 )
	1376	I '$D(Y) Q
	1377	"RTN","PSO CPB",119,0 )
	1378	I +Y=-1 Q
	1379	"RTN","PSO CPB",120,0 )
	1380	I $D(Y(PS ORXN)),+Y( PSORXN)'=- 1 S $P(^PS RX(PSODA," IB"),"^",2 )=+Y(PSORX N) K Y(PSO RXN) S PRE A="C",PSOR EF=0,PSOOL D="",PSONW ="" D ACTL OG^PSOCPA I '$G(CANT YPE) D MSG
	1381	"RTN","PSO CPB",121,0 )
	1382	F PSOREF= 0:0 S PSOR EF=$O(Y(PS OREF)) Q:P SOREF="" I +Y(PSORE F)'=-1 S ^ PSRX(PSODA ,1,PSOREF, "IB")=+Y(P SOREF) S P REA="C",PS OOLD="",PS ONW="" D A CTLOG^PSOC PA I '$G(C ANTYPE) D MSG
	1383	"RTN","PSO CPB",122,0 )
	1384	BILL2END K X,Y,SAVX, PSOREF,PSO CAN
	1385	"RTN","PSO CPB",123,0 )
	1386	Q
	1387	"RTN","PSO CPB",124,0 )
	1388	;
	1389	"RTN","PSO CPB",125,0 )
	1390	POTBILL2 ; see if any potential charges ( entries fr om file 35 4.71 -- bi lls that e xceeded ca p prev) to be cancel led before cancellin g regular charges
	1391	"RTN","PSO CPB",126,0 )
	1392	N X,I
	1393	"RTN","PSO CPB",127,0 )
	1394	S X=SAVX
	1395	"RTN","PSO CPB",128,0 )
	1396	I $T(CANI BAM^IBARX) ="" Q
	1397	"RTN","PSO CPB",129,0 )
	1398	S I="" F S I=$O(PS OCAN(I)) Q :I="" I P SOCAN(I)[" ^CAP" S X( $P(PSOCAN( I),"^",1)) =$P(PSOCAN (I),"^",2) _"^"_PSORS N K PSOCAN (I)
	1399	"RTN","PSO CPB",130,0 )
	1400	I $O(X("" ))="" Q
	1401	"RTN","PSO CPB",131,0 )
	1402	S PSOPREV =1
	1403	"RTN","PSO CPB",132,0 )
	1404	D CANIBAM ^IBARX
	1405	"RTN","PSO CPB",133,0 )
	1406	I $D(X(PS ORXN)) S $ P(^PSRX(PS ODA,"IB"), "^",4)="" S PREA="C" ,PSOREF=0, PSOCOMM="P otential c harge canc elled",PSO OLD="",PSO NW="" D AC TLOG^PSOCP A D POTMSG K X(PSORX N)
	1407	"RTN","PSO CPB",134,0 )
	1408	F PSOREF= 0:0 S PSOR EF=$O(X(PS OREF)) Q:P SOREF="" Q:PSOREF>1 1 S $P(^P SRX(PSODA, 1,PSOREF," IB"),"^",2 )="" S PRE A="C",PSOC OMM="Poten tial charg e cancelle d",PSOOLD= "",PSONW=" " D ACTLOG ^PSOCPA D POTMSG
	1409	"RTN","PSO CPB",135,0 )
	1410	K PSOREF, PREA,PSOCO MM
	1411	"RTN","PSO CPB",136,0 )
	1412	Q
	1413	"RTN","PSO CPB",137,0 )
	1414	REFILL S P SOREF=0
	1415	"RTN","PSO CPB",138,0 )
	1416	F S PSOR EF=$O(^PSR X(PSODA,1, PSOREF)) Q :PSOREF'?1 N.N D
	1417	"RTN","PSO CPB",139,0 )
	1418	. I $D(^P SRX(PSODA, 1,PSOREF," PFS")) S:$ P($G(^PSRX (PSODA,1,P SOREF,"PFS ")),"^",2) X(PSOREF) ="^"_$G(PS ORSN) Q
	1419	"RTN","PSO CPB",140,0 )
	1420	. I $D(^P SRX(PSODA, 1,PSOREF," IB")),+^(" IB")>0 S X (PSOREF)=+ ^PSRX(PSOD A,1,PSOREF ,"IB")_"^" _$G(PSORSN )
	1421	"RTN","PSO CPB",141,0 )
	1422	S PSOREF= 0 F S PSO REF=$O(^PS RX(PSODA,1 ,PSOREF)) Q:PSOREF'? 1N.N I '$ D(X(PSOREF )),+$P($G( ^PSRX(PSOD A,1,PSOREF ,"IB")),"^ ",2) S XX( PSOREF)=+$ P(^PSRX(PS ODA,1,PSOR EF,"IB")," ^",2)_"^"_ $G(PSORSN) ; IF ONLY ENTRY FRO M 354.71 S AVE IT
	1423	"RTN","PSO CPB",142,0 )
	1424	Q
	1425	"RTN","PSO CPB",143,0 )
	1426	SETCP ;IF NOT COPAY MAKE ELIG CALL/SET F LAG FOR FU TURE
	1427	"RTN","PSO CPB",144,0 )
	1428	W ! S X=P SOPAR7_"^" _+$P(^PSRX (PSODA,0), "^",2)
	1429	"RTN","PSO CPB",145,0 )
	1430	D XTYPE^I BARX
	1431	"RTN","PSO CPB",146,0 )
	1432	I +Y=-1 W !!,"Error in proces sing Copay eligibili ty, no act ion taken. " Q
	1433	"RTN","PSO CPB",147,0 )
	1434	S (ACTYP, BL)="",(PS OBILL,PSOC PAY)=0
	1435	"RTN","PSO CPB",148,0 )
	1436	CP ;
	1437	"RTN","PSO CPB",149,0 )
	1438	S ACTYP=$ O(Y(ACTYP) ) G:'ACTYP CP1
	1439	"RTN","PSO CPB",150,0 )
	1440	F I=0:0 S BL=$O(Y(A CTYP,BL)) Q:BL="" I BL>0 S PS OBILL=BL,P SOCPAY=ACT YP
	1441	"RTN","PSO CPB",151,0 )
	1442	G CP
	1443	"RTN","PSO CPB",152,0 )
	1444	CP1 K ACTY P,BL,I
	1445	"RTN","PSO CPB",153,0 )
	1446	I (PSOBIL L'>0)!(PSO CPAY=0) G INELIG
	1447	"RTN","PSO CPB",154,0 )
	1448	S $P(^PSR X(PSODA,"I B"),"^")=P SOCPAY
	1449	"RTN","PSO CPB",155,0 )
	1450	W !,"COPA Y status o n this Rx has been r eset.",!," *** Future refills w ill be cla ssified as COPAY."
	1451	"RTN","PSO CPB",156,0 )
	1452	S PREA="R ",PSOOLD=" No Copay", PSONW="Cop ay"
	1453	"RTN","PSO CPB",157,0 )
	1454	D ACTLOG^ PSOCPA
	1455	"RTN","PSO CPB",158,0 )
	1456	Q
	1457	"RTN","PSO CPB",159,0 )
	1458	INELIG W ! ,"This Rx does not m eet patien t eligibil ity requir ement for Copay.",!, "**** St atus uncha nged * "
	1459	"RTN","PSO CPB",160,0 )
	1460	S Y=-1
	1461	"RTN","PSO CPB",161,0 )
	1462	Q
	1463	"RTN","PSO CPB",162,0 )
	1464	ENDMSG K X W !,"Unab le to proc ess CHARGE REMOVAL w ithout REA SON for Re set."
	1465	"RTN","PSO CPB",163,0 )
	1466	R !,"ENTE R a REASON now? (Y/ N) ",X:DTI ME Q:'$T
	1467	"RTN","PSO CPB",164,0 )
	1468	I ($E(X)[ "?")!("YyN n^"'[$E(X) ) W !,"Ent er YES to select REA SON and RE SET STATUS ." G ENDMS G
	1469	"RTN","PSO CPB",165,0 )
	1470	I "Yy"[$E (X) G BILL 2
	1471	"RTN","PSO CPB",166,0 )
	1472	Q
	1473	"RTN","PSO CPB",167,0 )
	1474	MSG ;
	1475	"RTN","PSO CPB",168,0 )
	1476	S PSI=0
	1477	"RTN","PSO CPB",169,0 )
	1478	I $G(CANT YPE) S PSO COMM="Rx # "_PSORXN_ " - All co pay charge s cancelle d" D SETSU MM^PSOCPC K PSOCOMM Q
	1479	"RTN","PSO CPB",170,0 )
	1480	S PSOCOMM ="Rx # "_P SORXN_" - "_$S(PSORE F=0:"Origi nal fill", 1:"Refill "_PSOREF)_ " copay ch arge cance lled"
	1481	"RTN","PSO CPB",171,0 )
	1482	D SETSUMM ^PSOCPC
	1483	"RTN","PSO CPB",172,0 )
	1484	K PSOCOMM
	1485	"RTN","PSO CPB",173,0 )
	1486	Q
	1487	"RTN","PSO CPB",174,0 )
	1488	POTMSG ;
	1489	"RTN","PSO CPB",175,0 )
	1490	S PSI=0
	1491	"RTN","PSO CPB",176,0 )
	1492	I $G(CANT YPE) Q ; (MESSAGE W ILL GET SE T LATER)
	1493	"RTN","PSO CPB",177,0 )
	1494	S PSOCOMM ="Rx # "_P SORXN_" - "_$S(PSORE F=0:"Origi nal fill", 1:"Refill "_PSOREF)_ " potentia l copay ch arge cance lled"
	1495	"RTN","PSO CPB",178,0 )
	1496	D SETSUMM ^PSOCPC
	1497	"RTN","PSO CPB",179,0 )
	1498	K PSOCOMM
	1499	"RTN","PSO CPB",180,0 )
	1500	Q
	1501	"RTN","PSO CPB",181,0 )
	1502	MSGNOCAN ;
	1503	"RTN","PSO CPB",182,0 )
	1504	S PSI=0
	1505	"RTN","PSO CPB",183,0 )
	1506	S PSOCOMM ="Rx # "_P SORXN_" - All copay charges ha ve already been canc elled." D SETSUMM^PS OCPC K PSO COMM
	1507	"RTN","PSO CPB",184,0 )
	1508	Q
	1509	"RTN","PSO CPB",185,0 )
	1510	;
	1511	"RTN","PSO CPB",186,0 )
	1512	PRTSUMM ; prt sum of actions i n reset/ca ncel
	1513	"RTN","PSO CPB",187,0 )
	1514	I '$D(PSO SUMM) Q
	1515	"RTN","PSO CPB",188,0 )
	1516	W !
	1517	"RTN","PSO CPB",189,0 )
	1518	S PSI=""
	1519	"RTN","PSO CPB",190,0 )
	1520	F S PSI= $O(PSOSUMM (PSI)) Q:P SI="" W ! ,PSOSUMM(P SI)
	1521	"RTN","PSO CPB",191,0 )
	1522	K PSOSUMM
	1523	"RTN","PSO CPB",192,0 )
	1524	Q
	1525	"RTN","PSO CPB",193,0 )
	1526	PREVCAN ; PREVIEW CA NCELS IF " ALL" IS SE LECTED
	1527	"RTN","PSO CPB",194,0 )
	1528	N I,PSOBI LL
	1529	"RTN","PSO CPB",195,0 )
	1530	S I="" F S I=$O(PS OCAN(I)) Q :I="" D I PSOBILL S X($P(PSO CAN(I),"^" ,1))=$P(PS OCAN(I),"^ ",2)_"^"_P SORSN
	1531	"RTN","PSO CPB",196,0 )
	1532	. S PSOBI LL=1 I $T( STATUS^IBA RX)'="" I PSOCAN(I)' ["CAP" S P SOBILL=$$S TATUS^IBAR X($P(PSOCA N(I),"^",2 )) S:PSOBI LL=2 PSOBI LL=0 ; PRE VIOUSLY CA NCELLED
	1533	"RTN","PSO CPB",197,0 )
	1534	I $O(X("" ))="" D
	1535	"RTN","PSO CPB",198,0 )
	1536	. I PSOPR EV D MSG Q
	1537	"RTN","PSO CPB",199,0 )
	1538	. D MSGNO CAN
	1539	"RTN","PSO CPB",200,0 )
	1540	Q
	1541	"RTN","PSO CPB",201,0 )
	1542	;
	1543	"RTN","PSO CPF")
	1544	0^2^B65916 211^n/a
	1545	"RTN","PSO CPF",1,0)
	1546	PSOCPF ;BI R/BAA - Ph armacy CO- PAY Applic ation Util ities for IB ;02/06/ 92
	1547	"RTN","PSO CPF",2,0)
	1548	;;7.0;OUT PATIENT PH ARMACY;4 63;DEC 1 997;Build 36
	1549	"RTN","PSO CPF",3,0)
	1550	;
	1551	"RTN","PSO CPF",4,0)
	1552	EN ; -- ma in entry p oint for H ELD CHARGE S LIST
	1553	"RTN","PSO CPF",5,0)
	1554	;
	1555	"RTN","PSO CPF",6,0)
	1556	; add cod e to do fi lters here
	1557	"RTN","PSO CPF",7,0)
	1558	N FILTERS ,PNAME
	1559	"RTN","PSO CPF",8,0)
	1560	I '$$FILT ER(.FILTER S) Q
	1561	"RTN","PSO CPF",9,0)
	1562	;
	1563	"RTN","PSO CPF",10,0)
	1564	; code to do sort
	1565	"RTN","PSO CPF",11,0)
	1566	D SORT
	1567	"RTN","PSO CPF",12,0)
	1568	;
	1569	"RTN","PSO CPF",13,0)
	1570	K XQORS,V ALMEVL D E N^VALM("PS O PATIENT MEDICATION LIST")
	1571	"RTN","PSO CPF",14,0)
	1572	D ^%ZISC
	1573	"RTN","PSO CPF",15,0)
	1574	Q
	1575	"RTN","PSO CPF",16,0)
	1576	;
	1577	"RTN","PSO CPF",17,0)
	1578	HDR ; -- h eader code
	1579	"RTN","PSO CPF",18,0)
	1580	;
	1581	"RTN","PSO CPF",19,0)
	1582	S VALM("T ITLE")=" P atient Med ications "
	1583	"RTN","PSO CPF",20,0)
	1584	Q
	1585	"RTN","PSO CPF",21,0)
	1586	;
	1587	"RTN","PSO CPF",22,0)
	1588	INIT ; -- init varia bles and l ist array
	1589	"RTN","PSO CPF",23,0)
	1590	; input - ^TMP($J," PSOCPF")
	1591	"RTN","PSO CPF",24,0)
	1592	; output - ^TMP("VA LMAR",$J)
	1593	"RTN","PSO CPF",25,0)
	1594	N BDATE,E DATE,MEDSA ,PAT,RXS
	1595	"RTN","PSO CPF",26,0)
	1596	S BDATE=$ P(FILTERS( 0),U,1),ED ATE=$P(FIL TERS(0),U, 2)
	1597	"RTN","PSO CPF",27,0)
	1598	S RXS=$P( FILTERS(0) ,U,3),PAT= $P(FILTERS (0),U,4)
	1599	"RTN","PSO CPF",28,0)
	1600	D BLD
	1601	"RTN","PSO CPF",29,0)
	1602	Q
	1603	"RTN","PSO CPF",30,0)
	1604	;
	1605	"RTN","PSO CPF",31,0)
	1606	SORT ; get the data
	1607	"RTN","PSO CPF",32,0)
	1608	N BDATE,E DATE,MEDS, PAT,RXS
	1609	"RTN","PSO CPF",33,0)
	1610	S BDATE=$ P(FILTERS( 0),U,1),ED ATE=$P(FIL TERS(0),U, 2)
	1611	"RTN","PSO CPF",34,0)
	1612	S MEDS=$P (FILTERS(0 ),U,3),PAT =$P(FILTER S(0),U,4)
	1613	"RTN","PSO CPF",35,0)
	1614	S RXS=$P( FILTERS(0) ,U,3)
	1615	"RTN","PSO CPF",36,0)
	1616	S ^TMP($J ,"PSOCPFF" ,0)=FILTER S(0)
	1617	"RTN","PSO CPF",37,0)
	1618	;
	1619	"RTN","PSO CPF",38,0)
	1620	D SORT^PS OCPF1
	1621	"RTN","PSO CPF",39,0)
	1622	Q
	1623	"RTN","PSO CPF",40,0)
	1624	;
	1625	"RTN","PSO CPF",41,0)
	1626	BLD ; buil d data to display
	1627	"RTN","PSO CPF",42,0)
	1628	; build d isplay
	1629	"RTN","PSO CPF",43,0)
	1630	; ^TMP($J ,"PSOCPF", PTNM,RIEN, RFL)=PTNM_ U_PID_U_ME D_U_RIEN_U _RFL_U_ART RN_U_RX_U_ FILDT_U_BL NO_U_ARST1 _U_SC_U_SC P_U_MTSD_U _MTS_U_DFN _U_PBIL_U_ ARST_U_PRI EN
	1631	"RTN","PSO CPF",44,0)
	1632	K ^TMP($J ,"PSOCPFX" ),^TMP($J, "PSOCPFE")
	1633	"RTN","PSO CPF",45,0)
	1634	K ^TMP("V ALMAR",$J)
	1635	"RTN","PSO CPF",46,0)
	1636	N LINE,VC NT
	1637	"RTN","PSO CPF",47,0)
	1638	I '$D(^TM P($J,"PSOC PF")) D Q
	1639	"RTN","PSO CPF",48,0)
	1640	. S VCNT= 1
	1641	"RTN","PSO CPF",49,0)
	1642	. S LINE= $$SETL("", "","",1,4)
	1643	"RTN","PSO CPF",50,0)
	1644	. S LINE= $$SETL(LIN E,"NO DATA FOUND FOR ENTERED C RITERIA"," ",5,50)
	1645	"RTN","PSO CPF",51,0)
	1646	. S VALMC NT=1
	1647	"RTN","PSO CPF",52,0)
	1648	. D SET^V ALM10(VALM CNT,LINE,V CNT)
	1649	"RTN","PSO CPF",53,0)
	1650	N RFL,VCN T,MED,NAME ,RFL,SC,SC P,FILDT,BL N,IBST1,MT S,RX,REC,V ALMY,ARST1 ,BLNO,CPY, CPYO
	1651	"RTN","PSO CPF",54,0)
	1652	N DFN,MTO ,MTSD,MTSO ,PBIL,PID, PRIEN,RIEN ,RXO,RXS,S CO,SCOO,SC PO,DEBTOR
	1653	"RTN","PSO CPF",55,0)
	1654	S VALMCNT =0
	1655	"RTN","PSO CPF",56,0)
	1656	S (RIEN,V CNT)=0,(NA ME,RFL)=""
	1657	"RTN","PSO CPF",57,0)
	1658	F S NAME =$O(^TMP($ J,"PSOCPF" ,NAME)) Q: NAME="" D
	1659	"RTN","PSO CPF",58,0)
	1660	. F S RI EN=$O(^TMP ($J,"PSOCP F",NAME,RI EN)) Q:RIE N="" D
	1661	"RTN","PSO CPF",59,0)
	1662	.. F S R FL=$O(^TMP ($J,"PSOCP F",NAME,RI EN,RFL)) Q :RFL="" D
	1663	"RTN","PSO CPF",60,0)
	1664	... S VCN T=VCNT+1
	1665	"RTN","PSO CPF",61,0)
	1666	... S LIN E=$$SETL(" ",VCNT,"", 1,4) ;line #
	1667	"RTN","PSO CPF",62,0)
	1668	... S REC =^TMP($J," PSOCPF",NA ME,RIEN,RF L),PID=$P( REC,U,2),A RST1=$P(RE C,U,10),PB IL=$P(REC, U,16)
	1669	"RTN","PSO CPF",63,0)
	1670	... S MED =$P(REC,U, 3),RX=$P(R EC,U,7),BL N=$P(REC,U ,9),FILDT= $P(REC,U,8 ),DFN=$P(R EC,U,15)
	1671	"RTN","PSO CPF",64,0)
	1672	... S PRI EN=$P(REC, U,18),CPY= $P(REC,U,2 0),DEBTOR= $P(REC,U,2 1)
	1673	"RTN","PSO CPF",65,0)
	1674	... S ^TM P($J,"PSOC PFX",VCNT) =NAME_U_DF N_U_MED_U_ RIEN_U_BLN _U_PRIEN_U _RFL_U_RX_ U_DEBTOR
	1675	"RTN","PSO CPF",66,0)
	1676	... I $D( ^TMP($J,"P SOCPFC",NA ME,RIEN,RF L)) S ARST 1="CANCELL ED CHARGE"
	1677	"RTN","PSO CPF",67,0)
	1678	... S RXO ="Rx#:"_RX _"-"_RFL
	1679	"RTN","PSO CPF",68,0)
	1680	... S BLN O="BIL#:"_ BLN
	1681	"RTN","PSO CPF",69,0)
	1682	... S SC= $P(REC,U,1 1),SCO=$S( SC=1:"YES" ,1:"NO"),S COO="SC:"_ SCO
	1683	"RTN","PSO CPF",70,0)
	1684	... S SCP =$P(REC,U, 12),SCPO=" SC%:"_+SCP
	1685	"RTN","PSO CPF",71,0)
	1686	... S MTS D=$P(REC,U ,13),MTO=" DT:"_MTSD
	1687	"RTN","PSO CPF",72,0)
	1688	... S MTS =$P(REC,U, 14),MTSO=" MT:"_MTS
	1689	"RTN","PSO CPF",73,0)
	1690	... S CPY O="RX:"_CP Y
	1691	"RTN","PSO CPF",74,0)
	1692	... S ^TM P($J,"PSOC PFE",NAME, RIEN,RFL)= NAME_U_PID _U_MED_U_R X_"-"_RFL_ U_$$FMTE^X LFDT(FILDT ,"2DZ")_U_ BLN_U_ARST 1_U_SCO_U_ SCP_"%"_U_ MTS_U_MTSD _U_CPY
	1693	"RTN","PSO CPF",75,0)
	1694	... S LIN E=$$SETL(L INE,NAME," ",5,22)
	1695	"RTN","PSO CPF",76,0)
	1696	... S LIN E=$$SETL(L INE,PID,"" ,28,6)
	1697	"RTN","PSO CPF",77,0)
	1698	... S LIN E=$$SETL(L INE,MED,"" ,35,16)
	1699	"RTN","PSO CPF",78,0)
	1700	... S LIN E=$$SETL(L INE,$$FMTE ^XLFDT(FIL DT,"2DZ"), "",53,8)
	1701	"RTN","PSO CPF",79,0)
	1702	... S LIN E=$$SETL(L INE,ARST1, "",62,17)
	1703	"RTN","PSO CPF",80,0)
	1704	... S VAL MCNT=VALMC NT+1
	1705	"RTN","PSO CPF",81,0)
	1706	... D SET ^VALM10(VA LMCNT,LINE ,VCNT)
	1707	"RTN","PSO CPF",82,0)
	1708	... S LIN E=$$SETL(" ",SCOO,"", 5,8)
	1709	"RTN","PSO CPF",83,0)
	1710	... S LIN E=$$SETL(L INE,SCPO," ",14,8)
	1711	"RTN","PSO CPF",84,0)
	1712	... S LIN E=$$SETL(L INE,RXO,"" ,35,20)
	1713	"RTN","PSO CPF",85,0)
	1714	... S LIN E=$$SETL(L INE,BLNO," ",62,17)
	1715	"RTN","PSO CPF",86,0)
	1716	... S VAL MCNT=VALMC NT+1
	1717	"RTN","PSO CPF",87,0)
	1718	... D SET ^VALM10(VA LMCNT,LINE ,VCNT)
	1719	"RTN","PSO CPF",88,0)
	1720	... S LIN E=$$SETL(" ",MTSO,"", 5,20)
	1721	"RTN","PSO CPF",89,0)
	1722	... S LIN E=$$SETL(L INE,MTO,"" ,35,16)
	1723	"RTN","PSO CPF",90,0)
	1724	... S LIN E=$$SETL(L INE,CPYO," ",53,25)
	1725	"RTN","PSO CPF",91,0)
	1726	... S VAL MCNT=VALMC NT+1
	1727	"RTN","PSO CPF",92,0)
	1728	... D SET ^VALM10(VA LMCNT,LINE ,VCNT)
	1729	"RTN","PSO CPF",93,0)
	1730	... S LIN E=""
	1731	"RTN","PSO CPF",94,0)
	1732	... S VAL MCNT=VALMC NT+1
	1733	"RTN","PSO CPF",95,0)
	1734	... D SET ^VALM10(VA LMCNT,LINE ,VCNT)
	1735	"RTN","PSO CPF",96,0)
	1736	Q
	1737	"RTN","PSO CPF",97,0)
	1738	;
	1739	"RTN","PSO CPF",98,0)
	1740	SETL(LINE, DATA,LABEL ,COL,LNG) ; Creates a line of data to be set into the body
	1741	"RTN","PSO CPF",99,0)
	1742	; of the worklist
	1743	"RTN","PSO CPF",100,0 )
	1744	; Input: LINE - Cur rent line being crea ted
	1745	"RTN","PSO CPF",101,0 )
	1746	; DATA - Informatio n to be ad ded to the end of th e current line
	1747	"RTN","PSO CPF",102,0 )
	1748	; LABEL - Label to describe t he informa tion being added
	1749	"RTN","PSO CPF",103,0 )
	1750	; COL - C olumn posi tion in li ne to add informatio n add
	1751	"RTN","PSO CPF",104,0 )
	1752	; LNG - M aximum len gth of dat a informat ion to inc lude on th e line
	1753	"RTN","PSO CPF",105,0 )
	1754	; Returns : Line upd ated with added info rmation
	1755	"RTN","PSO CPF",106,0 )
	1756	S LINE=LI NE_$J("",( COL-$L(LAB EL)-$L(LIN E)))_LABEL _$E(DATA,1 ,LNG)
	1757	"RTN","PSO CPF",107,0 )
	1758	Q LINE
	1759	"RTN","PSO CPF",108,0 )
	1760	;
	1761	"RTN","PSO CPF",109,0 )
	1762	HELP ; -- help code
	1763	"RTN","PSO CPF",110,0 )
	1764	S X="?" D DISP^XQOR M1 W !!
	1765	"RTN","PSO CPF",111,0 )
	1766	Q
	1767	"RTN","PSO CPF",112,0 )
	1768	;
	1769	"RTN","PSO CPF",113,0 )
	1770	EXIT ; -- exit code
	1771	"RTN","PSO CPF",114,0 )
	1772	K ^TMP($J ,"PSOCPF")
	1773	"RTN","PSO CPF",115,0 )
	1774	K ^TMP($J ,"PSOCPFX" )
	1775	"RTN","PSO CPF",116,0 )
	1776	K ^TMP($J ,"PSOCPFE" )
	1777	"RTN","PSO CPF",117,0 )
	1778	K ^TMP($J ,"PSOCPFC" )
	1779	"RTN","PSO CPF",118,0 )
	1780	;
	1781	"RTN","PSO CPF",119,0 )
	1782	D CLEAR^V ALM1,CLEAN ^VALM10
	1783	"RTN","PSO CPF",120,0 )
	1784	D ^%ZISC
	1785	"RTN","PSO CPF",121,0 )
	1786	Q
	1787	"RTN","PSO CPF",122,0 )
	1788	;
	1789	"RTN","PSO CPF",123,0 )
	1790	FILTER(FIL TERS) ; fi lter displ ay
	1791	"RTN","PSO CPF",124,0 )
	1792	; Sets an array of filters to determine which ent ris to inc lude in di splay
	1793	"RTN","PSO CPF",125,0 )
	1794	; Input: None
	1795	"RTN","PSO CPF",126,0 )
	1796	; Output:
	1797	"RTN","PSO CPF",127,0 )
	1798	; Returns : 0 if the user ente red '^' or timed out , 1 otherw ise
	1799	"RTN","PSO CPF",128,0 )
	1800	; FILTERS (0) = from date ^ to date ^ 0 (all) 1 (s elected) p rescriptio ns ^ patie nt ^
	1801	"RTN","PSO CPF",129,0 )
	1802	; 0 (no) 1 (ye s) exclued canceled bills
	1803	"RTN","PSO CPF",130,0 )
	1804	; FILTERS (1,RX ien) = ""
	1805	"RTN","PSO CPF",131,0 )
	1806	N DIR,DIR OUT,DIRUT, DTOUT,DUOU T,X,XX,Y,I BDATES,DFN ,R
	1807	"RTN","PSO CPF",132,0 )
	1808	K FILTERS
	1809	"RTN","PSO CPF",133,0 )
	1810	;
	1811	"RTN","PSO CPF",134,0 )
	1812	S DIC(0)= "AEQMN",DI C="^DPT(", FIRST=1
	1813	"RTN","PSO CPF",135,0 )
	1814	S PAT=$$O NEPAT()
	1815	"RTN","PSO CPF",136,0 )
	1816	I PAT=-1 Q 0
	1817	"RTN","PSO CPF",137,0 )
	1818	S PNAME=$ P(PAT,U,2)
	1819	"RTN","PSO CPF",138,0 )
	1820	S (DFN,PA T,$P(FILTE RS(0),U,4) )=$P(PAT,U ,1)
	1821	"RTN","PSO CPF",139,0 )
	1822	;
	1823	"RTN","PSO CPF",140,0 )
	1824	; get dat e range
	1825	"RTN","PSO CPF",141,0 )
	1826	S IBDATES ="Fill Dat es",IBDATE S=$$FMDATE S(IBDATES) I IBDATES =0 Q 0
	1827	"RTN","PSO CPF",142,0 )
	1828	S $P(FILT ERS(0),U,1 )=$P(IBDAT ES,U,1)
	1829	"RTN","PSO CPF",143,0 )
	1830	S $P(FILT ERS(0),U,2 )=$P(IBDAT ES,U,2)
	1831	"RTN","PSO CPF",144,0 )
	1832	;
	1833	"RTN","PSO CPF",145,0 )
	1834	; Prescri ption filt er
	1835	"RTN","PSO CPF",146,0 )
	1836	D ADDRX
	1837	"RTN","PSO CPF",147,0 )
	1838	I Y=-1 Q 0
	1839	"RTN","PSO CPF",148,0 )
	1840	;
	1841	"RTN","PSO CPF",149,0 )
	1842	S ^TMP($J ,"PSOCPFF" ,0)=FILTER S(0)
	1843	"RTN","PSO CPF",150,0 )
	1844	S R=""
	1845	"RTN","PSO CPF",151,0 )
	1846	F S R=$O (FILTERS(1 ,R)) Q:R=" " S ^TMP( $J,"PSOCPF F",1,R)=FI LTERS(1,R)
	1847	"RTN","PSO CPF",152,0 )
	1848	;
	1849	"RTN","PSO CPF",153,0 )
	1850	D SHOWFIL T(.FILTERS )
	1851	"RTN","PSO CPF",154,0 )
	1852	I X="^" Q 0
	1853	"RTN","PSO CPF",155,0 )
	1854	Q 1
	1855	"RTN","PSO CPF",156,0 )
	1856	;
	1857	"RTN","PSO CPF",157,0 )
	1858	ADDRX ;
	1859	"RTN","PSO CPF",158,0 )
	1860	; Prescri ption filt er
	1861	"RTN","PSO CPF",159,0 )
	1862	S DIR(0)= "S",DIR("A ")="Select (A)ll or ( S)elected Prescripti on(s)",DIR ("B")="All "
	1863	"RTN","PSO CPF",160,0 )
	1864	S DIR("?" ,1)="Enter 'A' to no t filter b y Prescrip tions."
	1865	"RTN","PSO CPF",161,0 )
	1866	S DIR("?" )="Enter ' S' to view entries f or selecte d Prescrip tion(s)."
	1867	"RTN","PSO CPF",162,0 )
	1868	S $P(DIR( 0),U,2)="A :All Presc riptions;S :Selected Prescripti ons"
	1869	"RTN","PSO CPF",163,0 )
	1870	W ! D ^DI R K DIR
	1871	"RTN","PSO CPF",164,0 )
	1872	I Y=-1 Q 0
	1873	"RTN","PSO CPF",165,0 )
	1874	S X=$$UP^ XLFSTR(X)
	1875	"RTN","PSO CPF",166,0 )
	1876	S $P(FILT ERS(0),U,3 )=$S(Y="A" :0,1:1)
	1877	"RTN","PSO CPF",167,0 )
	1878	;
	1879	"RTN","PSO CPF",168,0 )
	1880	I $P(FILT ERS(0),U,3 )=1 D ASKR X(.FILTERS )
	1881	"RTN","PSO CPF",169,0 )
	1882	;
	1883	"RTN","PSO CPF",170,0 )
	1884	Q
	1885	"RTN","PSO CPF",171,0 )
	1886	;
	1887	"RTN","PSO CPF",172,0 )
	1888	FMDATES(PR OMPT,SDT,E DT) ; ask for date r ange
	1889	"RTN","PSO CPF",173,0 )
	1890	N %DT,X,Y ,DT1,DT2,I B0,IB1,IB2
	1891	"RTN","PSO CPF",174,0 )
	1892	S DT1="", IB1="Start with date entered: ",IB2="Go to date en tered: "
	1893	"RTN","PSO CPF",175,0 )
	1894	I $G(PROM PT)'="" S IB1="Start with "_PR OMPT_": ", IB2="Go to "_PROMPT_ ": "
	1895	"RTN","PSO CPF",176,0 )
	1896	I $D(SDT) K %DT S Y =SDT D DD^ %DT S %DT( "B")=Y
	1897	"RTN","PSO CPF",177,0 )
	1898	;
	1899	"RTN","PSO CPF",178,0 )
	1900	S %DT="AE X",%DT("A" )=IB1 D ^% DT K %DT I Y<0!($P(Y ,".",1)'?7 N) G FMDQ
	1901	"RTN","PSO CPF",179,0 )
	1902	S (%DT(0) ,DT2)=$P(Y ,".",1) I DT2'>DT,'$ D(EDT) S % DT("B")="T oday"
	1903	"RTN","PSO CPF",180,0 )
	1904	;
	1905	"RTN","PSO CPF",181,0 )
	1906	I $D(EDT) K %DT S Y =EDT D DD^ %DT S %DT( "B")=Y
	1907	"RTN","PSO CPF",182,0 )
	1908	;
	1909	"RTN","PSO CPF",183,0 )
	1910	S %DT="AE X",%DT("A" )=IB2 D ^% DT K %DT I Y<0!($P(Y ,".",1)'?7 N) G FMDQ
	1911	"RTN","PSO CPF",184,0 )
	1912	S DT1=DT2 _U_$P(Y,". ",1)
	1913	"RTN","PSO CPF",185,0 )
	1914	FMDQ Q DT1
	1915	"RTN","PSO CPF",186,0 )
	1916	;
	1917	"RTN","PSO CPF",187,0 )
	1918	ASKRX(FILT ERS) ; S ets a list of Prescr iptionS to be displa yed
	1919	"RTN","PSO CPF",188,0 )
	1920	; Input: FILTERS - Current Array of f ilter sett ings
	1921	"RTN","PSO CPF",189,0 )
	1922	; Output: FILTERS - Updated Array of f ilter sett ings
	1923	"RTN","PSO CPF",190,0 )
	1924	N DIC,DIR ,DIRUT,DIV S,DUOUT,FI RST,PSOIEN S,PSOIENS2 ,IEN,N,X,X X,Y
	1925	"RTN","PSO CPF",191,0 )
	1926	S DIC=52, DIC(0)="AE QMN",FIRST =1
	1927	"RTN","PSO CPF",192,0 )
	1928	K FILTERS (1)
	1929	"RTN","PSO CPF",193,0 )
	1930	F D Q:+ IEN<1
	1931	"RTN","PSO CPF",194,0 )
	1932	. D ONERX (.DIC,.IEN ,.FIRST) ; O ne Prescri ption prom pt
	1933	"RTN","PSO CPF",195,0 )
	1934	. Q:+IEN< 1
	1935	"RTN","PSO CPF",196,0 )
	1936	. S PSOIE NS($P(IEN, U,2))=$P(I EN,U,1)
	1937	"RTN","PSO CPF",197,0 )
	1938	. S PSOIE NS2($P(IEN ,U,1))=$P( IEN,U,2)
	1939	"RTN","PSO CPF",198,0 )
	1940	I '$D(PSO IENS) S $P (FILTERS(0 ),U,3)=0 Q
	1941	"RTN","PSO CPF",199,0 )
	1942	;
	1943	"RTN","PSO CPF",200,0 )
	1944	; Set the filter no de respons es in alph abetical o rder
	1945	"RTN","PSO CPF",201,0 )
	1946	S XX=""
	1947	"RTN","PSO CPF",202,0 )
	1948	F D Q:X X=""
	1949	"RTN","PSO CPF",203,0 )
	1950	. S XX=$O (PSOIENS(X X))
	1951	"RTN","PSO CPF",204,0 )
	1952	. Q:XX=""
	1953	"RTN","PSO CPF",205,0 )
	1954	. S N=PSO IENS(XX)
	1955	"RTN","PSO CPF",206,0 )
	1956	. S FILTE RS(1,N)=XX
	1957	"RTN","PSO CPF",207,0 )
	1958	Q
	1959	"RTN","PSO CPF",208,0 )
	1960	;
	1961	"RTN","PSO CPF",209,0 )
	1962	ONERX(DIC, IEN,FIRST) ; Prompt s the user for a Med ication
	1963	"RTN","PSO CPF",210,0 )
	1964	; Input: DIC - Variable /Array of settings n eeded for ^DIC call
	1965	"RTN","PSO CPF",211,0 )
	1966	; FIRST - Set to 1 initially and then 0 for subs equent cal ls
	1967	"RTN","PSO CPF",212,0 )
	1968	; Output: FIRST - Set to 0
	1969	"RTN","PSO CPF",213,0 )
	1970	; IEN - IEN of t he selecte d Division
	1971	"RTN","PSO CPF",214,0 )
	1972	; null of no selecti on was mad e
	1973	"RTN","PSO CPF",215,0 )
	1974	S DIC("A" )=$S(FIRST :"Select a Prescript ion: ",1:" Select Ano ther Presc ription: " )
	1975	"RTN","PSO CPF",216,0 )
	1976	D ^DIC
	1977	"RTN","PSO CPF",217,0 )
	1978	S FIRST=0 ,IEN=Y
	1979	"RTN","PSO CPF",218,0 )
	1980	Q
	1981	"RTN","PSO CPF",219,0 )
	1982	;
	1983	"RTN","PSO CPF",220,0 )
	1984	ONEPAT(DIC ,IEN,FIRST ) ; Promp ts the use r for a cl inic or wa rd
	1985	"RTN","PSO CPF",221,0 )
	1986	; Input: DIC - Variable /Array of settings n eeded for ^DIC call
	1987	"RTN","PSO CPF",222,0 )
	1988	; FIRST - Set to 1 initially and then 0 for subs equent cal ls
	1989	"RTN","PSO CPF",223,0 )
	1990	; Output: FIRST - Set to 0
	1991	"RTN","PSO CPF",224,0 )
	1992	; IEN - IEN of t he selecte d Patient
	1993	"RTN","PSO CPF",225,0 )
	1994	; null of no selecti on was mad e
	1995	"RTN","PSO CPF",226,0 )
	1996	N DPTNOFZ Y S DPTNOF ZY=1 ;Sup press PATI ENT file f uzzy looku ps
	1997	"RTN","PSO CPF",227,0 )
	1998	S DIC(0)= "AEQMN",DI C="^DPT("
	1999	"RTN","PSO CPF",228,0 )
	2000	S DIC("A" )="Select Patient: "
	2001	"RTN","PSO CPF",229,0 )
	2002	D ^DIC
	2003	"RTN","PSO CPF",230,0 )
	2004	Q Y
	2005	"RTN","PSO CPF",231,0 )
	2006	;
	2007	"RTN","PSO CPF",232,0 )
	2008	;
	2009	"RTN","PSO CPF",233,0 )
	2010	SHOWFILT(F ILTERS) ;EP
	2011	"RTN","PSO CPF",234,0 )
	2012	; Display s the curr ently sele cted filte r selectio ns for the
	2013	"RTN","PSO CPF",235,0 )
	2014	; Held Ch arges List Manager di splay
	2015	"RTN","PSO CPF",236,0 )
	2016	; Input: FILTERS( ) - Arra y of filte r settings . See FILT ERS for a detailed
	2017	"RTN","PSO CPF",237,0 )
	2018	; expl anation of the FILTE RS array
	2019	"RTN","PSO CPF",238,0 )
	2020	; Output: Current Filter set tings are displayed
	2021	"RTN","PSO CPF",239,0 )
	2022	;
	2023	"RTN","PSO CPF",240,0 )
	2024	N DIR,DIR OUT,DIRUT, DTOUT,DUOU T,IEN,IX,L EN,LINE,XX ,PFLG,STDT ,R,PAT,END T,STDT,I
	2025	"RTN","PSO CPF",241,0 )
	2026	;
	2027	"RTN","PSO CPF",242,0 )
	2028	W !!,"Sel ected Pati ent: ",PNA ME
	2029	"RTN","PSO CPF",243,0 )
	2030	;
	2031	"RTN","PSO CPF",244,0 )
	2032	S STDT=$P (FILTERS(0 ),U),ENDT= $P(FILTERS (0),U,2)
	2033	"RTN","PSO CPF",245,0 )
	2034	W !,"Show From Date : ",$S(STD T=0:"First ",1:$$FMTE ^XLFDT(STD T,"2DZ"))
	2035	"RTN","PSO CPF",246,0 )
	2036	W !," Thru Date : ",$$FMTE ^XLFDT(END T,"2DZ")
	2037	"RTN","PSO CPF",247,0 )
	2038	W !,"Show All Presc riptions o r Selected Prescript ions: "
	2039	"RTN","PSO CPF",248,0 )
	2040	W $S($P(F ILTERS(0), U,3)=0:"Al l",1:"Sele cted")
	2041	"RTN","PSO CPF",249,0 )
	2042	;
	2043	"RTN","PSO CPF",250,0 )
	2044	; RX list (if any)
	2045	"RTN","PSO CPF",251,0 )
	2046	I ($P(FIL TERS(0),U, 3)=1) D
	2047	"RTN","PSO CPF",252,0 )
	2048	. S LINE= "Prescript ions to Di splay: "
	2049	"RTN","PSO CPF",253,0 )
	2050	. S IEN=0 ,PFLG=0
	2051	"RTN","PSO CPF",254,0 )
	2052	. F S IE N=$O(FILTE RS(1,IEN)) Q:IEN="" D
	2053	"RTN","PSO CPF",255,0 )
	2054	. . S XX= FILTERS(1, IEN)
	2055	"RTN","PSO CPF",256,0 )
	2056	. . S LIN E=LINE_$S( LINE="Pres criptions to Display : ":"",1:" , ")_XX
	2057	"RTN","PSO CPF",257,0 )
	2058	. W !,$$W RAP(.LINE, .PFLG,80)
	2059	"RTN","PSO CPF",258,0 )
	2060	. F I=0:0 Q:'PFLG W !,?22,$$ WRAP(.LINE ,.PFLG,58)
	2061	"RTN","PSO CPF",259,0 )
	2062	;
	2063	"RTN","PSO CPF",260,0 )
	2064	K DIR
	2065	"RTN","PSO CPF",261,0 )
	2066	D PAUSE^V ALM1
	2067	"RTN","PSO CPF",262,0 )
	2068	Q
	2069	"RTN","PSO CPF",263,0 )
	2070	;
	2071	"RTN","PSO CPF",264,0 )
	2072	WRAP(STR,F LG,CL) ;
	2073	"RTN","PSO CPF",265,0 )
	2074	; STR - S TRING TO B E WRAPPED PASSED IN BY REFEREN CE SO IT C ONTAINS TH E REMAING PORTION OF STRING
	2075	"RTN","PSO CPF",266,0 )
	2076	; FLG - F LAG TO IND ICATE WRAP PING NEEDS TO OCCUR
	2077	"RTN","PSO CPF",267,0 )
	2078	; CL - CO LUMN LENGT H
	2079	"RTN","PSO CPF",268,0 )
	2080	;
	2081	"RTN","PSO CPF",269,0 )
	2082	; NO WRAP PING REQUI RED
	2083	"RTN","PSO CPF",270,0 )
	2084	I $L(STR) '>CL S FLG =0 Q STR
	2085	"RTN","PSO CPF",271,0 )
	2086	S FLG=1
	2087	"RTN","PSO CPF",272,0 )
	2088	N A,B,C
	2089	"RTN","PSO CPF",273,0 )
	2090	; POSITIO N AFTER CO LUMN WIDTH BREAK IS A SPACE
	2091	"RTN","PSO CPF",274,0 )
	2092	I $E(STR, CL+1)=" " S B=$E(STR ,1,CL),STR =$E(STR,CL +2,999) Q B
	2093	"RTN","PSO CPF",275,0 )
	2094	S A=$E(ST R,1,CL)
	2095	"RTN","PSO CPF",276,0 )
	2096	; NO SPAC ES WITHIN COLUMN WIT H, JUST BR EAK AT COL UMN WIDTH
	2097	"RTN","PSO CPF",277,0 )
	2098	I $L(A," ")=1 S STR =$E(STR,CL +1,999) Q A
	2099	"RTN","PSO CPF",278,0 )
	2100	; BREAK O N LAST SEM ICOLON PIE CE WITHIN COLUMN WID TH
	2101	"RTN","PSO CPF",279,0 )
	2102	S C=$L(A, " ")
	2103	"RTN","PSO CPF",280,0 )
	2104	S B=$P(A, " ",1,C-1)
	2105	"RTN","PSO CPF",281,0 )
	2106	S STR=$P( A," ",C)_$ E(STR,CL+1 ,999)
	2107	"RTN","PSO CPF",282,0 )
	2108	Q B
	2109	"RTN","PSO CPF1")
	2110	0^3^B49346 922^n/a
	2111	"RTN","PSO CPF1",1,0)
	2112	PSOCPF1 ;B IR/BAA - P harmacy CO -PAY Appli cation Uti lities for IB ;02/06 /92
	2113	"RTN","PSO CPF1",2,0)
	2114	;;7.0;OUT PATIENT PH ARMACY;4 63;DEC 1 997;Build 36
	2115	"RTN","PSO CPF1",3,0)
	2116	;
	2117	"RTN","PSO CPF1",4,0)
	2118	SORT ; get the data
	2119	"RTN","PSO CPF1",5,0)
	2120	K ^TMP($J ,"PSOCPF") ,^TMP($J," PSOCPFX"), ^TMP($J,"P SOCPFC"),^ TMP($J,"PS OCPFE")
	2121	"RTN","PSO CPF1",6,0)
	2122	; compile data to d isplay her e
	2123	"RTN","PSO CPF1",7,0)
	2124	N BDATE,E DATE,RXS,P AT,FILDT,E ND,RIEN,RS X,RFL,DFN, VADM,VAEL
	2125	"RTN","PSO CPF1",8,0)
	2126	S BDATE=$ P(FILTERS( 0),U,1),ED ATE=$P(FIL TERS(0),U, 2)
	2127	"RTN","PSO CPF1",9,0)
	2128	S RXS=$P( FILTERS(0) ,U,3),PAT= $P(FILTERS (0),U,4)
	2129	"RTN","PSO CPF1",10,0 )
	2130	S FILDT=B DATE-.01,E ND=EDATE+. 9
	2131	"RTN","PSO CPF1",11,0 )
	2132	F S FILD T=$O(^PSRX ("AD",FILD T)) Q:FILD T>END Q:F ILDT="" D
	2133	"RTN","PSO CPF1",12,0 )
	2134	. S RIEN= 0 F S RIE N=$O(^PSRX ("AD",FILD T,RIEN)) Q :RIEN="" D
	2135	"RTN","PSO CPF1",13,0 )
	2136	.. I RXS, '$D(FILTER S(1,RIEN)) Q
	2137	"RTN","PSO CPF1",14,0 )
	2138	.. S RFL= $O(^PSRX(" AD",FILDT, RIEN,""))
	2139	"RTN","PSO CPF1",15,0 )
	2140	.. I '$D( ^PSRX(RIEN ,0)) Q
	2141	"RTN","PSO CPF1",16,0 )
	2142	.. S DFN= $$GET1^DIQ (52,RIEN_" ,",2,"I") I DFN="" Q I '$D(^D PT(DFN,0)) Q
	2143	"RTN","PSO CPF1",17,0 )
	2144	.. I PAT' =DFN Q
	2145	"RTN","PSO CPF1",18,0 )
	2146	.. D GETD ATA(RIEN)
	2147	"RTN","PSO CPF1",19,0 )
	2148	Q
	2149	"RTN","PSO CPF1",20,0 )
	2150	;
	2151	"RTN","PSO CPF1",21,0 )
	2152	GETDATA(RI EN) ;SET U P DATA FOR LIST MANA GER
	2153	"RTN","PSO CPF1",22,0 )
	2154	N PTNM,PI D,MED,RX,I BST1,SC,SC P,MTSD,MTS ,RNB,MIEN, DEBTOR
	2155	"RTN","PSO CPF1",23,0 )
	2156	N DRG,CPY ,BLNO,ARST ,ARST1,ART RN,X,MREC, IBN,IBND,P BIL
	2157	"RTN","PSO CPF1",24,0 )
	2158	N PRIEN,P IBN
	2159	"RTN","PSO CPF1",25,0 )
	2160	S RX=$$GE T1^DIQ(52, RIEN_",",. 01,"E")
	2161	"RTN","PSO CPF1",26,0 )
	2162	S DRG=$$G ET1^DIQ(52 ,RIEN_",", 6,"I"),MED =$$GET1^DI Q(52,RIEN_ ",",6,"O")
	2163	"RTN","PSO CPF1",27,0 )
	2164	I DRG="" Q
	2165	"RTN","PSO CPF1",28,0 )
	2166	D DEM^VAD PT S PTNM= VADM(1),PI D=$P(VADM( 2),U,1),PI D=$E(PTNM, 1)_$E(PID, 6,9)
	2167	"RTN","PSO CPF1",29,0 )
	2168	D ELIG^VA DPT S SC=$ P(VAEL(3), U,1),SCP=$ P(VAEL(3), U,2),MTS=$ P(VAEL(9), U,2)
	2169	"RTN","PSO CPF1",30,0 )
	2170	S MTSD=$$ GET1^DIQ(2 ,DFN_",",9 99.2,"I")
	2171	"RTN","PSO CPF1",31,0 )
	2172	S X=$$RXS T^IBARXEU( DFN,DT),CP Y=$P(X,U,2 )
	2173	"RTN","PSO CPF1",32,0 )
	2174	I RFL S I BN=$$GET1^ DIQ(52.1,R FL_","_RIE N,9,"I")
	2175	"RTN","PSO CPF1",33,0 )
	2176	I 'RFL S IBN=$$GET1 ^DIQ(52,RI EN_",",106 ,"I")
	2177	"RTN","PSO CPF1",34,0 )
	2178	I IBN="" S (PBIL,BL NO,ARTRN,P RIEN,ARST1 ,ARST,DEBT OR)="" Q
	2179	"RTN","PSO CPF1",35,0 )
	2180	;
	2181	"RTN","PSO CPF1",36,0 )
	2182	S (PBIL,A RST1,ARST, BLNO,ARTRN ,PBIL,PRIE N,PIBN,DEB TOR)=""
	2183	"RTN","PSO CPF1",37,0 )
	2184	S BLNO=$$ GET1^DIQ(3 50,IBN_"," ,.11,"I")
	2185	"RTN","PSO CPF1",38,0 )
	2186	S ARTRN=$ $GET1^DIQ( 350,IBN_", ",.12,"I")
	2187	"RTN","PSO CPF1",39,0 )
	2188	I ARTRN=" " S PIBN=$ $GET1^DIQ( 350,IBN_", ",.09,"I")
	2189	"RTN","PSO CPF1",40,0 )
	2190	I PIBN'=" ",PIBN'=IB N D
	2191	"RTN","PSO CPF1",41,0 )
	2192	. S ARTRN =$$GET1^DI Q(350,PIBN _",",.12," I")
	2193	"RTN","PSO CPF1",42,0 )
	2194	. S ARST= $$GET1^DIQ (350,PIBN_ ",",.05,"I "),ARST1=$ $GET1^DIQ( 350,PIBN_" ,",.05,"O" )_" CHARGE "
	2195	"RTN","PSO CPF1",43,0 )
	2196	I ARTRN'= "" S (PBIL ,PRIEN)=$$ GET1^DIQ(4 33,ARTRN_" ,",.03,"I" )
	2197	"RTN","PSO CPF1",44,0 )
	2198	I PIBN'=" ",PIBN=IBN D
	2199	"RTN","PSO CPF1",45,0 )
	2200	. S ARST= $$GET1^DIQ (350,PIBN_ ",",.05,"I "),ARST1=$ $GET1^DIQ( 350,PIBN_" ,",.05,"O" )
	2201	"RTN","PSO CPF1",46,0 )
	2202	I BLNO="" ,PBIL'="" S BLNO=$$G ET1^DIQ(43 0,PBIL_"," ,.01),DEBT OR=$$GET1^ DIQ(430,PB IL_",",9," I")
	2203	"RTN","PSO CPF1",47,0 )
	2204	I PRIEN'= "",PIBN="" S ARST1=$ $GET1^DIQ( 430,PRIEN_ ",",8,"O") ,ARST=$$GE T1^DIQ(430 ,PRIEN_"," ,8,"I"),DE BTOR=$$GET 1^DIQ(430, PRIEN_",", 9,"I")
	2205	"RTN","PSO CPF1",48,0 )
	2206	I ARST="" S ARST=$$ GET1^DIQ(3 50.21,IBN_ ",",.01,"I "),ARST1=$ $GET1^DIQ( 350.21,IBN _",",.01," O")
	2207	"RTN","PSO CPF1",49,0 )
	2208	S ^TMP($J ,"PSOCPF", PTNM,RIEN, RFL)=PTNM_ U_PID_U_ME D_U_RIEN_U _RFL_U_ART RN_U_RX_U_ FILDT_U_BL NO_U_ARST1 _U_SC_U_SC P_U_MTSD_U _MTS_U_DFN _U_PBIL_U_ ARST_U_PRI EN_U_IBN_U _CPY_U_DEB TOR
	2209	"RTN","PSO CPF1",50,0 )
	2210	Q
	2211	"RTN","PSO CPF1",51,0 )
	2212	;
	2213	"RTN","PSO CPF1",52,0 )
	2214	CANCEL ; C ANCEL COPA Y STATUS
	2215	"RTN","PSO CPF1",53,0 )
	2216	;
	2217	"RTN","PSO CPF1",54,0 )
	2218	D FULL^VA LM1
	2219	"RTN","PSO CPF1",55,0 )
	2220	N I,J,IBX X,VALMY,EC NT,NAME,GO TPAT,RC,IB FR,IBTO
	2221	"RTN","PSO CPF1",56,0 )
	2222	S CNT=0
	2223	"RTN","PSO CPF1",57,0 )
	2224	D EN^VALM 2($G(XQORN OD(0)))
	2225	"RTN","PSO CPF1",58,0 )
	2226	I $D(VALM Y),$D(^TMP ($J,"PSOCP F")) D
	2227	"RTN","PSO CPF1",59,0 )
	2228	. S IBXX= 0 F S IBX X=$O(VALMY (IBXX)) Q: 'IBXX D
	2229	"RTN","PSO CPF1",60,0 )
	2230	.. S RC=$ G(^TMP($J, "PSOCPFX", IBXX)),CNT =CNT+1
	2231	"RTN","PSO CPF1",61,0 )
	2232	.. S NAME =$P(RC,U,1 ),PSODA=$P (RC,U,4),M ED=$P(RC,U ,3),RX=$P( RC,U,8),RF L=$P(RC,U, 7)
	2233	"RTN","PSO CPF1",62,0 )
	2234	.. I '$D( PSOPAR) D ^PSOLSET
	2235	"RTN","PSO CPF1",63,0 )
	2236	.. W !!,? 17,"PATIEN T: ",NAME
	2237	"RTN","PSO CPF1",64,0 )
	2238	.. W !,?1 7,"Medicat ion: ",MED
	2239	"RTN","PSO CPF1",65,0 )
	2240	.. W !,?1 7,"RX: ",R X_"-"_RFL
	2241	"RTN","PSO CPF1",66,0 )
	2242	.. D ICN^ PSODPT($P( ^PSRX(PSOD A,0),"^",2 ))
	2243	"RTN","PSO CPF1",67,0 )
	2244	.. S PSOR XN=$P(^PSR X(PSODA,0) ,"^"),PREA ="R"
	2245	"RTN","PSO CPF1",68,0 )
	2246	.. S PCOP AY=$G(^PSR X(PSODA,"I B"))
	2247	"RTN","PSO CPF1",69,0 )
	2248	.. D ASKC AN
	2249	"RTN","PSO CPF1",70,0 )
	2250	D BLD^PSO CPF
	2251	"RTN","PSO CPF1",71,0 )
	2252	S VALMBCK ="R"
	2253	"RTN","PSO CPF1",72,0 )
	2254	Q
	2255	"RTN","PSO CPF1",73,0 )
	2256	;
	2257	"RTN","PSO CPF1",74,0 )
	2258	RESET ; RE SET/CANCEL COPAY STA TUS
	2259	"RTN","PSO CPF1",75,0 )
	2260	;
	2261	"RTN","PSO CPF1",76,0 )
	2262	D FULL^VA LM1
	2263	"RTN","PSO CPF1",77,0 )
	2264	N I,J,IBX X,VALMY,EC NT,NAME,GO TPAT,RC,IB FR,IBTO
	2265	"RTN","PSO CPF1",78,0 )
	2266	S CNT=0
	2267	"RTN","PSO CPF1",79,0 )
	2268	D EN^VALM 2($G(XQORN OD(0)))
	2269	"RTN","PSO CPF1",80,0 )
	2270	I $D(VALM Y),$D(^TMP ($J,"PSOCP F")) D
	2271	"RTN","PSO CPF1",81,0 )
	2272	. S IBXX= 0 F S IBX X=$O(VALMY (IBXX)) Q: 'IBXX D
	2273	"RTN","PSO CPF1",82,0 )
	2274	.. S RC=$ G(^TMP($J, "PSOCPFX", IBXX)),CNT =CNT+1
	2275	"RTN","PSO CPF1",83,0 )
	2276	.. S NAME =$P(RC,U,1 ),PSODA=$P (RC,U,4),M ED=$P(RC,U ,3),RX=$P( RC,U,8),RF L=$P(RC,U, 7)
	2277	"RTN","PSO CPF1",84,0 )
	2278	.. D STAT US(PSODA,R FL)
	2279	"RTN","PSO CPF1",85,0 )
	2280	D BLD^PSO CPF
	2281	"RTN","PSO CPF1",86,0 )
	2282	S VALMBCK ="R"
	2283	"RTN","PSO CPF1",87,0 )
	2284	Q
	2285	"RTN","PSO CPF1",88,0 )
	2286	;
	2287	"RTN","PSO CPF1",89,0 )
	2288	STATUS(PSO DA,RFL) ; PROCESS ST ATUS CHANG E
	2289	"RTN","PSO CPF1",90,0 )
	2290	N PSOIBQ, PREA,PSI,P SOCOMM,FLA G,PSOSUMM, PSONW,PSOI NDPT,PSONE W,PSOOLD
	2291	"RTN","PSO CPF1",91,0 )
	2292	S PSOSUMM =""
	2293	"RTN","PSO CPF1",92,0 )
	2294	I '$D(PSO PAR) D ^PS OLSET
	2295	"RTN","PSO CPF1",93,0 )
	2296	W !!,?17, "PATIENT: ",NAME
	2297	"RTN","PSO CPF1",94,0 )
	2298	W !,?17," Medication : ",MED
	2299	"RTN","PSO CPF1",95,0 )
	2300	W !,?17," RX: ",RX_" -"_RFL
	2301	"RTN","PSO CPF1",96,0 )
	2302	;
	2303	"RTN","PSO CPF1",97,0 )
	2304	D ICN^PSO DPT($P(^PS RX(PSODA,0 ),"^",2))
	2305	"RTN","PSO CPF1",98,0 )
	2306	S PSORXN= $P(^PSRX(P SODA,0),"^ "),PREA="R "
	2307	"RTN","PSO CPF1",99,0 )
	2308	S PCOPAY= $G(^PSRX(P SODA,"IB") )
	2309	"RTN","PSO CPF1",100, 0)
	2310	W !!,"Rx # ",PSORXN ," is a ", $S(+PCOPAY :"Copay",1 :"No Copay ")," presc ription"
	2311	"RTN","PSO CPF1",101, 0)
	2312	S PSOLFIL =$$LF^PSOP FSU1(PSODA ) D PFSA^P SOPFSU1(PS ODA,PSOLFI L,3) ;PSO CPC def PS OPFSA=1 if OP SC/EI' s change.
	2313	"RTN","PSO CPF1",102, 0)
	2314	D EXEMCHK ^PSOCPC ; CHECK/CHAN GE EXEMPTI ON FLAGS
	2315	"RTN","PSO CPF1",103, 0)
	2316	S PSOIBQ= $G(^PSRX(P SODA,"IBQ" ))
	2317	"RTN","PSO CPF1",104, 0)
	2318	;
	2319	"RTN","PSO CPF1",105, 0)
	2320	I '$G(^PS RX(PSODA," IB")),PSOI BQ'["1" D G ASKCAN
	2321	"RTN","PSO CPF1",106, 0)
	2322	. K DIR S DIR(0)="Y ",DIR("B") ="N",DIR(" A")="Do yo u want to reset the status to COPAY" D ^ DIR K DIR
	2323	"RTN","PSO CPF1",107, 0)
	2324	. I Y'=1 Q
	2325	"RTN","PSO CPF1",108, 0)
	2326	. S DIC=" ^IBE(350.3 ,",DIC("S" )="I $P(^( 0),U,3)'=2 ",DIC(0)=" AEQMZ",DIC ("A")="Sel ect Reason for Reset : " D ^DI C K DIC I Y'<0 S PSO RSN=+Y
	2327	"RTN","PSO CPF1",109, 0)
	2328	. S PREA= "R",PSOOLD ="No Copay ",PSONW="C opay",PSOC OMM="" D A CTLOG^PSOC PA
	2329	"RTN","PSO CPF1",110, 0)
	2330	. S PSI=0 ,PSOCOMM=" Copay stat us of this Rx has be en reset t o COPAY." D SETSUMM^ PSOCPC
	2331	"RTN","PSO CPF1",111, 0)
	2332	. S $P(^P SRX(PSODA, "IB"),"^") =1 ;Reset flag to CO PAY
	2333	"RTN","PSO CPF1",112, 0)
	2334	;
	2335	"RTN","PSO CPF1",113, 0)
	2336	I $G(^PSR X(PSODA,"I B")) D G ASKCAN
	2337	"RTN","PSO CPF1",114, 0)
	2338	. K DIR S DIR(0)="Y ",DIR("B") ="N",DIR(" A")="Do yo u want to reset the status to NO COPAYME NT" D ^DIR K DIR
	2339	"RTN","PSO CPF1",115, 0)
	2340	. I Y'=1 Q
	2341	"RTN","PSO CPF1",116, 0)
	2342	. S DIC=" ^IBE(350.3 ,",DIC("S" )="I $P(^( 0),U,3)'=2 ",DIC(0)=" AEQMZ",DIC ("A")="Sel ect Reason for Reset : " D ^DI C K DIC I Y'<0 S PSO RSN=+Y
	2343	"RTN","PSO CPF1",117, 0)
	2344	. S PREA= "R",PSOOLD ="Copay",P SONW="No C opay",PSOC OMM="" D A CTLOG^PSOC PA
	2345	"RTN","PSO CPF1",118, 0)
	2346	. S PSI=0 ,PSOCOMM=" Copay stat us of this Rx has be en reset t o NO COPAY ." D SETSU MM^PSOCPC
	2347	"RTN","PSO CPF1",119, 0)
	2348	. S $P(^P SRX(PSODA, "IB"),"^") ="" ;Reset flag to N O COPAY
	2349	"RTN","PSO CPF1",120, 0)
	2350	ASKCAN D A SKCAN^PSOC PD
	2351	"RTN","PSO CPF1",121, 0)
	2352	I $$FLAG( .PSOSUMM) S ^TMP($J, "PSOCPFC", NAME,PSODA ,RFL)="Can celled"
	2353	"RTN","PSO CPF1",122, 0)
	2354	D PRTSUMM ^PSOCPB
	2355	"RTN","PSO CPF1",123, 0)
	2356	RESETE K P SODA,PSORX N,PSORSN,P SOREF,X,Y, PCOPAY,PRE A,PSOCOMM, PSI
	2357	"RTN","PSO CPF1",124, 0)
	2358	;
	2359	"RTN","PSO CPF1",125, 0)
	2360	FLAG(PSOSU MM) ; CHEC K FOR CANC ELLED CHAR GE
	2361	"RTN","PSO CPF1",126, 0)
	2362	N FLAG,CN T
	2363	"RTN","PSO CPF1",127, 0)
	2364	S (CNT,FL AG)=0
	2365	"RTN","PSO CPF1",128, 0)
	2366	F S CNT= $O(PSOSUMM (CNT)) Q:C NT="" I P SOSUMM(CNT )["copay c harge canc elled" S F LAG=1 Q
	2367	"RTN","PSO CPF1",129, 0)
	2368	Q FLAG
	2369	"RTN","PSO CPF1",130, 0)
	2370	;
	2371	"RTN","PSO CPF1",131, 0)
	2372	EXPORT ; - - print ex cel spread sheet.
	2373	"RTN","PSO CPF1",132, 0)
	2374	I '$D(^TM P($J,"PSOC PF")) D BL D^PSOCPF S VALMBCK=" R" Q
	2375	"RTN","PSO CPF1",133, 0)
	2376	D CLEAR^V ALM1,FULL^ VALM1
	2377	"RTN","PSO CPF1",134, 0)
	2378	S LCNT=0
	2379	"RTN","PSO CPF1",135, 0)
	2380	D ^%ZISC
	2381	"RTN","PSO CPF1",136, 0)
	2382	D DEVICE( "EF")
	2383	"RTN","PSO CPF1",137, 0)
	2384	;
	2385	"RTN","PSO CPF1",138, 0)
	2386	D BLD^PSO CPF
	2387	"RTN","PSO CPF1",139, 0)
	2388	D PAUSE^V ALM1
	2389	"RTN","PSO CPF1",140, 0)
	2390	S VALMBCK ="R"
	2391	"RTN","PSO CPF1",141, 0)
	2392	Q
	2393	"RTN","PSO CPF1",142, 0)
	2394	;
	2395	"RTN","PSO CPF1",143, 0)
	2396	EXCEL(FILT ERS) ; pri nt the dat a in excel format
	2397	"RTN","PSO CPF1",144, 0)
	2398	;NAME_U_P ID_U_MED_U _RX_"-"_RF L_U_$$FMTE ^XLFDT(FIL DT,"2DZ")_ U_BLN_U_AR ST1_U_SCO_ U_SCP_U_MT S_U_MTSD_U _CPY
	2399	"RTN","PSO CPF1",145, 0)
	2400	U IO
	2401	"RTN","PSO CPF1",146, 0)
	2402	N LCNT,PC E,REC,OUT, NAME,XX,BC NT,CNT,NXT ,ZZ,ZZ1,ZZ 2,OUT
	2403	"RTN","PSO CPF1",147, 0)
	2404	N BDATE,E DATE,RIEN, RFL
	2405	"RTN","PSO CPF1",148, 0)
	2406	S BDATE=$ $FMTE^XLFD T($P(FILTE RS,U,1),"2 DZ")
	2407	"RTN","PSO CPF1",149, 0)
	2408	S EDATE=$ $FMTE^XLFD T($P(FILTE RS,U,2),"2 DZ")
	2409	"RTN","PSO CPF1",150, 0)
	2410	D EXHDR
	2411	"RTN","PSO CPF1",151, 0)
	2412	S LCNT=0, NAME=""
	2413	"RTN","PSO CPF1",152, 0)
	2414	F S NAME =$O(^TMP($ J,"PSOCPFE ",NAME)) Q :NAME="" D
	2415	"RTN","PSO CPF1",153, 0)
	2416	. S RIEN= 0
	2417	"RTN","PSO CPF1",154, 0)
	2418	. F S RI EN=$O(^TMP ($J,"PSOCP FE",NAME,R IEN)) Q:RI EN="" D
	2419	"RTN","PSO CPF1",155, 0)
	2420	.. S RFL= ""
	2421	"RTN","PSO CPF1",156, 0)
	2422	.. F S R FL=$O(^TMP ($J,"PSOCP FE",NAME,R IEN,RFL)) Q:RFL="" D
	2423	"RTN","PSO CPF1",157, 0)
	2424	... S REC =^TMP($J," PSOCPFE",N AME,RIEN,R FL)
	2425	"RTN","PSO CPF1",158, 0)
	2426	... W !,R EC
	2427	"RTN","PSO CPF1",159, 0)
	2428	W !,"END OF REPORT"
	2429	"RTN","PSO CPF1",160, 0)
	2430	Q
	2431	"RTN","PSO CPF1",161, 0)
	2432	;
	2433	"RTN","PSO CPF1",162, 0)
	2434	DEVICE(TYP E) ; Ask u ser to sel ect device
	2435	"RTN","PSO CPF1",163, 0)
	2436	;
	2437	"RTN","PSO CPF1",164, 0)
	2438	D CLEAR^V ALM1
	2439	"RTN","PSO CPF1",165, 0)
	2440	D FULL^VA LM1
	2441	"RTN","PSO CPF1",166, 0)
	2442	N %ZIS,CR T,MAXCNT,P OP,IOST,MA XCNT,IOSL, ZTREQ
	2443	"RTN","PSO CPF1",167, 0)
	2444	W !,"NO Q UEUING ALL OWED FOR T HIS REPORT "
	2445	"RTN","PSO CPF1",168, 0)
	2446	W !,"This report mu st have a line lengt h of at le ast 256.", !
	2447	"RTN","PSO CPF1",169, 0)
	2448	S %ZIS="M " D ^%ZIS G:POP ENQ
	2449	"RTN","PSO CPF1",170, 0)
	2450	; print r eport
	2451	"RTN","PSO CPF1",171, 0)
	2452	I IOST["C -" S MAXCN T=IOSL-3,C RT=1
	2453	"RTN","PSO CPF1",172, 0)
	2454	E S MAXC NT=IOSL,CR T=0
	2455	"RTN","PSO CPF1",173, 0)
	2456	;
	2457	"RTN","PSO CPF1",174, 0)
	2458	I TYPE="E F" U IO D EXCEL(FILT ERS(0))
	2459	"RTN","PSO CPF1",175, 0)
	2460	;
	2461	"RTN","PSO CPF1",176, 0)
	2462	D ^%ZISC
	2463	"RTN","PSO CPF1",177, 0)
	2464	;
	2465	"RTN","PSO CPF1",178, 0)
	2466	I $D(ZTQU EUED) S ZT REQ="@"
	2467	"RTN","PSO CPF1",179, 0)
	2468	;
	2469	"RTN","PSO CPF1",180, 0)
	2470	ENQ Q
	2471	"RTN","PSO CPF1",181, 0)
	2472	;
	2473	"RTN","PSO CPF1",182, 0)
	2474	EXHDR ; -- excel hea der
	2475	"RTN","PSO CPF1",183, 0)
	2476	N HDR
	2477	"RTN","PSO CPF1",184, 0)
	2478	;^TMP($J, "PSOCPF",P TNM,RIEN,R FL)=PTNM_U _PID_U_MED _U_RIEN_U_ RFL_U_RX_U _FILDT_U_B LNO_U_IBST 1_U_SC_U_S CP_U_MTSD_ U_MTS_U_DF N_U_IBST
	2479	"RTN","PSO CPF1",185, 0)
	2480	W !,"Rese t/Cancel R eport"
	2481	"RTN","PSO CPF1",186, 0)
	2482	W !,"From ",BDATE," TO ",EDAT E
	2483	"RTN","PSO CPF1",187, 0)
	2484	S HDR="Pa tient Name "_U_"ID"_U _"MEDICATI ON"_U_"RX" _U_"FILL D ATE"_U_"BI LL NO."_U_ "STATUS"_U _"SC"_U_"P ERCENT"_U_ "MEANS TES T"_U_"MEAN S DATE"_U_ "RX STATUS "
	2485	"RTN","PSO CPF1",188, 0)
	2486	W !,HDR
	2487	"RTN","PSO CPF1",189, 0)
	2488	Q
	2489	"RTN","PSO CPF2")
	2490	0^4^B16086 034^n/a
	2491	"RTN","PSO CPF2",1,0)
	2492	PSOCPF2 ;B IR/BAA - P harmacy CO -PAY Appli cation Uti lities for IB ;02/06 /92
	2493	"RTN","PSO CPF2",2,0)
	2494	;;7.0;OUT PATIENT PH ARMACY;4 63;DEC 1 997;Build 36
	2495	"RTN","PSO CPF2",3,0)
	2496	;
	2497	"RTN","PSO CPF2",4,0)
	2498	Q
	2499	"RTN","PSO CPF2",5,0)
	2500	;^TMP($J, "PSOCPFX", VCNT)=NAME _U_DFN_U_M ED_U_RIEN_ U_BLN_U_PR IEN_U_RFL_ U_RX_U_DEB TOR
	2501	"RTN","PSO CPF2",6,0)
	2502	;
	2503	"RTN","PSO CPF2",7,0)
	2504	PATACP ; A CTION - Ac count Prof ile (AP)
	2505	"RTN","PSO CPF2",8,0)
	2506	D FULL^VA LM1
	2507	"RTN","PSO CPF2",9,0)
	2508	D EN^VALM 2($G(XQORN OD(0)))
	2509	"RTN","PSO CPF2",10,0 )
	2510	D CLEAR^V ALM1
	2511	"RTN","PSO CPF2",11,0 )
	2512	I $D(VALM Y),$D(^TMP ($J,"PSOCP F")) D
	2513	"RTN","PSO CPF2",12,0 )
	2514	. S IBXX= 0 F S IBX X=$O(VALMY (IBXX)) Q: 'IBXX D
	2515	"RTN","PSO CPF2",13,0 )
	2516	.. N RCDE BTDA
	2517	"RTN","PSO CPF2",14,0 )
	2518	.. S RC=$ G(^TMP($J, "PSOCPFX", IBXX))
	2519	"RTN","PSO CPF2",15,0 )
	2520	.. S RCDE BTDA=$P(RC ,U,9) ;Ne ed DEBTOR for AP
	2521	"RTN","PSO CPF2",16,0 )
	2522	.. I 'RCD EBTDA D Q
	2523	"RTN","PSO CPF2",17,0 )
	2524	... W !!, "There is no Bill as sociated w ith this e ntry."
	2525	"RTN","PSO CPF2",18,0 )
	2526	... D PAU SE^VALM1
	2527	"RTN","PSO CPF2",19,0 )
	2528	.. D EN^V ALM("RCDP ACCOUNT PR OFILE")
	2529	"RTN","PSO CPF2",20,0 )
	2530	D BLD^PSO CPF
	2531	"RTN","PSO CPF2",21,0 )
	2532	S VALMBCK ="R"
	2533	"RTN","PSO CPF2",22,0 )
	2534	Q
	2535	"RTN","PSO CPF2",23,0 )
	2536	;
	2537	"RTN","PSO CPF2",24,0 )
	2538	BILPRO ; v iew BILL P ROFILE
	2539	"RTN","PSO CPF2",25,0 )
	2540	D FULL^VA LM1
	2541	"RTN","PSO CPF2",26,0 )
	2542	N I,J,IBX X,VALMY,EC NT,REC,RCB ILLDA
	2543	"RTN","PSO CPF2",27,0 )
	2544	D EN^VALM 2($G(XQORN OD(0)))
	2545	"RTN","PSO CPF2",28,0 )
	2546	I $D(VALM Y),$D(^TMP ($J,"PSOCP F")) D
	2547	"RTN","PSO CPF2",29,0 )
	2548	. S IBXX= 0 F S IBX X=$O(VALMY (IBXX)) Q: 'IBXX D
	2549	"RTN","PSO CPF2",30,0 )
	2550	.. S REC= $G(^TMP($J ,"PSOCPFX" ,IBXX))
	2551	"RTN","PSO CPF2",31,0 )
	2552	.. S RCBI LLDA=$P(RE C,U,6)
	2553	"RTN","PSO CPF2",32,0 )
	2554	.. I RCBI LLDA="" D Q
	2555	"RTN","PSO CPF2",33,0 )
	2556	... W !!, "There is no Bill as sociated w ith this e ntry."
	2557	"RTN","PSO CPF2",34,0 )
	2558	... D PAU SE^VALM1
	2559	"RTN","PSO CPF2",35,0 )
	2560	.. D EN^V ALM("RCDP BILL PROFI LE")
	2561	"RTN","PSO CPF2",36,0 )
	2562	D BLD^PSO CPF
	2563	"RTN","PSO CPF2",37,0 )
	2564	S VALMBCK ="R"
	2565	"RTN","PSO CPF2",38,0 )
	2566	Q
	2567	"RTN","PSO CPF2",39,0 )
	2568	;
	2569	"RTN","PSO CPF2",40,0 )
	2570	TPJI ; vie w THIRD PA RTY JOIN I NQUIRY
	2571	"RTN","PSO CPF2",41,0 )
	2572	D FULL^VA LM1
	2573	"RTN","PSO CPF2",42,0 )
	2574	N I,J,IBX X,VALMY,EC NT,DFN,GOP AT,REC
	2575	"RTN","PSO CPF2",43,0 )
	2576	D EN^VALM 2($G(XQORN OD(0)))
	2577	"RTN","PSO CPF2",44,0 )
	2578	I $D(VALM Y),$D(^TMP ($J,"PSOCP F")) D
	2579	"RTN","PSO CPF2",45,0 )
	2580	. S IBXX= 0 F S IBX X=$O(VALMY (IBXX)) Q: 'IBXX D
	2581	"RTN","PSO CPF2",46,0 )
	2582	.. S REC= $G(^TMP($J ,"PSOCPFX" ,IBXX))
	2583	"RTN","PSO CPF2",47,0 )
	2584	.. S DFN= $P(REC,U,2 )
	2585	"RTN","PSO CPF2",48,0 )
	2586	.. D EN^V ALM("IBJT ACTIVE LIS T")
	2587	"RTN","PSO CPF2",49,0 )
	2588	D BLD^PSO CPF
	2589	"RTN","PSO CPF2",50,0 )
	2590	S VALMBCK ="R"
	2591	"RTN","PSO CPF2",51,0 )
	2592	Q
	2593	"RTN","PSO CPF2",52,0 )
	2594	;
	2595	"RTN","PSO CPF2",53,0 )
	2596	BILINQ ; v iew PATIEN T BILLING INQUIRY
	2597	"RTN","PSO CPF2",54,0 )
	2598	D FULL^VA LM1
	2599	"RTN","PSO CPF2",55,0 )
	2600	N I,J,IBX X,VALMY,EC NT,DFN,GOP AT,IBIL,RE C,IBFULL,I BIFN
	2601	"RTN","PSO CPF2",56,0 )
	2602	D EN^VALM 2($G(XQORN OD(0)))
	2603	"RTN","PSO CPF2",57,0 )
	2604	I $D(VALM Y),$D(^TMP ($J,"PSOCP F")) D
	2605	"RTN","PSO CPF2",58,0 )
	2606	. S IBXX= 0 F S IBX X=$O(VALMY (IBXX)) Q: 'IBXX D
	2607	"RTN","PSO CPF2",59,0 )
	2608	.. S REC= $G(^TMP($J ,"PSOCPFX" ,IBXX))
	2609	"RTN","PSO CPF2",60,0 )
	2610	.. S IBIL =$P(REC,U, 5),IBFULL= 1,IBIFN=""
	2611	"RTN","PSO CPF2",61,0 )
	2612	.. I IBIL ="" D Q
	2613	"RTN","PSO CPF2",62,0 )
	2614	... W !!, "There is no Bill as sociated w ith this e ntry."
	2615	"RTN","PSO CPF2",63,0 )
	2616	... D PAU SE^VALM1
	2617	"RTN","PSO CPF2",64,0 )
	2618	.. D EN^I BOLK
	2619	"RTN","PSO CPF2",65,0 )
	2620	D BLD^PSO CPF
	2621	"RTN","PSO CPF2",66,0 )
	2622	S VALMBCK ="R"
	2623	"RTN","PSO CPF2",67,0 )
	2624	Q
	2625	"RTN","PSO CPF2",68,0 )
	2626	;
	2627	"RTN","PSO CPF2",69,0 )
	2628	PATINQ ; v iew PATIEN T INQUIRY
	2629	"RTN","PSO CPF2",70,0 )
	2630	D FULL^VA LM1
	2631	"RTN","PSO CPF2",71,0 )
	2632	N I,J,IBX X,VALMY,EC NT,DFN,GOP AT,REC
	2633	"RTN","PSO CPF2",72,0 )
	2634	D EN^VALM 2($G(XQORN OD(0)))
	2635	"RTN","PSO CPF2",73,0 )
	2636	I $D(VALM Y),$D(^TMP ($J,"PSOCP F")) D
	2637	"RTN","PSO CPF2",74,0 )
	2638	. S IBXX= 0 F S IBX X=$O(VALMY (IBXX)) Q: 'IBXX D
	2639	"RTN","PSO CPF2",75,0 )
	2640	.. S REC= $G(^TMP($J ,"PSOCPFX" ,IBXX))
	2641	"RTN","PSO CPF2",76,0 )
	2642	.. S DFN= $P(REC,U,2 )
	2643	"RTN","PSO CPF2",77,0 )
	2644	.. D EN^D GRPD
	2645	"RTN","PSO CPF2",78,0 )
	2646	D BLD^PSO CPF
	2647	"RTN","PSO CPF2",79,0 )
	2648	S VALMBCK ="R"
	2649	"RTN","PSO CPF2",80,0 )
	2650	Q
	2651	"RTN","PSO CPF2",81,0 )
	2652	;
	2653	"RTN","PSO CPF2",82,0 )
	2654	NP ; -- ch ange patie nt,date an d prescrip tions.
	2655	"RTN","PSO CPF2",83,0 )
	2656	N VALMQUI T,IBDFN,PA T,DFN,SDAT E,TDATE,IB DATES,SAVF IL
	2657	"RTN","PSO CPF2",84,0 )
	2658	D FULL^VA LM1
	2659	"RTN","PSO CPF2",85,0 )
	2660	I $D(^TMP ($J,"PSOCP FF",0)) S FILTERS(0) =^TMP($J," PSOCPFF",0 ),SAVFIL(0 )=FILTERS( 0)
	2661	"RTN","PSO CPF2",86,0 )
	2662	S R=""
	2663	"RTN","PSO CPF2",87,0 )
	2664	F S R=$O (^TMP($J," PSOCPFF",1 ,R)) Q:R=" " S SAVFI L(1,R)=^TM P($J,"PSOC PFF",1,R)
	2665	"RTN","PSO CPF2",88,0 )
	2666	;
	2667	"RTN","PSO CPF2",89,0 )
	2668	K ^TMP($J ,"PSOCPFF" )
	2669	"RTN","PSO CPF2",90,0 )
	2670	S IBDFN=$ P(FILTERS( 0),U,4)
	2671	"RTN","PSO CPF2",91,0 )
	2672	S PAT=$$O NEPAT^PSOC PF()
	2673	"RTN","PSO CPF2",92,0 )
	2674	I PAT=-1 D RESET S VALMBCK="R " G NPQ
	2675	"RTN","PSO CPF2",93,0 )
	2676	S (DFN,$P (FILTERS(0 ),U,4))=+P AT
	2677	"RTN","PSO CPF2",94,0 )
	2678	S SDATE=$ P(FILTERS( 0),U,1)
	2679	"RTN","PSO CPF2",95,0 )
	2680	S TDATE=$ P(FILTERS( 0),U,2)
	2681	"RTN","PSO CPF2",96,0 )
	2682	S IBDATES ="Fill Dat es",IBDATE S=$$FMDATE S^PSOCPF(I BDATES,SDA TE,TDATE)
	2683	"RTN","PSO CPF2",97,0 )
	2684	I $D(VALM QUIT) D RE SET S VALM BCK="R" G NPQ
	2685	"RTN","PSO CPF2",98,0 )
	2686	D ADDRX^P SOCPF
	2687	"RTN","PSO CPF2",99,0 )
	2688	S $P(FILT ERS(0),U,1 )=$P(IBDAT ES,U,1),$P (FILTERS(0 ),U,2)=$P( IBDATES,U, 2)
	2689	"RTN","PSO CPF2",100, 0)
	2690	S ^TMP($J ,"PSOCPF") =FILTERS(0 )
	2691	"RTN","PSO CPF2",101, 0)
	2692	S R=""
	2693	"RTN","PSO CPF2",102, 0)
	2694	F S R=$O (FILTERS(1 ,R)) Q:R=" " S ^TMP( $J,"PSOCPF F",1,R)=FI LTERS(1,R)
	2695	"RTN","PSO CPF2",103, 0)
	2696	W !,"Plea se be pati ent while I gather t he request ed data.", !
	2697	"RTN","PSO CPF2",104, 0)
	2698	S VALMBG= 1 D SORT^P SOCPF1,HDR ^PSOCPF,BL D^PSOCPF
	2699	"RTN","PSO CPF2",105, 0)
	2700	S VALMBCK ="R"
	2701	"RTN","PSO CPF2",106, 0)
	2702	NPQ Q
	2703	"RTN","PSO CPF2",107, 0)
	2704	;
	2705	"RTN","PSO CPF2",108, 0)
	2706	;
	2707	"RTN","PSO CPF2",109, 0)
	2708	RESET ; Re set filter s to curre nt patient
	2709	"RTN","PSO CPF2",110, 0)
	2710	S (DFN,$P (FILTERS(0 ),U,4))=IB DFN
	2711	"RTN","PSO CPF2",111, 0)
	2712	S FILTERS (0)=SAVFIL (0)
	2713	"RTN","PSO CPF2",112, 0)
	2714	S BDATE=$ P(FILTERS( 0),U,1),ED ATE=$P(FIL TERS(0),U, 2)
	2715	"RTN","PSO CPF2",113, 0)
	2716	S RXS=$P( FILTERS(0) ,U,3),PAT= $P(FILTERS (0),U,4)
	2717	"RTN","PSO CPF2",114, 0)
	2718	S ^TMP($J ,"PSOCPFF" ,0)=FILTER S(0)
	2719	"RTN","PSO CPF2",115, 0)
	2720	S R=""
	2721	"RTN","PSO CPF2",116, 0)
	2722	F S R=$O (SAVFIL(1, R)) Q:R="" S (FILTE RS(1,R),^T MP($J,"PSO CPFF",1,R) )=SAVFIL(1 ,R)
	2723	"RTN","PSO CPF2",117, 0)
	2724	Q
	2725	"VER")
	2726	8.0^22.2
	2727	"BLD",1018 9,6)
	2728	7^
	2729	$END KID P SO7.0463