3. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/28/2017 9:33:10 AM Central 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.

3.1 Files compared

#	Location	File	Last Modified
1	PSE_v22_PRCA4.5307.zip\PSE_v22_PRCA4.5307\CIF_VistA_Feb_2017	PSE SDD Phase 01 Incr 01 v1.18.docx	Thu Feb 23 20:49:10 2017 UTC
2	PSE_v22_PRCA4.5307.zip\PSE_v22_PRCA4.5307\CIF_VistA_Feb_2017	PSE SDD Phase 01 Incr 01 v1.18.docx	Tue Feb 28 14:59:18 2017 UTC

3.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	11106
Changed	1	2
Inserted	0	0
Removed	0	0

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

3.4 Active regular expressions

No regular expressions were active.

3.5 Comparison detail

	1	Patient St atement En hancements
	2
	3	System Des ign Docume nt
	4
	5
	6
	7	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1)
	8
	9
	10
	11
	12
	13
	14
	15	January 20 17
	16
	17	Version 1. 18
	18
	19
	20
	21	Department of Vetera ns Affairs
	22
	23
	24
	25	Revision H istory
	26
	27	DateVersio nDescripti onAuthor
	28
	29	8/26/20151 .0Initial draftLloyd MacAskill
	30
	31	9/30/20151 .01Draft r evisionLlo yd MacAski ll
	32
	33	10/21/2015 1.02Added Incomplete status fl agDennis B ricker
	34
	35	10/27/2015 1.03Added NA to all blank sect ionsShawne e Blair
	36
	37	12/3/20151 .04Elabora tion of ro utine func tionsLloyd MacAskill
	38
	39	12/17/2015 1.05Draft RevisionLl oyd MacAsk ill
	40
	41	1/5/20161. 06Updated section – 3.3.31Sach in Sharma
	42
	43
	44	3/4/20161. 07Updated section 1, and added Security
	45	Key to 6.3 .2.2.8
	46
	47	Lloyd MacA skill / Be th Easton
	48
	49
	50	4/13/20161 .08Updated routinesD ennis Bric ker
	51
	52	05/27/2016 1.09Update d Introduc tionShawne e Blair
	53
	54	09/06/2016 1.10Added Change Sta tion Date infoMark E nfinger
	55
	56
	57	10/20/2016 1.11Update routine i nfo to mat ch v15 cod ing soluti on.
	58
	59	12/14/161. 12Update r outine inf o to match v17 codin g solution .
	60
	61	12/19/161. 13Update r outine inf o to match v18 codin g solution .
	62
	63	01/17/171. 14Update r outine inf o to match v19 codin g solution .
	64
	65	01/17/171. 15Update r outine inf o to match v19 codin g solution .
	66
	67	01/18/171. 16Update r outine inf o to match v20 codin g solution .
	68
	69	01/23/171. 17Update r outine inf o to match v22 codin g solution .
	70
	71	1/24/171.1 8Updated p age number s in Table s of
	72	Contents, List of Ta bles and L ist of Fig ures
	73
	74	Matt Dill Matt Dill Matt Dill Matt Dill
	75	Mark Enfin ger
	76
	77
	78	Matt Dill
	79
	80
	81	Mark Enfin ger
	82
	83
	84	Matt Dill
	85
	86
	87
	88
	89	Artifact R ationale
	90
	91	The System Design Do cument (SD D) is a du al-use doc ument that provides the concep tual desig n as well as the as- built desi gn. This d ocument wi ll be upda ted as the product i s built, t o reflect the as-bui lt product .
	92
	93
	94
	95
	96
	97
	98
	99
	100
	101
	102
	103
	104
	105
	106
	107
	108
	109
	110
	111
	112
	113
	114
	115
	116
	117
	118
	119
	120
	121
	122
	123
	124
	125
	126
	127
	128
	129
	130
	131
	132
	133
	134
	135
	136
	137
	138
	139
	140
	141
	142
	143
	144
	145
	146
	147
	148
	149
	150
	151
	152
	153
	154
	155
	156
	157	Patient St atement En hancement
	158	System Des ign Docum ent111 Jan uary 2017
	159
	160	When to Co mplete Eac h Section of the SDD
	161
	162	Section
	163	Completed On or
	164	Before PMA S Phase
	165	Rationale
	166	1 – Introd uction
	167	MS 0 Revie w; updated thereafte r
	168	Conceptual design sh ould infor m evaluati on of inve stments
	169	2 - Backgr ound
	170	MS 0 Revie w; updated thereafte r
	171	Conceptual design sh ould infor m evaluati on of inve stments
	172	3 – Concep tual Desig n
	173	MS 0 Revie w; updated thereafte r
	174	Conceptual design sh ould infor m evaluati on of inve stments
	175	4 – System Architect ure
	176	MS 0 Revie w; updated thereafte r
	177	Conceptual design sh ould infor m evaluati on of inve stments
	178	5 – Data D esign
	179	MS 1 Revie w; updated thereafte r
	180	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	181	6 – Detail ed Design
	182	MS 1 Revie w; updated thereafte r
	183	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	184	7 – Extern al System Interface
	185	Design
	186	MS 1 Revie w; updated thereafte r
	187	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	188	8 – Human Machine In terfaces
	189	MS 1 Revie w; updated thereafte r
	190	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	191	Attachment s
	192	MS 1 Revie w; updated thereafte r
	193	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	194
	195
	196	A product’ s system d esign shou ld be defi ned concep tually pri or to the allocation of person nel and re sources th at occur a t project initiation . This giv es the ent erprise an opportuni ty to eval uate IT in vestments before pro ject teams are stood up and fu nding is a llocated. Sections 1 - 4 which discuss th e high lev el design should be completed prior to M S 0. All s ections sh ould be co mpleted an d updated before MS 1. Project s will nee d to addre ss all SDD approval constraint s prior to the MS 2 review. In addition, the SDD s hould refl ect the as -built pro duct going into the MS 2 revie w.
	197
	198	Instructio ns
	199
	200	Activity
	201	New Capabi lity (1)
	202	Feature En hancement (2)
	203
	204
	205	Field Depl oyment (A)
	206
	207
	208	No
	209
	210
	211	Yes
	212
	213	Cloud/Web
	214	Deployment (B)
	215
	216	No
	217
	218	No
	219
	220	Mobile App lication ( C)
	221
	222	No
	223
	224	No
	225
	226	Table of C ontents
	227
	228	1.Introduc tion ..... .......... .......... .......... .......... .......... .......... .......... .......... . 12
	229	1.1. Scop e ........ .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 12
	230	1.2. User Profiles. .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 3
	231	2.Backgrou nd ....... .......... .......... .......... .......... .......... .......... .......... ......... 13
	232	2.1. Over view of th e System . .......... .......... .......... .......... .......... .......... .......... ......... 13
	233	2.2. Over view of th e Business Process . .......... .......... .......... .......... .......... .......... . 13
	234	2.3. Over view of th e Signific ant Requir ement .... .......... .......... .......... .......... ........ 1 3
	235	3.Conceptu al Design. .......... .......... .......... .......... .......... .......... .......... .... 14
	236	3.1. Conc eptual App lication D esign .... .......... .......... .......... .......... .......... .......... .... 14
	237	3.1.1.Appl ication Co ntext .... .......... .......... .......... .......... .......... .......... .......... ..... 14
	238	3.1.2.High -Level App lication D esign .... .......... .......... .......... .......... .......... ....... 17
	239	3.1.3.Appl ication Lo cations .. .......... .......... .......... .......... .......... .......... .......... ... 18
	240	3.2. Conc eptual Dat a Design.. .......... .......... .......... .......... .......... .......... .......... ........ 1 8
	241	3.2.1.Proj ect Concep tual Data Model .... .......... .......... .......... .......... .......... ...... 18
	242	3.2.2.Data base Infor mation ... .......... .......... .......... .......... .......... .......... .......... ... 18
	243	3.2.3.User Interface Data Mapp ing ...... .......... .......... .......... .......... .......... ........ 1 9
	244	3.2.3.1.Ap plication Screen Int erface ... .......... .......... .......... .......... .......... .......... .......... 19
	245	3.2.3.2.Ap plication Report Int erface.... .......... .......... .......... .......... .......... .......... .......... 21
	246	3.2.3.3.Un mapped Dat a Element. .......... .......... .......... .......... .......... .......... .......... .......21
	247	3.3. Conc eptual Inf rastructur e Design . .......... .......... .......... .......... .......... .......... ... 21
	248	3.3.1.Syst em Critica lity and H igh Availa bility.... .......... .......... .......... .......... ... 21
	249	3.3.2.Spec ial Techno logy ..... .......... .......... .......... .......... .......... .......... .......... .... 22
	250	3.3.3.Tech nology Loc ations.... .......... .......... .......... .......... .......... .......... .......... . 22
	251	3.3.4.Conc eptual Inf rastructur e Diagram. .......... .......... .......... .......... .......... ... 23
	252
	253	3.3.4.1.
	254	Location o f Environm ents and E xternal In terfaces . .......... .......... .......... .........2 3
	255
	256	4.
	257	3.3.4.2.
	258	System
	259	Conceptual Productio n String D iagram ... .......... .......... .......... .......... .......... ....23
	260	Architectu re ....... .......... .......... .......... .......... .......... .......... ..... 23
	261	4.1. Hard ware Archi tecture .. .......... .......... .......... .......... .......... .......... .......... .......... 23
	262	4.2. Soft ware Archi tecture... .......... .......... .......... .......... .......... .......... .......... .......... . 23
	263	4.3. Netw ork Archit ecture.... .......... .......... .......... .......... .......... .......... .......... .......... . 23
	264	4.4. Serv ice Orient ed Archite cture / ES S ........ .......... .......... .......... .......... .......... .. 23
	265	4.5. Ente rprise Arc hitecture .......... .......... .......... .......... .......... .......... .......... .......... . 23
	266	5.Data Des ign ...... .......... .......... .......... .......... .......... .......... .......... .......... 23
	267	5.1. DBMS Files ... .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 2 4
	268	5.2. Non- DBMS Files ......... .......... .......... .......... .......... .......... .......... .......... .......... .... 24
	269	5.3. Data View .... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 24
	270	6.Detailed Design .. .......... .......... .......... .......... .......... .......... .......... ........ 2 4
	271
	272	6.1. Hard ware Detai led Design .......... .......... .......... .......... .......... .......... .......... ....... 24
	273	6.2. Soft ware Detai led Design ......... .......... .......... .......... .......... .......... .......... ......... 24
	274	6.2.1.Conc eptual Des ign ...... .......... .......... .......... .......... .......... .......... .......... .... 24
	275	6.2.1.1.Pr oduct Pers pective... .......... .......... .......... .......... .......... .......... .......... .......... ...25
	276	6.2.1.1.1. User Inter faces .... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 25
	277	6.2.1.1.2. Hardware I nterfaces .......... .......... .......... .......... .......... .......... .......... .......... .......... ....... 26
	278	6.2.1.1.3. Software I nterfaces .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 2 6
	279	6.2.1.1.4. Communicat ions Inter faces..... .......... .......... .......... .......... .......... .......... .......... .......... . 26
	280	6.2.1.1.5. Memory Con straints.. .......... .......... .......... .......... .......... .......... .......... .......... .......... ..... 26
	281	6.2.1.1.6. Special Op erations . .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 2 6
	282	6.2.1.2.Pr oduct Feat ures ..... .......... .......... .......... .......... .......... .......... .......... .......... .....26
	283	6.2.1.3.Us er Charact eristics.. .......... .......... .......... .......... .......... .......... .......... .......... ....26
	284	6.2.1.4.De pendencies and Const raints ... .......... .......... .......... .......... .......... .......... ......26
	285	6.2.2.Spec ific Requi rements .. .......... .......... .......... .......... .......... .......... .......... .. 26
	286	6.2.2.1.Da tabase Rep ository .. .......... .......... .......... .......... .......... .......... .......... .......... ..26
	287	6.2.2.2.Sy stem Featu res....... .......... .......... .......... .......... .......... .......... .......... .......... ....27
	288	6.2.2.3.De sign Eleme nt Tables. .......... .......... .......... .......... .......... .......... .......... .......... 30
	289	6.2.2.3.1. Routines ( Entry Poin ts) ...... .......... .......... .......... .......... .......... .......... .......... .......... ...... 30
	290	6.2.2.3.2. Templates .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 95
	291	6.2.2.3.3. Bulletins .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ..... 95
	292	6.2.2.3.4. Data Entri es Affecte d by the D esign..... .......... .......... .......... .......... .......... .......... ....... 96
	293	6.2.2.3.5. Unique Rec ord(s) ... .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 9 6
	294	6.2.2.3.6. File or Gl obal Size Changes... .......... .......... .......... .......... .......... .......... .......... .......... .. 96
	295	6.2.2.3.7. Mail Group s ........ .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 97
	296	6.2.2.3.8. Security K eys ...... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 98
	297	6.2.2.3.9. Options .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ..... 99
	298	6.2.2.3.10 .Protocols .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 103
	299	6.2.2.3.11 .Remote Pr ocedure Ca ll (RPC) . .......... .......... .......... .......... .......... .......... .......... ...... 103
	300	6.2.2.3.12 .Constants Defined i n Interfac e......... .......... .......... .......... .......... .......... .......... ........ 1 04
	301	6.2.2.3.13 .Variables Defined i n Interfac e ........ .......... .......... .......... .......... .......... .......... ......... 104
	302	6.2.2.3.14 .Types Def ined in In terface... .......... .......... .......... .......... .......... .......... .......... .......... 104
	303	6.2.2.3.15 .GUI ..... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 104
	304	6.2.2.3.16 .GUI Class es........ .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 04
	305	6.2.2.3.17 .Current F orm....... .......... .......... .......... .......... .......... .......... .......... .......... .......... ....... 10 4
	306	6.2.2.3.18 .Modified Form ..... .......... .......... .......... .......... .......... .......... .......... .......... .......... ...... 104
	307	6.2.2.3.19 .Component s on Form. .......... .......... .......... .......... .......... .......... .......... .......... .......... 105
	308	6.2.2.3.20 .Events... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 105
	309	6.2.2.3.21 .Methods.. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 105
	310	6.2.2.3.22 .Special R eferences .......... .......... .......... .......... .......... .......... .......... .......... .......... ..... 105
	311	6.2.2.3.23 .Class Eve nts ...... .......... .......... .......... .......... .......... .......... .......... .......... .......... ......... 105
	312	6.2.2.3.24 .Class Met hods ..... .......... .......... .......... .......... .......... .......... .......... .......... .......... ....... 10 5
	313	6.2.2.3.25 .Class Pro perties... .......... .......... .......... .......... .......... .......... .......... .......... .......... ....... 10 5
	314	6.2.2.3.26 .Uses Clau se ....... .......... .......... .......... .......... .......... .......... .......... .......... .......... ......... 106
	315	6.2.2.3.27 .Forms ... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 106
	316	6.2.2.3.28 .Functions ......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 106
	317	6.2.2.3.29 .Dialog... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 107
	318
	319	6.2.2.3.33 .COTS Inte rface .... .......... .......... .......... .......... .......... .......... .......... .......... .......... ...... 109
	320	6.3. Netw ork Detail ed Design .......... .......... .......... .......... .......... .......... .......... ....... 10 9
	321	6.4. Secu rity and P rivacy.... .......... .......... .......... .......... .......... .......... .......... .......... 109
	322	6.4.1.Secu rity...... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 109
	323	6.4.2.Priv acy ...... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 109
	324	6.5. Serv ice Orient ed Archite cture / ES S Detailed Design .. .......... .......... ........ 1 09
	325	6.5.1.Serv ice Descri ption for <Consumed Service Na me>....... .......... ....... 11 0
	326	6.5.2.Serv ice Design for <Prov ided Servi ce Name> . .......... .......... .......... ... 110
	327	6.5.2.1.In troduction ......... .......... .......... .......... .......... .......... .......... .......... .......... ........11 0
	328	6.5.2.1.1. Purpose an d Scope of Service . .......... .......... .......... .......... .......... .......... .......... ......... 110
	329	6.5.2.1.2. Links to O ther Docum ents ..... .......... .......... .......... .......... .......... .......... .......... .......... 110
	330	6.5.2.2.Se rvice Deta ils....... .......... .......... .......... .......... .......... .......... .......... .......... .....110
	331	6.5.2.2.1. Service Id entificati on ....... .......... .......... .......... .......... .......... .......... .......... .......... ...... 110
	332	6.5.2.2.2. Service Ve rsions ... .......... .......... .......... .......... .......... .......... .......... .......... .......... ....... 11 1
	333	6.5.2.2.3. Summary of Design an d Platform Details . .......... .......... .......... .......... .......... .......... 111
	334	6.5.2.2.3. 1.SOA Patt ern(s) Imp lemented . .......... .......... .......... .......... .......... .......... .......... ... 111
	335	6.5.2.2.3. 2.COTS Pla tform vend or names a nd version s for host ing platfo rm ....... .......... . 111
	336	6.5.2.3.De pendencies .......... .......... .......... .......... .......... .......... .......... .......... .......... ...111
	337	6.5.2.4.Se rvice Desi gn Details .......... .......... .......... .......... .......... .......... .......... .......... 111
	338	6.5.2.4.1. Interface Technical Specs .... .......... .......... .......... .......... .......... .......... .......... .......... .. 111
	339	6.5.2.4.1. 1.Service Invocation Type .... .......... .......... .......... .......... .......... .......... .......... ....... 11 1
	340	6.5.2.4.1. 2.Service Interface Type ..... .......... .......... .......... .......... .......... .......... .......... ......... 111
	341	6.5.2.4.1. 3.Service Name ..... .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 111
	342	6.5.2.4.1. 4.Interfac e ........ .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 11
	343	6.5.2.4.1. 5.End Poin ts ....... .......... .......... .......... .......... .......... .......... .......... .......... .......... ...... 111
	344	6.5.2.4.1. 6.Operatio ns or Meth ods ...... .......... .......... .......... .......... .......... .......... .......... ........ 1 12
	345	6.5.2.4.1. 7.Message Schemas .. .......... .......... .......... .......... .......... .......... .......... .......... ......... 112
	346	6.5.2.4.2. Informatio n Model .. .......... .......... .......... .......... .......... .......... .......... .......... .......... ..... 112
	347	6.5.2.4.2. 1.Class Di agram and Descriptio n of Entit ies Involv ed ....... .......... .......... .......... . 112
	348	6.5.2.4.2. 2.Mappings from ELDM to Standa rds Based Schemas .. .......... .......... .......... ..... 112
	349	6.5.2.4.3. Behavior M odel (AKA Use Case R ealization ) ........ .......... .......... .......... .......... ...... 112
	350	6.5.2.4.3. 1.Use Case s (Use Cas e Model) . .......... .......... .......... .......... .......... .......... .......... ... 112
	351	6.5.2.4.3. 2.Interact ion Diagra ms ....... .......... .......... .......... .......... .......... .......... .......... .......... 112
	352	6.5.2.5.Ga p Analysis ......... .......... .......... .......... .......... .......... .......... .......... .......... .....112
	353	6.5.2.5.1. Variances from Enter prise Targ et Archite cture .... .......... .......... .......... .......... ......... 113
	354	6.5.2.5.2. Variances from SLDs .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 113
	355	6.5.2.5.3. Variances from Stand ards and P olicies... .......... .......... .......... .......... .......... .......... ... 113
	356	6.5.2.5.4. Justificat ion for Ex ceptions a nd Mitigat ion ...... .......... .......... .......... .......... .......... ... 113
	357	7.External System In terface De sign...... .......... .......... .......... .......... ... 113
	358	7.1. Inte rface Arch itecture . .......... .......... .......... .......... .......... .......... .......... .......... . 113
	359	7.2. Inte rface Deta iled Desig n ........ .......... .......... .......... .......... .......... .......... ........ 1 13
	360	8.Human-Ma chine Inte rface .... .......... .......... .......... .......... .......... ....... 11 3
	361
	362	8.4. Navi gation Hie rarchy ... .......... .......... .......... .......... .......... .......... .......... .......... 114
	363	8.4.1.Scre en [x.1] N /A ....... .......... .......... .......... .......... .......... .......... .......... ...... 114
	364	8.4.2.Scre en [x.2] N /A ....... .......... .......... .......... .......... .......... .......... .......... ...... 114
	365	8.4.3.Scre en [x.3] N /A ....... .......... .......... .......... .......... .......... .......... .......... ...... 114
	366	9.Attachme nt A – App roval Sign atures ... .......... .......... .......... .......... 115
	367	A.Addition al Informa tion ..... .......... .......... .......... .......... .......... .......... .. 116
	368	A.1. Ident ification of Technol ogy and St andards .. .......... .......... .......... .......... ... 116
	369	A.2. Const raining Po licies, Di rectives a nd Procedu res ...... .......... .......... ......... 116
	370	A.3. Requi rements Tr aceability Matrix... .......... .......... .......... .......... .......... .......... 116
	371	A.4. Packa ging and I nstallatio n......... .......... .......... .......... .......... .......... .......... ..... 116
	372	A.5. Desig n Metrics .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 116
	373
	374	List of Ta bles
	375
	376	Table 1: B usiness Ru les ...... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 13
	377	Table 2: A pplication Context D escription ......... .......... .......... .......... .......... .......... .......... .......... .......... ......... 16
	378	Table 3: O bjects in the High L evel Appli cation Des ign ...... .......... .......... .......... .......... .......... .......... .......... . 17
	379	Table 4: A pplication Locations .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ..... 18
	380	Table 5: A pplication Users ... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 8
	381	Table 6: D atabase In ventory .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ....... 18
	382	Table 7: D escription .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 21
	383	Table 8: Special Te chnology R equirement s ........ .......... .......... .......... .......... .......... .......... .......... .......... ...... 22
	384	Table 9: T echnology Location D etails.... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 22
	385	Table 10: Database I nventory . .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ...... 26
	386	Table 11: Functional Specifica tions..... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 27
	387	Table 12: Routine : PRCACPS .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 31
	388	Table 13: Routine : PRCACPSA . .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 45
	389	Table 14: Routines: PRCAACR .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 50
	390	Table 15: Routines: PRCAACR1 . .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 57
	391	Table 16: Routines: PRCA307P . .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 63
	392	Table 17: Routines: PRCASER1 . .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 65
	393	Table 18: Routines: RCCPCBJ .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 69
	394	Table 19: Routines: RCDPBTLM.. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ......... 74
	395	Table 20: Routines: RCWROFF .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 86
	396	Table 21: Templates. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 95
	397	Table 22: Bulletins .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .... 95
	398	Table 23: Data Entri es Affecte d by the D esign .... .......... .......... .......... .......... .......... .......... .......... .......... ...... 96
	399	Table 24: Unique Rec ord ID ... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ...... 96
	400	Table 25: File or Gl obal Size Changes .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 97
	401	Table 26: Mail Group s ........ .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 97
	402	Table 27: Security K eys ...... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 98
	403	Table 28: Option PRC A ACCOUNT MANAGEMENT .......... .......... .......... .......... .......... .......... .......... ...... 99
	404	Table 29: Option PRC A AUTOCRCT PGM...... .......... .......... .......... .......... .......... .......... .......... .......... ...... 100
	405	Table 30: Option PRC A AUTOCRCT PGM QUEUE D ........ .......... .......... .......... .......... .......... .......... ...... 101
	406	Table 31: Option PRC A AUTOCRCT RPT ..... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 02
	407	Table 32: Protocols .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 103
	408	Table 33: RPCs ..... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 103
	409	Table 34: Constants Defined in Interface ......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 04
	410	Table 35: Variables Defined in Interface ......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 04
	411	Table 36: Types Defi ned in Int erface ... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 104
	412	Table 37: GUI ...... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ... 104
	413	Table 38: GUI Classe s ........ .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 04
	414	Table 39: Components on Form . .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 105
	415	Table 40: Events ... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 105
	416	Table 41: Methods .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 105
	417	Table 42 : Special R eferences .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ..... 105
	418	Table 43: Class Even ts........ .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 05
	419	Table 44: Class Meth ods....... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ...... 105
	420	Table 45: Class Prop erties ... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ....... 10 5
	421	Table 46: Forms .... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 106
	422	Table 47: Forms .... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 106
	423	Table 48: Dialog ... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 107
	424
	425	Table 49: Help Frame ......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 07
	426	Table 50 : HL7 Appli cation Par ameter ... .......... .......... .......... .......... .......... .......... .......... .......... .......... ........ 1 08
	427	Table 51: HL7 Logica l Link ... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .... 108
	428	Table 52: COTS Inter face ..... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ...... 109
	429	Table 53: Service At tribute an d Value... .......... .......... .......... .......... .......... .......... .......... .......... .......... ......... 110
	430	Table 54 : Service V ersions .. .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ...... 111
	431	Table 55: Operations or Method s......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... . 112
	432	Table 56 : Gap Analy sis....... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... ....... 11 2
	433
	434
	435	List of Fi gures
	436
	437	Figure 3-1 : Existing Deficienc y Resoluti on Flow .. .......... .......... .......... .......... .......... .......... .......... .......... .... 15
	438	Figure 3-2 : AS-IS PS E Diagram 1 ........ .......... .......... .......... .......... .......... .......... .......... .......... .......... .......... .. 16
	439	Figure 3-3 : Auto- Correct Pa tient Disc repancy Re port...... .......... .......... .......... .......... .......... .......... .......... . 20
	440	Figure 6-1 : Auto- Correct Pr ocess Flow ......... .......... .......... .......... .......... .......... .......... .......... .......... .......... 24
	441
	442	1.Introduc tion
	443
	444	The remedi ation of t he Veteran s Health I nformation Systems T echnology Architectu re (VistA) Accounts Receivable (AR) proc ess is req uired to p rovide a c onsolidate d and easi ly readabl e patient statement from multi ple treatm ent facili ties durin g a monthl y cycle. E nhancement s to the A R system w ill increa se Veteran satisfact ion by mit igating co ncerns rai sed by Vet erans Serv ice Organi zations (V SO) and in dividual V eterans, w ho have pr ovided fee dback to t he Departm ent of Vet erans Affa irs (VA) r egarding p oor custom er service and poor business p ractices. Future dev elopment a ctivities are depend ent on Pha se 1 and P hase 2 enh ancements, as these enhancemen ts will de ploy best practices in financi al and bus iness proc esses, and align wit h the VA i nitiative to build V eterans Re cord Manag ement (VRM ) capabili ty to enab le conveni ent, and s eamless in teractions .
	445
	446	The PSE pr oject incl udes 3 dev elopment p hases acro ss 5 incre ments. Pha se 1 will remediate existing p ayment cyc le deficie ncies and include an auto-corr ection job . Phase 1 will be co ded and in itial SQA testing wi ll be perf ormed in I ncrement 1 . Phase 1 final Soft ware Quali ty Assuran ce (SQA), User Funct ionality T esting (UF T), Initia l Operabil ity Capabi lity (IOC) , and depl oyment wil l be in In crement 3.
	447
	448	Phase 2 in cludes the creation of the con solidated billing st atement. P hase 2 wil l be coded and initi al SQA tes ting will be perform ed in Incr ement 2. P hase 2 fin al SQA, UF T, IOC, an d deployme nt will be in Increm ent 3.
	449
	450	Phase 3 in cludes mak ing the bi lling stat ements ava ilable on- line throu gh the My HealtheVet (MHV) por tal and fo r the gene ration of the Annual Patient P ayment Sum mary (APPS ) statemen t. Phase 3 will be c oded and i nitial SQA testing w ill be per formed in Increment 4. Phase 3 final SQA , UFT, IOC , and depl oyment wil l be in In crement 5.
	451
	452	The tables in this s ection ide ntify the full scope of the PS E project by Increme nt.
	453
	454	1.1.Scope
	455
	456	The Vetera ns Health Administra tion (VHA) Chief Bus iness Offi ce (CBO) i s requesti ng remedia tion of de ficiencies in the Vi stA AR pac kage which cause pat ient state ments to n ot print a nd resolut ion to the root caus e of 3 spe cific issu es. Items considered in scope for Phase I are list ed below:
	457
	458	1. Devel opment and installat ion of an automated process fo r the dete ction and tracking o f discrepa ncies that prevent a patient s tatement f rom proces sing.
	459
	460	2. Remed iation of the root c ause for t he followi ng discrep ancies tha t prevent a patient statement from proce ssing:
	461	•Transacti on amount missing
	462	•Duplicate transacti on
	463	•Incomplet e status
	464	3. For 1 7 specific Station I D’s the SI TE STATEME NT DAY fie ld in the AR PARAMET ER file wi ll be upda ted.
	465
	466	1.2.User P rofiles
	467
	468	The user b ase consis ts of Depa rtment of Veterans A ffairs (VA ) employee s and cont ractors wh o routinel y use the VistA AR p ackage, as well as e mployees o f the Cons olidated P atient Acc ounting Ce nters (CPA C). Users also inclu de call ce nter worke rs who han dle inquir ies about patient st atements, as well as Agent Cas hiers who accept pay ments on t hese state ments.
	469
	470	2.Backgrou nd
	471
	472	2.1.Overvi ew of the System
	473
	474	The core o f the syst em to be m odified is the Accou nts Receiv able (AR) module of VistA. AR interacts with other financial systems a nd user or ganization s in the D epartment of Veteran s Affairs, but the c hanges req uired for Phase 1 of the Patie nt Stateme nt Enhance ments proj ect will b e located in VistA A R.
	475
	476	2.2.Overvi ew of the Business P rocess
	477
	478	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1) of the Patient S tatement E nhancement project i s to provi de the cap ability to resolve o ut of bala nce discre pancies th at now pre vent patie nt stateme nts from p rinting. T his capabi lity will be automat ed to the extent pos sible and will minim ize the ne ed for man ual interv ention to provide ba lance corr ections. O ut of bala nce discre pancies th at have be en correct ed by the system wil l be docum ented in a n Auto-Cor rection Re port that will be cr eated as p art of thi s project. This repo rt will al low an aud it trail t o be maint ained for these auto mated bala nce correc tions.
	479
	480	These chan ges have b een descri bed in mor e detail i n the Requ irements S pecificati on Documen t for Pati ent Statem ent Enhanc ements Pha se 1, curr ently avai lable in V ersion 1.2 .
	481
	482	The curren t Requirem ents Speci fication D ocument fo r the Pati ent Statem ent Enhanc ements Pro ject is PS E Phase 1_ RSD_Draft and can be accessed on the VA SharePoint site for the PSE pr oject at t he link be low.
	483
	484	http:// URL . DNS /pm/hape/H APEPortfol ioPMO/Pati entStateme ntEnhancem ent/defa u lt.aspx
	485
	486	2.3.Overvi ew of the Significan t Requirem ent
	487
	488	Table 1: B usiness Ru les
	489
	490
	491	Business R ules (Auto -Correctio n Job)
	492
	493	Background Job - Aut o-correcti on will fu nction as a tasked j ob.
	494	Option - T he job can be run on -demand.
	495	Post-Init - The init ial job ru n will occ ur immedia tely after patch ins tallation.
	496
	497
	498	Auto-Corre ction - Op tion
	499	Execute fu nctionalit y “on-dema nd”
	500	The new PR CA STATEME NT AUTO-CO RRECTION s ecurity ke y will be provided t o limit
	501
	502
	503
	504	Business R ules (Auto -Correctio n Job)
	505
	506	access to the auto-c orrection option.
	507
	508
	509	Auto-Corre ction - Ba ckground J ob
	510	Will be pa rameter-ba sed (set u p in the A R site par ameters fi le)
	511
	512
	513	Scheduling (When sho uld the jo b run?)
	514	Initial di scussion – Once a we ek…on the weekend…at night
	515	Decision b y consensu s – TBD du ring site testing ba sed on how long the job runs
	516	Post Init – Immediat e auto-cor rection wa nted after the patch installat ion
	517	Layout - A uto-Correc tion Repor t
	518	Changes to the Auto correction report re quested by the workg roup: Disp lays only the last 4 digits of the Socia l Security Number (S SN) Sort b y SSN was not needed
	519	Provide a date range to run th e report
	520
	521
	522
	523	DRAFT Auto Correct
	524	Patient Di screpancy R
	525
	526	User can r un the rep ort from a n option
	527	User can e nter a dat e range wh ich is for the date of auto-co rrection
	528	The report will disp lay only t he last 4 digits on the SSN
	529	The Statem ent Discre pancy List ing will p rovide wha t was NOT auto-corre cted (exis ting repor t)
	530
	531
	532	3. Conc eptual Des ign
	533
	534	3.1. Co nceptual A pplication Design
	535
	536	Currently bad transa ctions are identifie d and reme diated via a manual process. P atient Sta tement Enh ancements (PSE) Disc repancies (Increment 1, Phase 1) will cr eate an au tomated pr ocess for identify a nd remedia ted bills that are o ut of bala nce and in cludes add itional re porting ca pabilities to identi fy the rem aining out of balanc e bills an d transact ions that have been corrected.
	537
	538	3.1.1. Applicatio n Context
	539
	540	For Phase 1, the exi sting defi ciency res olution fl ow has bee n defined:
	541
	542
	543	Patient St atement De ficiency R esolution Process “A s Is”
	544
	545	Phase
	546
	547
	548
	549
	550	CPACDay af ter statem ent run da te, run Di screpancy Report
	551	Run Descre pancy Repo rt
	552	Open Remed y Ticket w ith failed statement s
	553
	554
	555
	556
	557
	558
	559	Review
	560	Remedy tic ket
	561
	562
	563	Determine cause for descrepenc y
	564
	565	Is miss in g No trans action
	566	amount? Ye s
	567	Review the AR
	568	transactio n f ile (4 33) to
	569	find corre sponding z ero
	570	amount
	571
	572
	573	Is duplica te transa ction?
	574
	575	Yes
	576	Set incomp lete trans action f l ag on dupl icate tran saction
	577	No
	578
	579	No Is inco mplete sta tus?
	580
	581	Yes
	582
	583	Remove Inc omplete St atus flag
	584
	585
	586
	587	HPSAdd mis sing amoun t through Fileman
	588
	589	No
	590	Run trans action
	591	patient st atement
	592	history
	593
	594	Account in
	595	Balance
	596
	597	Yes
	598
	599	Close Reme dy ticket
	600
	601
	602
	603
	604	AR SystemR un patient statement batch
	605
	606	Patient St atement Fi le
	607
	608
	609
	610
	611	AITCPrint
	612	Sta tement
	613	Mail
	614	Sta tement s
	615
	616
	617
	618
	619	Figure 3-1 : Existing Deficienc y Resoluti on Flow
	620
	621	Further di scussion h as defined the chang es propose d for Phas e 1, inclu ding the a uto-correc tion job a nd the rep ort that s ummarizes the auto-c orrection afterwards . These ch anges are described under Sect ion 2.3 ab ove.
	622
	623	The diagra m that fol lows shows the syste ms and org anizations that gene rate patie nt stateme nts for ve terans and process t heir payme nts. For P hase 1 of Patient St atement En hancements , the
	624	only entit ies direct ly involve d in state ment prepa ration, pr oduction a nd deliver y are the station or medical c enter that prepares the statem ent record , and the Consolidat ed Co-paym ent Proces sing Cente r (CCPC) t o which st atement re cords that are in ba lance are sent for p rinting an d mailing.
	625
	626
	627
	628	Figure 3-2 : AS-IS PS E Diagram 1
	629
	630	Table 2: A pplication Context D escription
	631
	632	ID
	633	Name
	634	Descriptio n
	635	Interface
	636	Name
	637	Interface
	638	System
	639	VistA A/R
	640	VistA Stat ion
	641	Sends pati ent statem ent record informati on to be p rinted and mailed.
	642	Statement
	643	MailMan
	644	CCPC
	645	Consolidat ed Co-paym ent Proces sing Cente r
	646	Prints and mails pat ient state ments to v eterans.
	647
	648
	649
	650	Interfaces External to OI&T
	651
	652	ID
	653	Name
	654	Related Ob ject
	655	Input Mess ages
	656	Output
	657	Messages
	658	External
	659	Party
	660
	661
	662	ID
	663	Name
	664	Related Ob ject
	665	Input Mess ages
	666	Output
	667	Messages
	668	External
	669	Party
	670
	671
	672
	673
	674
	675
	676
	677	Interfaces Internal to OI&T
	678
	679	ID
	680	Name
	681	Related Ob ject
	682	Input Mess ages
	683	Output
	684	Messages
	685	External
	686	Party
	687
	688
	689
	690
	691
	692
	693
	694	Externally Shared Da ta Stores
	695
	696	IDNameData StoredOwn erAccess
	697
	698
	699
	700	3.1.2.High -Level App lication D esign
	701
	702	For Patien t Statemen t Enhancem ents (PSE) Discrepan cies (Incr ement 1, P hase 1), a good star ting point is the ex isting Acc ounts Rece ivable men u option, Statement Discrepanc y Listing, which is entered in the OPTIO N File (#1 9) as PRCA DISC LIST . This opt ion compar es bill ba lances wit h transact ion balanc es and fla gs account s for whic h the two do not mat ch.
	703
	704	Since this is an est ablished o ption, its logic sho uld be stu died to de termine if it can be used to m eet some o f the requ irements o f PSE Phas e 1. Auto correction s that are performed by Phase 1 should r esult in t he out-of- balance fl ag being c leared whe n checked by the rou tines invo ked by thi s option.
	705
	706	This optio n should a lso be stu died to de termine if its perfo rmance cou ld be enha nced by re stricting the range of account s checked, by date, account st atus, or s ome other parameter, keeping i n mind the requireme nts for PS E Phase 1.
	707
	708	Objects / Components to be Bui lt or Modi fied
	709
	710	Table 3: O bjects in the High L evel Appli cation Des ign
	711
	712
	713
	714	ID
	715
	716
	717
	718	Name
	719
	720
	721
	722	Descriptio n
	723
	724	Service or
	725	Legacy Cod e
	726	External I nterface N ame
	727
	728	External
	729	Interface ID
	730	Internal I nterface N ame
	731
	732	Internal
	733	Interface ID
	734
	735	SDP Sectio ns
	736	1&2
	737
	738	Auto Corre ct Account Balance D iscrepancy
	739	Tasked job to correc t statemen t discrepa ncies if p ossible
	740
	741
	742
	743
	744
	745
	746
	747
	748
	749
	750	ID
	751
	752
	753
	754	Name
	755
	756
	757
	758	Descriptio n
	759
	760	Service or
	761	Legacy Cod e
	762	External I nterface N ame
	763
	764	External
	765	Interface ID
	766	Internal I nterface N ame
	767
	768	Internal
	769	Interface ID
	770
	771	SDP Sectio ns
	772	1&2
	773
	774	Auto- Corr ect Patien t Discrepa ncy Report
	775	Details of statement record an d how it w as correct ed (or not )
	776
	777
	778
	779
	780
	781
	782
	783	Internal D ata Stores
	784
	785	IDNameData StoredSte wardAccess
	786
	787
	788
	789	3.1.3.Appl ication Lo cations
	790
	791	Table 4: A pplication Locations
	792
	793	Applicatio n
	794	Component
	795
	796	Descriptio n
	797	Location a t Which
	798	Component is Run
	799
	800	Type
	801	Auto Corre ction Job
	802	Tasked job
	803	VA Station , CPAC
	804	Local and regional
	805	Auto Corre ction
	806	Report
	807	Report
	808	VA Station , CPAC
	809	Local and regional
	810
	811	Table 5: A pplication Users
	812
	813	Applicatio n Componen tLocationU ser
	814
	815	Auto Corre ction JobV A Station, CPACFacil ity Revenu e Technici an
	816
	817	Auto Corre ction Repo rtVA Stati on, CPACFa cility Rev enue Techn ician
	818
	819	3.2.Concep tual Data Design
	820
	821	3.2.1.Proj ect Concep tual Data Model
	822
	823	Not applic able for P atient Sta tement Enh ancements (PSE) Disc repancies (Increment 1, Phase 1).
	824
	825	3.2.2.Data base Infor mation
	826
	827	Table 6: D atabase In ventory
	828
	829	Database N ameDescrip tionTypeSt eward
	830
	831	Database N ameDescrip tionTypeSt eward
	832
	833
	834	VistAAccou nts
	835	Receivable
	836
	837	ModifyVA S tation, CP AC
	838
	839
	840
	841	3.2.3.User Interface Data Mapp ing
	842
	843	3.2.3.1.Ap plication Screen Int erface
	844
	845	The applic ation has no GUI. Al l VistA sc reens are ‘roll and scroll’; h owever, th is section outlines the main m odificatio ns to the Auto-Corre ct Patient Discrepan cy Report. The three auto- cor rection ty pes provid ed for thi s report a re the inc omplete tr ansactions (“I”), du plicate tr ansactions (“D”), an d null tra nsactions (“N”). The se correct ion types provided f or a speci fic transa ction entr y will be recorded i n the new AUTO-CORRE CTION TYPE OF ERROR (#96) fiel d that is being adde d to corre cted entri es in the AR TRANSAC TION File (#433).
	846
	847	Figure 3-3 : Auto- Correct Pa tient Disc repancy Re port
	848
	849
	850
	851	1 - SORTED BY BILL N O.
	852
	853	PAGE 1BILL S THAT HAV E BEEN AUT O-CORRECTE D (SORTED BY BILL #) OCT 20, 20 16
	854	---------- ---------- ---------- ---------- ---------- ---------- ---------- --------
	855
	856	BILL NO.DE BTORSSNTRA NS NUMAUTO -C DATEAUT O-C REASON
	857	---------- ---------- ---------- ---------- ---------- ---------- --------
	858	442-K000FQ
	859	ACSCUREN,T STZALO C
	860	1627
	861	4525262
	862	APR
	863	28,2015
	864	DUPLICATE TRAN
	865	442-K111AA
	866	ACSAER,TST ANT CHEE
	867	0411
	868	123456789
	869	APR
	870	28,2015
	871	NULL TRANS ACTI
	872	442-K111BB
	873	ACSAER,TST ANT CHEE
	874	0411
	875	987654321
	876	APR
	877	28,2015
	878	NOT FIXABL E
	879	442-K111DD D
	880	ACSEK,TSTC EL CHEUG
	881	0092
	882	8793333
	883	MAY
	884	5,2015
	885	INCOMPLETE FLA
	886
	887	2 -SORTED BY DEBTOR
	888
	889	PAGE 1BILL S THAT HAV E BEEN AUT O-CORRECTE D (SORTED BY DEBTOR) OCT 20, 20 16
	890	---------- ---------- ---------- ---------- ---------- ---------- ---------- --------
	891
	892	DEBTORBILL NO.SSNTRA NS NUMAUTO -C DATEAUT O-C REASON
	893	---------- ---------- ---------- ---------- ---------- ---------- --------
	894	ACSAER,TST ANT CHEE
	895	442-K111AA
	896	0411
	897	123456789
	898	APR
	899	28,2015
	900	NULL TRANS ACTI
	901	ACSAER,TST ANT CHEE
	902	442-K111BB
	903	0411
	904	987654321
	905	APR
	906	28,2015
	907	NOT FIXABL E
	908	ACSCUREN,T STZALO C
	909	442-K000FQ
	910	1627
	911	4525262
	912	APR
	913	28,2015
	914	DUPLICATE TRAN
	915	ACSEK,TSTC EL CHEUG
	916	442-K111DD D
	917	0092
	918	8793333
	919	MAY
	920	5,2015
	921	INCOMPLETE FLA
	922
	923	3 - SORTED BY AUTO-C ORRECT DAT E
	924
	925	PAGE 1BILL S THAT HAV E BEEN AUT O-CORRECTE D (SORTED BY AUTO-C DT) OCT 20 , 2016
	926	---------- ---------- ---------- ---------- ---------- ---------- ---------- --------
	927
	928	AUTO-C DAT EDEBTORBIL L NO.SSNTR ANS NUMAUT O-C REASON
	929	---------- ---------- ---------- ---------- ---------- ---------- --------
	930	APR
	931	28,2015
	932	ACSAER,TST ANT CHEE
	933	442-K111AA
	934	0411
	935	123456789
	936	NULL TRANS ACTI
	937	APR
	938	28,2015
	939	ACSAER,TST ANT CHEE
	940	442-K111BB
	941	0411
	942	987654321
	943	NOT FIXABL E
	944	APR
	945	28,2015
	946	ACSCUREN,T STZALO C
	947	442-K000FQ
	948	1627
	949	4525262
	950	DUPLICATE TRAN
	951	MAY
	952	5,2015
	953	ACSEK,TSTC EL CHEUG
	954	442-K111DD D
	955	0092
	956	8793333
	957	INCOMPLETE FLA
	958
	959	4 -SORTED BY TRANSAC TION NUMBE R
	960
	961	PAGE 1BILL S THAT HAV E BEEN AUT O-CORRECTE D (SORTED BY TRANS N UM) OCT 20 , 2016
	962	---------- ---------- ---------- ---------- ---------- ---------- ---------- --------
	963
	964	TRANS NUMD EBTORBILL NO.SSNAUTO -C DATEAUT O-C REASON
	965	---------- ---------- ---------- ---------- ---------- ---------- --------
	966	4525262
	967	ACSCUREN,T STZALO C
	968	442-K000FQ
	969	1627
	970	APR
	971	28,2015
	972	DUPLICATE TRAN
	973	8793333
	974	ACSEK,TSTC EL CHEUG
	975	442-K111DD D
	976	0092
	977	MAY
	978	5,2015
	979	INCOMPLETE FLA
	980	123456789
	981	ACSAER,TST ANT CHEE
	982	442-K111AA
	983	0411
	984	APR
	985	28,2015
	986	NULL TRANS ACTI
	987	987654321
	988	ACSAER,TST ANT CHEE
	989	442-K111BB
	990	0411
	991	APR
	992	28,2015
	993	NOT FIXABL E
	994
	995	3.2.3.2.Ap plication Report Int erface
	996
	997	Table 7: D escription
	998
	999
	1000	Report Col umn
	1001
	1002
	1003	Data Sourc e
	1004
	1005	BILL NO. ( #.01)
	1006	ACCOUNTS R ECEIVABLE File (#430 )
	1007	DEBTOR (#. 01)
	1008	AR DEBTOR File (#340 )
	1009	SSN (#110)
	1010	AR DEBTOR File (#340 )
	1011	TRANS NUM (#.01)
	1012	AR TRANSAC TION File (#433)
	1013	AUTO-C DAT E (#94)
	1014	AR TRANSAC TION File (#433)
	1015	AUTO-CORCT REASON (# 96)
	1016	AR TRANSAC TION File (#433)
	1017
	1018	3.2.3.3.Un mapped Dat a Element
	1019
	1020	There is n o unmapped data.
	1021
	1022	3.3.Concep tual Infra structure Design
	1023
	1024	The Consol idated Pat ient State ment Discr epancy Aut o-Correcti on Program has a con ceptual in frastructu re similar to the St atement Di screpancy Listing. P atient acc ounts are examined f or mismatc hes betwee n patient accounts a nd transac tion amoun ts. Attemp ts are mad e to corre ct transac tions for a limited number of known cond itions whi ch create account im balances.
	1025
	1026	3.3.1.Syst em Critica lity and H igh Availa bility
	1027
	1028	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1) addres ses defect fixes and enhanceme nts for an existing VistA appl ication (V istA/AR) a nd do not introduce or change VistA arch itecture/H ardware/sy stem perfo rmance/LAN impact/Se curity and do not in troduce an y new serv ice/applic ation depe ndencies f or VistA o r the corr esponding AR package (s).
	1029
	1030	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1) is a h igh level VistA AR p atch that has multip le system dependenci es, each o f which sh ould have its own re covery pla n. Followi ng release , the PSE Phase 1 pa tch, PRCA* 4.5*307, m ay be obta ined by fi le transfe r from rem ote sites that are l isted in i ts install ation inst ructions. Following the mandat ed install ation date for the p atch, it w ill be inc luded in f uture Vist A releases and be av ailable wh enever Vis tA is upda ted or res tored. Sin ce the pat ch will co rrect only transacti ons that h ave occurr ed since t he last pa tient stat ement date , a curren t AR TRANS ACTION Fil e (#433) s hould also be availa ble to pro cess.
	1031
	1032	3.3.2.Spec ial Techno logy
	1033
	1034	Table 8: Special Te chnology R equirement s
	1035
	1036	Special Te chnologyDe scriptionN otional Lo cationTRM Status
	1037
	1038
	1039
	1040	3.3.3.Tech nology Loc ations
	1041
	1042	Table 9: T echnology Location D etails
	1043
	1044	Technology Component
	1045	Production 1
	1046	Location
	1047	Usage
	1048	Workstatio ns
	1049
	1050
	1051	Special Ha rdware
	1052
	1053
	1054	Interface Processors
	1055
	1056
	1057	Legacy Mai nframe
	1058
	1059
	1060	Legacy App lication S erver
	1061
	1062
	1063	Legacy Dat abases
	1064	VAMC VistA
	1065	VAMC, CPAC
	1066	Other
	1067
	1068
	1069
	1070	Technology Component
	1071	Production 2
	1072	Location
	1073	Usage
	1074
	1075
	1076
	1077
	1078	Technology Component
	1079	Certificat ion
	1080	Location
	1081	Usage
	1082
	1083
	1084
	1085
	1086	Technology Component
	1087	Education
	1088	Location
	1089	Usage
	1090
	1091
	1092
	1093
	1094	Technology Component
	1095	Test
	1096	Location
	1097	Usage
	1098
	1099
	1100
	1101
	1102
	1103	Technology Component
	1104	Developmen t
	1105	Location
	1106	Usage
	1107
	1108
	1109
	1110
	1111	3.3.4.Conc eptual Inf rastructur e Diagram
	1112
	1113	3.3.4.1.Lo cation of Environmen ts and Ext ernal Inte rfaces
	1114
	1115	3.3.4.2.Co nceptual P roduction String Dia gram
	1116
	1117	4.System A rchitectur e
	1118
	1119	4.1.Hardwa re Archite cture
	1120
	1121	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1) will b e embedded within th e Accounts Receivabl e package of VistA a nd will th erefore ru n on whate ver hardwa re is curr ently supp orting Vis tA.
	1122
	1123	4.2.Softwa re Archite cture
	1124
	1125	The softwa re Patient Statement Enhanceme nts (PSE) Discrepanc ies (Incre ment 1, Ph ase 1) wil l be issue d in the f orm of a p atch to th e Accounts Receivabl e package of VistA a nd will op erate with in the Vis tA AR envi ronment.
	1126
	1127	4.3.Networ k Architec ture
	1128
	1129	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1) will o perate wit hin the ex isting net work archi tecture th at support s VistA in stallation s for the VA.
	1130
	1131	4.4.Servic e Oriented Architect ure / ESS
	1132
	1133	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1) is int ended to a utomatical ly correct statement balance d iscrepanci es that pr event pati ent statem ents from printing. This will facilitate the succe ssful comp letion of the tasks for which the statem ent proces sing syste ms were de signed.
	1134
	1135	4.5.Enterp rise Archi tecture
	1136
	1137	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1) shares the attri butes of t he VistA A ccounts Re ceivable p ackages in to which i t will be incorporat ed.
	1138
	1139	5.Data Des ign
	1140
	1141	Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1) will w ork within the exist ing file s tructure o f VistA AR . Specific ally, fiel ds will be updated a s necessar y within t he AR TRAN SACTION Fi le (#433) in order t o correct balance di screpancie s and allo w those st atements t o be print ed.
	1142
	1143	One such f ield is th e INCOMPLE TE TRANSAC TION FLAG (#10). If duplicate transactio ns are fou nd on the patient st atement, t his flag w ill be set for the n ewer of th e two tran sactions i n order to inactivat e it.
	1144
	1145	A second s uch field is the TRA NS. AMOUNT (#15). If this fiel d is found to be emp ty or to c ontain an incorrect value for which an e xplanation can be de termined, a correcte d transact ion amount will be e ntered to bring the patient st atement ba ck into ba lance.
	1146
	1147	5.1.DBMS F iles
	1148
	1149	N/A
	1150
	1151	5.2.Non-DB MS Files
	1152
	1153	N/A
	1154
	1155	5.3.Data V iew
	1156
	1157	N/A
	1158
	1159	6.Detailed Design
	1160
	1161	The update s being im plemented in Patient Statement Enhanceme nts (PSE) Discrepanc ies (Incre ment 1, Ph ase 1) mer ely correc t minor de fects in t he existin g Accounts Receivabl e system t o prevent future tra nscations from havin g one of t hree exist ing issues and to id entify and automatic ally corre ct the exi sting tran sactions w ith these issues. As such, the overall c hanges to existing h ardware an d software and extre mely minor .
	1162
	1163	6.1.Hardwa re Detaile d Design
	1164
	1165	N/A
	1166
	1167	6.2.Softwa re Detaile d Design
	1168
	1169	N/A – only minor fix es to exis ting routi nes and th ree new ro utines to fix and re port exist ing errors .
	1170
	1171	6.2.1.Conc eptual Des ign
	1172
	1173	The follow ing figure outlines the concep tual desig n for the auto-corre ct process .
	1174
	1175	Figure 6-1 : Auto- Correct Pr ocess Flow
	1176
	1177
	1178
	1179
	1180
	1181	6.2.1.1.Pr oduct Pers pective
	1182
	1183	N/A
	1184
	1185	6.2.1.1.1. User Inte rfaces
	1186
	1187	The intend ed users o f the Cons olidated P atient Sta tement sof tware are the AR sta ff located at the
	1188	VAMCs and CPACs, who are respo nsible for managing the Patien t Statemen t generati on.
	1189
	1190	6.2.1.1.2. Hardware Interfaces
	1191
	1192	This secti on is not applicable to Patien t Statemen t Enhancem ents (PSE) Discrepan cies
	1193	(Increment 1, Phase 1).
	1194
	1195	6.2.1.1.3. Software Interfaces
	1196
	1197	The Consol idated Pat ient State ment funct ionality w ill use th e VA Mailm an for dat a transfer .
	1198
	1199	6.2.1.1.4. Communica tions Inte rfaces
	1200
	1201	6.2.1.1.5. Memory Co nstraints
	1202
	1203	No limits on memory or partiti on size wi ll exist f or the Con solidated Patient St atement.
	1204
	1205	6.2.1.1.6. Special O perations
	1206
	1207	No special operation s are requ ired by th e user or for extern al devices or COTS s ystems.
	1208
	1209	6.2.1.2.Pr oduct Feat ures
	1210
	1211	The Patien t Statemen t auto-cor rection fu nctionalit y will be provided b y VistA AR patch PRC A4.5307. The post -install p ortion of the patch will updat e the SITE STATEMENT DAY field (#.11) fo r 17 speci fic Statio n ID’s in the AR PAR AMETER fil e (#342). Refer to S ection
	1212	6.2.2.2 fo r more det ail on the product f eatures.
	1213
	1214	6.2.1.3.Us er Charact eristics
	1215
	1216	The intend ed users o f the Cons olidated P atient Sta tement sof tware are the AR sta ff located at the
	1217	VAMCs and CPACs, who are respo nsible for managing the Patien t Statemen t generati on.
	1218
	1219	6.2.1.4.De pendencies and Const raints
	1220
	1221	Not all of the proce ssing cond itions whi ch result in a missi ng transac tion amoun ts, “incom plete”
	1222	transactio n statuses or duplic ate transa ctions hav e been ide ntified.
	1223
	1224	Technical Subject Ma tter Exper t (SME) sh ortage, du e to the c omplexity of the exi sting soft ware, and the partic ipation of experienc ed VistA A R applicat ion develo pers is es sential to the succe ssful desi gn and dev elopment o f the syst em.
	1225
	1226	The develo pment team continues to work c losely wit h the busi ness to de termine sc enarios th at cause d uplicate t ransaction s and miss ing transa ctions amo unts.
	1227
	1228	6.2.2.Spec ific Requi rements
	1229
	1230	6.2.2.1.Da tabase Rep ository
	1231
	1232	The follow ing table identifies all datab ases that will be mo dified as part of th is project .
	1233
	1234	Table 10: Database I nventory
	1235
	1236	Database N ameDescrip tionTypeSt eward
	1237
	1238	Database N ameDescrip tionTypeSt eward
	1239
	1240
	1241	AR Transac tion file
	1242	#433
	1243
	1244	Holds the Accounts
	1245	Receivable transacti ons.
	1246
	1247	ModifyAcco unts Recei vable pack age
	1248
	1249
	1250
	1251	6.2.2.2.Sy stem Featu res
	1252
	1253	This sub-s ection out lines the functional specifica tions for the Consol idated Pat ient State ment.
	1254
	1255	Table 11: Functional Specifica tions
	1256
	1257	ACJ001
	1258	The AR app lication s hall execu te Auto-Co rrection f unctionali ty that de tects and remediates the follo wing 3 typ es of disc repancies:
	1259	•Transacti on amount missing
	1260	•Duplicate transacti on
	1261	•Incomplet e status
	1262	ACJ002
	1263	The Auto-C orrection functional ity shall be a taske d job that runs in t he backgro und of the Accounts Receivable applicati on. The jo b will be initially scheduled to run eve ry Wednesd ay at 1:00 AM local time, befo re the CCP C job runs . The sche duling may change ba sed on how long the job runs d uring site testing
	1264	ACJ003
	1265	The AR app lication s hall inclu de an opti on to exec ute the Au to-Correct ion job, s o that it can be run on demand . There sh all be a u ser prompt indicatin g "Request ed Time To Run: NOW/ " so the u ser can ru n the job immediatel y (NOW) or queue the job to ru n at a fut ure date a nd time.
	1266	ACJ004
	1267	The AR app lication s hall provi de a secur ity key to run the A uto-Correc tion job b y an optio n. The new security key name w ill be PRC A AUTOCRCT PGM.
	1268	ACJ005
	1269	The Auto-C orrection job shall run after patch inst allation, so that au to-correct ion of dis crepancies begins im mediately.
	1270	ACJ006
	1271	The Auto-C orrection job shall execute Bu siness Rul es for Bal ancing Acc ounts to d etermine i f an accou nt is in b alance.
	1272
	1273
	1274	ACJ007
	1275	If a missi ng dollar amount in the TRANS AMOUNT fie ld (#15) o f the AR T ransaction file (#43 3) causes a patient’ s account to be out- of-balance , then the Auto Corr ection Job shall cor rect the o ut-of-bala nce by ent ering the amount in the TRANS AMOUNT fie ld (#15)
	1276
	1277
	1278	Note: This requireme nt may be modified a s work on the auto-c orrection continues.
	1279
	1280
	1281
	1282
	1283	ACJ008
	1284	If a dupli cate trans action in the AR Tra nsaction f ile (#433) causes a patient’s account to be out-of -balance, then the A uto Correc tion Job s hall corre ct the out -of- balan ce by sett ing the IN COMPLETE S TATUS FLAG field (#1 0) to a va lue of 1.
	1285
	1286
	1287	Note: If a transacti on in AR f ile (#433) contains data that is identic al to that of a prev ious trans action exc ept for th e transact ion number then the transactio n is a dup licate.
	1288
	1289
	1290	Note: This requireme nt may be modified a s work on the auto-c orrection continues
	1291	ACJ009
	1292	If one or more trans actions in the AR Tr ansaction file (#433 ) has the INCOMPLETE STATUS FL AG set to 1, and cau ses a pati ent’s acco unt to be out-of-bal ance, then the Auto Correction Job shall correct t he out-of- balance by removing the value of 1 in th e INCOMPLE TE STATUS FLAG field (#10)
	1293
	1294
	1295	If the sys tem cannot determine the trans actions fo r removing the flag, the accou nt will be referred for manual processin g. The Pat ient State ment will remain out of balanc e after th e Auto-Cor rection an d will be listed on the CCPC S tatement E rrors repo rt when it is run.
	1296
	1297
	1298	Note: This requireme nt may be modified a s work on the auto-c orrection continues
	1299	ACJ010
	1300	The Auto-C orrection job shall execute bu siness rul es based o n Manual S teps To Re solve Any Discrepanc y (see RSD ) to remed iate the f ollowing 3 types of discrepanc ies:
	1301	•Transacti on amount missing
	1302	•Duplicate transacti on
	1303	•Incomplet e status
	1304	ACJ011
	1305	The Auto-C orrection job shall send a mes sage to th e Mailman Mail Group
	1306	PRCACPS wh en the job has compl eted.
	1307	ACR001
	1308	The AR app lication s hall creat e an Auto- Correction report th at tracks the follow ing 3 type s of balan ce discrep ancies:
	1309	•Transacti on amount missing
	1310	•Duplicate transacti on
	1311	•Incomplet e status
	1312	ACR002
	1313	The Auto-C orrection Report sha ll list th e discrepa ncy detail s that wer e remediat ed by the Auto-corre ction job and displa y a reason for auto- correction .
	1314	ACR003
	1315	The Auto-C orrection Report sha ll list th e discrepa ncy detail s that cou ld not be remediated by the Au to-Correct ion job an d display “Other Err or” as the reason wh y the disc repancy co uld not be resolved through th is process .
	1316	ACR004
	1317	The Auto-C orrection report sha ll display only the last 4 dig its of the Social Se curity
	1318	Number (SS N).
	1319
	1320
	1321	ACR005
	1322	The AR app lication s hall promp t the user to enter a FROM and TO date f or the Aut o- Correct ion Report .
	1323	ACR006
	1324	The Auto-C orrection Report sha ll provide a default FROM date value of “T-7”.
	1325	ACR007
	1326	The Auto-C orrection Report sha ll provide a default TO date v alue of “T ”.
	1327	ACR008
	1328	The AR app lication s hall promp t the user to sort t he Auto-Co rrection R eport by t he followi ng paramet ers:
	1329	•Bill numb er
	1330	•Debtor na me
	1331	•Transacti on number
	1332	•Auto-Corr ection Dat e
	1333	ACR009
	1334	The Auto-C orrection report sha ll display the follo wing infor mation wit h correspo nding head ers:
	1335	•BILL NO.
	1336	•DEBTOR
	1337	•SSN
	1338	•TRANS NUM
	1339	•AUTO-CORC T DATE
	1340	•AUTO-CORC T REASON
	1341	ACR010
	1342	The Auto-C orrection report mai n header s hall read
	1343	“BILLS THA T HAVE BEE N AUTO-COR RECTED”
	1344	ACR011
	1345	The Auto-C orrection report wil l have the following menu path :
	1346
	1347
	1348	Clerk’s AR Menu
	1349	Account Ma nagement
	1350	Auto-Corre ct Patient Discrepan cy Report
	1351	ACR012
	1352	The Auto-C orrection Report sha ll pause a nd display a “Contin ue” prompt at the en d of the r eport if t he report needs to s pan to ano ther page on the use r VistA sc reen.
	1353
	1354	US003As a VistA user , I want m y VistA si te to buil d and tran smit patie nt billing statement files tha t are sent to AITC p rior to th e 26th of each month so that w hen consol idated pat ient state ment funct ionality i s implemen ted there is a windo w at the e nd of the prior mont h when all statement data has been proce ssed for b illing.
	1355	STATION #S TATION NAM EDATE
	1356	---------- ---------- ---------- ----
	1357	438SIOUX F ALLS,SD21
	1358	501ALBUQUE RQUE,NM21
	1359	504AMARILL O,TX21
	1360	542COATESV ILLE,PA21
	1361	562ERIE,PA 21
	1362	568FORT ME ADE,SD21
	1363	649PRESCOT T,AZ21
	1364	656ST. CLO UD,MN21
	1365	688WASHING TON,DC21
	1366	756EL PASO ,TX21
	1367	565FAYETTE VILLE,NC22
	1368	621MOUNTAI N HOME,TN2 2
	1369	658SALEM,V A22
	1370	664SAN DIE GO,CA22
	1371	671SAN ANT ONIO,TX22
	1372	689WEST HA VEN,CT22
	1373	740TX VALL EY CSTL,TX 22
	1374
	1375
	1376
	1377	6.2.2.3.De sign Eleme nt Tables
	1378
	1379
	1380
	1381	6.2.2.3.1. Routines (Entry Poi nts)
	1382
	1383	The new PR CACPS and PRCACPSA r outines wi ll correct patient s tatement b alances (c urrent and the new c onsolidate d Patient Statements ) where po ssible. T he new rou tines PRCA ACR and PR CAACR1 gen erate the auto-corre ction summ ary report described by the PS E specific ations. Th e date ran ge being e xamined is determine d through the use of two previ ously esta blished AP Is:
	1384
	1385	The LST^PR CAGU API r eturns the last stat ement date before th e statemen t being se nt. PBAL^P RCAGU retu rns the pr evious bal ance and t he date of the last transactio n.
	1386
	1387	For each p atient sta tement (ex isting pat ient state ments and the new co nsolidated patient s tatements- CPS), the bill balan ce and tra nsaction b alances ar e calculat ed and com pared, usi ng previou sly develo ped method s for chec king for b alance dis crepancies . If the n ew stateme nt is foun d to be ou t of balan ce, furthe r analysis is perfor med to det ermine the cause of the discre pancy. Rec ords will not be rev iewed for debtors wi th unknown mailing a ddresses o r local In tegration Control Nu mbers (ICN s). These ICNs (#991 .01) are s tored in t he PATIENT File (#2) .
	1388
	1389	The fields of intere st within the transa ction reco rd are: IN COMPLETE T RANSACTION FLAG (#10 )
	1390
	1391	TRANSACTIO N DATE (#1 1) TRANS. AMOUNT (#1 5)
	1392	Transactio n records that are s elected fo r correcti on are log ged into a temporary file that is used t o generate the auto- correction report. E ntries for the Patie nt Stateme nts Auto-C orrection Report
	1393	will be fi led under the PRCAGT PS label. They will then be fi led in an ordered ar ray by: Nu mber of th e job that is creati ng the rep ort ($J)
	1394	AR DEBTOR File (#340 ) Internal Entry Num ber (IEN)
	1395
	1396	Bill Numbe r – IEN fo r ACCOUNTS RECEIVABL E File (#4 30)
	1397
	1398	Transactio n Number – From the AR TRANSAC TION file (#433) ent ry for thi s bill #.
	1399
	1400	After chan ges have b een made t o a transa ction entr y to corre ct a state ment discr epancy, th e followin g fields w ill be add ed to the transactio n record t o document the chang es:
	1401
	1402	AUTO-CORRE CTION DATE (#94)
	1403
	1404	AUTO-CORRE CTION TRAN S. AMOUNT (#95) AUTO -CORRECTIO N TYPE OF ERROR (#96 )
	1405
	1406	Table 12: Routine : PRCACPS Ro utinesActi vities
	1407	Routine Na mePRCACPS
	1408
	1409	Enhancemen t Category NewModifyD eleteNo Ch ange
	1410
	1411	RTMACJ001- ACJ013
	1412
	1413	Related Op tionsPatie nt Stateme nt Auto-Co rrection P rogram
	1414
	1415
	1416
	1417	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	1418
	1419	$$LST^RCFN 01
	1420	$$CRC32^XL FCRC EN1^D IP
	1421	^DIR
	1422	$$FMTE^XLF DT
	1423	$$UPPER^VA LM1
	1424	%ZTLOAD
	1425	%ZIS
	1426
	1427
	1428
	1429	RoutinesAc tivities
	1430
	1431
	1432
	1433	Routines
	1434
	1435
	1436	Activities
	1437
	1438
	1439	Data Dicti onary (DD) Reference s
	1440	ACCOUNTS R ECEIVABLE File (#430 ) AR TRANS ACTION Fil e (#433)
	1441	AR DEBTOR File (#340 )
	1442	Related Pr otocols
	1443	N/A
	1444	Related In tegration Control Re gistration s (ICRs)
	1445	N/A
	1446
	1447	Data Passi ng
	1448	InputOutpu tBothGloba l
	1449	ReferenceR eferenceLo cal
	1450	Input Attr ibute Name and
	1451	Definition
	1452	Name: N/A Definition :
	1453	Output Att ribute Nam e and Defi nition
	1454	Name: N/A Definition :
	1455
	1456
	1457
	1458	Current Lo gic
	1459
	1460	NA
	1461
	1462
	1463
	1464	Modified L ogic (Chan ges are in bold)
	1465
	1466	PRCACPS ; ALBANY/BDB -PATIENT S TATEMENTS AUTO-CORRE CTION ;09/ 21/15 3:34
	1467	PM
	1468	;;4.5;Acco unts Recei vable;30 7;Mar 20 , 1995;Bui ld 79
	1469	;;Per VA D irective 6 402, this routine sh ould not b e modified .
	1470	; Q
	1471	;
	1472	BEGIN; Ent ry point f or manual run
	1473	; Determin e if Auto Correct pr ocess is c urrently r unning
	1474	N DIR,PRCA STRT,QUIT, X,X1,X2,Y
	1475	S PRCASTRT =$G(^XTMP( "PRCACPS", 0)),QUIT=0
	1476	; Notify u ser if Aut o Correct process is currently running
	1477	I PRCASTRT '="" D Q:Q UIT
	1478	.S Y=$P(PR CASTRT,U,2 )
	1479	.D DD^%DT
	1480	.S PRCASTR T=Y
	1481	.W !!,"The Patient S tatement A uto-Correc tion Progr am was pre viously st arted on"
	1482	.W !,PRCAS TRT," and has not ye t successf ully compl eted."
	1483	.W !!,"The job can t ake up to 1 hour to complete w hen schedu led to run outside"
	1484
	1485
	1486
	1487	Modified L ogic (Chan ges are in bold)
	1488
	1489	.W !,"of n ormal busi ness hours and longe r if run d uring norm al busines s hours"
	1490	.W !,"when the load on the sys tem is gre ater."
	1491	.W !!
	1492	.W !,"If i t has been more than an hour s ince the P atient Sta tement Aut o-Correcti on"
	1493	.W !,"Prog ram was st arted and the confir mation e-m ail with s ubject: CP S"
	1494	.W !,"AUTO -CORRECTIO N COMPLETE has not b een sent t o the PRCA CPS mail g roup, you can"
	1495	.W !,"run the Patien t Statemen t Auto-Cor rection Pr ogram agai n."
	1496	.W !
	1497	.S DIR("A" )="Do you want to ru n the Pati ent Statem ent Auto-C orrection Program ag ain"
	1498	.S DIR(0)= "Y",DIR("B ")="NO"
	1499	.D ^DIR
	1500	.W !
	1501	.; Quit if ^, ^^, Ti meout or N o
	1502	.I $D(DTOU T)!($D(DUO UT))!($D(D IROUT))!(Y =0) S QUIT =1
	1503	.K DTOUT,D UOUT,DIROU T
	1504	.Q
	1505	;
	1506	N ZTDTH,ZT IO,ZTDESC, ZTRTN,ZTSK
	1507	W !,"Queue the patie nt stateme nt discrep ancies aut o-correcti on program to run:" S ZTDESC=" Auto-Corre ct Patient Statement Discrepan cies"
	1508	S ZTRTN="S TART^PRCAC PS",ZTIO=" " D ^%ZTLO AD
	1509	Q
	1510	;
	1511	START; Ent ry point f or Schedul ed backgro und job
	1512	N DEBTOR,D EBTOR0,DEB TOR1,PRCAS TRT,REFREV ,X,Y S PRC ASTRT=$G(^ XTMP("PRCA CPS",0))
	1513	; If a pre vious job still runn ing send e -mail warn ing to PRC ACPS mail group
	1514	I PRCASTRT '="" D
	1515	.S Y=$P(PR CASTRT,U,2 )
	1516	.; Convert date to e xternal fo rmat
	1517	.D DD^%DT
	1518	.S PRCASTR T=Y
	1519	.; Send ma il to PRCA CPS mail g roup notin g previous run didn' t complete
	1520	.D PRCAMAI L(PRCASTRT )
	1521	.Q
	1522	; Get curr ent date/t ime
	1523
	1524
	1525
	1526	Modified L ogic (Chan ges are in bold)
	1527
	1528	D NOW^%DTC
	1529	S (PRCASTR T,X1)=%,X2 =8
	1530	D C^%DTC
	1531	S ^XTMP("P RCACPS",0) =X_U_PRCAS TRT_U_"Pat ient State ment Auto- Correction
	1532	Program"
	1533	; Loop thr ough C x-r ef in 430. This fiel d points t o the Debt or File, w hich in tu rn is a
	1534	; variable pointer t o other fi les. S DEB TOR=0
	1535	F S DEBTOR =$O(^PRCA( 430,"C",DE BTOR)) Q:D EBTOR'?1N. N D
	1536	.; Perform the same in/out of balance ch eck as the CHECK PAT IENT ACCOU NT BALANCE option
	1537	.; Quit to next debt or if acco unt is in balance
	1538	.I '$$EN^P RCAMRKC(DE BTOR) Q
	1539	.S BALDIFF =0
	1540	.S DEBTOR0 =$G(^RCD(3 40,DEBTOR, 0)),DEBTOR 1=$G(^(1))
	1541	.; QUIT if it doesn' t point to the PATIE NT (^DPT) file
	1542	.Q:$P(DEBT OR0,"^")'[ "DPT("
	1543	.Q:$P(DEBT OR1,"^",9) =1 ; quit if debtor address ma rked unkno wn
	1544	.; Skip th is Debtor is they at least 1 B ill in #43 0 with a s tatus of R EFUND REVI EW (#44)
	1545	.Q:$$REFRE V(DEBTOR)
	1546	.; Get pre vious bala nce and da te of last transacti on from th e AR EVENT file (#34 1)
	1547	.D ENTER(D EBTOR)
	1548	.; Perform checks/up dates base d on File #430
	1549	.D START1
	1550	.; QUIT if in balanc e
	1551	.; *** Rem oved so al l out of b alance acc ounts to e nter START 2
	1552	.;I BALDIF F=0 K BALD IFF,^TMP(" PRCAGTPS", $J),^TMP(" PRCABILL", $J) Q
	1553	.; Review Data in ^T MP and upd ate #433 a s needed
	1554	.D START2
	1555	.; If the account is still out of balanc e after fi xing every thing it c an
	1556	.; call UP DTLTR to m ark the la st transac tion for t he account as NOT FI XABLE
	1557	.I $$EN^PR CAMRKC(DEB TOR) D UPD TLTR^PRCAC PSA(0)
	1558	.; clean u p temp inf o and proc ess next d ebtor
	1559	.K BALDIFF ,^TMP("PRC AGTPS",$J) ,^TMP("PRC ABILL",$J)
	1560	; Send mai lman messa ge to the PRCACPS ma il group a t end of p rocessing
	1561	D USRMSG Q
	1562	;
	1563
	1564
	1565
	1566	Modified L ogic (Chan ges are in bold)
	1567
	1568	REFREV(DEB TOR) ;
	1569	; Check if any Bill for this D ebtor has a status o f REFUND R EVIEW (#44 ) N BN,QUI T
	1570	S BN="",QU IT=0
	1571	F S BN=$O( ^PRCA(430, "C",DEBTOR ,BN)) Q:'B N D Q:QUI T
	1572	.; Check C URRENT STA TUS (#8) f or status of REFUND REVIEW (#4 4)
	1573	.I $P($G(^ PRCA(430,B N,0)),U,8) =44 S QUIT =1
	1574	Q QUIT
	1575	; ENTER(DE BTOR) ;
	1576	S (PBAL,BB AL,TBAL)=0 K ^TMP("P RCAGTPS",$ J)
	1577	; Get last type of e vent for d ebtor by c alling $$L ST^RCFN01. Reference s files #3 40 and #34 1.1
	1578	S DAT=$$LS T^RCFN01(D EBTOR,2) I DAT<1 S D AT=0
	1579	; PBAL^PRC AGU gets p revious ba lance and date of la st transac tion from the AR EVE NT file (# 341)
	1580	I DAT S DA T=9999999. 999999-DAT D PBAL^PR CAGU(DEBTO R,.DAT,.PB AL) D EN(D EBTOR,DAT)
	1581	K BBAL,TBA L,DAT
	1582	Q
	1583	; EN(DEBTO R,BEG,END, TTY) ;
	1584	NEW Y
	1585	; If Begin ning date is not def ined, set it to 0 to start at beginning
	1586	; If End d ate is not defined, set it to today's da te
	1587	S:$G(BEG)= "" BEG=0 I $G(END)=" " D NOW^%D TC S END=% K % S TTY =$G(TTY) I TTY="" D F430
	1588	D F433
	1589	QQ
	1590	F430; Chec ks for ACC OUNTS RECE IVABLE fil e (#430) f or bills w ith (#3) O RIGINAL AM OUNT has a value,
	1591	; set this into the ^TMP globa l with _"^ 0" NEW DAT ,BN
	1592	S DAT=BEG F S DAT=$ O(^PRCA(43 0,"ATD",DE BTOR,DAT)) Q:('DAT)! (DAT>END) S BN=0 F S BN=$O(^P RCA(430,"A TD",DEBTOR ,DAT,BN)) Q:
	1593	'BN D
	1594	.; Add the original amount if it is with in date ra nge based on the dat e of the l ast statem ent
	1595	.I $P(^PRC A(430,BN,0 ),U,3) S
	1596
	1597
	1598
	1599	Modified L ogic (Chan ges are in bold)
	1600
	1601	^TMP("PRCA GTPS",$J,D EBTOR,BN,0 )=$P(^PRCA (430,BN,0) ,"^",3)_"^ 0" Q
	1602	F433;
	1603	NEW DAT,TN
	1604	; Loop thr ough the D ates and B ills
	1605	F DAT=BEG: 0 S DAT=$O (^PRCA(433 ,"ATD",DEB TOR,DAT)) Q:('DAT)!( DAT>END) F TN=0:0 S TN=$O(^PR CA(433,"AT D",DEBTOR, DAT,TN)) Q :'T
	1606	N D
	1607	.S TCMPLT= "",TMBSNC= "",TRDMRD= "",COMM=0
	1608	.S TN0=$G( ^PRCA(433, TN,0)) Q:T N0=""
	1609	.S TN1=$G( ^PRCA(433, TN,1))
	1610	.S TN3=$G( ^PRCA(433, TN,3))
	1611	.I $P(TN1, U,2)="" Q ;MISSING TRANS TYPE
	1612	.I $P(TN0, U,10)=1 S TCMPLT=1
	1613	.I $P(TN1, U,2)=45 S COMM=1 G F 433A
	1614	.I $G(TTY) '="" Q:TTY '=$P(TN1,U ,2)
	1615	.; Quit if Transacti on Type is blank or one of the following :
	1616	.; 3:REFER TO RC, 4: REFER TO D OJ, 5:REES TABLISH TO RC/DOJ, 6 :RETURNED BY RC/DOJ
	1617	.; 7:CASH COLLECTION BY RC/DOJ , 24:MARSH AL/COURT C OST, 25:RE PAYMENT PL AN, 30:DEB IT VOUCHER (SF 5515)
	1618	.I TTY="", ",3,4,5,6, 7,24,25,30 ,"[(","_$P (TN1,U,2)_ ",") Q
	1619	.; QUIT if BILL NUMB ER (#.03)= blank OR TRANSACTIO N STATUS ( #4) '= COM PLETE
	1620	.I ($P(TN0 ,U,2)="")! ($P(TN0,U, 4)'=2) Q
	1621	.; IF PRCA HIST="THIS T" AND TRA NSACTION T YPE (#12) = COMMENT (#45) call
	1622	F433A to S et the dat a into ^TM P("PRCAGTP S",$J,DEBT OR
	1623	.I $G(PRCA HIST)="THI ST",$P(TN1 ,U,2)=45 G F433A
	1624	.; IF TRAN SACTION TY PE (#12) ' = to 46 UN SUSPENDED AND TRANSA CTION TYPE (#12)'= t o 47 CHAR GE SUSPEND ED
	1625	.I $P(TN1, "^",2)'=46 ,$P(TN1,"^ ",2)'=47 D I TN1="" Q
	1626	..N RCTRAN DA,RCSTOP, TRANTYPE
	1627	..S RCSTOP =0
	1628	..; Loop B ACKWARDS t hrough the BILL NUMB ER "C" x-r ef
	1629	..S RCTRAN DA=TN
	1630	..F S RCTR ANDA=$O(^P RCA(433,"C ",+$P(TN0, "^",2),RCT RANDA),-1) Q:'RCTRAN DA D I RC STOP Q
	1631	...; QUIT if TRANSAC TION STATU S (#4) '= COMPLETE
	1632	...I $P($G (^PRCA(433 ,RCTRANDA, 0)),"^",4) '=2 Q
	1633
	1634
	1635
	1636	Modified L ogic (Chan ges are in bold)
	1637
	1638	...; Load Transactio n Type
	1639	...S TRANT YPE=$P($G( ^PRCA(433, RCTRANDA,1 )),"^",2)
	1640	...; IF TR ANSACTION TYPE (#12) = 46 UNSU SPENDED se t stop & Q uit
	1641	...I TRANT YPE=46 S R CSTOP=1 Q
	1642	...; IF TR ANSACTION TYPE (#12) = 47 CHAR GE SUSPEND ED set sto p & Quit
	1643	...I TRANT YPE=47 S R CSTOP=1,TN 1="" Q F43 3A.
	1644	.; The dat a in the ^ TMP is as follows:
	1645	.; Data =
	1646	.; 1. TRAN S. AMOUNT (#15)$P(TN 1,U,5)
	1647	.; 2. TRAN SACTION TY PE (#12)$P (TN1,U,2)
	1648	.; 3. PRIN .COLLECTED (#31)$P(T N3,U,1)
	1649	.; 4. INTE REST COLLE CTED (#32) $P(TN3,U,2 )
	1650	.; 5. ADMI N.COLLECTE D (#33)$P( TN3,U,3)
	1651	.; 6. MARS HAL FEE CO LLECTED (# 34)$P(TN3, U,4)
	1652	.; 7. COUR T COST COL LECTED (#3 5)$P(TN3,U ,5)
	1653	.; 8. TOTA L OF #3 - #7
	1654	$P(TN3,U,1 )+$P(TN3,U ,2)+$P(TN3 ,U,3)+$P(T N3,U,4)+$P (TN3,U,5)
	1655	.; 9. TCMP LT(#10) IN COMPLETE T RANSACTION FLAG
	1656	.;10. TRDM RD - Doesn 't appear to be used
	1657	.;11. TMBS NC - Doesn 't appear to be used
	1658	.;12. Dupl icate flag for use i n START2 1 =duplicate , 0=not a duplicate. Set in
	1659	BILLQUIT^P RCACPSA
	1660	.;
	1661	.N PRCATEM P
	1662	.S PRCATEM P=$P(TN1,U ,5)_U_$P(T N1,U,2)_U_ $P(TN3,U,1 )_U_$P(TN3 ,U,2)_U_$P (TN3,U,3)_ U_$P(TN3, U,4)_U_$P( TN3,U,5)
	1663	.S PRCATEM P=PRCATEMP _U_($P(TN3 ,U,1)+$P(T N3,U,2)+$P (TN3,U,3)+ $P(TN3,U,4 )+$P(TN3, U,5))
	1664	.S PRCATEM P=PRCATEMP _U_TCMPLT
	1665	.S PRCATEM P=PRCATEMP _U_TRDMRD
	1666	.S PRCATEM P=PRCATEMP _U_TMBSNC
	1667	.S ^TMP("P RCAGTPS",$ J,DEBTOR,$ P(TN0,U,2) ,TN)=PRCAT EMP
	1668	.K TN0,TN1 ,TN3,TCMPL T,TRDMRD,T MBSNC,COMM K PRCAHIS T
	1669	Q
	1670	;
	1671
	1672
	1673
	1674	Modified L ogic (Chan ges are in bold)
	1675
	1676	START1 ;
	1677	;
	1678	S BILL=""
	1679	S CBALTOT= 0 ; Will b e the tota l of all C URRENT BAL ANCE field (#11) for the accou nt
	1680	; ACCOUNTS RECEIVABL E (#430) T he C cross -reference allows us er look-up of bills belonging to a speci fic debtor .
	1681	; Loop thr ough bills
	1682	; ^TMP("PR CABILL",$J ,DEBTOR,BI LL)= Sum o f CURRENT BALANCE fi eld (#11) for the Bi ll
	1683	;^Sum of T RANS. AMOU NT (#15) f or all tra nsactions for the Bi ll
	1684	;^Stop Fla g if the B ill has mo re than on e error
	1685	K ^TMP("PR CABILL",$J )
	1686	F S BILL=$ O(^PRCA(43 0,"C",DEBT OR,BILL)) Q:BILL'?1N .N D
	1687	.; BILLTOT is the CU RRENT BALA NCE field (#11) for each Bill for the De btor
	1688	.N BILLTOT
	1689	.S BN0=$G( ^PRCA(430, BILL,0))
	1690	.; QUIT: C URRENT STA TUS (#8) ' = ACTIVE
	1691	.; I $P(BN 0,U,8)'=16 Q based on call on 11/28/16 process al l bill wit h a status other tha n Refund R eview
	1692	.; Skip al l Debtors with 1 or more Bills with a st atus of RE FEUND REVI EW (#44). This check is done i n
	1693	.; REFREV above.
	1694	.; Sum up CURRENT BA LANCE (#11 ) for each ACTIVE Bi ll
	1695	.; Set in CBALTOT fo r BALDIFF and in PRC ABILL for BILLDIFF i n Start2
	1696	.; S CBALT OT=CBALTOT +$$GET1^DI Q(430,BILL ,11)
	1697	.S BILLTOT =$$GET1^DI Q(430,BILL ,11) ; Get CURRENT B ALANCE (#1 1) which i s computed : #71+#72+ #73+#74+#7 5
	1698	.S ^TMP("P RCABILL",$ J,DEBTOR,B ILL)=+BILL TOT
	1699	.S CBALTOT =CBALTOT+B ILLTOT
	1700	N BILL,I,T N,TRANSTOT ,TNVAL,TTY PE,TNTOT S TN="",(BI LL,TRANSTO T,TTYPE,TN VAL)=0
	1701	; Loop thr ough Bills
	1702	F S BILL=$ O(^TMP("PR CAGTPS",$J ,DEBTOR,BI LL)) Q:BIL L="" D
	1703	.; Call BI LLQUIT to determine if this bi ll has mul tiple issu es
	1704	.I $$BILLQ UIT^PRCACP SA(DEBTOR, BILL) Q
	1705	.; Initial ize TNTOT for Transa ction Tota l for this bill
	1706	.I $G(TNTO T(BILL))=" " S TNTOT( BILL)=0
	1707	.; Loop th rough Tran sactions
	1708
	1709
	1710
	1711	Modified L ogic (Chan ges are in bold)
	1712
	1713	.S TN=0 F S TN=$O(^T MP("PRCAGT PS",$J,DEB TOR,BILL,T N)) Q:TN=" " D
	1714	..; IF Tra nsaction # = 0 Add T RANS. AMOU NT (#15) t o the Tran saction To tal
	1715	..; I TN=0 S TRANSTO T=TRANSTOT +^TMP("PRC AGTPS",$J, DEBTOR,BIL L,TN) Q
	1716	..; S TNVA L = (#15) TRANS. AMO UNT from # 433
	1717	..S TNVAL= +^TMP("PRC AGTPS",$J, DEBTOR,BIL L,TN)
	1718	..; S TTYP E = (#12) TRANSACTIO N TYPE fro m #433
	1719	..S TTYPE= +$P(^TMP(" PRCAGTPS", $J,DEBTOR, BILL,TN),U ,2)
	1720	..; IF INC OMPLETE TR ANSACTION FLAG is se t, set Tra nsaction a mount = 0
	1721	..S TCMPLT =+$P(^TMP( "PRCAGTPS" ,$J,DEBTOR ,BILL,TN), U,9)
	1722	..I TCMPLT S TNVAL=0
	1723	..S TMBSNC =$P(^TMP(" PRCAGTPS", $J,DEBTOR, BILL,TN),U ,11)
	1724	..I TMBSNC S TNVAL=0
	1725	..; Set TN VAL =0 if one of the following Transacti on Types:
	1726	..; 3:REFE R TO RC, 4 :REFER TO DOJ, 5:REE STABLISH T O RC/DOJ, 6:RETURNED BY RC/DOJ
	1727	..; 25:REP AYMENT PLA N, 32:RETU RNED FOR A MENDMENT, 33:AMENDED BILL
	1728	..I (TTYPE =3)!(TTYPE =4)!(TTYPE =5)!(TTYPE =6)!(TTYPE =32)!(TTYP E=25)!(TTY PE=33) S T NVAL=0
	1729	..; Set TN VAL to neg ative valu e if one o f the Tran saction Ty pes:
	1730	..; 2:PAYM ENT (IN PA RT), 8:TER M.BY FIS.O FFICER, 9: TERM.BY CO MPROMISE,
	1731	10:WAIVED IN FULL
	1732	..; 11:WAI VED IN PAR T, 14:EXEM PT INT/ADM . COST, 29 :TERM.BY R C/DOJ,
	1733	34:PAYMENT (IN FULL)
	1734	..; 35:DEC REASE ADJU STMENT, 41 :REFUNDED, 47:CHARGE SUSPENDED
	1735	..I TTYPE= 2!(TTYPE=8 )!(TTYPE=9 )!(TTYPE=1 0)!(TTYPE= 11)!(TTYPE =14)!(TTYP E=29)!(TTY P E=34)!(T TYPE=35)!( TTYPE=41)! (TTYPE=47) S T
	1736	NVAL=-TNVA L
	1737	..; Update Transacti on Total
	1738	..S TRANST OT=TRANSTO T+TNVAL
	1739	..; Update Transacti on Total f or this Bi ll
	1740	..S TNTOT( BILL)=TNTO T(BILL)+TN VAL
	1741	.; Update PRCABILL w ith Transa ction Tota l for this Bill
	1742	.S $P(^TMP ("PRCABILL ",$J,DEBTO R,BILL),U, 2)=TNTOT(B ILL)
	1743	; Set Bala nce Differ ence = Sum up CURREN T BALANCE (#8) for e ach ACTIVE Bill - Tr ansaction Total for all bills - PBAL fro m A
	1744	R EVENT fi le (#341)
	1745	S BALDIFF= CBALTOT-TR ANSTOT-PBA L
	1746	K CBALTOT, TRANSTOT,P BAL,TCMPLT ,BILL,BN0
	1747
	1748
	1749
	1750	Modified L ogic (Chan ges are in bold)
	1751
	1752	Q
	1753	; START2 ;
	1754	N I,ATNLAS T,BILL,BIL LCNT,BILLC NTR,BILLNU M,FLAGGED, TN,TN9,TRA NSTOT,TNVA L,TT
	1755	YPE,TCPLT, STOP,TRANC RNT,TRANPR EV,TNLAST
	1756	S (BILL,BI LLCNTR,FLA GGED)=0,AT NLAST=""
	1757	; ATNLAST = The last number fo r the acco unt
	1758	; FLAGGED = Account level flag noting if audit dat a was mark ed for thi s account
	1759	; PRCAFIX( X) = Holds the total of the nu mber of tr ansactions for a bil l that mat ch to chec k criteria X
	1760	; Determin e the numb er of bill for this account
	1761	S (BILLCNT ,BILLCNTR) =0,BILLNUM =""
	1762	; Determin e the numb er of bill s for this account
	1763	F S BILLNU M=$O(^TMP( "PRCAGTPS" ,$J,DEBTOR ,BILLNUM)) Q:'BILLNU M S BILLC NT=BILLCNT +1
	1764	; Loop thr ough Bills
	1765	F S BILL=$ O(^TMP("PR CAGTPS",$J ,DEBTOR,BI LL)) Q:BIL L="" D
	1766	.S BILLCNT R=BILLCNTR +1
	1767	.; QUIT if STOP flag is set fo r this Bil l
	1768	.I $P($G(^ TMP("PRCAB ILL",$J,DE BTOR,BILL) ),U,3)=1 S FLAGGED=F LAGGED+1 Q
	1769	.; New and set Bill Balance Di fference
	1770	.N BILLDIF F
	1771	.; ***** T he followi ng 2 formu las will n eed to be re-evaluat ed once th e VA suppl ies us the necessary details * ****
	1772	.; If the Original B ill Amount is not nu ll use thi s formula
	1773	.I +$G(^TM P("PRCAGTP S",$J,DEBT OR,BILL,0) ) D
	1774	..S BILLDI FF=$P($G(^ TMP("PRCAG TPS",$J,DE BTOR,BILL, 0)),U,1)-
	1775	$P($G(^TMP ("PRCABILL ",$J,DEBTO R,BILL)),U ,1)+$P($G( ^TMP("PRCA BILL
	1776	",$J,DEBTO R,BILL)),U ,2)
	1777	.; If the Original A mount is n ull use th is formula
	1778	.I '+$G(^T MP("PRCAGT PS",$J,DEB TOR,BILL,0 )) D
	1779	..S BILLDI FF=$P($G(^ TMP("PRCAB ILL",$J,DE BTOR,BILL) ),U,1)-
	1780	$P($G(^TMP ("PRCABILL ",$J,DEBTO R,BILL)),U ,2)
	1781	.; Quit if Bill Bala nce Differ ence is ze ro
	1782	.I 'BILLDI FF Q
	1783	.; PRCAFIX (X) = Hold s the tota l of the n umber of t ransaction s for a bi ll that ma tch to che ck criteri a X
	1784	.; PRCATTT F = Total Transactio n Types to Fix
	1785	.N PRCATTT F,PRCAFIX
	1786
	1787
	1788
	1789	Modified L ogic (Chan ges are in bold)
	1790
	1791	.S (PRCATT TF,TRANSTO T,TTYPE,TN VAL)=0
	1792	.S (TN,TNL AST)=""
	1793	.; Initial ize type o f fix coun ts
	1794	.F I=1:1:4 S PRCAFIX (I)=""
	1795	.;
	1796	.F S TN=$O (^TMP("PRC AGTPS",$J, DEBTOR,BIL L,TN)) Q:T N="" D
	1797	..; Save f irst trans action num ber
	1798	..S (ATNLA ST,TNLAST) =TN
	1799	..; IF Tra nsaction n umber = 0 update Tra nsaction T otal with (#15) TRAN S. AMOUNT
	1800	from #433
	1801	..I TN=0 S TRANSTOT= TRANSTOT+^ TMP("PRCAG TPS",$J,DE BTOR,BILL, TN) Q
	1802	..; Set TN VAL = (#15 ) TRANS. A MOUNT from #433
	1803	..S TNVAL= $P(^TMP("P RCAGTPS",$ J,DEBTOR,B ILL,TN),U, 1)
	1804	..; Set TT YPE = (#12 ) TRANSACT ION TYPE f rom #433
	1805	..S TTYPE= +$P(^TMP(" PRCAGTPS", $J,DEBTOR, BILL,TN),U ,2)
	1806	..; Set TC PLT = (#10 ) INCOMPLE TE TRANSAC TION FLAG
	1807	..S TCPLT= +$P($G(^PR CA(433,TN, 0)),U,10)
	1808	..; I thin k this wil l always b e blank
	1809	..S TRDMRD =$P(^TMP(" PRCAGTPS", $J,DEBTOR, BILL,TN),U ,10)
	1810	..; I thin k this wil l always b e blank
	1811	..S TMBSNC =$P(^TMP(" PRCAGTPS", $J,DEBTOR, BILL,TN),U ,11)
	1812	..; Quit i t this tra nsaction w as previou sly used t o correct an out of balance sc enario
	1813	..S TN9=$G (^PRCA(433 ,TN,9))
	1814	..Q:$P(TN9 ,U,4)'=""
	1815	..;
	1816	..; *** Th e Null tra nsaction c heck will be impleme nted in PR CA4.5313 ***
	1817	..; Check #1 - Trans action wit h missing $ amount & Transacti on Type '= Comment
	1818	(#45)
	1819	..;I TNVAL ="",(TTYPE '=45) D Q
	1820	..;.S PRCA FIX(1)=$G( PRCAFIX(1) )+1,IENCRR T=TN
	1821	..;.S PRCA FIX(1,TN)= ""
	1822	..;
	1823	..; Check #2 - Trans action mar ked as Inc omplete wi th +$ amou nt matchin g off by a mount
	1824	..I TNVAL= BILLDIFF I TCPLT D Q
	1825	...Q:(TTYP E=45)
	1826	...I TRDMR D Q
	1827	...S PRCAF IX(2)=$G(P RCAFIX(2)) +1,IENCRRT =TN
	1828	...S PRCAF IX(2,TN)=" "
	1829
	1830
	1831
	1832	Modified L ogic (Chan ges are in bold)
	1833
	1834	..;
	1835	..; Check #3 - Trans action mar ked as Inc omplete wi th -$ amou nt matchin g off by a mount
	1836	..I -TNVAL =BILLDIFF I TCPLT D Q
	1837	...Q:(TTYP E=45)
	1838	...S PRCAF IX(3)=$G(P RCAFIX(3)) +1,IENCRRT =TN
	1839	...S PRCAF IX(3,TN)=" "
	1840	..;
	1841	..; Check #4 - Dupli cate Trans action
	1842	..I TTYPE' =45,($P(^T MP("PRCAGT PS",$J,DEB TOR,BILL,T N),U,12)=1 ) D
	1843	...S PRCAF IX(4)=$G(P RCAFIX(4)) +1,IENCRRT =TN
	1844	...S PRCAF IX(4,TN)=" "
	1845	.;
	1846	.; Quit if there wer e no trans actions fo r this bil l
	1847	.I $G(IENC RRT)=""!($ G(TNLAST)= "") Q
	1848	.; If we a re on the last Bill and there were no tr ansactions for the e ntire acco unt Quit
	1849	.I BILLCNT R=BILLCNT, ATNLAST="" Q
	1850	.;
	1851	.F I=1:1:4 D
	1852	..S PRCATT TF=PRCATTT F+PRCAFIX( I)
	1853	.; if you get to her e the bill was out o f balance and if it shows noth ing to fix , set last transacti on
	1854	.; for thi s Bill to NOT FIXABL E
	1855	.I PRCATTT F=0 D UPDT LTR^PRCACP SA($G(TNLA ST)) S FLA GGED=1 Q
	1856	.; Update this bill
	1857	.D FIXBILL (.FLAGGED) Q:FLAGGED
	1858	; The acco unt was ou t of balan ce but not hing was f ound on an y bill tha t could be fixed.
	1859	; Mark the last tran saction fo r the last bill for this accou nt as not fixable. I 'FLAGGED D UPDTLTR^ PRCACPSA($ G(ATNLAST) )
	1860	Q
	1861	;
	1862	FIXBILL(FL AGGED) ;Up date a sin gle bill u sing PRCAF IX array
	1863	; Make upd ate determ ination ba sed on che cks 1 - 4.
	1864	; Sum up c heck total s
	1865	;F I=1:1:4 D
	1866	;.S PRCATT TF=PRCATTT F+PRCAFIX( I)
	1867	; Get curr ent date/t ime
	1868
	1869
	1870
	1871	Modified L ogic (Chan ges are in bold)
	1872
	1873	N PRCADATE D NOW^%DT C
	1874	S PRCADATE =X
	1875	; Otherwis e there is only 1 ba d transact ion so upd ate as nee ded
	1876	; Lock Rec ord
	1877	L +^PRCA(4 33,IENCRRT ,9):DILOCK TM
	1878	; If lock not obtain ed, update number of transacti ons that c ouldn't be fixed
	1879	Q:'$T
	1880	; Set FDA array for the necess ary fields based on the type o f fix iden tified
	1881	N PRCAFDA
	1882	; *** The Null trans action che ck will be implement ed in PRCA 4.5313 * **
	1883	; Check #1 - Transac tion with missing $ amount
	1884	;I PRCAFIX (1) D
	1885	;.S PRCAFD A(433,IENC RRT_",",15 )=$S(BILLD IFF>0:BILL DIFF,1:-BI LLDIFF)
	1886	;.S PRCAFD A(433,IENC RRT_",",94 )=PRCADATE
	1887	;.S PRCAFD A(433,IENC RRT_",",95 )=$S(BILLD IFF>0:BILL DIFF,1:-BI LLDIFF)
	1888	;.S PRCAFD A(433,IENC RRT_",",96 )="N" ; NU LL TRANSAC TION AMOUN T
	1889	; Check #2 - Transac tion marke d as Incom plete with +$ amount matching off by amo unt
	1890	; Check #3 - Transac tion marke d as Incom plete with -$ amount matching off by amo unt
	1891	I PRCAFIX( 2)!(PRCAFI X(3)) D
	1892	.S PRCAFDA (433,IENCR RT_",",10) =""
	1893	.S PRCAFDA (433,IENCR RT_",",94) =PRCADATE
	1894	.S PRCAFDA (433,IENCR RT_",",96) ="I" ; INC OMPLETE FL AG ERROR
	1895	; Check #4 - Duplica te Transac tion
	1896	I PRCAFIX( 4) D
	1897	.; Null ou t audit fi elds on or iginal tra nsaction
	1898	.S PRCAFDA (433,IENCR RT-1_",",9 4)=""
	1899	.S PRCAFDA (433,IENCR RT-1_",",9 5)=""
	1900	.S PRCAFDA (433,IENCR RT-1_",",9 6)=""
	1901	.L +^PRCA( 433,IENCRR T-1,9):DIL OCKTM
	1902	.Q:'$T
	1903	.D FILE^DI E(,"PRCAFD A")
	1904	.L -^PRCA( 433,IENCRR T-1,9)
	1905	.; Set the fields fo r the dupl icate tran saction
	1906	.S PRCAFDA (433,IENCR RT_",",10) =1 ; INCOM PLETE TRAN SACTION
	1907	.S PRCAFDA (433,IENCR RT_",",94) =PRCADATE
	1908	.S PRCAFDA (433,IENCR RT_",",95) =$S(BILLDI FF>0:BILLD IFF,1:-BIL LDIFF)
	1909
	1910
	1911
	1912	Modified L ogic (Chan ges are in bold)
	1913
	1914	.S PRCAFDA (433,IENCR RT_",",96) ="D" ; DUP LICATE TRA NSACTION
	1915	; Update T ransaction
	1916	D FILE^DIE (,"PRCAFDA ") S FLAGG ED=1
	1917	; Unlock f ile
	1918	L -^PRCA(4 33,IENCRRT ,9) K TMBS NC,IENCRRT
	1919	Q
	1920	;
	1921	DIQOUTCS(D IQOUT) ;Re turn check sum for a processed DIQOUT arr ay.
	1922	N CS,DATA, FIELD,FNUM ,IENS,IND, SFN,STRING ,TARGET,TE XT,WP S FN UM=$O(DIQO UT(""))
	1923	S (CS,FNUM )=0
	1924	F S FNUM=$ O(DIQOUT(F NUM)) Q:FN UM="" D
	1925	.S IENS=""
	1926	.F S IENS= $O(DIQOUT( FNUM,IENS) ) Q:IENS=" " D
	1927	..S FIELD= 0
	1928	..F S FIEL D=$O(DIQOU T(FNUM,IEN S,FIELD)) Q:FIELD="" D
	1929	...S DATA= DIQOUT(FNU M,IENS,FIE LD)
	1930	...S TEXT= FNUM_$L(IE NS,",")_FI ELD_DATA
	1931	...S CS=$$ CRC32^XLFC RC(TEXT,CS ) Q CS
	1932	;
	1933	USRMSG ;s ends mailm an message to the PR CACPS mail group
	1934	N XMY,XMDU Z,XMSUB,XM TEXT,X S X MDUZ="AR P ACKAGE"
	1935	S XMY("G.P RCACPS")=" "
	1936	S XMSUB="C PS AUTO-CO RRECTION C OMPLETE "_ $E(DT,4,5) _"/"_$E(DT ,6,7)_"/"_ $E(DT,2,3)
	1937	S X(1)="Co nsolidated Patient S tatement A uto-Correc tion"
	1938	S X(2)="Pr ogram comp leted on " _$$FMTE^XL FDT($$NOW^ XLFDT(),"5 P") S XMTE XT="X("
	1939	D ^XMD
	1940	; Remove ^ XTMP node
	1941	K ^XTMP("P RCACPS",0) Q
	1942	; PRCAMAIL (PRCASTRT) ;
	1943	; Send e-m ail notifi cation to the PRCACP S mail gro up if the Auto-Corre ct was
	1944
	1945
	1946
	1947	Modified L ogic (Chan ges are in bold)
	1948
	1949	manually r un
	1950	; when it showed to be current ly running or possib le errored out on a previous a ttempt.
	1951	;
	1952	; PRCASTAR T = Extern al format of date/ti me (i.e. O CT 12, 201 6@09:39:58 ) that the
	1953	; Auto-Cor rect progr am was las t started. N XMY,XMD UZ,XMSUB,X MTEXT,X
	1954	S XMDUZ="A R PACKAGE" S XMY("G. PRCACPS")= ""
	1955	S XMSUB="C PS AUTO-CO RRECTION F AILURE "_$ E(DT,4,5)_ "/"_$E(DT, 6,7)_"/"_$ E(DT,2,3)
	1956	S X(1)="Th e Patient Statement Auto-Corre ction Prog ram was st arted on:" S X(2)=PR CASTRT_" a nd may not have comp leted norm ally."
	1957	S X(3)=""
	1958	S X(4)="Pl ease have OI&T check the error trap for any errors related t o routine" S X(5)="P RCACPS on this date. "
	1959	S XMTEXT=" X(" D ^XMD
	1960	Q
	1961
	1962	Table 13: Routine : PRCACPSA
	1963
	1964
	1965	Routines
	1966
	1967
	1968	Activities
	1969
	1970	Routine Na me
	1971	PRCACPSA
	1972	Enhancemen t Category
	1973	NewModifyD eleteNo Ch ange
	1974	RTM
	1975	ACJ001-ACJ 013
	1976	Related Op tions
	1977	Patient St atement Au to-Correct ion Progra m
	1978
	1979
	1980
	1981	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	1982	NOW^%DTC F ILE^DIE
	1983
	1984	PRCACPS
	1985	GETS^DIQ
	1986	$$DIQOUTCS ^PRCACPS
	1987
	1988
	1989
	1990
	1991	RoutinesAc tivities
	1992
	1993
	1994
	1995	Routines
	1996
	1997
	1998	Activities
	1999
	2000
	2001	Data Dicti onary (DD) Reference s
	2002	ACCOUNTS R ECEIVABLE File (#430 ) AR TRANS ACTION Fil e (#433)
	2003	AR DEBTOR File (#340 )
	2004	Related Pr otocols
	2005	N/A
	2006	Related In tegration Control Re gistration s (ICRs)
	2007	N/A
	2008
	2009	Data Passi ng
	2010	InputOutpu tBothGloba l
	2011	ReferenceR eferenceLo cal
	2012	Input Attr ibute Name and
	2013	Definition
	2014	Name: N/A Definition :
	2015	Output Att ribute Nam e and Defi nition
	2016	Name: N/A Definition :
	2017
	2018
	2019
	2020	Current Lo gic
	2021
	2022	NA
	2023
	2024
	2025
	2026	Modified L ogic (Chan ges are in bold)
	2027
	2028	PRCACPSA ; ALBANY/MGD -PATIENT S TATEMENTS AUTO-CORRE CTION ;09/ 21/15 3:34
	2029	PM
	2030	;;4.5;Acco unts Recei vable;30 7;Mar 20 , 1995;Bui ld 79
	2031	;;Per VA D irective 6 402, this routine sh ould not b e modified .
	2032	; Q
	2033	; BILLQUIT (DEBTOR,BI LL) ;
	2034	; check ne ws and ini tializatio ns
	2035	N FILENUM, IENCRRT,IE NPREV,PRCA BFIX,PRCAB ST,PRCAFDA ,PRCACUR,P RCACUR1,PR CAPRV,PRC APRV1,TN,T NLAST,TRNS CRRT,TRNSP REV,X
	2036	S TNLAST=" "
	2037	S PRCABFIX =0
	2038	S TN=0
	2039	F S TN=$O( ^TMP("PRCA GTPS",$J,D EBTOR,BILL ,TN)) Q:'T N D
	2040	.; Load 0 and 1 node s
	2041	.S PRCACUR =$G(^PRCA( 433,TN,0))
	2042	.S PRCACUR 1=$G(^PRCA (433,TN,1) )
	2043
	2044
	2045
	2046	Modified L ogic (Chan ges are in bold)
	2047
	2048	.; Quit if this Tran saction is a COMMENT
	2049	.I $P(PRCA CUR1,U,2)= 45 Q
	2050	.; Quit if this tran saction wa s updated earlier as part of a n previous fix
	2051	.I $P($G(^ PRCA(433,T N,9)),U,4) Q
	2052	.S TNLAST= TN
	2053	.; Check i f Transact ion is mar ked as INC OMPLETE
	2054	.I $P(PRCA CUR,U,10)= 1 S PRCABF IX=PRCABFI X+1,PRCABF IX("I")=$G (PRCABFIX( "I"))+1
	2055	.; *** The Null tran saction ch eck will b e implemen ted in PRC A4.5313 ***
	2056	.; Check i f zero dol lar amount
	2057	.;I $P(PRC ACUR1,U,5) ="" S PRCA BFIX=PRCAB FIX+1,PRCA BFIX("N")= $G(PRCABFI X("N"))+1
	2058	.S PRCAPRV =$G(^PRCA( 433,TN-1,0 ))
	2059	.S PRCAPRV 1=$G(^PRCA (433,TN-1, 1))
	2060	.; Perform quick hig h level du plicate ch eck
	2061	.I $P(PRCA CUR,U,2)'= $P(PRCAPRV ,U,2) Q ; QUIT if ( #.03) BILL NUMBER do n't match
	2062	.I $P(PRCA CUR,U,9)'= $P(PRCAPRV ,U,9) Q ; QUIT if ( #42) PROCE SSED BY do n't match
	2063	.I $P(PRCA CUR1,U,1)' =$P(PRCAPR V1,U,1) Q ; QUIT if (#11) TRA NSACTION D ATE
	2064	don't matc h
	2065	.I $P(PRCA CUR1,U,5)' =$P(PRCAPR V1,U,5) Q ; QUIT if (#15) TRA NS. AMOUNT don't mat ch
	2066	.; Perform detailed duplicate check
	2067	.S IENPREV =TN-1,IENC RRT=TN,FIL ENUM=433
	2068	.K TRNSPRE V S FILENU M=433 D GE TS^DIQ(FIL ENUM,IENPR EV,"**","N ","TRNSPRE V","MSG")
	2069	.K TRNSCRR T S FILENU M=433 D GE TS^DIQ(FIL ENUM,IENCR RT,"**","N ","TRNSCRR T","MSG")
	2070	.S TRNSCRR T(433,TN_" ,",.01)=TR NSPREV(433 ,(TN-1)_", ",.01)
	2071	.I $D(TRNS PREV(433,( TN-1)_",", 41)) S TRN SCRRT(433, TN_",",41) =$G(TRNSPR EV(433,(TN -1)_",",41 ))
	2072	.I $$DIQOU TCS^PRCACP S(.TRNSPRE V)'=$$DIQO UTCS^PRCAC PS(.TRNSCR RT) Q
	2073	.; Set dup licate fla g which wi ll be used in START2
	2074	.S $P(^TMP ("PRCAGTPS ",$J,DEBTO R,BILL,TN) ,U,12)=1
	2075	.; we have a duplica te so upda te counter
	2076	.S PRCABFI X=PRCABFIX +1,PRCABFI X("D")=$G( PRCABFIX(" D"))+1
	2077	; Get Bill Status fo r checks
	2078	S PRCABST= $P($G(^PRC A(430,BILL ,0)),U,8)
	2079	;
	2080
	2081
	2082
	2083	Modified L ogic (Chan ges are in bold)
	2084
	2085	; 3rd piec e of ^TMP( "PRCABILL" ,$J,DEBTOR ,BILL) is stop/go fl ag for thi s bill.
	2086	; Set belo w and util ized in ST ART2^PRCAC PS
	2087	;
	2088	; Check fo r Duplicat e needs to include B ill Status of ACTIVE (#16), OP EN (#42) o r
	2089	CANCELLATI ON (#39)
	2090	; If there was only 1 problem and that p roblem was a Duplica te and the Bill Stat us is
	2091	ACTIVE or OPEN
	2092	; or CANCE LLATION Qu it and let it get se t in CHECK 2
	2093	I PRCABFIX =1,$G(PRCA BFIX("D")) =1,(PRCABS T=16!(PRCA BST=42)!(P RCABST=39) ) S
	2094	$P(^TMP("P RCABILL",$ J,DEBTOR,B ILL),U,3)= 0 Q 0
	2095	; If a sin gle proble m on a Bil l in a sta tus other than Activ e or Open mark last transactio n as NOT F IXABLE
	2096	I PRCABFIX =1,PRCABST '=16&(PRCA BST'=42) D UPDTLTR($ G(TNLAST))
	2097	; If a sin gle proble m on a Bil l in a sta tus of Act ive or Ope n will be further ch ecked in
	2098	START2
	2099	I PRCABFIX =1,(PRCABS T=16!(PRCA BST=42)) S PRCABFIX= 0
	2100	; If multi ple proble ms set aud it fields for last t ransaction for the B ill
	2101	I PRCABFIX >1 D UPDTL TR($G(TNLA ST)) S PRC ABFIX=1
	2102	; Update B ill level stop flag
	2103	S $P(^TMP( "PRCABILL" ,$J,DEBTOR ,BILL),U,3 )=PRCABFIX Q PRCABFI X
	2104	; UPDTLTR( TNLAST) ;
	2105	; Initiali ze variabl es
	2106	N PRCABILL ,PRCABILX, PRCADTR,PR CATN,PRCAU PDT
	2107	; Initiali ze PRCAUPD T to 0 (i. e. No). T his flag i s set to 1 when an t ransaction was updat ed with th e audit da ta
	2108	S PRCAUPDT =0
	2109	; If TNLAS T was unde fined or n ull or som ething oth er than a positive n umber, set
	2110	TNLAST=0
	2111	; If TNLAS T was a po sitive num ber, leave it as is
	2112	S TNLAST=+ $G(TNLAST, 0)
	2113	; If the I EN was a d ecimal num ber, strip off the d ecimal amo unt
	2114	S TNLAST=$ P(TNLAST," .",1)
	2115	; Init che cks for a positive I EN and no correspond ing transa ction
	2116	I +TNLAST> 0,'$D(^PRC A(433,TNLA ST,0)) S T NLAST=0
	2117	; Init che cks for a positive I EN and thi s Transact ion exists
	2118	I +TNLAST> 0,$D(^PRCA (433,TNLAS T,0)) D Q: PRCAUPDT
	2119	.; If this transacti on hasn't been previ ously used to flag a n account, use it
	2120
	2121
	2122
	2123	Modified L ogic (Chan ges are in bold)
	2124
	2125	.I $P($G(^ PRCA(433,T NLAST,9)), U,6)="" S PRCAUPDT=1 D UPDTSET (TNLAST) Q
	2126	.; If this transacti on was pre viously us ed to iden tify a NOT FIXABLE i ssue
	2127	.; update it again t o have tod ay's date
	2128	.I $P($G(^ PRCA(433,T NLAST,9)), U,6)="X" S PRCAUPDT= 1 D UPDTSE T(TNLAST) Q
	2129	.; If this Transacti on was pre viously us ed to fix an issue o ther than NOT FIXABL E,
	2130	.; reset t o 0 to mak e it find another tr ansaction
	2131	.I $P($G(^ PRCA(433,T NLAST,9)), U,6)'="",( $P($G(^PRC A(433,TNLA ST,9)),U,6 )'="X") S TNLAST=0
	2132	.Q
	2133	; If you g et to here , TNLAST w as either sent in wi th a posit ive value that could n't be use d
	2134	; OR TNLAS T was sent in as a n ull or 0. Either way , try to f ind anothe r acceptab le transac tion to ma rk
	2135	; There is a possibi lity that no transac tion can b e found to mark, in which case , just qui t
	2136	I +TNLAST< 1 D Q:+TN LAST<1
	2137	.S PRCABIL X=""
	2138	.F S PRCAB ILX=$O(^TM P("PRCAGTP S",$J,DEBT OR,PRCABIL X),-1) Q:' PRCABILX D Q:TNLAST
	2139	..S PRCATN =""
	2140	..F S PRCA TN=$O(^TMP ("PRCAGTPS ",$J,DEBTO R,PRCABILX ,PRCATN),- 1) Q:'PRCA TN D Q:TN LAST
	2141	...; Quit if this tr ansaction from ^TMP doesn't ex ist in ^PR CA(433
	2142	...I '$D(^ PRCA(433,P RCATN,0)) Q
	2143	...; If th is transac tion hasn' t been mar ked for an ything, us e it
	2144	...I $P($G (^PRCA(433 ,PRCATN,9) ),U,6)="" S TNLAST=P RCATN Q
	2145	...; Check if this t ransaction was previ ously flag ged as som e fix othe r than NOT FIXABLE
	2146	...I $P($G (^PRCA(433 ,PRCATN,9) ),U,6)'="X " Q
	2147	...; If th is transct ion was pr eviously m arked as N OT FIXABLE , mark it again with today's d ate
	2148	...S TNLAS T=PRCATN
	2149	; QUIT If no accepta ble transa ction coul d be found
	2150	Q:+TNLAST< 1
	2151	; QUIT if this trans action doe sn't exist for some reason
	2152	Q:'$D(^PRC A(433,TNLA ST,0))
	2153	; Call UPD TSET to up date the t ransaction that was identified
	2154	D UPDTSET( TNLAST) Q
	2155	;
	2156
	2157
	2158
	2159	Modified L ogic (Chan ges are in bold)
	2160
	2161	UPDTSET(TN LAST) ; On ce transac tion has b een identi fied, set the necess ary audit fields
	2162	; Identify Bill for this Trans action
	2163	S PRCABILL =$P($G(^PR CA(433,TNL AST,0)),U, 2)
	2164	; Quit if bill can't be identi fied
	2165	Q:PRCABILL =""
	2166	; Use Bill to identi fy Debtor
	2167	S PRCADTR= $P($G(^PRC A(430,PRCA BILL,0)),U ,9)
	2168	; Quit if Debtor can 't be defi ned
	2169	Q:PRCADTR= ""
	2170	; Quit if the stop f lag for th is bill wa s previous ly set in $$BILLQUIT ^PRCACPSA I $P($G(^T MP("PRCABI LL",$J,PRC ADTR,PRCAB ILL)),U,3) Q
	2171	; Get curr ent date
	2172	D NOW^%DTC N PRCADAT E
	2173	S PRCADATE =X
	2174	; Set up A udit Field Array
	2175	S PRCAFDA( 433,TNLAST _",",94)=P RCADATE
	2176	S PRCAFDA( 433,TNLAST _",",96)=" X" ; NOT F IXABLE S P RCAFDA(433 ,TNLAST_", ",97)=1
	2177	L +^PRCA(4 33,TNLAST, 9):DILOCKT M
	2178	; QUIT if lock not o btainable
	2179	Q:'$T
	2180	; Update r ecord
	2181	D FILE^DIE (,"PRCAFDA ")
	2182	; Unlock f ile
	2183	L -^PRCA(4 33,TNLAST, 9) Q
	2184
	2185
	2186
	2187
	2188
	2189
	2190	Table 14: Routines: PRCAACR Ro utinesActi vities
	2191	Routine Na mePRCAACR
	2192
	2193	Enhancemen t Category NewModifyD eleteNo Ch ange
	2194
	2195	RTMACR001 – ACR012
	2196
	2197	Related Op tionsAuto- Correct Pa tient Disc repancy Re port
	2198
	2199
	2200
	2201	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	2202
	2203	DD^%DT
	2204	^%ZIS
	2205	^%ZISC
	2206	^%ZTLOAD
	2207	$$GET1^DIQ
	2208	^DIR PRT^P RCAACR1
	2209	PRCAMAIL^P RCACPS
	2210	$$UPPER^VA LM1
	2211	$$FMTE^XLF DT
	2212
	2213
	2214
	2215
	2216	Routines
	2217
	2218
	2219	Activities
	2220
	2221	Data Dicti onary (DD) Reference s
	2222	N/A
	2223	Related Pr otocols
	2224	N/A
	2225	Related In tegration Control Re gistration s (ICRs)
	2226	N/A
	2227
	2228	Data Passi ng
	2229	InputOutpu tBothGloba l
	2230	ReferenceR eferenceLo cal
	2231	Input Attr ibute Name and
	2232	Definition
	2233	Name: N/A Definition :
	2234	Output Att ribute Nam e and Defi nition
	2235	Name: N/A Definition :
	2236
	2237
	2238
	2239	Current Lo gic
	2240
	2241	N/A
	2242
	2243
	2244	Modified L ogic (Chan ges are in bold)
	2245
	2246	PRCAACR ;A LBANY/BDB- PATIENT ST ATEMENTS A UTO-CORREC TION REPOR T
	2247	;09/21/15 3:34 PM
	2248	;;4.5;Acco unts Recei vable;30 7;Mar 20 , 1995;Bui ld 55
	2249	;;Per VA D irective 6 402, this routine sh ould not b e modified .
	2250	; Q
	2251	;
	2252	PSACRT ; r eport, pri nts sorted individua l transact ions that have been auto-corre cted
	2253
	2254
	2255
	2256	Modified L ogic (Chan ges are in bold)
	2257
	2258	N DIC,PAGE ,BY,DHD,FI LENUM,FLDS ,FR,L,TO,P RCABDT,PRC AEDT,PRCAS ORT W !
	2259	PSDATE ;
	2260	; Determin e if Auto Correct pr ocess is c urrently r unning
	2261	N PRCASTRT ,QUIT,X,X1 ,X2,Y
	2262	S PRCASTRT =$G(^XTMP( "PRCACPS", 0)),QUIT=" "
	2263	; QUIT if Auto Corre ct process is curren tly runnin g
	2264	I PRCASTRT '="" D Q:Q UIT
	2265	.S Y=$P(PR CASTRT,U,2 )
	2266	.D DD^%DT
	2267	.S PRCASTR T=Y
	2268	.W !!,"The Patient S tatement A uto-Correc tion Progr am is curr ently runn ing."
	2269	.W !,"It w as started at ",PRCA STRT," and can take up to 1 ho ur to comp lete."
	2270	.W !!,"If you choose to contin ue with th is report, it may no t reflect all of the "
	2271	.W !,"chan ges from t his latest run of th e Patient Statement Auto-Corre ction Prog ram."
	2272	.W !
	2273	.S DIR(0)= "Y",DIR("A ")="Do you want to c ontinue",D IR("B")="N O"
	2274	.D ^DIR
	2275	.W !
	2276	.; Quit if ^, ^^, Ti meout or N o
	2277	.I $D(DTOU T)!($D(DUO UT))!($D(D IROUT))!(Y =0) S QUIT =1
	2278	.; Send Ma ilMan mess age to PRC ACPS mail group if Y es
	2279	.I Y=1 D P RCAMAIL^PR CACPS(PRCA STRT)
	2280	.K DTOUT,D UOUT,DIROU T
	2281	;
	2282	N DIROUT,D IS,DTOUT,D UOUT
	2283	S DIR("A") ="Date Ran ge: FROM: ",DIR("B") ="T-7"
	2284	S DIR("?") ="The defa ult date i s T-7. Fut ure dates may not be entered." S DIR(0)= "DO" D ^DI R
	2285	S:Y'="" PR CABDT=Y
	2286	I $D(DIRUT )&'Y K DIR UT Q
	2287	I PRCABDT> DT G PSDAT E W "(",Y( 0),")"
	2288	K DIR,X,Y
	2289	S DIR(0)=" DO"
	2290	S DIR("A") ="Date Ran ge: TO: ", DIR("B")=" T"
	2291	S DIR("?") ="The defa ult date i s T, but a ny date ma y be enter ed." D ^DI R S:Y="" Y =DT
	2292	I $D(DIRUT )&'Y K DIR UT Q
	2293	W "(",Y(0) ,")"
	2294	S PRCAEDT= Y
	2295	I PRCABDT> PRCAEDT G PSDATE K D IR
	2296	S DIR(0)=" S^1:Bill N umber;2:De btor Name; 3:Auto-Cor rect Date; 4:Transact ion
	2297	Number",DI R("A")="So rt by" D ^ DIR K DIR
	2298	S PRCASORT =Y
	2299
	2300
	2301
	2302	Modified L ogic (Chan ges are in bold)
	2303
	2304	Q:$D(DTOUT )!($D(DUOU T))!($D(DI ROUT))
	2305	;
	2306	; Prompt f or device
	2307	W !
	2308	N ZTRTN,ZT DESC,ZTSAV E S %ZIS=" Q"
	2309	D ^%ZIS Q: POP
	2310	I $D(IO("Q ")) D Q
	2311	.I $G(IOST )["P-MES" S ZTRTN="P RT^PRCAACR 1"
	2312	.I $G(IOST )'["P-MES" S ZTRTN=" PRT^PRCAAC R"
	2313	.S ZTSAVE( "PRCABDT") ="",ZTSAVE ("PRCAEDT" )="",ZTSAV E("PRCASOR T")=""
	2314	.D ^%ZTLOA D
	2315	.D ^%ZISC
	2316	.K IO("Q") ,POP
	2317	;
	2318	;Print Rep ort if not QUEUED PR T ;
	2319	; If not q ueued and output sen t to P-MES
	2320	I $G(IOST) ["P-MES" D PRT^PRCAA CR1 Q
	2321	;If not qu eued and o utput not sent to P- MES U IO
	2322	K ^TMP("PR CAACR",$J)
	2323	S PAGE=0
	2324	S DASH="", $P(DASH,"- ",79)=""
	2325	S DIS(0)=" I $D(^PRCA (433,""TAC D"",PRCATS RT,D0))",L =0
	2326	N PRCATSRT ,PRCATN,PR CAACD,PRCA ACR,PRCABN ,PRCADATA, PRCADTR,PR CASSN S PR CATSRT=PRC ABDT-.0000 1
	2327	; Loop thr ough the s pecified d ate range
	2328	F S PRCATS RT=$O(^PRC A(433,"TAC D",PRCATSR T)) Q:PRCA TSRT=""!(P RCATSRT>PR CAEDT) D
	2329	.S PRCATN= ""
	2330	.; Loop th rough the transactio ns for the current d ate
	2331	.F S PRCAT N=$O(^PRCA (433,"TACD ",PRCATSRT ,PRCATN)) Q:'PRCATN D
	2332	..; Load a ssociated data field s for repo rt
	2333	..S PRCABN =$P(^PRCA( 433,PRCATN ,0),U,2)
	2334	..S PRCADT R=$$GET1^D IQ(430,PRC ABN_",",9) ; (#9) DE BTOR
	2335	..S PRCASS N=$G(^PRCA (430,PRCAB N,0)) ; Lo ad 0 Node
	2336	..S PRCASS N=$P(PRCAS SN,U,9) ; get IEN of Debtor
	2337	..S PRCABN =$$GET1^DI Q(433,PRCA TN_",",.03 ) ; (#.03) BILL NUMB ER
	2338	..S PRCASS N=$$GET1^D IQ(340,PRC ASSN_",",1 10) ; SSN
	2339	..S PRCAAC D=$$GET1^D IQ(433,PRC ATN_",",94 ) ;(#94) A UTO-CORREC TION DATE
	2340	..S PRCAAC R=$$GET1^D IQ(433,PRC ATN_",",96 ) ;(#96) A UTO-CORREC TION TYPE OF ERROR
	2341	..;
	2342	..; Store in ^TMP so rted by Bi ll Number, Debtor an d Transact ion #
	2343	..I PRCASO RT=1 D Q
	2344	...S ^TMP( "PRCAACR", $J,PRCABN, PRCADTR,PR CATN)=PRCA BN_U_PRCAD TR_U_PRC
	2345
	2346
	2347
	2348	Modified L ogic (Chan ges are in bold)
	2349
	2350	ASSN_U_PRC ATN_U_PRCA ACD_U_PRCA ACR
	2351	..;
	2352	..; Store in ^TMP so rted by De btor, Bill Number an d Transact ion #
	2353	..I PRCASO RT=2 D Q
	2354	...S ^TMP( "PRCAACR", $J,PRCADTR ,PRCABN,PR CATN)=PRCA DTR_U_PRCA BN_U_PRC A SSN_U_PRCA TN_U_PRCAA CD_U_PRCAA CR
	2355	..;
	2356	..; Store in ^TMP so rted by Au to-Correct Date, Deb tor, Bill Number and Transacti on #
	2357	..I PRCASO RT=3 D Q
	2358	...S ^TMP( "PRCAACR", $J,PRCAACD ,PRCADTR,P RCABN,PRCA TN)=PRCAAC D_U_PRCA D TR_U_PRCAB N_U_PRCASS N_U_PRCATN _U_PRCAACR
	2359	..; Store in ^TMP so rted by Bi ll Number, Debtor an d Transact ion #
	2360	..;
	2361	..; Store in ^TMP so rted by Tr ansaction, Debtor an d #Bill Nu mber
	2362	..I PRCASO RT=4 D Q
	2363	...S ^TMP( "PRCAACR", $J,PRCATN, PRCADTR,PR CABN)=PRCA TN_U_PRCAD TR_U_PRC A BN_U_PRCAS SN_U_PRCAA CD_U_PRCAA CR
	2364	..; Store in ^TMP so rted by Bi ll Number, Debtor an d Transact ion #
	2365	;
	2366	; Display Auto-Corre ct data so rted by Bi ll Number
	2367	N QUIT ; Q UIT before end of re port
	2368	S QUIT=""
	2369	I PRCASORT =1 D
	2370	.; Display Bill Numb er header
	2371	.D PSACRTP 1
	2372	.S PRCABN= ""
	2373	.F S PRCAB N=$O(^TMP( "PRCAACR", $J,PRCABN) ) Q:'PRCAB N D Q:QU IT
	2374	..S PRCADT R=""
	2375	..F S PRCA DTR=$O(^TM P("PRCAACR ",$J,PRCAB N,PRCADTR) ) Q:PRCADT R="" D Q: QUIT
	2376	...S PRCAT N=""
	2377	...F S PRC ATN=$O(^TM P("PRCAACR ",$J,PRCAB N,PRCADTR, PRCATN)) Q :'PRCATN D Q:QUIT
	2378	....S PRCA DATA=^TMP( "PRCAACR", $J,PRCABN, PRCADTR,PR CATN)
	2379	....W !,$J (PRCABN,11 ),?13,$E(P RCADTR,1,1 8),?33,$E( $P(PRCADAT A,U,3),6,9 ),?39,$J(P R CATN,9), ?50,$P(PRC ADATA,U,5) ,?64,$E($P (PRCADATA, U,6),1,14)
	2380	....I $Y>( IOSL-2) D
	2381	.....I $E( IOST,1,2)= "C-" D Q:Q UIT
	2382	......D PR TC
	2383	......I $D (DIRUT)!($ D(DTOUT)) S QUIT=1
	2384	.....D PSA CRTP1
	2385	;
	2386	; Display Auto-Corre ct data so rted Debto r
	2387	I PRCASORT =2 D
	2388	.; Display Debtor he ader
	2389	.D PSACRTP 2
	2390	.S PRCADTR =""
	2391
	2392
	2393
	2394	Modified L ogic (Chan ges are in bold)
	2395
	2396	.F S PRCAD TR=$O(^TMP ("PRCAACR" ,$J,PRCADT R)) Q:PRCA DTR="" D Q:QUIT
	2397	..S PRCABN =""
	2398	..F S PRCA BN=$O(^TMP ("PRCAACR" ,$J,PRCADT R,PRCABN)) Q:'PRCABN D Q:QUIT
	2399	...S PRCAT N=""
	2400	...F S PRC ATN=$O(^TM P("PRCAACR ",$J,PRCAD TR,PRCABN, PRCATN)) Q :'PRCATN D Q:QUIT
	2401	....S PRCA DATA=^TMP( "PRCAACR", $J,PRCADTR ,PRCABN,PR CATN)
	2402	....W !,$E (PRCADTR,1 ,18),?20,$ J(PRCABN,1 1),?33,$E( $P(PRCADAT A,U,3),6,9 ),?39,$J(P R CATN,9), ?50,$P(PRC ADATA,U,5) ,?64,$E($P (PRCADATA, U,6),1,14)
	2403	....I $Y>( IOSL-2) D
	2404	.....I $E( IOST,1,2)= "C-" D Q:Q UIT
	2405	......D PR TC
	2406	......I $D (DIRUT)!($ D(DTOUT)) S QUIT=1
	2407	.....D PSA CRTP2
	2408	;
	2409	; Display Auto-Corre ct data so rted AUTO- C DATE I P RCASORT=3 D
	2410	.; Display AUTO-C DA TE header
	2411	.D PSACRTP 3
	2412	.S PRCAACD =""
	2413	.F S PRCAA CD=$O(^TMP ("PRCAACR" ,$J,PRCAAC D)) Q:PRCA ACD="" D Q:QUIT
	2414	..S PRCADT R=""
	2415	..F S PRCA DTR=$O(^TM P("PRCAACR ",$J,PRCAA CD,PRCADTR )) Q:PRCAD TR="" D Q :QUIT
	2416	...S PRCAB N=""
	2417	...F S PRC ABN=$O(^TM P("PRCAACR ",$J,PRCAA CD,PRCADTR ,PRCABN)) Q:'PRCABN D Q:QUIT
	2418	....S PRCA TN=""
	2419	....F S PR CATN=$O(^T MP("PRCAAC R",$J,PRCA ACD,PRCADT R,PRCABN,P RCATN)) Q: 'PRCATN D Q:QUIT
	2420	.....S PRC ADATA=^TMP ("PRCAACR" ,$J,PRCAAC D,PRCADTR, PRCABN,PRC ATN)
	2421	.....W !,P RCAACD,?14 ,$E(PRCADT R,1,18),?3 4,$J(PRCAB N,11),?47, $E($P(PRCA DATA,U,4
	2422	),6,9),?53 ,$J(PRCATN ,9),?64,$E ($P(PRCADA TA,U,6),1, 14)
	2423	.....I $Y> (IOSL-2) D
	2424	......I $E (IOST,1,2) ="C-" D Q: QUIT
	2425	.......D P RTC
	2426	.......I $ D(DIRUT)!( $D(DTOUT)) S QUIT=1
	2427	......D PS ACRTP3
	2428	;
	2429	; Display Auto-Corre ct data so rted Trans action Num ber
	2430	I PRCASORT =4 D
	2431	.; Display AUTO-C DA TE header
	2432	.D PSACRTP 4
	2433	.S PRCATN= ""
	2434	.F S PRCAT N=$O(^TMP( "PRCAACR", $J,PRCATN) ) Q:'PRCAT N D Q:QUI T
	2435	..S PRCADT R=""
	2436	..F S PRCA DTR=$O(^TM P("PRCAACR ",$J,PRCAT N,PRCADTR) )
	2437
	2438
	2439
	2440	Modified L ogic (Chan ges are in bold)
	2441
	2442	Q:PRCADTR= "" D Q:QU IT
	2443	...S PRCAB N=""
	2444	...F S PRC ABN=$O(^TM P("PRCAACR ",$J,PRCAT N,PRCADTR, PRCABN)) Q :'PRCABN D Q:QUIT
	2445	....S PRCA DATA=^TMP( "PRCAACR", $J,PRCATN, PRCADTR,PR CABN)
	2446	....W !,$J (PRCATN,9) ,?11,$E(PR CADTR,1,18 ),?31,$J(P RCABN,11), ?44,$E($P( PRCADATA, U,4),6,9), ?50,$P(PRC ADATA,U,5) ,?64,$E($P (PRCADATA, U,6),1,14)
	2447	....I $Y>( IOSL-2) D
	2448	.....I $E( IOST,1,2)= "C-" D Q:Q UIT
	2449	......D PR TC
	2450	......I $D (DIRUT)!($ D(DTOUT)) S QUIT=1
	2451	.....D PSA CRTP4
	2452	D ^%ZISC
	2453	I $E(IOST, 1,2)="C-", '$D(DUOUT) ,('$D(DTOU T)) W ! S DIR(0)="E" D ^DIR K X,Y,DASH,D 0
	2454	Q
	2455	;
	2456	PRTC ; Pre ss Return To Continu e
	2457	S DIR(0)=" E" D ^DIR Q
	2458	;
	2459	PSACRTP1 ; header fo r patient statement auto-corre ction repo rt 1
	2460	W @IOF
	2461	S PAGE=PAG E+1
	2462	W "PAGE "_ PAGE,?8,"B ILLS THAT HAVE BEEN AUTO-CORRE CTED (SORT ED BY BILL
	2463	#)",?66,$$ UPPER^VALM 1($$FMTE^X LFDT(DT)) W !,DASH,!
	2464	W !,"BILL NO.",?13," DEBTOR",?3 3,"SSN",?3 9,"TRANS N UM",?50,"A UTO-C
	2465	DATE",?64, "AUTO-C RE ASON"
	2466	W !,"----- ------",?1 3,"------- ---------- -",?33,"-- --",?39,"- --------", ?50,"----- -------",? 64,"------ --------" Q
	2467	;
	2468	PSACRTP2 ; header fo r patient statement auto-corre ction repo rt 2
	2469	W @IOF
	2470	S PAGE=PAG E+1
	2471	W "PAGE "_ PAGE,?8,"B ILLS THAT HAVE BEEN AUTO-CORRE CTED (SORT ED BY DEBT OR)",?66,$ $UPPER^VAL M1($$FMTE^ XLFDT(DT))
	2472	W !,DASH,!
	2473	W !,"DEBTO R",?20,"BI LL NO.",?3 3,"SSN",?3 9,"TRANS N UM",?50,"A UTO-C DATE ",?64,"AUT O-C REASON "
	2474	W !,"----- ---------- ---",?20," ---------- -",?33,"-- --",?39,"- --------", ?50,"----- -------",? 64,"------ --------"
	2475	Q
	2476	;
	2477	PSACRTP3 ; header fo r patient statement auto-corre ction repo rt 3
	2478	W @IOF
	2479	S PAGE=PAG E+1
	2480	W "PAGE "_ PAGE,?8,"B ILLS THAT HAVE BEEN AUTO-CORRE CTED (SORT ED BY
	2481
	2482
	2483
	2484	Modified L ogic (Chan ges are in bold)
	2485
	2486	AUTO-C DT) ",?66,$$UP PER^VALM1( $$FMTE^XLF DT(DT)) W !,DASH,!
	2487	W !,"AUTO- C DATE",?1 4,"DEBTOR" ,?34,"BILL NO.",?47, "SSN",?53, "TRANS NUM ",?64,"AUT O-C REASON "
	2488	W !,"----- -------",? 14,"------ ---------- --",?34,"- ---------- ",?47,"--- -",?53,"-- -------",? 64,"------ --------" Q
	2489	;
	2490	PSACRTP4 ; header fo r patient statement auto-corre ction repo rt 4
	2491	W @IOF
	2492	S PAGE=PAG E+1
	2493	W "PAGE "_ PAGE,?8,"B ILLS THAT HAVE BEEN AUTO-CORRE CTED (SORT ED BY TRAN S NUM)",?6 6,$$UPPER^ VALM1($$FM TE^XLFDT(D T))
	2494	W !,DASH,!
	2495	W !,"TRANS NUM",?11, "DEBTOR",? 31,"BILL N O.",?44,"S SN",?50,"A UTO-C DATE ",?64,"AUT O-C REASON "
	2496	W !,"----- ----",?11, "--------- ---------" ,?31,"---- -------",? 44,"----", ?50,"----- -------",? 64,"------ --------"
	2497	Q
	2498	;
	2499	EXIT ; Q
	2500
	2501
	2502
	2503	Table 15: Routines: PRCAACR1
	2504
	2505	RoutinesAc tivities
	2506
	2507	Routine Na mePRCAACR1
	2508
	2509	Enhancemen t Category NewModifyD eleteNo Ch ange
	2510
	2511	RTMACR001 – ACR012
	2512
	2513	Related Op tionsNA
	2514
	2515
	2516
	2517	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	2518
	2519	HOME^%ZIS
	2520	$$GET1^DIQ
	2521
	2522	PRCAACR
	2523	$$UPPER^VA LM1
	2524	$$FMTE^XLF DT SENDMSG ^XMXAPI
	2525
	2526
	2527
	2528
	2529	RoutinesAc tivities
	2530
	2531
	2532
	2533	Routines
	2534
	2535
	2536	Activities
	2537
	2538	Data Dicti onary (DD) Reference s
	2539	N/A
	2540	Related Pr otocols
	2541	N/A
	2542	Related In tegration Control Re gistration s (ICRs)
	2543	N/A
	2544
	2545	Data Passi ng
	2546	InputOutpu tBothGloba l
	2547	ReferenceR eferenceLo cal
	2548	Input Attr ibute Name and
	2549	Definition
	2550	Name: N/A Definition :
	2551	Output Att ribute Nam e and Defi nition
	2552	Name: N/A Definition :
	2553
	2554
	2555
	2556	Current Lo gic
	2557
	2558	N/A
	2559
	2560
	2561	Modified L ogic (Chan ges are in bold)
	2562
	2563	PRCAACR1 ; ALBANY/BDB -PATIENT S TATEMENTS AUTO-CORRE CTION REPO RT
	2564	;09/21/15 3:34 PM
	2565	;;4.5;Acco unts Recei vable;30 7;Mar 20 , 1995;Bui ld 55
	2566	;;Per VA D irective 6 402, this routine sh ould not b e modified .
	2567	; Q
	2568	;Print Rep ort when Q ueued to P -MES
	2569	PRT ; U IO
	2570	; build ar ray of tra nsaction a uto-correc ted
	2571	K ^TMP("PR CAACR1",$J ) N DASH,P AGE
	2572	S PAGE=0
	2573	S DASH="", $P(DASH,"- ",79)=""
	2574	N PRCATSRT ,PRCATN,PR CAACD,PRCA ACR,PRCABN ,PRCADATA, PRCADTR,PR CASSN
	2575	,PRCAIEN
	2576	S PRCATSRT =PRCABDT-. 00001,PRCA IEN=0
	2577	; Print He ader
	2578	I PRCASORT =1 D PSACR TP1
	2579	I PRCASORT =2 D PSACR TP2
	2580	I PRCASORT =3 D PSACR TP3
	2581	I PRCASORT =4 D PSACR TP4
	2582	; Loop thr ough the s pecified d ate range
	2583	F S PRCATS RT=$O(^PRC A(433,"TAC D",PRCATSR T)) Q:PRCA TSRT=""!(P RCATSRT>PR CAEDT) D
	2584
	2585
	2586
	2587	Modified L ogic (Chan ges are in bold)
	2588
	2589	.S PRCATN= ""
	2590	.; Loop th rough the transactio ns for the current d ate
	2591	.F S PRCAT N=$O(^PRCA (433,"TACD ",PRCATSRT ,PRCATN)) Q:'PRCATN D
	2592	..; Load a ssociated data field s for repo rt
	2593	..S PRCABN =$P(^PRCA( 433,PRCATN ,0),U,2)
	2594	..S PRCADT R=$$GET1^D IQ(430,PRC ABN_",",9) ; (#9) DE BTOR
	2595	..S PRCASS N=$G(^PRCA (430,PRCAB N,0)) ; Lo ad 0 Node
	2596	..S PRCASS N=$P(PRCAS SN,U,9) ; get IEN of Debtor
	2597	..S PRCABN =$$GET1^DI Q(433,PRCA TN_",",.03 ) ; (#.03) BILL NUMB ER
	2598	..S PRCASS N=$$GET1^D IQ(340,PRC ASSN_",",1 10) ; SSN
	2599	..S PRCASS N=$E(PRCAS SN,6,9)
	2600	..S PRCAAC D=$$GET1^D IQ(433,PRC ATN_",",94 ) ;(#94) A UTO-CORREC TION DATE
	2601	..S PRCAAC R=$$GET1^D IQ(433,PRC ATN_",",96 ) ;(#96) A UTO-CORREC TION TYPE OF ERROR
	2602	..S PRCAAC R=$E(PRCAA CR,1,14)
	2603	..;
	2604	..; Store in ^TMP so rted by Bi ll Number, Debtor an d Transact ion #
	2605	..I PRCASO RT=1 D Q
	2606	...S PRCAI EN=PRCAIEN +1
	2607	...; Add B ill Number
	2608	...S PRCAD ATA=$J(PRC ABN,11),$E (PRCADATA, 13)=" "
	2609	...; Add 1 8 chars of Debtor's name
	2610	...S PRCAD ATA=PRCADA TA_$E(PRCA DTR,1,18), $E(PRCADAT A,33)=" "
	2611	...; Add S SN
	2612	...S PRCAD ATA=PRCADA TA_PRCASSN ,$E(PRCADA TA,39)=" "
	2613	...; Add T ransaction Number
	2614	...S PRCAD ATA=PRCADA TA_$J(PRCA TN,9),$E(P RCADATA,50 )=" "
	2615	...; Add A uto-Correc t Date
	2616	...S PRCAD ATA=PRCADA TA_PRCAACD ,$E(PRCADA TA,64)=" "
	2617	...; Add A uto-Correc t Reason
	2618	...S PRCAD ATA=PRCADA TA_PRCAACR
	2619	...S ^TMP( "PRCAACR1" ,$J,PRCAIE N)=PRCADAT A
	2620	...Q
	2621	..;
	2622	..; Store in ^TMP so rted by De btor, Bill Number an d Transact ion #
	2623	..I PRCASO RT=2 D Q
	2624	...S PRCAI EN=PRCAIEN +1
	2625	...; Add 1 8 chars of Debtor's name
	2626	...S PRCAD ATA=$E(PRC ADTR,1,18) ,$E(PRCADA TA,20)=" "
	2627	...; Add B ill Number
	2628	...S PRCAD ATA=PRCADA TA_$J(PRCA BN,11),$E( PRCADATA,3 3)=" "
	2629	...; Add S SN
	2630	...S PRCAD ATA=PRCADA TA_PRCASSN ,$E(PRCADA TA,39)=" "
	2631	...; Add T ransaction Number
	2632	...S PRCAD ATA=PRCADA TA_$J(PRCA TN,9),$E(P RCADATA,50 )=" "
	2633	...; Add A uto-Correc t Date
	2634	...S PRCAD ATA=PRCADA TA_PRCAACD ,$E(PRCADA TA,64)=" "
	2635
	2636
	2637
	2638	Modified L ogic (Chan ges are in bold)
	2639
	2640	...; Add A uto-Correc t Reason
	2641	...S PRCAD ATA=PRCADA TA_PRCAACR
	2642	...S ^TMP( "PRCAACR1" ,$J,PRCAIE N)=PRCADAT A
	2643	...Q
	2644	..;
	2645	..; Store in ^TMP so rted by Au to-Correct Date, Deb tor, Bill Number and Transacti on #
	2646	..I PRCASO RT=3 D Q
	2647	...S PRCAI EN=PRCAIEN +1
	2648	...; Add A uto-Correc t Date
	2649	...S PRCAD ATA=PRCAAC D,$E(PRCAD ATA,14)=" "
	2650	...; Add 1 8 chars of Debtor's name
	2651	...S PRCAD ATA=PRCADA TA_$E(PRCA DTR,1,18), $E(PRCADAT A,34)=" "
	2652	...; Add B ill Number
	2653	...S PRCAD ATA=PRCADA TA_$J(PRCA BN,11),$E( PRCADATA,4 7)=" "
	2654	...; Add S SN
	2655	...S PRCAD ATA=PRCADA TA_PRCASSN ,$E(PRCADA TA,53)=" "
	2656	...; Add T ransaction Number
	2657	...S PRCAD ATA=PRCADA TA_$J(PRCA TN,9),$E(P RCADATA,64 )=" "
	2658	...; Add A uto-Correc t Reason
	2659	...S PRCAD ATA=PRCADA TA_PRCAACR
	2660	...S ^TMP( "PRCAACR1" ,$J,PRCAIE N)=PRCADAT A
	2661	...Q
	2662	..;
	2663	..; Store in ^TMP so rted by Tr ansaction, Debtor an d #Bill Nu mber
	2664	..I PRCASO RT=4 D Q
	2665	...S PRCAI EN=PRCAIEN +1
	2666	...; Add T ransaction Number
	2667	...S PRCAD ATA=$J(PRC ATN,9),$E( PRCADATA,1 1)=" "
	2668	...; Add 1 8 chars of Debtor's name
	2669	...S PRCAD ATA=PRCADA TA_$E(PRCA DTR,1,18), $E(PRCADAT A,31)=" "
	2670	...; Add B ill Number
	2671	...S PRCAD ATA=PRCADA TA_$J(PRCA BN,11),$E( PRCADATA,4 4)=" "
	2672	...; Add S SN
	2673	...S PRCAD ATA=PRCADA TA_PRCASSN ,$E(PRCADA TA,50)=" "
	2674	...; Add A uto-Correc t Date
	2675	...S PRCAD ATA=PRCADA TA_PRCAACD ,$E(PRCADA TA,64)=" "
	2676	...; Add A uto-Correc t Reason
	2677	...S PRCAD ATA=PRCADA TA_PRCAACR
	2678	...S ^TMP( "PRCAACR1" ,$J,PRCAIE N)=PRCADAT A
	2679	...Q
	2680	;
	2681	; Send Mai lMan messa ge with No Forward
	2682	N XMTO,XMS UBJ,XMBODY ,XMINSTR,X MDUZ S XMT O(DUZ)=""
	2683	S XMSUBJ=" BILLS THAT HAVE BEEN AUTO-CORR ECTED" S X MBODY="^TM P(""PRCAAC R1"",$J)"
	2684	S XMINSTR( "FLAGS")=" X"
	2685
	2686
	2687
	2688	Modified L ogic (Chan ges are in bold)
	2689
	2690	S XMDUZ=DU Z
	2691	D SENDMSG^ XMXAPI(XMD UZ,XMSUBJ, XMBODY,.XM TO,.XMINST R) D HOME^ %ZIS
	2692	K IO("Q"), POP
	2693	K ^TMP("PR CAACR1",$J )
	2694	K PRCABDT, PRCAEDT,PR CASORT Q
	2695	;
	2696	PSACRTP1 ; header fo r patient statement auto-corre ction repo rt 1
	2697	S PAGE=PAG E+1
	2698	S PRCAIEN= PRCAIEN+1
	2699	S ^TMP("PR CAACR1",$J ,PRCAIEN)= ""
	2700	S PRCADATA ="PAGE "_P AGE,$E(PRC ADATA,8)=" "
	2701	S PRCADATA =PRCADATA_ "BILLS THA T HAVE BEE N AUTO-COR RECTED (SO RTED BY BI LL #)"
	2702	S $E(PRCAD ATA,66)="" ,PRCADATA= PRCADATA_$ $UPPER^VAL M1($$FMTE^ XLFDT(DT
	2703	))
	2704	S PRCAIEN= PRCAIEN+1
	2705	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA S PRCAIEN=P RCAIEN+1
	2706	S ^TMP("PR CAACR1",$J ,PRCAIEN)= DASH
	2707	S PRCAIEN= PRCAIEN+1
	2708	S ^TMP("PR CAACR1",$J ,PRCAIEN)= ""
	2709	S PRCADATA ="BILL NO. DEBTOR SS N TRANS NU M AUTO-C D ATE AUTO-C REASON" S PRCAIEN=P RCAIEN+1
	2710	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA
	2711	S PRCADATA ="-------- --- ------ ---------- -- ---- -- ------- -- ---------- --------- -----" S P RCAIEN=PRC AIEN+1
	2712	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA
	2713	Q
	2714	;
	2715	PSACRTP2 ; header fo r patient statement auto-corre ction repo rt 2
	2716	S PAGE=PAG E+1
	2717	S PRCAIEN= PRCAIEN+1
	2718	S ^TMP("PR CAACR1",$J ,PRCAIEN)= ""
	2719	S PRCADATA ="PAGE "_P AGE,$E(PRC ADATA,8)=" "
	2720	S PRCADATA =PRCADATA_ "BILLS THA T HAVE BEE N AUTO-COR RECTED (SO RTED BY DE BTOR)"
	2721	S $E(PRCAD ATA,66)="" ,PRCADATA= PRCADATA_$ $UPPER^VAL M1($$FMTE^ XLFDT(DT
	2722	))
	2723	S PRCAIEN= PRCAIEN+1
	2724	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA S PRCAIEN=P RCAIEN+1
	2725	S ^TMP("PR CAACR1",$J ,PRCAIEN)= DASH
	2726	S PRCAIEN= PRCAIEN+1
	2727	S ^TMP("PR CAACR1",$J ,PRCAIEN)= ""
	2728	S PRCADATA ="DEBTOR B ILL NO. SS N TRANS NU M AUTO-C D ATE AUTO-C REASON"
	2729
	2730
	2731
	2732	Modified L ogic (Chan ges are in bold)
	2733
	2734	S PRCAIEN= PRCAIEN+1
	2735	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA
	2736	S PRCADATA ="-------- ---------- --------- -- ---- -- ------- -- ---------- --------- -----" S P RCAIEN=PRC AIEN+1
	2737	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA Q
	2738	;
	2739	PSACRTP3 ; header fo r patient statement auto-corre ction repo rt 3
	2740	W @IOF
	2741	S PAGE=PAG E+1
	2742	S PRCAIEN= PRCAIEN+1
	2743	S ^TMP("PR CAACR1",$J ,PRCAIEN)= ""
	2744	S PRCADATA ="PAGE "_P AGE,$E(PRC ADATA,8)=" "
	2745	S PRCADATA =PRCADATA_ "BILLS THA T HAVE BEE N AUTO-COR RECTED (SO RTED BY AU TO-C DT)"
	2746	S $E(PRCAD ATA,66)="" ,PRCADATA= PRCADATA_$ $UPPER^VAL M1($$FMTE^ XLFDT(DT
	2747	))
	2748	S PRCAIEN= PRCAIEN+1
	2749	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA S PRCAIEN=P RCAIEN+1
	2750	S ^TMP("PR CAACR1",$J ,PRCAIEN)= DASH
	2751	S PRCAIEN= PRCAIEN+1
	2752	S ^TMP("PR CAACR1",$J ,PRCAIEN)= ""
	2753	S PRCADATA ="AUTO-C D ATE DEBTOR BILL NO. SSN TRANS NUM AUTO-C REASON" S PRCAIEN=P RCAIEN+1
	2754	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA
	2755	S PRCADATA ="-------- ---- ----- ---------- --- ------ ----- ---- --------- --------- -----" S P RCAIEN=PRC AIEN+1
	2756	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA
	2757	Q
	2758	;
	2759	PSACRTP4 ; header fo r patient statement auto-corre ction repo rt 4
	2760	W @IOF
	2761	S PAGE=PAG E+1
	2762	S PRCAIEN= PRCAIEN+1
	2763	S ^TMP("PR CAACR1",$J ,PRCAIEN)= ""
	2764	S PRCADATA ="PAGE "_P AGE,$E(PRC ADATA,8)=" "
	2765	S PRCADATA =PRCADATA_ "BILLS THA T HAVE BEE N AUTO-COR RECTED (SO RTED BY TR ANS NUM)"
	2766	S $E(PRCAD ATA,66)="" ,PRCADATA= PRCADATA_$ $UPPER^VAL M1($$FMTE^ XLFDT(DT
	2767	))
	2768	S PRCAIEN= PRCAIEN+1
	2769	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA S PRCAIEN=P RCAIEN+1
	2770	S ^TMP("PR CAACR1",$J ,PRCAIEN)= DASH S PRC AIEN=PRCAI EN+1
	2771	S ^TMP("PR CAACR1",$J ,PRCAIEN)= ""
	2772
	2773
	2774
	2775	Modified L ogic (Chan ges are in bold)
	2776
	2777	S PRCADATA ="TRANS NU M DEBTOR B ILL NO. SS N AUTO-C D ATE AUTO-C REASON" S PRCAIEN=P RCAIEN+1
	2778	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA
	2779	S PRCADATA ="-------- - -------- ---------- --------- -- ---- -- ---------- --------- -----" S P RCAIEN=PRC AIEN+1
	2780	S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA
	2781	Q
	2782	;
	2783	EXIT ; Q
	2784
	2785
	2786
	2787	Table 16: Routines: PRCA307P R outinesAct ivities
	2788	Routine Na mePRCA307P
	2789
	2790	Enhancemen t Category NewModifyD eleteNo Ch ange
	2791
	2792	RTMACJ005
	2793
	2794	Related Op tionsN/A
	2795
	2796
	2797
	2798	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	2799
	2800	^%ZTLOAD
	2801	$$SITE^RCM SITE
	2802
	2803	N/A
	2804
	2805	BMES^XPDUT L MES^XPDU TL
	2806
	2807
	2808
	2809
	2810	Routines
	2811
	2812
	2813	Activities
	2814
	2815	Data Dicti onary (DD) Reference s
	2816	N/A
	2817	Related Pr otocols
	2818	N/A
	2819	Related In tegration Control Re gistration s (ICRs)
	2820	N/A
	2821
	2822	Data Passi ng
	2823	InputOutpu tBothGloba l
	2824	ReferenceR eferenceLo cal
	2825	Input Attr ibute Name and
	2826	Definition
	2827	Name: N/A Definition :
	2828
	2829
	2830
	2831	Routines
	2832
	2833
	2834	Activities
	2835
	2836	Output Att ribute Nam e and Defi nition
	2837	Name: N/A Definition :
	2838
	2839
	2840
	2841	Current Lo gic
	2842
	2843	N/A
	2844
	2845
	2846	Modified L ogic (Chan ges are in bold)
	2847
	2848	PRCA307P ; ALB/BDB - PATCH PRCA 4.5307 P OST-INSTAL L ROUTINE ; 11/2/15 4:15pm
	2849	;;4.5;Acco unts Recei vable;30 7;Mar 20 , 1995;Bui ld 55
	2850	;;Per VA D irective 6 402, this routine sh ould not b e modified .
	2851	; This rou tine will update a s pecific li st of Stat ion ID's
	2852	; and queu es the Pat ient State ment Auto- Correction Program
	2853	; Q
	2854	EN ;Entry point for PRCA4.53 07 post-in stall
	2855	N SDAY,SIT E,T
	2856	S SITE=$$S ITE^RCMSIT E I SITE=0 D
	2857	.D MES^XPD UTL(" ")
	2858	.D BMES^XP DUTL(">>> WARNING! S TATION ID NOT FOUND! ")
	2859	.D MES^XPD UTL(">>> T HE PATIENT STATEMENT TRANSMISS ION DATE W ILL NOT BE UPDATED")
	2860	.D MES^XPD UTL(" ")
	2861	I SITE'=0, $T(@SITE) D
	2862	.D MES^XPD UTL(" ")
	2863	.D BMES^XP DUTL(">>> STATION ID "_SITE_" MATCH FOUN D!")
	2864	.D MES^XPD UTL(">>> T HE PATIENT STATEMENT TRANSMISS ION DATE W ILL BE UPD ATED")
	2865	.D MES^XPD UTL(" ")
	2866	.;set pati ent statem ent day to site stat ement day
	2867	.S T=$T(@S ITE),SDAY= +$P(T,";;" ,2)
	2868	.S $P(^RC( 342,1,0)," ^",11)=SDA Y
	2869	.S DEB=0 F S DEB=$O( ^RCD(340," AB","DPT(" ,DEB)) Q:' DEB I $D(^ RCD(340,+D EB,0)) D
	2870	..S STDT=$ P($G(^RCD( 340,+DEB,0 )),"^",3) Q:'STDT
	2871	..S SSTDT= $P($G(^RC( 342,1,0)), "^",11)
	2872	..Q:(SSTDT =STDT)
	2873	..K ^RCD(3 40,"AC",ST DT,+DEB)
	2874	..S $P(^RC D(340,+DEB ,0),"^",3) =SSTDT
	2875	..S ^RCD(3 40,"AC",SS TDT,DEB)=" " K SDAY,S ITE,DEB,ST DT,SSTDT,T
	2876	;
	2877	N ZTDTH,ZT IO,ZTDESC, ZTRTN,ZTSK
	2878	S ZTDESC=" Auto-Corre ct Patient Statement Discrepan cies" S ZT RTN="START ^PRCACPS", ZTDTH=$H,Z TIO=""
	2879
	2880
	2881
	2882	Modified L ogic (Chan ges are in bold)
	2883
	2884	D ^%ZTLOAD
	2885	I $G(ZTSK) D Q
	2886	.D BMES^XP DUTL(">>>P OST-INSTAL L CONSOLID ATED PATIE NT STATEME NT AUTO- C ORRECTION" )
	2887	.D MES^XPD UTL(">>>PR OGRAM HAS BEEN QUEUE D IN TASK "_ZTSK) I '$G(ZTSK) D Q
	2888	.D BMES^XP DUTL(">>>E RROR: POST -INSTALL C ONSOLIDATE D PATIENT STATEMENT
	2889	AUTO-CORRE CTION")
	2890	.D MES^XPD UTL(">>>PR OGRAM COUL D NOT BE Q UEUED")
	2891	;
	2892	;Stations that will have month ly stateme nt build d ate change d
	2893	438 ;;21^S IOUX FALLS ,SD
	2894	501 ;;21^A LBUQUERQUE ,NM
	2895	504 ;;21^A MARILLO,TX
	2896	542 ;;21^C OATESVILLE ,PA
	2897	562 ;;21^E RIE,PA
	2898	568 ;;21^F ORT MEADE, SD
	2899	649 ;;21^P RESCOTT,AZ
	2900	656 ;;21^S T. CLOUD,M N
	2901	688 ;;21^W ASHINGTON, DC
	2902	756 ;;21^E L PASO,TX
	2903	565 ;;22^F AYETTEVILL E,NC
	2904	621 ;;22^M OUNTAIN HO ME,TN
	2905	658 ;;22^S ALEM,VA
	2906	664 ;;22^S AN DIEGO,C A
	2907	671 ;;22^S AN ANTONIO ,TX
	2908	689 ;;22^W EST HAVEN, CT
	2909	740 ;;22^T EXAS VALLE Y COASTAL, TX
	2910
	2911	Table 17: Routines: PRCASER1
	2912
	2913	RoutinesAc tivities
	2914
	2915	Routine Na mePRCASER1
	2916
	2917	Enhancemen t Category NewModifyD eleteNo Ch ange
	2918
	2919	RTMUS005
	2920
	2921	Related Op tionsPRCAX CO-PAY EX EMPTION RE PORT
	2922
	2923
	2924
	2925	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	2926
	2927
	2928	PRCAX, RCK ATP, RCKAT PD
	2929
	2930	XMD, PRCAS ER1, FY^RC FN01,
	2931	$$NAM^RCFN 01, $$SSN^ RCFN01,
	2932	$$FY^RCFN0 1,
	2933
	2934
	2935
	2936	Routines
	2937
	2938
	2939	Activities
	2940
	2941
	2942
	2943	Data Dicti onary (DD) Reference s
	2944	ACCOUNTS R ECEIVABLE File (#430 ) AR TRANS ACTION Fil e (#433)
	2945	ACCOUNTS R ECEIVABLE TRANS.TYPE (#430.3) N EW PERSON( #200)
	2946	Related Pr otocols
	2947	N/A
	2948	Related In tegration Control Re gistration s (ICRs)
	2949	N/A
	2950
	2951	Data Passi ng
	2952	InputOutpu tBothGloba l
	2953	ReferenceR eferenceLo cal
	2954	Input Attr ibute Name and
	2955	Definition
	2956	Name: N/A Definition :
	2957	Output Att ribute Nam e and Defi nition
	2958	Name: N/A Definition :
	2959
	2960	Current Lo gic
	2961
	2962	PRCASER1 ; WASH-ISC@A LTOONA,PA/ RGY-Accept transacti on from bi lling engi ne ;9/8/93
	2963	2:21 PM
	2964	V;;4.5;Acc ounts Rece ivable;4 8,104,165, 233;Mar 20, 1995;B uild 4
	2965	;;Per VHA Directive 10-93-142, this rout ine should not be mo dified. NE W
	2966	AMT,AMT1,P RCAERR,PRC ABN,PRCADJ ,X1,XMDUZ, XMSUB,XMTE XT,XMY,DEB T
	2967	I '$D(X) S PRCAERR=" -1^PRCA020 " G Q
	2968	I $O(^PRCA (430.3,"AC ",+X,0))'? 1N.N,$P($G (^PRCA(430 .3,+X,0)), "^",3)'=21
	2969	S PRCAERR= "-1^PRCA02 1" G Q
	2970	I +X'=21,$ P($G(^PRCA (430.3,+X, 0)),"^",3) '=21 S PRC AERR="-1^P RCA022" G Q I $P(X," ^",2)'?.N. 1".".2N S PRCAERR="- 1^PRCA023" G Q
	2971	I $P(X,"^" ,2)'>0 S P RCAERR="-1 ^PRCA017" G Q I $P(X ,"^",3)="" S PRCAERR ="-1^PRCA0 06" G Q
	2972	S PRCABN=$ O(^PRCA(43 0,"B",$P(X ,"^",3),0) ) I $G(^PR CA(430,+PR CABN,0))=" " S PRCAER R="-1^PRCA 007" G Q
	2973	I '$D(^VA( 200,+$P(X, "^",4),0)) S PRCAERR ="-1^PRCA0 13" G Q
	2974	I $P(X,"^" ,5)'?7N S PRCAERR="- 1^PRCA024" G Q S (AM T1,AMT)=$P (X,"^",2)
	2975	D DEC(PRCA BN,.AMT,$P (X,"^",4), $P(X,U,6), $P(X,U,5))
	2976	S XMDUZ="A R Package" ,XMTEXT="X 1(",DEBT=$ P($G(^PRCA (430,PRCAB N,0)),"^", 9
	2977	),DEBT=$E( $$NAM^RCFN 01(DEBT),1 )_" ("_$E( $$SSN^RCFN 01(DEBT),6 ,9)_")"
	2978	I AMT'=AMT 1 S X1(1)= "A decreas e adjustme nt for bil l/Pt name (SSN) #"_$ P (X,"^",3 )_"/"_DEBT _" has bee n",XMSUB=" Automatic Adj: "_$P( X,"^",3)
	2979	I AMT=AMT1 S X1(1)=" **** NOTIC E: A decre ase adjust ment for b ill/Pt nam e
	2980	(SSN) #"_$ P(X,U,3)_" /"_DEBT,XM SUB="Manua l Adj: "_$ P(X,U,3),X 1(3)=" "
	2981	S Y=DT X ^ DD("DD") S X1(2)=$S( AMT'=AMT1: "automatic ally",1:"n eeds to be manually" )_" applie d in the a mount of $ "_$J($S(AM T1=AMT:AMT 1,1:AMT1-A MT),0,2)_"
	2982	on "_Y_"."
	2983
	2984
	2985
	2986	Routines
	2987
	2988
	2989	Activities
	2990
	2991	I AMT,AMT' =AMT1 S X1 (3)="Pleas e review b ill for pr oper appli cation of t he unapp lied amoun t of $"_$J (AMT,0,2)_ "."
	2992	S X1(4)=" ",X1(5)="D ata sent f rom Servic e" S X1(6) ="Amount: $"_$J(AMT1 ,0,2)
	2993	S Y=$P(X,U ,5) X ^DD( "DD") S X1 (7)="Date: "_Y
	2994	S X1(8)="R eason: "_$ S($P(X,"^" ,6)]"":$P( X,"^",6),1 :"N/A")
	2995	S X1(9)=" Adjustment by: "_$P( $G(^VA(200 ,+$P(X,"^" ,4),0)),"^ ")
	2996	S AMT=0 F X=1:1:5 S AMT=AMT+$P ($G(^PRCA( 430,PRCABN ,7)),U,X) S AMT1=AMT -+$G(^PRCA (430,PRCAB N,7))
	2997	S X=$P(^PR CA(430.3,+ $P($G(^PRC A(430,PRCA BN,0)),U,8 ),0),U,1)
	2998	S X1(10)=" ",X1(12)= " ",X1(13) ="Bill sta tus is "_$ S(XMSUB["A uto":"now "
	2999	,1:"")_X_" with a ba lance of $ "_$J(AMT,0 ,2)_".",X1 (14)=" "
	3000	I AMT1>0 S X1(15)=" WARNING There is o utstanding administr ative char ges of $" _$J(AMT1,0 ,2)_".",X1 (16)="An a djustment of adminis trative c harges MAY need to b e done."
	3001	S XMY("G.P RCA ADJUST MENT TRANS ")="" D ^X MD
	3002	QS Y=$S($D (PRCAERR): PRCAERR,1: 0) Q TEST;
	3003	S X="21^22 ^503-AA000 7^5^292120 6^RX RETUR NED IN MAI L" D ^PRCA SER1 W !,Y ,
	3004	!
	3005	Q
	3006	DEC(PRCABN ,AMT,APR,R EA,BDT,PRC AEN) ;Auto decrease from servi ce Bill#,T ran amt,pe rson,reas on,Tran da te
	3007	NEW BAL,DA ,DIC,DIE,D R,ERR,PRCA ,PRCAA2,PR CAMT,PRCAS V,X,Y S PR CAEN="",BA L=+$G(^PRC A(430,PRCA BN,7)) I ' BAL Q
	3008	I $P(^PRCA (430,PRCAB N,0),U,8)' =$O(^PRCA( 430.3,"AC" ,102,"")), $P(^PRCA(4 3
	3009	0,PRCABN,0 ),U,8)'=$O (^PRCA(430 .3,"AC",11 2,"")) Q
	3010	I $P(^PRCA (430,PRCAB N,0),U,2)= $O(^PRCA(4 30.2,"AC", 33,0)) Q S BAL=$S(AM T>BAL:BAL, 1:AMT)
	3011	S PRCA("AD J")=$O(^PR CA(430.3," AC",21,0)) ,PRCASV("F Y")=$$FY^R CFN01(DT)_ U
	3012	_BAL,PRCAS V("APR")=A PR,PRCASV( "BDT")=$S( $G(BDT)>0: BDT,1:DT)
	3013	D SETTR^PR CAUTL,PATT R^PRCAUTL S DIE="^PR CA(433,",D R="[PRCA F Y ADJ2
	3014	BATC
	3015	H]",DA=PRC AEN D ^DIE S PRCAA2= $P(^PRCA(4 33,PRCAEN, 4,0),U,3) D UPFY^PRC ADJ,TRANUP
	3016	^PRCAUTL
	3017	I ("^30^31 ^")[("^"_$ P($G(^PRCA (430,PRCAB N,0)),"^", 2)_"^") D EN^PRCAFBD M (PRCABN, BAL,PRCA(" ADJ"),$G(P RCADJ("BDT ")),PRCAEN ,.ERR)
	3018	D UPPRIN^P RCADJ
	3019	I "AutoAUT O"'[$E(REA ,1,4) S RE A="Auto De c.: "_REA
	3020	S DA=PRCAE N,DIE="^PR CA(433,",D R="41///"_ REA D ^DIE S AMT=AMT -+$P($G(^P RCA(433,PR CAEN,1)),U ,5)
	3021	Q
	3022
	3023	Modified L ogic (Chan ges are in bold)
	3024
	3025
	3026
	3027	Modified L ogic (Chan ges are in bold)
	3028
	3029	PRCASER1 ; WASH-ISC@A LTOONA,PA/ RGY-Accept transacti on from bi lling engi ne ;9/8/93
	3030	2:21 PM
	3031	V ;;4.5;Ac counts Rec eivable; 48,104,165 ,233,301,3 07;Mar 2 0, 1995;Bu ild 55
	3032	;;Per VA D irective 6 402, this routine sh ould not b e modified .
	3033	NEW AMT,AM T1,PRCAERR ,PRCABN,PR CADJ,X1,XM DUZ,XMSUB, XMTEXT,XMY ,DEBT I '$ D(X) S PRC AERR="-1^P RCA020" G Q
	3034	I $O(^PRCA (430.3,"AC ",+X,0))'? 1N.N,$P($G (^PRCA(430 .3,+X,0)), "^",3)'=21 S PRCAERR ="-
	3035	1^PRCA021" G Q
	3036	I +X'=21,$ P($G(^PRCA (430.3,+X, 0)),"^",3) '=21 S PRC AERR="-1^P RCA022" G Q I $P(X," ^",2)'?.N. 1".".2N S PRCAERR="- 1^PRCA023" G Q
	3037	I $P(X,"^" ,2)'>0 S P RCAERR="-1 ^PRCA017" G Q
	3038	I $P(X,"^" ,3)="" S P RCAERR="-1 ^PRCA006" G Q S PRCA BN=$O(^PRC A(430,"B", $P(X,"^",3 ),0))
	3039	I $G(^PRCA (430,+PRCA BN,0))="" S PRCAERR= "-1^PRCA00 7" G Q
	3040	I '$D(^VA( 200,+$P(X, "^",4),0)) S PRCAERR ="-1^PRCA0 13" G Q I $P(X,"^",5 )'?7N S PR CAERR="-1^ PRCA024" G Q
	3041	S (AMT1,AM T)=$P(X,"^ ",2)
	3042	D DEC(PRCA BN,.AMT,$P (X,"^",4), $P(X,U,6), $P(X,U,5)) S XMDUZ=" AR Package ",XMTEXT=" X1(",DEBT= $P($G(^PRC A(430,PRCA BN,0)),"^" ,9),DEBT=$ E($$NAM^RC FN01(DEBT ),1)_" ("_ $E($$SSN^R CFN01(DEBT ),6,9)_")"
	3043	I AMT'=AMT 1 S X1(1)= "A decreas e adjustme nt for bil l/Pt name (SSN)
	3044	#"_$P(X,"^ ",3)_"/"_D EBT_" has been",XMSU B="Automat ic Adj: "_ $P(X,"^",3 )
	3045	I AMT=AMT1 S X1(1)=" **** NOTIC E: A decre ase adjust ment for b ill/Pt nam e (SSN)
	3046	#"_$P(X,U, 3)_"/"_DEB T,XMSUB="M anual Adj: "_$P(X,U, 3),X1(3)=" "
	3047	S Y=DT X ^ DD("DD") S X1(2)=$S( AMT'=AMT1: "automatic ally",1:"n eeds to be manually" )_" applie d in the a mount of $ "_$J($S(AM T1=AMT:AMT 1,1:AMT1-A MT),0,2)_" on "_Y_". "
	3048	I AMT,AMT' =AMT1 S X1 (3)="Pleas e review b ill for pr oper appli cation of the unappl ied amount
	3049	of $"_$J(A MT,0,2)_". "
	3050	S X1(4)=" ",X1(5)="D ata sent f rom Servic e" S X1(6) =" Amount: $"_$J(AMT 1,0,2)
	3051	S Y=$P(X,U ,5) X ^DD( "DD") S X1 (7)=" Date : "_Y
	3052	S X1(8)=" Reason: "_ $S($P(X,"^ ",6)]"":$P (X,"^",6), 1:"N/A")
	3053	S X1(9)=" Adjustment by: "_$P( $G(^VA(200 ,+$P(X,"^" ,4),0)),"^ ")
	3054	S AMT=0 F X=1:1:5 S AMT=AMT+$P ($G(^PRCA( 430,PRCABN ,7)),U,X) S AMT1=AMT -+$G(^PRCA (430,PRCAB N,7))
	3055	S X=$P(^PR CA(430.3,+ $P($G(^PRC A(430,PRCA BN,0)),U,8 ),0),U,1)
	3056	S X1(10)=" ",X1(12)= " ",X1(13) ="Bill sta tus is "_$ S(XMSUB["A uto":"now ",1:"")_X_ " with a b alance of $"_$J(AMT, 0,2)_".",X 1(14)=" "
	3057	I AMT1>0 S X1(15)=" WARNING There is o utstanding administr ative char ges of
	3058	$"_$J(AMT1 ,0,2)_".", X1(16)=" A n adjustme nt of admi nistrative charges M AY need to be done." S XMY("G. PRCA ADJUS TMENT TRAN S")=""
	3059	D ^XMD
	3060	Q S Y=$S($ D(PRCAERR) :PRCAERR,1 :0) Q TEST ;
	3061	S X="21^22 ^503-AA000 7^5^292120 6^RX RETUR NED IN MAI L" D ^PRCA SER1 W !,Y ,!
	3062	Q
	3063
	3064
	3065
	3066	Modified L ogic (Chan ges are in bold)
	3067
	3068	DEC(PRCABN ,AMT,APR,R EA,BDT,PRC AEN) ;Auto decrease from servi ce Bill#,T ran amt,pe rson,reaso n,Tran dat e
	3069	NEW BAL,DA ,DIC,DIE,D R,ERR,PRCA ,PRCAA2,PR CAMT,PRCAS V,X,Y,PRCA DUP ; PRCA 4.5307 - New PRCAD UP then in itialize n ext line
	3070	S PRCADUP= 0
	3071	; PRCA4.5 307 - If reason is TIER RATE check for duplicate
	3072	I REA["TIE R RATE" D DUPCHK
	3073	S PRCAEN=" ",BAL=+$G( ^PRCA(430, PRCABN,7)) I 'BAL Q
	3074	I $P(^PRCA (430,PRCAB N,0),U,8)' =$O(^PRCA( 430.3,"AC" ,102,"")), $P(^PRCA(4 30,PRCABN, 0
	3075	),U,8)'=$O (^PRCA(430 .3,"AC",11 2,"")) Q
	3076	I $P(^PRCA (430,PRCAB N,0),U,2)= $O(^PRCA(4 30.2,"AC", 33,0)) Q S BAL=$S(AM T>BAL:BAL, 1:AMT)
	3077	S PRCA("AD J")=$O(^PR CA(430.3," AC",21,0)) ,PRCASV("F Y")=$$FY^R CFN01(DT)_ U_BAL,P RC ASV("APR") =APR,PRCAS V("BDT")=$ S($G(BDT)> 0:BDT,1:DT )
	3078	D SETTR^PR CAUTL,PATT R^PRCAUTL S DIE="^PR CA(433,",D R="[PRCA F Y ADJ2
	3079	BATCH]",DA =PRCAEN D ^DIE S PRC AA2=$P(^PR CA(433,PRC AEN,4,0),U ,3) D UPFY ^PRCADJ,TR ANUP^PRCAU TL
	3080	I ("^30^31 ^")[("^"_$ P($G(^PRCA (430,PRCAB N,0)),"^", 2)_"^")
	3081	D EN^PRCAF BDM(PRCABN ,BAL,PRCA( "ADJ"),$G( PRCADJ("BD T")),PRCAE N,.ERR) D UPPRIN^PRC ADJ
	3082	I "AutoAUT O"'[$E(REA ,1,4) S RE A="Auto De c.: "_REA
	3083	S DA=PRCAE N,DIE="^PR CA(433,",D R="41///"_ REA D ^DIE
	3084	; PRCA4.5 307 - Mar k Incomple te Transac tion if du plicate, b locking fr om Patient
	3085	Statement
	3086	I PRCADUP S DR="10// //1" D ^DI E
	3087	S AMT=AMT- +$P($G(^PR CA(433,PRC AEN,1)),U, 5)
	3088	I PRCAEN,$ D(^PRCA(43 0,"TCSP",P RCABN)) D DECADJ^RCT CSPU(PRCAB N,PRCAEN)
	3089	;prca4.5 301 add cs decrease adjustment 5B
	3090	Q
	3091	;
	3092	DUPCHK ;PR CA4.5307 - Check f or duplica te (lower/ higher) se t PRCADUP if true
	3093	N PRCATX,P RCAII,PRCA TRN
	3094	S PRCATX=$ P(^PRCA(43 3,0),U,3)
	3095	F PRCAII=P RCATX-20:1 :PRCATX D Q:PRCADUP
	3096	. S PRCATR N=$G(^PRCA (433,PRCAI I,1)) I $P (PRCATRN,U ,5)'=AMT Q
	3097	. I $P($G( ^PRCA(433, PRCAII,0)) ,U,2)'=PRC ABN Q
	3098	. I $P($G( ^PRCA(433, PRCAII,0)) ,U,9)'=APR Q
	3099	. I $P(PRC ATRN,U)'=B DT Q
	3100	. S PRCADU P=PRCAII Q
	3101
	3102
	3103
	3104	Table 18: Routines: RCCPCBJ
	3105
	3106
	3107	Routines
	3108
	3109
	3110	Activities
	3111
	3112	Routine Na me
	3113	RCCPCBJ
	3114
	3115
	3116
	3117	Routines
	3118
	3119
	3120	Activities
	3121
	3122	Routine Na me
	3123	RCCPCBJ
	3124	Enhancemen t Category
	3125	NewModifyD eleteNo Ch ange
	3126	RTM
	3127	ACJ002
	3128	Related Op tions
	3129
	3130
	3131
	3132
	3133	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	3134
	3135	^%DTC C^%D TC
	3136	^%ZTLOAD
	3137	^DIE
	3138	$$EN^PRCAR FU FIRSTPT Y^RCBECHGS
	3139	$$STD^RCCP CFN
	3140	$$STDY^RCC PCFN EN^RC CPCML
	3141	^RCCPCPS
	3142	TRANCHK^RC CPCSV1
	3143	^RCEXINAD
	3144	$$DOW^XLFD T
	3145
	3146
	3147
	3148
	3149	Routines
	3150
	3151
	3152	Activities
	3153
	3154	Data Dicti onary (DD) Reference s
	3155
	3156	Related Pr otocols
	3157
	3158	Related In tegration Control Re gistration s (ICRs)
	3159
	3160
	3161	Data Passi ng
	3162	InputOutpu tBothGloba l
	3163	ReferenceR eferenceLo cal
	3164	Input Attr ibute Name and
	3165	Definition
	3166	Name: Defi nition:
	3167	Output Att ribute Nam e and Defi nition
	3168	Name: Defi nition:
	3169
	3170
	3171	Current Lo gic
	3172
	3173
	3174
	3175	Current Lo gic
	3176
	3177	DEVISC1A1: PATVEE>ZL RCCPCBJ ZP
	3178	RCCPCBJ ; WASH-ISC@A LTOONA,PA/ NYB-Backgr ound Drive r for CCPC ;1/7/97 9 :42 AM
	3179	;;4.5;Acco unts Recei vable;34 ,76,130,15 3,166,195, 217,237; Mar 20, 19 95
	3180	;;Per VHA Directive 10-93-142, this rout ine should not be mo dified. EN ;Starts th e backgrou nd job for CCPC 5 da ys before statement day
	3181	N X,X1,X2, X3,ZTRTN,Z TIO,ZTDTH, ZTSK,ZTDES C
	3182	D ACK
	3183	S X1=$$STD ^RCCPCFN,X 2=-2 D C^% DTC
	3184	;10-proces s end time /18-ccpc f ile built
	3185	I X=DT D Q
	3186	. S X3=$O( ^RCPS(349. 2,0)) Q:'X 3
	3187	. Q:'$P($P ($G(^RCPS( 349.2,X3,0 )),"^",10) ,".")
	3188	. Q:'$P($G (^RCPS(349 .2,X3,0)), "^",18)
	3189	. D EN^RCC PCML
	3190	;quit if d ate create d is yeste rday's dat e
	3191	S X1=$$STD ^RCCPCFN,X 2=-1 D C^% DTC I X=DT D Q
	3192	. S X3=+$O (^RCT(349, 0))
	3193	. S X3=$P( $P($G(^RCT (349,X3,0) ),"^",11), ".")
	3194	. S X1=DT, X2=-1 D C^ %DTC
	3195	. I X=X3 Q
	3196	. D EN^RCC PCML
	3197	;
	3198	S X1=$$STD ^RCCPCFN,X 2=-3 D C^% DTC I X'=D T Q
	3199	I DT'<$P($ G(^RC(342, 1,30)),"^" ,1)&(DT'>$ P($G(^RC(3 42,1,30)), "^",2)) D ^RCEXINAD
	3200	S ZTIO="", ZTRTN="OPE N^RCCPCBJ" ,ZTDESC="C CPC PATIEN T STATEMEN T" S ZTDTH =$H D ^%ZT LOAD
	3201	Q
	3202	OPEN;Updat e Open sta tus bills to Active or Cancell ation stat us
	3203	N DAY,BN,D EBTOR,DA,D IE,DR,P,AM T
	3204	N ZTSAVE,Z TRTN,ZTDES C,ZTASK,%Z IS,ZTDTH
	3205	S DATE=$$S TD^RCCPCFN ,DAY=+$$ST DY^RCCPCFN ,DEBTOR=0 F S DEBTOR =$O(^RCD(3 40,"AC",DA Y,DEBTOR)) Q:'DEBTOR D
	3206	.S BN=0 F S BN=$O(^ PRCA(430," AS",DEBTOR ,$O(^PRCA( 430.3,"AC" ,112,0)),B N)) Q:'BN D
	3207	..S AMT=0 F P=1:1:5 S AMT=$P($ G(^PRCA(43 0,+BN,7)), "^",P)+AMT
	3208	..I $P($G( ^PRCA(430, +BN,0)),"^ ",2)=$O(^P RCA(430.2, "AC",33,0) ),AMT Q
	3209	..S DIE="^ PRCA(430," ,DA=+BN,DR ="8////^S
	3210
	3211
	3212
	3213	Current Lo gic
	3214
	3215	X="_$S(AMT :$O(^PRCA( 430.3,"AC" ,102,0)),1 :$O(^PRCA( 430.3,"AC" ,111,0))) D ^DIER
	3216	..Q
	3217	.Q
	3218	;
	3219	; update patient ac counts wit h interest and admin
	3220	N RCLASDAT
	3221	S RCLASDAT =DATE
	3222	I DT>30101 01 D FIRST PTY^RCBECH GS D ^RCCP CPS
	3223	D REFUND Q
	3224	;
	3225	;
	3226	REFUND ; Update Ope n status P REPAYMENT bills to R EFUND REVI EW S DEBTO R=0,DAY=+$ $STDY^RCCP CFN
	3227	F S DEBTOR =$O(^RCD(3 40,"AC",DA Y,DEBTOR)) Q:'DEBTOR D
	3228	.S BN=0 F S BN=$O(^ PRCA(430," AS",DEBTOR ,$O(^PRCA( 430.3,"AC" ,112,0)),B N)) Q:'BN D
	3229	..I $P($G( ^PRCA(430, +BN,0)),"^ ",2)=$O(^P RCA(430.2, "AC",33,0) ) S X=$$EN ^PRCARFU(+ BN)
	3230	..Q
	3231	.Q Q
	3232	;
	3233	ACK;CHECK FOR ACKNOW LEDGEMENTS N DEB,MSG ,NO,RCX,X, X1,X2
	3234	S X1=$$STD ^RCCPCFN,X 2=DT D ^%D TC I X>3 D
	3235	.D TRANCHK ^RCCPCSV1
	3236	Q
	3237
	3238
	3239	Modified L ogic (Chan ges are in bold)
	3240
	3241	RCCPCBJ ;W ASH-ISC@AL TOONA,PA/N YB-Backgro und Driver for CCPC ;1/7/97 9: 42 AM
	3242	;;4.5;Acco unts Recei vable;34 ,76,130,15 3,166,195, 217,237,30 7;Mar 20 , 1995;Bui ld 55
	3243	;;Per VHA Directive 10-93-142, this rout ine should not be mo dified. EN ;Starts t he backgro und job fo r CCPC 5 d ays before statement day N X,X 1,X2,X3,ZT RTN,ZTIO,Z TDTH,ZTSK, ZTDESC
	3244	D ACK
	3245	I $$DOW^XL FDT(DT,1)= 3 D ;run t he cbs aut o-correcti on program on wednes days
	3246	.N ZTDESC, ZTASK,ZTDT H,ZTIO,ZTR TN
	3247	.S ZTIO="" ,ZTRTN="ST ART^PRCACP S"
	3248
	3249
	3250
	3251	Modified L ogic (Chan ges are in bold)
	3252
	3253	.S ZTDESC= "PATIENT S TATEMENTS AUTO-CORRE CTION PROG RAM",ZTDTH =$H
	3254	.D ^%ZTLOA D
	3255	;
	3256	S X1=$$STD ^RCCPCFN,X 2=-2 D C^% DTC
	3257	;10-proces s end time /18-ccpc f ile built
	3258	I X=DT D Q
	3259	. S X3=$O( ^RCPS(349. 2,0)) Q:'X 3
	3260	. Q:'$P($P ($G(^RCPS( 349.2,X3,0 )),"^",10) ,".")
	3261	. Q:'$P($G (^RCPS(349 .2,X3,0)), "^",18)
	3262	. D EN^RCC PCML
	3263	;quit if d ate create d is yeste rday's dat e
	3264	S X1=$$STD ^RCCPCFN,X 2=-1 D C^% DTC I X=DT D Q
	3265	. S X3=+$O (^RCT(349, 0))
	3266	. S X3=$P( $P($G(^RCT (349,X3,0) ),"^",11), ".")
	3267	. S X1=DT, X2=-1 D C^ %DTC
	3268	. I X=X3 Q
	3269	. D EN^RCC PCML
	3270	;
	3271	S X1=$$STD ^RCCPCFN,X 2=-3 D C^% DTC I X'=D T Q
	3272	I DT'<$P($ G(^RC(342, 1,30)),"^" ,1)&(DT'>$ P($G(^RC(3 42,1,30)), "^",2)) D ^RCEXINAD
	3273	S ZTIO="", ZTRTN="OPE N^RCCPCBJ" ,ZTDESC="C CPC PATIEN T STATEMEN T" S ZTDTH =$H D ^%ZT LOAD
	3274	Q
	3275	OPEN ;Upda te Open st atus bills to Active or Cancel lation sta tus
	3276	N DATE,DAY ,BN,DEBTOR ,DA,DIE,DR ,P,AMT
	3277	N ZTSAVE,Z TRTN,ZTDES C,ZTASK,%Z IS,ZTDTH
	3278	S DATE=$$S TD^RCCPCFN ,DAY=+$$ST DY^RCCPCFN ,DEBTOR=0
	3279	F S DEBTO R=$O(^RCD( 340,"AC",D AY,DEBTOR) ) Q:'DEBTO R D
	3280	.S BN=0 F S BN=$O(^ PRCA(430," AS",DEBTOR ,$O(^PRCA( 430.3,"AC" ,112,0)),B N)) Q:'BN D
	3281	..S AMT=0 F P=1:1:5 S AMT=$P($ G(^PRCA(43 0,+BN,7)), "^",P)+AMT
	3282	..I $P($G( ^PRCA(430, +BN,0)),"^ ",2)=$O(^P RCA(430.2, "AC",33,0) ),AMT Q
	3283	..S DIE="^ PRCA(430," ,DA=+BN,DR ="8////^S X="_$S(AMT :$O(^PRCA( 430.3,"AC" ,102,0)),1 :$O(^PRCA( 430.3,"AC" ,111,0))) D ^DIE K D A,DIE,DR
	3284	..Q
	3285	.Q
	3286	;
	3287	; update p atient acc ounts with interest and admin
	3288	N RCLASDAT
	3289	S RCLASDAT =DATE
	3290	I DT>30101 01 D FIRST PTY^RCBECH GS D ^RCCP CPS
	3291	D REFUND
	3292	Q
	3293
	3294
	3295
	3296	Modified L ogic (Chan ges are in bold)
	3297
	3298	;
	3299	;
	3300	REFUND ;Up date Open status PRE PAYMENT bi lls to REF UND REVIEW S DEBTOR= 0,DAY=+$$S TDY^RCCPCF N
	3301	F S DEBTOR =$O(^RCD(3 40,"AC",DA Y,DEBTOR)) Q:'DEBTOR D
	3302	.S BN=0 F S BN=$O(^ PRCA(430," AS",DEBTOR ,$O(^PRCA( 430.3,"AC" ,112,0)),B N)) Q:'BN D
	3303	..I $P($G( ^PRCA(430, +BN,0)),"^ ",2)=$O(^P RCA(430.2, "AC",33,0) ) S X=$$EN ^PRCARFU(+ BN)
	3304	..Q
	3305	.Q Q
	3306	;
	3307	ACK ;CHECK FOR ACKNO WLEDGEMENT S N DEB,MS G,NO,RCX,X ,X1,X2
	3308	S X1=$$STD ^RCCPCFN,X 2=DT D ^%D TC I X>3 D
	3309	.D TRANCHK ^RCCPCSV1
	3310	Q
	3311
	3312
	3313
	3314	Table 19: Routines: RCDPBTLM R outinesAct ivities
	3315	Routine Na meRCDPBTLM
	3316
	3317	Enhancemen t Category NewModifyD eleteNo Ch ange
	3318
	3319	RTM??? - n othing
	3320
	3321	Related Op tionsDecre ase Adjust ment, Incr ease Adjus tment
	3322
	3323
	3324
	3325	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	3326
	3327	^DIC
	3328	^DIR
	3329	$$REC^IBRF N
	3330	$$COMP3^PR CAAPR
	3331	$$IBEEOBCK ^PRCAAPR1
	3332
	3333	RCBEADJ
	3334
	3335	SET^RCDPAP LI
	3336	$$ACCNTHDR ^RCDPAPLM DIQ430^RCD PBPLM
	3337	$$TRANBAL^ RCRJRCOT E N^VALM
	3338
	3339
	3340
	3341	Routines
	3342
	3343
	3344	Activities
	3345
	3346	Data Dicti onary (DD) Reference s
	3347	N/A
	3348	Related Pr otocols
	3349	N/A
	3350	Related In tegration Control Re gistration s (ICRs)
	3351	N/A
	3352
	3353	Data Passi ng
	3354	InputOutpu tBothGloba l
	3355	ReferenceR eferenceLo cal
	3356	Input Attr ibute Name and
	3357	Definition
	3358	Name: N/A Definition :
	3359	Output Att ribute Nam e and Defi nition
	3360	Name: N/A Definition :
	3361
	3362
	3363
	3364	Current Lo gic
	3365
	3366	RCDPBTLM ; WISC/RFJ - bill tran sactions L ist Manage r top rout ine ;1 Jun 99
	3367	;;4.5;Acco unts Recei vable;11 4,148,153, 168,169,19 8,247,271, 276;Mar 20, 1995;B uild
	3368	87
	3369	;;Per VHA Directive 2004-038, this routi ne should not be mod ified.
	3370	;
	3371	; Referenc e to $$REC ^IBRFN sup ported by DBIA 2031
	3372	;
	3373	; called f rom menu o ption (19)
	3374	;
	3375	N RCBILLDA ,RCDPFXIT
	3376	;
	3377	F D Q:'RCB ILLDA
	3378	. W !! S R CBILLDA=$$ SELBILL
	3379	. I RCBILL DA<1 S RCB ILLDA=0 Q
	3380	. D EN^VA LM("RCDP T RANSACTION S LIST")
	3381	. ; fast e xit
	3382	. I $G(RCD PFXIT) S R CBILLDA=0
	3383	Q
	3384	;
	3385	;
	3386	INIT; ini tializatio n for list manager l ist
	3387	; requires rcbillda
	3388	N ADMIN,DA TE,RCLINE, RCLIST,RCT OTAL,RCTRA N,RCTRANDA K ^TMP("R CDPBTLM",$ J),^TMP("V ALM VIDEO" ,$J)
	3389	;
	3390	; fast exi t
	3391	I $G(RCDPF XIT) S VAL MQUIT=1 Q
	3392	;
	3393	; set the List Manag er line nu mber
	3394
	3395
	3396
	3397	Current Lo gic
	3398
	3399	S RCLINE=0
	3400	; set the List Manag er transac tion numbe r
	3401	S RCTRAN=0
	3402	;
	3403	; get tran sactions a nd balance for bill
	3404	S RCTOTAL= $$GETTRANS (RCBILLDA)
	3405	;
	3406	S DATE="" F S DATE= $O(RCLIST( DATE)) Q:' DATE D
	3407	. S RCTRA NDA="" F S RCTRANDA= $O(RCLIST( DATE,RCTRA NDA)) Q:RC TRANDA="" D
	3408	. . S RCL INE=RCLINE +1
	3409	. . ;
	3410	. . ; cre ate an ind ex array f or transac tion looku p in list
	3411	. . I RCT RANDA D
	3412	. . . S R CTRAN=RCTR AN+1
	3413	. . . S ^ TMP("RCDPB TLM",$J,"I DX",RCTRAN ,RCTRAN)=R CTRANDA
	3414	. . . D S ET^RCDPAPL I(RCTRAN,R CLINE,1,80 ,0,IORVON, IORVOFF)
	3415	. . ;
	3416	. . D SET ^RCDPAPLI( $S(RCTRAND A:RCTRANDA ,1:" "),RC LINE,4,80)
	3417	. . D SET ^RCDPAPLI( $E(DATE,4, 5)_"/"_$E( DATE,6,7)_ "/"_$E(DAT E,2,3),RCL INE,13,21)
	3418	. . D
	3419	SET^RCDPAP LI($TR($P( RCLIST(DAT E,RCTRANDA ),"^"),"AB CDEFGHIJKL MNOPQRSTUV W XYZ","ab cdefghijkl mnopqrstuv wxyz"),RCL INE)
	3420	. . D SET ^RCDPAPLI( $J($P(RCLI ST(DATE,RC TRANDA),"^ ",2),9,2), RCLINE,53, 62)
	3421	. . D SET ^RCDPAPLI( $J($P(RCLI ST(DATE,RC TRANDA),"^ ",3),9,2), RCLINE,62, 71)
	3422	. . ; add marshal f ee and cou rt cost to create ad min dollar s
	3423	. . S ADM IN=$P(RCLI ST(DATE,RC TRANDA),"^ ",4)+$P(RC LIST(DATE, RCTRANDA), "^",5)+$P( RCL
	3424	IST(DATE,R CTRANDA)," ^",6)
	3425	. . D SET ^RCDPAPLI( $J(ADMIN,9 ,2),RCLINE ,71,80)
	3426	;
	3427	; show tot als
	3428	S RCLINE=R CLINE+1
	3429	D SET^RCDP APLI("---- ----- ---- ---- ----- ---",RCLIN E,1,80) S RCLINE=RCL INE+1
	3430	D SET^RCDP APLI(" TO TAL BALANC E FOR BILL ",RCLINE,1 ,80) D SET ^RCDPAPLI( $J($P(RCTO TAL,"^",1) ,9,2),RCLI NE,53,62)
	3431	D SET^RCDP APLI($J($P (RCTOTAL," ^",2),9,2) ,RCLINE,62 ,71)
	3432	D SET^RCDP APLI($J($P (RCTOTAL," ^",3)+$P(R CTOTAL,"^" ,4)+$P(RCT OTAL,"^",5 ),9,2),RCL IN E,71,80 )
	3433	;
	3434	; compare totals to what is st ored in th e file
	3435	N RCDATA7, RCFOUT
	3436	S RCDATA7= $G(^PRCA(4 30,RCBILLD A,7))
	3437	; for a wr ite-off bi ll, the ba lance shou ld equal a ll zeros, for
	3438
	3439
	3440
	3441	Current Lo gic
	3442
	3443	; these bi lls, node 7 is the w rite-off a mount, so for the ou t of
	3444	; balance check to work, node 7 needs t o be adjus ted to all zeros
	3445	I $P(^PRCA (430,RCBIL LDA,0),"^" ,8)=23 S R CDATA7="0^ 0^0^0^0" I +$P(RCDAT A7,"^",1)' =+$P(RCTOT AL,"^",1) S RCFOUT=1
	3446	I +$P(RCDA TA7,"^",2) '=+$P(RCTO TAL,"^",2) S RCFOUT= 1
	3447	I ($P(RCDA TA7,"^",3) +$P(RCDATA 7,"^",4)+$ P(RCDATA7, "^",5))'=+ $P(RCTOTAL ,"^",3) S RCFOUT=1
	3448	I $G(RCFOU T) D
	3449	. S RCLIN E=RCLINE+1
	3450	. D SET^R CDPAPLI(" ",RCLINE,1 ,80)
	3451	. S RCLIN E=RCLINE+1
	3452	. D SET^R CDPAPLI(" STORED BAL ANCE FOR B ILL (** IN CORRECT
	3453	**)",RCLIN E,1,80)
	3454	. D SET^R CDPAPLI($J ($P(RCDATA 7,"^",1),9 ,2),RCLINE ,53,62)
	3455	. D SET^R CDPAPLI($J ($P(RCDATA 7,"^",2),9 ,2),RCLINE ,62,71)
	3456	. D SET^R CDPAPLI($J ($P(RCDATA 7,"^",3)+$ P(RCDATA7, "^",4)+$P( RCDATA7,"^ ",5),9,2), RCLIN
	3457	E,71,80)
	3458	;
	3459	; set valm cnt to num ber of lin es in the list
	3460	S VALMCNT= RCLINE D H DR
	3461	Q
	3462	;
	3463	;
	3464	HDR; head er code fo r list man ager displ ay
	3465	; requires rcbillda
	3466	N %,DATA,R CDEBTDA,RC DPDATA
	3467	;
	3468	D DIQ430^R CDPBPLM(RC BILLDA,".0 1;8;")
	3469	;
	3470	S RCDEBTDA =$P(^PRCA( 430,RCBILL DA,0),"^", 9) S DATA= $$ACCNTHDR ^RCDPAPLM( RCDEBTDA)
	3471	;
	3472	S %="",$P( %," ",80)= ""
	3473	; PRCA4.5 276 - get EEOB indi cator for 1st/3rd pa rty paymen t and atta ch to bill when appl icable
	3474	S PRCOUT=$ $COMP3^PRC AAPR(RCBIL LDA)
	3475	I PRCOUT'= "%" S PRCO UT=$$IBEEO BCK^PRCAAP R1(RCBILLD A) S VALMH DR(1)=$E(" Bill #:
	3476	"_$G(PRCOU T)_$G(RCDP DATA(430,R CBILLDA,.0 1,"E"))_%, 1,25)_"Acc ount:
	3477	"_$P(DATA, "^")_$P(DA TA,"^",2)
	3478	S VALMHDR( 2)=$E("Sta tus: "_$G( RCDPDATA(4 30,RCBILLD A,8,"E"))_ %,1,25)_$E (" Addr: " _$P(DATA," ^",4)_", " _$P(DATA," ^",7)_", " )
	3479	; PRCA4.5 276 - sho w caption for user
	3480	S VALMSG=" \|% EEOB \| Enter ?? f or more ac tions \|" ; PRCA4.5 276
	3481	Q
	3482
	3483
	3484
	3485	Current Lo gic
	3486
	3487	S VALMHDR( 3)=" "_IOR VON_$E("Bi ll Balance : "_$J($P( RCTOTAL,"^ ")+$P(RCTO TAL,"^",2) +$P(RCTOTA L,"^",3)+$ P(RCTOTAL, "^",4)+$P( R)
	3488	Q
	3489	;
	3490	;
	3491	EXIT; exi t list man ager optio n and clea n up
	3492	K ^TMP("RC DPBTLM",$J ),^TMP("RC DPBTLMX",$ J) Q
	3493	;
	3494	;
	3495	SELBILL() ; select a bill
	3496	; returns -1 for tim eout or ^, 0 for no selection, or ien of bill
	3497	N %,%Y,C,D IC,DTOUT,D UOUT,RCBEF LUP,X,Y
	3498	N DPTNOFZY ,DPTNOFZK S (DPTNOFZ Y,DPTNOFZK )=1
	3499	N RCY,DIR, DIRUT
	3500	; allow us er to get the record using bil l# or ECME # S DIR("A ")="Select (B)ILL or (E)CME#: "
	3501	S DIR(0)=" SA^B:BILL NUMBER;E:E CME#" S DI R("B")="B"
	3502	D ^DIR K D IR I $D(DI RUT) Q 0
	3503	S RCY=Y
	3504	I RCY="E" Q $$SELECM E
	3505	S DIC="^PR CA(430,",D IC(0)="QEA M",DIC("A" )="Select BILL: " S DIC("W")=" D DICW^RCB EUBI1"
	3506	; special lookup on input
	3507	S RCBEFLUP =1
	3508	D ^DIC
	3509	I Y<0,'$G( DUOUT),'$G (DTOUT) S Y=0
	3510	Q +Y
	3511	;
	3512	;
	3513	GETTRANS(B ILLDA) ; o riginal am ount goes first for bill
	3514	; returns list of tr ansactions in
	3515	; rclist(d ate,tranda )=trantype ^ princip le ^ inter est ^ admi n
	3516	; returns principle balance ^ interest b alance ^ a dmin balan ce
	3517	;^ marshal l fee bala nce ^ cour t cost bal ance
	3518	N
	3519	%,ADMBAL,A MTDISP,CCB AL,DATA1,D ATE,INTBAL ,MFBAL,PRI NBAL,RCDPD ATA,TRANDA , VALUE
	3520	;
	3521	D DIQ430^R CDPBPLM(BI LLDA,"3;60 ;")
	3522	;
	3523	K RCLIST
	3524	S (ADMBAL, CCBAL,INTB AL,MFBAL,P RINBAL)=0
	3525	S PRINBAL= RCDPDATA(4 30,BILLDA, 3,"I")
	3526	; loop tr ansaction and add to list
	3527	S TRANDA=0 F S TRAN DA=$O(^PRC A(433,"C", BILLDA,TRA NDA)) Q:'T RANDA D
	3528
	3529
	3530
	3531	Current Lo gic
	3532
	3533	. S DATA1 =$G(^PRCA( 433,TRANDA ,1))
	3534	. S DATE= $P(DATA1," ^",9) I 'D ATE Q
	3535	. S VALUE =$$TRANVAL U(TRANDA) I VALUE="" Q
	3536	. S RCLIS T($P(DATE, "."),TRAND A)=$P($G(^ PRCA(430.3 ,+$P(DATA1 ,"^",2),0) ),"^")_VAL UE
	3537	. ;
	3538	. ; calcu late bill' s balance
	3539	. S PRINB AL=PRINBAL +$P(VALUE, "^",2)
	3540	. S INTBA L=INTBAL+$ P(VALUE,"^ ",3)
	3541	. S ADMBA L=ADMBAL+$ P(VALUE,"^ ",4)
	3542	. S MFBAL =MFBAL+$P( VALUE,"^", 5)
	3543	. S CCBAL =CCBAL+$P( VALUE,"^", 6)
	3544	;
	3545	S DATE=$G( RCDPDATA(4 30,BILLDA, 60,"I"))
	3546	; check to make sure activatio n date is not greate r than fir st transac tion
	3547	S %=$O(RCL IST(0)) I DATE>% S D ATE=%
	3548	S RCLIST(+ $P(DATE,". "),0)="ori ginal amou nt^"_RCDPD ATA(430,BI LLDA,3,"I" )
	3549	;
	3550	Q PRINBAL_ "^"_INTBAL _"^"_ADMBA L_"^"_MFBA L_"^"_CCBA L
	3551	;
	3552	;
	3553	TRANVALU(T RANDA) ; r eturn the transactio n value as displayed (with + o r - sign) N TYPE,VAL UE
	3554	S VALUE=$$ TRANBAL^RC RJRCOT(TRA NDA)
	3555	; no doll ars on tra nsaction
	3556	I '$P(VALU E,"^"),'$P (VALUE,"^" ,2),'$P(VA LUE,"^",3) ,'$P(VALUE ,"^",4),'$ P(VALUE,"^ ",5) Q ""
	3557	; check ty pe for pay ments, etc , make val ues (-) to subtract
	3558	S TYPE=$P( $G(^PRCA(4 33,TRANDA, 1)),"^",2) I
	3559	TYPE=2!(TY PE=8)!(TYP E=9)!(TYPE =10)!(TYPE =11)!(TYPE =14)!(TYPE =29)!(TYPE =34)!(TYP
	3560	E=35)!(TYP E=41) D
	3561	. S $P(VA LUE,"^",1) =-$P(VALUE ,"^",1)
	3562	. S $P(VA LUE,"^",2) =-$P(VALUE ,"^",2)
	3563	. S $P(VA LUE,"^",3) =-$P(VALUE ,"^",3)
	3564	. S $P(VA LUE,"^",4) =-$P(VALUE ,"^",4)
	3565	. S $P(VA LUE,"^",5) =-$P(VALUE ,"^",5)
	3566	;
	3567	; the foll owing tran saction ty pes should not chang e the bill s balance
	3568	; return t he amount displayed in the des cription a nd 0 for v alue
	3569	;refer to RC 3, refe r to DOJ 4 , reestabl ish 5, ret urned 6 an d 32
	3570	;repayment plan 25, amended 33 , suspende d 47, unsu spended 46
	3571	K AMTDISP I
	3572	TYPE=3!(TY PE=4)!(TYP E=5)!(TYPE =6)!(TYPE= 25)!(TYPE= 32)!(TYPE= 33)!(TYPE= 46)!(TYPE
	3573	=47) D
	3574	. S AMTDI SP="
	3575
	3576
	3577
	3578	Current Lo gic
	3579
	3580	($"_$J($P( VALUE,"^") +$P(VALUE, "^",2)+$P( VALUE,"^", 3)+$P(VALU E,"^",4)+$ P(VALUE,"^ ",5),
	3581	0,2)_")"
	3582	. S VALUE =""
	3583	Q $G(AMTDI SP)_"^"_VA LUE
	3584	; SELECME( ) ;
	3585	; function takes the user inpu t of the E CME # to r eturn a va lid ien of file 430
	3586	; if an in valid ECME is evalua ted then t he process keeps ask ing the us er for ECM E #
	3587	; until a valid ECME # is enter ed or unti l the user enters a "^" or nul l value
	3588	; output - returns t he IEN of the record entry in the ACCOUN T RECEIVAB LE file (# 430) or
	3589	"??"
	3590	N RCECME,R CBILL,DIR, DIRUT,Y
	3591	S DIR(0)=" FO^1:12^I X'?1.12N W !!,""Cann ot contain alpha cha racters"" K X" S DIR ("A")="Sel ect ECME#"
	3592	RETD ^DIR I $D(DIRUT ) Q 0
	3593	S RCECME=$ S(+Y>0:Y,1 :0)
	3594	S RCBILL=$ $REC^IBRFN (RCECME); IA 2031
	3595	I RCBILL<0 W !!,"??" G RET
	3596	E W !!,$P( $G(^PRCA(4 30,+RCBILL ,0)),"^"), " " Q RCBI LL
	3597	;RCDPBTLM
	3598
	3599
	3600	Modified L ogic (Chan ges are in bold)
	3601
	3602	RCDPBTLM ; WISC/RFJ - bill tran sactions L ist Manage r top rout ine ;1 Jun 99
	3603	;;4.5;Acco unts Recei vable;11 4,148,153, 168,169,19 8,247,271, 276,307; Mar 20, 19 95;Build
	3604	71
	3605	;;Per VHA Directive 2004-038, this routi ne should not be mod ified.
	3606	;
	3607	; Referenc e to $$REC ^IBRFN sup ported by DBIA 2031
	3608	;
	3609	; called from menu option (19 )
	3610	;
	3611	N RCBILLDA ,RCDPFXIT
	3612	;
	3613	F D Q:'RCB ILLDA
	3614	. W !! S RCBILLDA=$ $SELBILL
	3615	. I RCBI LLDA<1 S R CBILLDA=0 Q
	3616	. D EN^V ALM("RCDP TRANSACTIO NS LIST")
	3617	. ; fast exit
	3618	. I $G(R CDPFXIT) S RCBILLDA= 0
	3619	Q
	3620	;
	3621
	3622
	3623
	3624	Modified L ogic (Chan ges are in bold)
	3625
	3626	;
	3627	INIT ; in itializati on for lis t manager list
	3628	; requires rcbillda
	3629	N ADMIN,DA TE,RCLINE, RCLIST,RCT OTAL,RCTRA N,RCTRANDA K ^TMP("R CDPBTLM",$ J),^TMP("V ALM VIDEO" ,$J)
	3630	;
	3631	; fast exi t
	3632	I $G(RCDPF XIT) S VAL MQUIT=1 Q
	3633	;
	3634	; set the List Mana ger line n umber
	3635	S RCLINE=0
	3636	; set the List Mana ger transa ction numb er
	3637	S RCTRAN=0
	3638	;
	3639	; get tran sactions a nd balance for bill
	3640	S RCTOTAL= $$GETTRANS (RCBILLDA)
	3641	;
	3642	S DATE="" F S DATE= $O(RCLIST( DATE)) Q:' DATE D
	3643	. S RCTR ANDA="" F S RCTRANDA =$O(RCLIST (DATE,RCTR ANDA)) Q:R CTRANDA="" D
	3644	. . S RCLINE=RCL INE+1
	3645	. . ;
	3646	. . ; create an index arra y for tran saction lo okup in li st
	3647	. . I RCTRANDA D
	3648	. . . S RCTRAN =RCTRAN+1
	3649	. . . S ^TMP(" RCDPBTLM", $J,"IDX",R CTRAN,RCTR AN)=RCTRAN DA
	3650	. . . D SET^RC DPAPLI(RCT RAN,RCLINE ,1,80,0,IO RVON,IORVO FF)
	3651	. . ;
	3652	. . D SET^RCDPAP LI($S(RCTR ANDA:RCTRA NDA,1:" ") ,RCLINE,4, 80)
	3653	. . D SET^RCDPAP LI($E(DATE ,4,5)_"/"_ $E(DATE,6, 7)_"/"_$E( DATE,2,3), RCLINE,13, 21)
	3654	. . D SE T^RCDPAPLI ($TR($P(RC LIST(DATE, RCTRANDA), "^"),"ABCD EFGHIJKLMN OPQRSTUVW XYZ","abcd efghijklmn opqrstuvwx yz"),RCLIN E,25,50)
	3655	. . D SET^RCDPAP LI($J($P(R CLIST(DATE ,RCTRANDA) ,"^",2),9, 2),RCLINE, 53,62)
	3656	. . D SET^RCDPAP LI($J($P(R CLIST(DATE ,RCTRANDA) ,"^",3),9, 2),RCLINE, 62,71)
	3657	. . ; add marsh al fee and court cos t to creat e admin do llars
	3658	. . S AD MIN=$P(RCL IST(DATE,R CTRANDA)," ^",4)+$P(R CLIST(DATE ,RCTRANDA) ,"^",5)+$P (RCL IST(D ATE,RCTRAN DA),"^",6)
	3659	. . D SET^RCDPAP LI($J(ADMI N,9,2),RCL INE,71,80)
	3660
	3661
	3662
	3663	Modified L ogic (Chan ges are in bold)
	3664
	3665	;
	3666	; show to tals
	3667	S RCLINE=R CLINE+1
	3668	D SET^RCDP APLI("---- ----- ---- ---- ----- ---",RCLIN E,1,80) S RCLINE=RCL INE+1
	3669	D SET^RCDP APLI(" T OTAL BALAN CE FOR BIL L",RCLINE, 1,80)
	3670	D SET^RCDP APLI($J($P (RCTOTAL," ^",1),9,2) ,RCLINE,53 ,62) D SET ^RCDPAPLI( $J($P(RCTO TAL,"^",2) ,9,2),RCLI NE,62,71) D
	3671	SET^RCDPAP LI($J($P(R CTOTAL,"^" ,3)+$P(RCT OTAL,"^",4 )+$P(RCTOT AL,"^",5), 9,2),RCLIN
	3672	E,71,80)
	3673	;
	3674	; compare totals to what is s tored in t he file
	3675	N RCDATA7, RCFOUT
	3676	S RCDATA7= $G(^PRCA(4 30,RCBILLD A,7))
	3677	; for a wr ite-off bi ll, the ba lance shou ld equal a ll zeros, for
	3678	; these bi lls, node 7 is the w rite-off a mount, so for the ou t of
	3679	; balance check to work, node 7 needs t o be adjus ted to all zeros
	3680	I $P(^PRCA (430,RCBIL LDA,0),"^" ,8)=23 S R CDATA7="0^ 0^0^0^0" I +$P(RCDAT A7,"^",1)' =+$P(RCTOT AL,"^",1) S RCFOUT=1
	3681	I +$P(RCDA TA7,"^",2) '=+$P(RCTO TAL,"^",2) S RCFOUT= 1
	3682	I ($P(RCDA TA7,"^",3) +$P(RCDATA 7,"^",4)+$ P(RCDATA7, "^",5))'=+ $P(RCTOTAL ,"^",3) S RCFOUT=1
	3683	I $G(RCFOU T) D
	3684	. S RCLI NE=RCLINE+ 1
	3685	. D SET^ RCDPAPLI(" ",RCLINE, 1,80)
	3686	. S RCLI NE=RCLINE+ 1
	3687	. D SET^ RCDPAPLI(" STORED B ALANCE FOR BILL ( INCORRECT )",RCLIN E,1,80)
	3688	. D SET^ RCDPAPLI($ J($P(RCDAT A7,"^",1), 9,2),RCLIN E,53,62)
	3689	. D SET^ RCDPAPLI($ J($P(RCDAT A7,"^",2), 9,2),RCLIN E,62,71)
	3690	. D SET^R CDPAPLI($J ($P(RCDATA 7,"^",3)+$ P(RCDATA7, "^",4)+$P( RCDATA7,"^ ",5),9,2), RCLIN E,71 ,80)
	3691	;
	3692	; set val mcnt to nu mber of li nes in the list
	3693	S VALMCNT= RCLINE D H DR
	3694	Q
	3695	;
	3696
	3697
	3698
	3699	Modified L ogic (Chan ges are in bold)
	3700
	3701	;
	3702	HDR ; hea der code f or list ma nager disp lay
	3703	; requires rcbillda
	3704	N %,DATA,R CDEBTDA,RC DPDATA
	3705	;
	3706	D DIQ430^R CDPBPLM(RC BILLDA,".0 1;8;")
	3707	;
	3708	S RCDEBTDA =$P(^PRCA( 430,RCBILL DA,0),"^", 9) S DATA= $$ACCNTHDR ^RCDPAPLM( RCDEBTDA)
	3709	;
	3710	S %="",$P( %," ",80)= ""
	3711	; PRCA4.5 276 - get EEOB indi cator for 1st/3rd pa rty paymen t and atta ch to bill when appl icable
	3712	S PRCOUT=$ $COMP3^PRC AAPR(RCBIL LDA)
	3713	I PRCOUT'= "%" S PRCO UT=$$IBEEO BCK^PRCAAP R1(RCBILLD A) S VALMH DR(1)=$E(" Bill #:
	3714	"_$G(PRCOU T)_$G(RCDP DATA(430,R CBILLDA,.0 1,"E"))_%, 1,25)_"Acc ount:
	3715	"_$P(DATA, "^")_$P(DA TA,"^",2)
	3716	S VALMHDR( 2)=$E("Sta tus: "_$G( RCDPDATA(4 30,RCBILLD A,8,"E"))_ %,1,25)_$E (" Addr: "_$P(DATA ,"^",4)_", "_$P(DATA ,"^",7)_", "_$P(DATA ,"^",8)_" "_$P(DATA ,"^",9)_%, 1,55)
	3717	; PRCA4.5 276 - sho w caption for user
	3718	S VALMSG=" \|% EEOB \| Enter ?? f or more ac tions \|" ; PRCA4.5 276
	3719	Q
	3720	S VALMHDR( 3)=" "_IO RVON_$E("B ill Balanc e: "_$J($P (RCTOTAL," ^")+$P(RCT OTAL,"^",2 )+$P(RCTOT AL,"^",3)+ $P(RCTOTAL ,"^",4)+$P (RC TOTAL, "^",5),0,2 )_%,1,23)_ IORVOFF_" Phone: "_ $P(DATA,"^ ",10)
	3721	Q
	3722	;
	3723	;
	3724	EXIT ; ex it list ma nager opti on and cle an up
	3725	K ^TMP("RC DPBTLM",$J ),^TMP("RC DPBTLMX",$ J) Q
	3726	;
	3727	;
	3728	SELBILL() ; select a bill
	3729	; returns -1 for tim eout or ^, 0 for no selection, or ien of bill
	3730	N %,%Y,C,D IC,DTOUT,D UOUT,RCBEF LUP,X,Y
	3731	N DPTNOFZY ,DPTNOFZK S (DPTNOFZ Y,DPTNOFZK )=1
	3732	N RCY,DIR, DIRUT
	3733
	3734
	3735
	3736	Modified L ogic (Chan ges are in bold)
	3737
	3738	; allow us er to get the record using bil l# or ECME # S DIR("A ")="Select (B)ILL or (E)CME#: "
	3739	S DIR(0)=" SA^B:BILL NUMBER;E:E CME#" S DI R("B")="B"
	3740	D ^DIR K D IR I $D(DI RUT) Q 0
	3741	S RCY=Y
	3742	I RCY="E" Q $$SELECM E
	3743	S DIC="^PR CA(430,",D IC(0)="QEA M",DIC("A" )="Select BILL: " S DIC("W")=" D DICW^RCB EUBI1"
	3744	; special lookup on input
	3745	S RCBEFLUP =1
	3746	D ^DIC
	3747	I Y<0,'$G( DUOUT),'$G (DTOUT) S Y=0
	3748	Q +Y
	3749	;
	3750	;
	3751	GETTRANS(B ILLDA) ; o riginal am ount goes first for bill
	3752	; returns list of tr ansactions in
	3753	; rclist(d ate,tranda )=trantype ^ princip le ^ inter est ^ admi n
	3754	; returns principle balance ^ interest b alance ^ a dmin balan ce
	3755	;^ marshal l fee bala nce ^ cour t cost bal ance
	3756	N
	3757	%,ADMBAL,A MTDISP,CCB AL,DATA0,D ATA1,DATA9 ,DATE,INTB AL,MFBAL,P RINBAL,RCD P DATA,TRA NDA,VALUE
	3758	;
	3759	D DIQ430^R CDPBPLM(BI LLDA,"3;60 ;")
	3760	;
	3761	K RCLIST
	3762	S (ADMBAL, CCBAL,INTB AL,MFBAL,P RINBAL)=0
	3763	S PRINBAL= RCDPDATA(4 30,BILLDA, 3,"I")
	3764	; loop tr ansaction and add to list
	3765	S TRANDA=0 F S TRAN DA=$O(^PRC A(433,"C", BILLDA,TRA NDA)) Q:'T RANDA D
	3766	. S DATA1= $G(^PRCA(4 33,TRANDA, 1))
	3767	. S DATE=$ P(DATA1,"^ ",9) I 'DA TE Q
	3768	. ; Don't include tr ansactions that have the INCOM PLETE TRAN SACTION FL AG (#10) s et to YES and
	3769	. ; this t ransaction was previ ously used by the au to-correct program t o correct an earlier issue. PR CA4.5307
	3770	. S DATA0= $G(^PRCA(4 33,TRANDA, 0))
	3771
	3772
	3773
	3774	Modified L ogic (Chan ges are in bold)
	3775
	3776	. S DATA9= $G(^PRCA(4 33,TRANDA, 9))
	3777	. ; Check for Incomp lete and p reviously fixed by a uto-correc t
	3778	. I $P(DAT A0,U,10),( $P(DATA9,U ,4)) S VAL UE="" Q
	3779	. S VALUE= $$TRANVALU (TRANDA) I VALUE="" Q
	3780	. S RCLIST ($P(DATE," ."),TRANDA )=$P($G(^P RCA(430.3, +$P(DATA1, "^",2),0)) ,"^")_VALU E
	3781	. ;
	3782	. ; calcu late bill' s balance
	3783	. S PRINBA L=PRINBAL+ $P(VALUE," ^",2)
	3784	. S INTBAL =INTBAL+$P (VALUE,"^" ,3)
	3785	. S ADMBAL =ADMBAL+$P (VALUE,"^" ,4)
	3786	. S MFBAL= MFBAL+$P(V ALUE,"^",5 )
	3787	. S CCBAL= CCBAL+$P(V ALUE,"^",6 )
	3788	;
	3789	S DATE=$G( RCDPDATA(4 30,BILLDA, 60,"I"))
	3790	; check t o make sur e activati on date is not great er than fi rst transa ction
	3791	S %=$O(RCL IST(0)) I DATE>% S D ATE=%
	3792	S RCLIST(+ $P(DATE,". "),0)="ori ginal amou nt^"_RCDPD ATA(430,BI LLDA,3,"I" )
	3793	;
	3794	Q PRINBAL_ "^"_INTBAL _"^"_ADMBA L_"^"_MFBA L_"^"_CCBA L
	3795	;
	3796	;
	3797	TRANVALU(T RANDA) ; r eturn the transactio n value as displayed (with + o r - sign) N TYPE,VAL UE
	3798	S VALUE=$$ TRANBAL^RC RJRCOT(TRA NDA)
	3799	; no doll ars on tra nsaction
	3800	I '$P(VALU E,"^"),'$P (VALUE,"^" ,2),'$P(VA LUE,"^",3) ,'$P(VALUE ,"^",4),'$ P(VALUE,"^ ",5) Q ""
	3801	; check t ype for pa yments, et c, make va lues (-) t o subtract
	3802	S TYPE=$P( $G(^PRCA(4 33,TRANDA, 1)),"^",2) I
	3803	TYPE=2!(TY PE=8)!(TYP E=9)!(TYPE =10)!(TYPE =11)!(TYPE =14)!(TYPE =29)!(TYPE =34)!(TYP
	3804	E=35)!(TYP E=41) D
	3805	. S $P(V ALUE,"^",1 )=-$P(VALU E,"^",1)
	3806	. S $P(V ALUE,"^",2 )=-$P(VALU E,"^",2)
	3807	. S $P(V ALUE,"^",3 )=-$P(VALU E,"^",3)
	3808	. S $P(V ALUE,"^",4 )=-$P(VALU E,"^",4)
	3809	. S $P(V ALUE,"^",5 )=-$P(VALU E,"^",5)
	3810	;
	3811	; the foll owing tran saction ty pes should not chang e the bill s balance
	3812	; return t he amount displayed in the des cription a nd 0 for v alue
	3813
	3814
	3815
	3816	Modified L ogic (Chan ges are in bold)
	3817
	3818	;refer to RC 3, refe r to DOJ 4 , reestabl ish 5, ret urned 6 an d 32
	3819	;repayment plan 25, amended 33 , suspende d 47, unsu spended 46
	3820	K AMTDISP I
	3821	TYPE=3!(TY PE=4)!(TYP E=5)!(TYPE =6)!(TYPE= 25)!(TYPE= 32)!(TYPE= 33)!(TYPE= 46)!(TYPE
	3822	=47) D
	3823	. S AMTDI SP=" ($"_$ J($P(VALUE ,"^")+$P(V ALUE,"^",2 )+$P(VALUE ,"^",3)+$P (VALUE,"^" ,4)+$P(VAL UE,"^",5),
	3824	0,2)_")"
	3825	. S VALU E=""
	3826	Q $G(AMTDI SP)_"^"_VA LUE
	3827	;
	3828	SELECME() ;
	3829	; function takes the user inpu t of the E CME # to r eturn a va lid ien of file 430
	3830	; if an in valid ECME is evalua ted then t he process keeps ask ing the us er for ECM E #
	3831	; until a valid ECME # is enter ed or unti l the user enters a "^" or nul l value
	3832	; output - returns t he IEN of the record entry in the ACCOUN T RECEIVAB LE file (# 430) or "? ?" N RCECM E,RCBILL,D IR,DIRUT,Y
	3833	S DIR(0)=" FO^1:12^I X'?1.12N W !!,""Cann ot contain alpha cha racters"" K X"
	3834	S DIR("A") ="Select E CME#" RET D ^DIR I $ D(DIRUT) Q 0
	3835	S RCECME=$ S(+Y>0:Y,1 :0)
	3836	S RCBILL=$ $REC^IBRFN (RCECME); IA 2031
	3837	I RCBILL<0 W !!,"??" G RET
	3838	E W !!,$P( $G(^PRCA(4 30,+RCBILL ,0)),"^"), " " Q RCBI LL
	3839	;RCDPBTLM
	3840
	3841
	3842
	3843	Table 20: Routines: RCWROFF Ro utinesActi vities
	3844	Routine Na meRCWROFF
	3845
	3846	Enhancemen t Category NewModifyD eleteNo Ch ange
	3847
	3848	RTMUS006
	3849
	3850	Compromise d by RC/DO J, Termina ted by RC/ DOJ, Waive d by
	3851
	3852	Related Op tions
	3853	RC/DOJ, Su spend an A R bill, Co mpromise T ermination , Fiscal
	3854	Officer Te rminated, Full Waive r, Partial Waiver
	3855
	3856	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	3857
	3858	$$GETABILL ^RCBEUBIL, SHOWBILL^ RCWROFF1,
	3859	$$ADD433^R CBEUTRA,
	3860	$$EDIT433^ RCBEUTRA, SETRCDOJ^R CBEUBIL,
	3861	CHGSTAT^RC BEUBIL,
	3862	PROCESS^RC BEUTRA,
	3863	$$ACCK^PRC AACC,
	3864	$$LDATE^RC RJ,
	3865	$$FPS^RCAM FN0,
	3866	$$BUILDWR^ RCXFMSW1,
	3867
	3868
	3869
	3870
	3871	Routines
	3872
	3873
	3874	Activities
	3875
	3876	Data Dicti onary (DD) Reference s
	3877	N/A
	3878	Related Pr otocols
	3879	N/A
	3880	Related In tegration Control Re gistration s (ICRs)
	3881	N/A
	3882
	3883	Data Passi ng
	3884	InputOutpu tBothGloba l
	3885	ReferenceR eferenceLo cal
	3886	Input Attr ibute Name and
	3887	Definition
	3888	Name: N/A Definition :
	3889	Output Att ribute Nam e and Defi nition
	3890	Name: N/A Definition :
	3891
	3892
	3893	Current Lo gic
	3894
	3895	RCWROFF ;W ISC/RFJ-wr ite off, t erminated ;1 Feb 200 0
	3896	;;4.5;Acco unts Recei vable;*16 8,204,309 *;Mar 20, 1995;Build 72
	3897	;;Per VA D irective 6 402, this routine sh ould not b e modified . Q
	3898	;
	3899	;
	3900	8; termin ated by fi scal offic er (tranty pe=8) (men u option) N RCDRSTRG
	3901	S RCDRSTRG ="11TERMIN ATION DATE ;"
	3902	S RCDRSTRG =RCDRSTRG_ "17;" ;ter mination r eason
	3903	D MAIN("8^ Fiscal Off icer Termi nation",RC DRSTRG) Q
	3904	;
	3905	;
	3906
	3907
	3908
	3909	Current Lo gic
	3910
	3911	9; termin ated by co mpromise ( trantype=9 ) (menu op tion) N RC DRSTRG
	3912	S RCDRSTRG ="11TERMIN ATION DATE ;"
	3913	S RCDRSTRG =RCDRSTRG_ "17;" ;ter mination r eason
	3914	D MAIN("9^ Compromise Terminati on",RCDRST RG) Q
	3915	;
	3916	;
	3917	A9; compr omised by rc/doj (us e trantype =9) (menu option) N RCDRSTRG
	3918	S RCDRSTRG ="11TERMIN ATION DATE ;"
	3919	S RCDRSTRG =RCDRSTRG_ "17;" ;ter mination r eason
	3920	D MAIN("9^ Compromise Terminati on by RC/D OJ",RCDRST RG) Q
	3921	;
	3922	;
	3923	10; waive d in full transactio n (trantyp e=10) (men u option) D MAIN("10 ^Waiver"," 11WAIVED D ATE;")
	3924	Q
	3925	;
	3926	;
	3927	A10; waiv ed by rc/d oj (use tr antype=10) (menu opt ion) D MAI N("10^RC/D OJ Waiver" ,"11WAIVED DATE;")
	3928	Q
	3929	;
	3930	;
	3931	29; termin ated by rc /doj (tran type=29) ( menu optio n) N RCDRS TRG
	3932	S RCDRSTRG ="11TERMIN ATION DATE ;"
	3933	S RCDRSTRG =RCDRSTRG_ "17;" ;ter mination r eason
	3934	D MAIN("29 ^RC/DOJ Te rmination" ,RCDRSTRG) Q
	3935	;
	3936	;
	3937	47; suspe nded (tran type=47) ( menu optio n) N RCDRS TRG
	3938	S RCDRSTRG ="11SUSPEN DED DATE;"
	3939	S RCDRSTRG =RCDRSTRG_ "90R;" ;su spension t ype
	3940	S RCDRSTRG =RCDRSTRG_ "S RCX=$$S USTP^RCWRO FF(X);" S RCDRSTRG=R CDRSTRG_"5 .02////^S X=RCX;" ;b rief comme nt
	3941	S RCDRSTRG =RCDRSTRG_ "K RCX;"
	3942	D MAIN("47 ^Suspensio n",RCDRSTR G) Q
	3943	;
	3944	SUSTP(X) ; suspensio n types fo r brief co mment in * 309
	3945	; input-co de between 0 to 11
	3946	; output-t ext
	3947
	3948
	3949
	3950	Current Lo gic
	3951
	3952	N IBX
	3953	S IBX=$P($ T(SUSTX+X) ,";;",2) Q IBX
	3954	;
	3955	SUSTX;;NOT CO-PAY SU SPENSION
	3956	;;INITIAL CO-PAY WAI VER
	3957	;;APPEAL C O-PAY WAIV ER
	3958	;;ADMINIST RATIVE SUS PENSION
	3959	;;COMPROMI SE
	3960	;;TERMINAT ION
	3961	;;BANKRUPT CY CHAP 7
	3962	;;BANKRUPT CY CHAP 13
	3963	;;BANKRUPT CY OTHER
	3964	;;PROBATE
	3965	;;CHOICE
	3966	;;DISPUTE
	3967	;
	3968	;
	3969	MAIN(RCTRT YPE,RCDRST RG) ; mai n subrouti ne to proc ess a waiv er, termin ation, sus pended tr ansaction
	3970	; rctrtype = transac tion type^ descriptio n, example 10^waiver
	3971	; rcdrstrg = dr stri ng used wh en calling die
	3972	N BALANCE, DR,RCBILLD A,RCTRANDA ,Y F D Q:R CBILLDA<1
	3973	. K RCTRA NDA ;do no t leave ar ound in fo r loop
	3974	. ; selec t a bill
	3975	. S RCBIL LDA=$$GETA BILL^RCBEU BIL I RCBI LLDA<1 Q
	3976	. ; check to see if bill has been refer red to rc/ doj (6;4 = referral date)
	3977	. I $P(RCT RTYPE,"^", 2)["RC/DOJ ",$P($G(^P RCA(430,RC BILLDA,6)) ,"^",4)=" " W !,"THI S ACCOUNT IS NOT REF ERRED TO R C/DOJ." Q
	3978	. ; lock the bill
	3979	. L +^PRC A(430,RCBI LLDA):5 I '$T W !,"A NOTHER USE R IS CURRE NTLY WORKI NG WITH T HIS BILL." Q
	3980	. D SHOWB ILL^RCWROF F1(RCBILLD A)
	3981	. I '$G(^P RCA(430,RC BILLDA,7)) W !,"THIS BILL HAS NO PRINCIP AL BALANC E." D UNLO CK Q
	3982	. ; ask t o enter tr ansaction
	3983	. S Y=$$A SKOK($P(RC TRTYPE,"^" ,2)) I Y'= 1 D UNLOCK S:Y<0 RCB ILLDA=0 Q
	3984	. ; add a new trans action to file 433
	3985	. S RCTRA NDA=$$ADD4 33^RCBEUTR A(RCBILLDA ,$P(RCTRTY PE,"^")) I 'RCTRANDA W !,$P(RC TRANDA,"^" ,2) D UNLO CK Q
	3986	. W !," Tr ansaction number ",R CTRANDA," added ..."
	3987	. ;
	3988	. ; set u p dr strin g for die call
	3989	. S DR=RC DRSTRG_"41 ;" ;commen t
	3990	. ; bill amount mov ed to tran saction am ount
	3991
	3992
	3993
	3994	Current Lo gic
	3995
	3996	. S BALAN CE=$P($G(^ PRCA(430,R CBILLDA,7) ),"^",1,5)
	3997	. S DR=DR _"15////"_ ($P(BALANC E,"^")+$P( BALANCE,"^ ",2)+$P(BA LANCE,"^",
	3998	3)+$P(BALA NCE,"^",4) +$P(BALANC E,"^",5))_ ";"
	3999	. I $P(BAL ANCE,"^",1 ) S DR=DR_ "81////"_+ $P(BALANCE ,"^",1)_"; " ;prin c ipal
	4000	. I $P(BAL ANCE,"^",2 ) S DR=DR_ "82////"_+ $P(BALANCE ,"^",2)_"; " ;inte
	4001	rest
	4002	. I $P(BAL ANCE,"^",3 ) S DR=DR_ "83////"_+ $P(BALANCE ,"^",3)_"; " ;admi n
	4003	. I $P(BAL ANCE,"^",4 ) S DR=DR_ "84////"_+ $P(BALANCE ,"^",4)_"; " ;mars h al fee
	4004	. I $P(BAL ANCE,"^",5 ) S DR=DR_ "85////"_+ $P(BALANCE ,"^",5)_"; " ;cour
	4005	t cost
	4006	. ;
	4007	. ; edit the fields
	4008	. S Y=$$E DIT433^RCB EUTRA(RCTR ANDA,DR)
	4009	. I 'Y W ! ,$P(Y,"^", 2) D DEL43 3^RCBEUTRA (RCTRANDA, "",0),UNLO CK Q
	4010	. ; set t he bill an d transact ion as RC/ DOJ
	4011	. I $P(RCT RTYPE,"^", 2)["RC/DOJ " D SETRCD OJ^RCBEUBI L(RCBILLDA ,RCTRANDA
	4012	,"RC")
	4013	. ; chang e the stat us of the bill
	4014	. I $P(RCT RTYPE,"^") '=47 D CHG STAT^RCBEU BIL(RCBILL DA,23) ;w rite off
	4015	. I $P(RCT RTYPE,"^") =47 D CHGS TAT^RCBEUB IL(RCBILLD A,40) ;su spended
	4016	. ; mark t ransaction as proces sed
	4017	. D PROCE SS^RCBEUTR A(RCTRANDA )
	4018	. ;
	4019	. ; creat e fms writ e off docu ment, if n ot accrued and not s uspended
	4020	(47) trans action
	4021	. I '$$ACC K^PRCAACC( RCBILLDA), $P($G(^PRC A(433,RCTR ANDA,1))," ^",2)'=47
	4022	D FMSDOC(R CTRANDA)
	4023	. ;
	4024	. W !," * * * * * " ,$P(RCTRTY PE,"^",2), " has been PROCESSED ! * * * *
	4025	*"
	4026	.I '$G(REF MS)&(DT>$$ LDATE^RCRJ R(DT)) S Y =$E($$FPS^ RCAMFN01(D T,1),1,5)_ "
	4027	01" D DD^% DT W !!," * * * * Transmissi on will be held unti l "_Y_" * * * *"
	4028	. D UNLOC K Q
	4029	;
	4030	;
	4031	FMSDOC(RCT RANDA) ; create fms write off document
	4032	N Y
	4033	W !!,"Crea ting FMS W rite-off d ocument .. . "
	4034	S Y=$$BUIL DWR^RCXFMS W1(RCTRAND A) I Y W $ P(Y,"^",2) ," created ."
	4035	E W "ERROR : ",$P(Y," ^",2) Q
	4036	;
	4037
	4038
	4039
	4040	Current Lo gic
	4041
	4042	;
	4043	UNLOCK ; unlock b ill and tr ansaction
	4044	L -^PRCA(4 30,RCBILLD A)
	4045	I $G(RCTRA NDA) L -^P RCA(433,RC TRANDA) Q
	4046	;
	4047	;
	4048	ASKOK(TRAN TYPE) ; a sk record transactio n N DIR,DI Q2,DIRUT,D TOUT,DUOUT ,X,Y S DIR (0)="YO",D IR("B")="N O"
	4049	S DIR("A") =" Are yo u sure you want to r ecord this bill as a " I $L(TR ANTYPE)<20 S DIR("A" )=DIR("A") _TRANTYPE
	4050	E S DIR("A ",1)=DIR(" A"),DIR("A ")=" "_TR ANTYPE W ! D ^DIR
	4051	I $G(DTOUT )!($G(DUOU T)) S Y=-1
	4052	Q Y
	4053
	4054
	4055	Modified L ogic (Chan ges are in bold)
	4056
	4057	RCWROFF ;W ISC/RFJ-wr ite off, t erminated ;1 Feb 200 0
	4058	;;4.5;Acco unts Recei vable;16 8,204,309, 301,307; Mar 20, 19 95;Build 5 5
	4059	;;Per VA D irective 6 402, this routine sh ould not b e modified . Q
	4060	;
	4061	;
	4062	8 ; termin ated by fi scal offic er (tranty pe=8) (men u option) N RCDRSTRG
	4063	S RCDRSTRG ="11TERMIN ATION DATE ;"
	4064	S RCDRSTRG =RCDRSTRG_ "17;" ;ter mination r eason
	4065	D MAIN("8^ Fiscal Off icer Termi nation",RC DRSTRG) Q
	4066	;
	4067	;
	4068	9 ; termin ated by co mpromise ( trantype=9 ) (menu op tion) N RC DRSTRG
	4069	S RCDRSTRG ="11TERMIN ATION DATE ;"
	4070	S RCDRSTRG =RCDRSTRG_ "17;" ;ter mination r eason
	4071	D MAIN("9^ Compromise Terminati on",RCDRST RG) Q
	4072	;
	4073	;
	4074	A9 ; compr omised by rc/doj (us e trantype =9) (menu option) N RCDRSTRG
	4075	S RCDRSTRG ="11TERMIN ATION DATE ;"
	4076	S RCDRSTRG =RCDRSTRG_ "17;" ;ter mination r eason
	4077	D MAIN("9^ Compromise Terminati on by RC/D OJ",RCDRST RG) Q
	4078	;
	4079
	4080
	4081
	4082	Modified L ogic (Chan ges are in bold)
	4083
	4084	;
	4085	10 ; waive d in full transactio n (trantyp e=10) (men u option) D MAIN("10 ^Waiver"," 11WAIVED D ATE;")
	4086	Q
	4087	;
	4088	;
	4089	A10 ; waiv ed by rc/d oj (use tr antype=10) (menu opt ion) D MAI N("10^RC/D OJ Waiver" ,"11WAIVED DATE;")
	4090	Q
	4091	;
	4092	;
	4093	29 ; termi nated by r c/doj (tra ntype=29) (menu opti on) N RCDR STRG
	4094	S RCDRSTRG ="11TERMIN ATION DATE ;"
	4095	S RCDRSTRG =RCDRSTRG_ "17;" ;ter mination r eason
	4096	D MAIN("29 ^RC/DOJ Te rmination" ,RCDRSTRG) Q
	4097	;
	4098	;
	4099	47 ; suspe nded (tran type=47) ( menu optio n) N RCDRS TRG
	4100	S RCDRSTRG ="11SUSPEN DED DATE;"
	4101	S RCDRSTRG =RCDRSTRG_ "90R;" ;s uspension type
	4102	S RCDRSTRG =RCDRSTRG_ "S RCX=$$S USTP^RCWRO FF(X);" S RCDRSTRG=R CDRSTRG_"5 .02////^S X=RCX;" ; brief comm ent
	4103	S RCDRSTRG =RCDRSTRG_ "K RCX;"
	4104	D MAIN("47 ^Suspensio n",RCDRSTR G) Q
	4105	;
	4106	SUSTP(X) ; suspensio n types fo r brief co mment in * 309
	4107	; input-co de between 0 to 11
	4108	; output-t ext
	4109	N IBX
	4110	S IBX=$P($ T(SUSTX+X) ,";;",2) Q IBX
	4111	;
	4112	SUSTX ;;NO T CO-PAY S USPENSION
	4113	;;INITIAL CO-PAY WAI VER
	4114	;;APPEAL C O-PAY WAIV ER
	4115	;;ADMINIST RATIVE SUS PENSION
	4116	;;COMPROMI SE
	4117	;;TERMINAT ION
	4118	;;BANKRUPT CY CHAP 7
	4119	;;BANKRUPT CY CHAP 13
	4120	;;BANKRUPT CY OTHER
	4121	;;PROBATE
	4122	;;CHOICE
	4123
	4124
	4125
	4126	Modified L ogic (Chan ges are in bold)
	4127
	4128	;;DISPUTE
	4129	;
	4130	;
	4131	MAIN(RCTRT YPE,RCDRST RG) ; main subroutin e to proce ss a waive r, termina tion, susp ended tran saction
	4132	; rctrtype = transac tion type^ descriptio n, example 10^waiver
	4133	; rcdrstrg = dr stri ng used wh en calling die
	4134	N BALANCE, DR,RCBILLD A,RCTRANDA ,Y F D Q:R CBILLDA<1
	4135	. K RCTRAN DA ;do no t leave ar ound in fo r loop
	4136	. ; select a bill
	4137	. S RCBILL DA=$$GETAB ILL^RCBEUB IL I RCBIL LDA<1 Q
	4138	. I $D(^PR CA(430,"TC SP",RCBILL DA)) W !," BILL HAS B EEN REFERR ED TO CROS S- SERVICI NG.",!,"NO TRANSACTI ONS ARE AL LOWED." D Q ;prca4 .5301
	4139	. . I +RCT RTYPE=10!( +RCTRTYPE= 47)!(+RCTR TYPE=9)!(+ RCTRTYPE=8 ) W !,"** THE RECALL PROCESS M UST BE UTI LIZED PRIO R TO PERFO RMING THIS FUNCTION
	4140	*" ;prca 4.5*301
	4141	. ; check to see if bill has b een referr ed to rc/d oj (6;4 = referral d ate)
	4142	. I $P(RCT RTYPE,"^", 2)["RC/DOJ ",$P($G(^P RCA(430,RC BILLDA,6)) ,"^",4)="" W !,"THIS ACCOUNT I S NOT REFE RRED TO RC /DOJ." Q
	4143	. ; lock t he bill
	4144	. L +^PRCA (430,RCBIL LDA):5 I ' $T W !,"AN OTHER USER IS CURREN TLY WORKIN G WITH THI S BILL." Q
	4145	. D SHOWBI LL^RCWROFF 1(RCBILLDA )
	4146	. I '$G(^P RCA(430,RC BILLDA,7)) W !,"THIS BILL HAS NO PRINCIP AL BALANCE ." D UNLOC K Q
	4147	. ; ask to enter tra nsaction
	4148	. S Y=$$AS KOK($P(RCT RTYPE,"^", 2)) I Y'=1 D UNLOCK S:Y<0 RCBI LLDA=0 Q
	4149	. ; add a new transa ction to f ile 433
	4150	. S RCTRAN DA=$$ADD43 3^RCBEUTRA (RCBILLDA, $P(RCTRTYP E,"^")) I 'RCTRANDA W !,$P(RCT RANDA,"^", 2) D UNLOC K Q
	4151	. W !," Tr ansaction number ",R CTRANDA," added ..."
	4152	. ;
	4153	. ; set up dr string for die c all PRCA4 .5307 - M ove commen t below ba lance sets
	4154	. S DR=RCD RSTRG ;_ "41;" ;com ment
	4155	. ; bill a mount move d to trans action amo unt
	4156	. S BALANC E=$P($G(^P RCA(430,RC BILLDA,7)) ,"^",1,5)
	4157	.
	4158	S DR=DR_"1 5////"_($P (BALANCE," ^")+$P(BAL ANCE,"^",2 )+$P(BALAN CE,"^",3)+ $P(BALANCE
	4159	,"^",4)+$P (BALANCE," ^",5))_";"
	4160	. I $P(BAL ANCE,"^",1 ) S DR=DR_ "81////"_+ $P(BALANCE ,"^",1)_"; " ;princi pal
	4161	. I $P(BAL ANCE,"^",2 ) S DR=DR_ "82////"_+ $P(BALANCE ,"^",2)_"; " ;intere st
	4162	. I $P(BAL ANCE,"^",3 ) S DR=DR_ "83////"_+ $P(BALANCE ,"^",3)_"; " ;admin
	4163	. I $P(BAL ANCE,"^",4 ) S DR=DR_ "84////"_+ $P(BALANCE ,"^",4)_"; " ;marsha l fee
	4164	. I $P(BAL ANCE,"^",5 ) S DR=DR_ "85////"_+ $P(BALANCE ,"^",5)_"; " ;court cost
	4165	. ;
	4166	. ; PRCA4 .5307 - C omment sav e is moved below bal ance sets
	4167
	4168
	4169
	4170	Modified L ogic (Chan ges are in bold)
	4171
	4172	. S DR=DR_ "41;"
	4173	. ; edit t he fields
	4174	. S Y=$$ED IT433^RCBE UTRA(RCTRA NDA,DR)
	4175	. I 'Y W ! ,$P(Y,"^", 2) D DEL43 3^RCBEUTRA (RCTRANDA, "",0),UNLO CK Q
	4176	. ; set th e bill and transacti on as RC/D OJ
	4177	. I $P(RCT RTYPE,"^", 2)["RC/DOJ " D SETRCD OJ^RCBEUBI L(RCBILLDA ,RCTRANDA, "RC")
	4178	. ; change the statu s of the b ill
	4179	. I $P(RCT RTYPE,"^") '=47 D CHG STAT^RCBEU BIL(RCBILL DA,23) ;wr ite off
	4180	. I $P(RCT RTYPE,"^") =47 D CHGS TAT^RCBEUB IL(RCBILLD A,40) ;sus pended
	4181	. ; mark t ransaction as proces sed
	4182	. D PROCES S^RCBEUTRA (RCTRANDA)
	4183	. ;
	4184	. ; create fms write off docum ent, if no t accrued and not su spended (4 7) transac tion
	4185	. I '$$ACC K^PRCAACC( RCBILLDA), $P($G(^PRC A(433,RCTR ANDA,1))," ^",2)'=47
	4186	D FMSDOC(R CTRANDA)
	4187	. ;
	4188	. W !," * * * * * ", $P(RCTRTYP E,"^",2)," has been PROCESSED! * * * * * "
	4189	. I '$G(RE FMS)&(DT>$ $LDATE^RCR JR(DT))
	4190	S Y=$E($$F PS^RCAMFN0 1(DT,1),1, 5)_"01" D DD^%DT W ! !," * * * * Transmis sion will be held un til "_Y_" * * * *"
	4191	. D UNLOCK Q
	4192	;
	4193	;
	4194	FMSDOC(RCT RANDA) ; c reate fms write off document
	4195	N Y
	4196	W !!,"Crea ting FMS W rite-off d ocument .. . "
	4197	S Y=$$BUIL DWR^RCXFMS W1(RCTRAND A) I Y W $ P(Y,"^",2) ," created ."
	4198	E W "ERROR : ",$P(Y," ^",2) Q
	4199	;
	4200	;
	4201	UNLOCK ; u nlock bill and trans action
	4202	L -^PRCA(4 30,RCBILLD A)
	4203	I $G(RCTRA NDA) L -^P RCA(433,RC TRANDA) Q
	4204	;
	4205	;
	4206	ASKOK(TRAN TYPE) ; as k record t ransaction
	4207	N DIR,DIQ2 ,DIRUT,DTO UT,DUOUT,X ,Y S DIR(0 )="YO",DIR ("B")="NO"
	4208	S DIR("A") =" Are you sure you want to re cord this bill as a "
	4209	I $L(TRANT YPE)<20 S DIR("A")=D IR("A")_TR ANTYPE E S DIR("A", 1)=DIR("A" ),DIR("A") =" "_TRANT YPE
	4210	W ! D ^DIR
	4211	I $G(DTOUT )!($G(DUOU T)) S Y=-1
	4212
	4213
	4214
	4215	Modified L ogic (Chan ges are in bold)
	4216
	4217	Q Y
	4218
	4219	6.2.2.3.2. Templates
	4220
	4221	Table 21: Templates
	4222
	4223
	4224	Templates
	4225
	4226
	4227	Descriptio n
	4228
	4229	Template N ame
	4230	PRCA RE-ES TABLISH WR ITE-OFF
	4231	Enhancemen t Category
	4232	NewModifyD eleteNo Ch ange
	4233	RSD
	4234
	4235	Template T ype
	4236	SortInputP rintOther
	4237	Related Op tions
	4238	PRCAC TR R E-ESTABLIS H BILL
	4239
	4240
	4241	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	4242
	4243	PRCAWREA
	4244
	4245
	4246
	4247
	4248	Routines
	4249
	4250
	4251	Descriptio n
	4252
	4253	Data Dicti onary (DD) Reference s
	4254	N/A
	4255	Global Ref erences
	4256	N/A
	4257
	4258	6.2.2.3.3. Bulletins
	4259
	4260	Table 22: Bulletins
	4261
	4262	BulletinsD escription
	4263
	4264	Bulletin N ame
	4265
	4266	Enhancemen t Category NewModifyD eleteNo Ch ange
	4267
	4268	RTM
	4269
	4270
	4271	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	4272
	4273
	4274
	4275
	4276
	4277	RoutinesDe scription
	4278
	4279	Mail Subje ct
	4280
	4281	Mail Group
	4282
	4283
	4284
	4285	Routines
	4286
	4287
	4288	Descriptio n
	4289
	4290	Parameters
	4291
	4292	Data Dicti onary (DD) Reference s
	4293
	4294
	4295	6.2.2.3.4. Data Entr ies Affect ed by the Design
	4296
	4297	There are 3 new audi t related fields tha t are bein g created for Patien t Statemen t Enhancem ents (PSE) Discrepan cies (Incr ement 1, P hase 1). T hese field s will onl y be popul ated for b ad transac tions that have been corrected by the au to-correct ion proces s. The max imum numbe r of bytes for all f our fields will be 1 8 bytes. T he overall affect on the syste m will be minute com pared to t he existin g data and the curre nt daily w orkload of transacti ons that w ill not ha ve these f ields set. In additi on the oth er updates for this patch fix all of the issues th at resulte d in bad t ransaction s, so ther e shouldn’ t be any f uture bad transactio ns.
	4298
	4299	Table 23: Data Entri es Affecte d by the D esign
	4300
	4301	Field Name Current Va lueNew Val ue
	4302
	4303
	4304	AUTO-CORRE CTION DATE field (#9 4)
	4305
	4306	AUTO-CORRE CTION TRAN S. AMOUNT field (#95 )
	4307
	4308	AUTO-CORRE CTION TYPE OF ERROR field (#96 )
	4309
	4310	AUTO-CORRE CTION TICK ET FLAG (# 97)
	4311
	4312	N/A7 byte FileMan da te i.e.
	4313	3161020
	4314
	4315	N/A D ollar amou nt between -999999 a nd 999999, 2 decimal digits. 8 bytes ma x
	4316
	4317	N/A1 byte error code
	4318
	4319
	4320	N/A1 byte Y/N Flag
	4321
	4322
	4323	6.2.2.3.5. Unique Re cord(s)
	4324
	4325	Table 24: Unique Rec ord ID
	4326
	4327	Field Name (s)Current ValueNew Value
	4328
	4329
	4330
	4331	6.2.2.3.6. File or G lobal Size Changes
	4332
	4333	There are 3 new audi t related fields tha t are bein g created for Patien t Statemen t Enhancem ents (PSE) Discrepan cies (Incr ement 1, P hase 1). T hese field s will onl y be popul ated for b ad transac tions that have been corrected by the au to-correct ion proces s. The max imum numbe r of bytes for all f our fields will be 1 8 bytes. T he overall affect on the syste m will be minute com pared to t he existin g data and the curre nt daily w orkload of transacti ons that w ill not ha ve these f ields set. In additi on the oth er updates for this patch fix all of the issues th at resulte d in bad t ransaction s, so ther e shouldn’ t be any f uture bad transactio ns.
	4334
	4335	Table 25: File or Gl obal Size Changes
	4336
	4337	File/Globa l Name(s)E stimated I ncreaseEst imated Dec rease
	4338
	4339
	4340	AR TRANSAC TION file
	4341	(#433)
	4342	AUTO-CORRE CTION DATE
	4343	field (#94 )
	4344
	4345	AR TRANSAC TION file
	4346	(#433)
	4347	AUTO-CORRE CTION TRAN S. AMOUNT field (#95 )
	4348
	4349	AR TRANSAC TION file
	4350	(#433)
	4351	AUTO-CORRE CTION TYPE OF ERROR field (#96 )
	4352
	4353	AR TRANSAC TION file
	4354	(#433)
	4355	AUTO-CORRE CTION TICK ET FLAG (# 97)
	4356
	4357	6.2.2.3.7. Mail Grou ps
	4358
	4359	7 byte Fil eMan date i.e.
	4360	3161020
	4361
	4362
	4363
	4364	Dollar amo unt betwee n -
	4365	999999 and 999999, 2 decimal d igits. 9 bytes max
	4366
	4367
	4368	1 byte err or code
	4369
	4370
	4371
	4372
	4373
	4374	1 byte Y/N Flag
	4375
	4376
	4377	Table 26: Mail Group s
	4378
	4379
	4380	Mail Group s
	4381
	4382
	4383	Activities
	4384
	4385
	4386
	4387	PRCACPS
	4388
	4389	Mail Group Name
	4390
	4391
	4392	Enhancemen t Category
	4393	NewModifyD eleteNo Ch ange
	4394	Related Op tions
	4395
	4396
	4397
	4398	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	4399
	4400	PRCACPS, P RCAACR, PR CAACR1
	4401
	4402
	4403
	4404	Mail Group s
	4405
	4406
	4407	Instructio ns
	4408
	4409	Data Dicti onary (DD) Reference s
	4410	N/A
	4411	Related Pr otocols
	4412	N/A
	4413
	4414
	4415
	4416	Mail Group s
	4417
	4418
	4419	Instructio ns
	4420
	4421
	4422
	4423
	4424
	4425
	4426
	4427
	4428
	4429
	4430
	4431	Mail Group Descripti on
	4432	This mail group will receive a notificat ions under the follo wing 3 cir cumstances :
	4433	1. The Pa tient Stat ement Auto -Correctio n Program whether ru n manually or throug h a schedu led TaskMa n job has run to com pletion.
	4434	2. The Pa tient Stat ement Auto -Correctio n Program whether ru n manually or throug h a schedu led TaskMa n job dete rmines tha t the Pati ent Statem ent Auto-C orrection Program is still run ning or th at it may have error ed out dur ing a prev ious run.
	4435	3. The Au to-Correct Patient D iscrepancy Report is run and i t determin es that th e Patient Statement Auto-Corre ction prog ram is sti ll running or that i t may have errored o ut during a previous run and t he user el ects to ru n the repo rt anyway.
	4436	Self-Enrol lment Allo wed
	4437	YesNo
	4438	Type
	4439	PublicPriv ate
	4440
	4441	6.2.2.3.8. Security Keys
	4442
	4443	Table 27: Security K eys
	4444
	4445
	4446	Security K eys
	4447
	4448
	4449	Activities
	4450
	4451
	4452
	4453	PRCA AUTOC RCT PGM
	4454
	4455	Security K ey Name
	4456
	4457
	4458	Enhancemen t
	4459	Category
	4460
	4461	NewModifyD eleteNo Ch ange
	4462	Related Op tions
	4463	Patient St atement Au to-Correct ion Progra m
	4464
	4465
	4466	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	4467
	4468	PRCACPS
	4469
	4470
	4471
	4472
	4473	Security K eys
	4474
	4475
	4476	Activities
	4477
	4478	Data Passi ng
	4479
	4480	InputOutpu tBothGloba l Referenc eLocal Ref erence
	4481
	4482	Security K ey
	4483	Descriptio n
	4484	This is a key for th e AR optio n 'PRCA AU TOCRCT PGM '. The 'PR CA AUTOCRC T PGM' opt ion runs t he Patient Statement Auto-Corr ection Pro gram.
	4485	Subordinat e Keys
	4486	N/A
	4487	Mutually E xclusive
	4488	Keys
	4489
	4490	N/A
	4491
	4492
	4493
	4494	Security K eys
	4495
	4496
	4497	Activities
	4498
	4499
	4500
	4501	Granting C ondition
	4502	Logic
	4503	The PRCACP S mail gro up coordin ator is en tered by O I&T during the insta llation of the patch . OI&T wil l work wit h the PRCA CPS mail g roup coord inator to assign the PRCA AUTO CRCT PGM s ecurity ke y to the l ocal Accou nt Receiva ble staff who need t he ability to run th e Patient Statement Auto-Corre ction Prog ram.
	4504
	4505
	4506	Current Lo gic
	4507
	4508	N/A
	4509
	4510
	4511	Modified L ogic (Chan ges are in bold)
	4512
	4513	N/A
	4514
	4515
	4516	Security K eys
	4517
	4518
	4519	Activities
	4520
	4521	Hierarchic al
	4522	Precedence
	4523
	4524	N/A
	4525
	4526	6.2.2.3.9. Options
	4527
	4528	The PRCA A CCOUNT MAN AGEMENT me nu option will be up dated to i nclude two new ITEMS : PRCA AUT OCRCT PGM - DISPLAY ORDER: 4 a nd ITEM: P RCA AUTOCR CT RPT - D ISPLAY ORD ER: 3
	4529
	4530	Table 28: Option PRC A ACCOUNT MANAGEMENT
	4531
	4532
	4533	Options
	4534
	4535
	4536	Activities
	4537
	4538	Option Nam e
	4539	PRCA ACCOU NT MANAGEM ENT
	4540	Enhancemen t
	4541	Category
	4542	NewModifyD eleteNo Ch ange
	4543
	4544	Associated Menu Opti ons that w ill invoke this refe rence
	4545	XUCORE
	4546	=> PRCA MA NAGER MENU
	4547	=> PRCA CL ERK MENU
	4548	=> PRCA AC COUNT MANA GEMENT
	4549	Data Passi ng
	4550	InputOutpu tBothGloba l Referenc eLocal Ref erence
	4551	Menu Text
	4552	Descriptio n
	4553	Account Ma nagement
	4554
	4555	Option Typ e
	4556	EditPrintM enuInquire
	4557
	4558	ActionRun RoutineOth er
	4559	Associated Routine
	4560	N/A
	4561
	4562
	4563
	4564	Options
	4565
	4566
	4567	Activities
	4568
	4569
	4570	Option Def inition
	4571	This optio n allows t he user to enter or log inform ation spec ific to a debtor acc ount, such as, addre ss informa tion and c omments.
	4572
	4573
	4574	Current En try Action Logic
	4575
	4576	N/A
	4577
	4578
	4579	Modified E ntry Actio n Logic (C hanges are in bold)
	4580
	4581	N/A
	4582
	4583
	4584	Current Ex it Action Logic
	4585
	4586	N/A
	4587
	4588
	4589	Modified E xit Action Logic (Ch anges are in bold)
	4590
	4591	N/A
	4592
	4593
	4594
	4595	Table 29: Option PRC A AUTOCRCT PGM
	4596
	4597
	4598	Options
	4599
	4600
	4601	Activities
	4602
	4603	Option Nam e
	4604	PRCA AUTOC RCT PGM
	4605	Enhancemen t
	4606	Category
	4607	NewModifyD eleteNo Ch ange
	4608	Associated Menu Opti ons that w ill invoke this refe rence
	4609	PRCA ACCOU NT MANAGEM ENT
	4610	Data Passi ng
	4611	InputOutpu tBothGloba l Referenc eLocal Ref erence
	4612	Menu Text
	4613	Descriptio n
	4614	Patient St atement Au to-Correct ion Progra m
	4615
	4616	Option Typ e
	4617	EditPrintM enuInquire
	4618
	4619	ActionRun RoutineOth er
	4620	Associated Routine
	4621	BEGIN^PRCA CPS
	4622
	4623	Option Def inition
	4624	This optio n runs the Auto-Corr ection pro gram for P atient
	4625	Statement discrepanc ies.
	4626
	4627
	4628	Current En try Action Logic
	4629
	4630
	4631
	4632	Current En try Action Logic
	4633
	4634	N/A
	4635
	4636
	4637	Modified E ntry Actio n Logic (C hanges are in bold)
	4638
	4639	N/A
	4640
	4641
	4642	Current Ex it Action Logic
	4643
	4644	N/A
	4645
	4646
	4647	Modified E xit Action Logic (Ch anges are in bold)
	4648
	4649	N/A
	4650
	4651
	4652	Table 30: Option PRC A AUTOCRCT PGM QUEUE D
	4653
	4654
	4655	Options
	4656
	4657
	4658	Activities
	4659
	4660	Option Nam e
	4661	PRCA AUTOC RCT PGM QU EUED
	4662	Enhancemen t
	4663	Category
	4664	NewModifyD eleteNo Ch ange
	4665	Associated Menu Opti ons that w ill invoke this refe rence
	4666	N/A
	4667	Data Passi ng
	4668	InputOutpu tBothGloba l Referenc eLocal Ref erence
	4669	Menu Text
	4670	Descriptio n
	4671	Patient St atement Au to-Correct ion Progra m Queued
	4672
	4673	Option Typ e
	4674	EditPrintM enuInquire
	4675
	4676	ActionRun RoutineOth er
	4677	Associated Routine
	4678	START^PRCA CPS
	4679
	4680	Option Def inition
	4681	This optio n supports the entry point for the Queue ing of the
	4682	Auto-Corre ction prog ram for Pa tient Stat ement disc repancies.
	4683
	4684
	4685	Current En try Action Logic
	4686
	4687	N/A
	4688
	4689
	4690	Modified E ntry Actio n Logic (C hanges are in bold)
	4691
	4692	N/A
	4693
	4694
	4695
	4696	Current Ex it Action Logic
	4697
	4698	N/A
	4699
	4700
	4701	Modified E xit Action Logic (Ch anges are in bold)
	4702
	4703	N/A
	4704
	4705	Table 31: Option PRC A AUTOCRCT RPT
	4706
	4707
	4708	Options
	4709
	4710
	4711	Activities
	4712
	4713	Option Nam e
	4714	PRCA AUTOC RCT RPT
	4715	Enhancemen t
	4716	Category
	4717	NewModifyD eleteNo Ch ange
	4718	Associated Menu Opti ons that w ill invoke this refe rence
	4719	PRCA ACCOU NT MANAGEM ENT
	4720	Data Passi ng
	4721	InputOutpu tBothGloba l Referenc eLocal Ref erence
	4722	Menu Text
	4723	Descriptio n
	4724	Auto-Corre ct Patient Discrepan cy Report
	4725
	4726	Option Typ e
	4727	EditPrintM enuInquire
	4728
	4729	ActionRun RoutineOth er
	4730	Associated Routine
	4731	PSACRT^PRC AACR
	4732
	4733	Option Def inition
	4734	This optio n runs the Auto-Corr ection Pat ient Discr epancy Rep ort for co rrections made by th e Patient Statement Auto-Corre ction Prog ram.
	4735
	4736
	4737	Current En try Action Logic
	4738
	4739	N/A
	4740
	4741
	4742	Modified E ntry Actio n Logic (C hanges are in bold)
	4743
	4744	N/A
	4745
	4746
	4747	Current Ex it Action Logic
	4748
	4749	N/A
	4750
	4751
	4752	Modified E xit Action Logic (Ch anges are in bold)
	4753
	4754	N/A
	4755
	4756	6.2.2.3.10 . Protocol s
	4757
	4758	Table 32: Protocols
	4759
	4760
	4761	Protocols
	4762
	4763
	4764	Activities
	4765
	4766	Protocol N ame
	4767	N/A
	4768	Enhancemen t
	4769	Category
	4770	NewModifyD eleteNo Ch ange
	4771	Associated
	4772	Protocols
	4773
	4774	Data Passi ng
	4775	InputOutpu tBothGloba l Referenc eLocal Ref erence
	4776	Item Text
	4777	Descriptio n
	4778
	4779	Protocol T ype
	4780	ActionMenu ProtocolMe nuLimited Protocol
	4781	Extended A ctionDialo gOther
	4782	Associated Routine
	4783
	4784
	4785
	4786	Current En try Action Logic
	4787
	4788
	4789
	4790
	4791	Modified E ntry Actio n Logic (C hanges are in bold)
	4792
	4793
	4794
	4795
	4796	Current Ex it Action Logic
	4797
	4798
	4799
	4800
	4801	Modified E xit Action Logic (Ch anges are in bold)
	4802
	4803
	4804
	4805	6.2.2.3.11 . Remote P rocedure C all (RPC)
	4806
	4807	Table 33: RPCs
	4808
	4809
	4810	RPCs
	4811
	4812
	4813	Activities
	4814
	4815	Name
	4816	N/A
	4817	TAG^RTN
	4818
	4819	Input Para meters
	4820
	4821	Results Ar ray
	4822	Single Val ueArrayWor d Processi ng
	4823
	4824	Global Arr ayGlobal I nstance
	4825
	4826
	4827
	4828	RPCs
	4829
	4830
	4831	Activities
	4832
	4833	Descriptio n
	4834
	4835
	4836	6.2.2.3.12 . Constant s Defined in Interfa ce
	4837
	4838	Table 34: Constants Defined in Interface
	4839
	4840
	4841	Name
	4842
	4843
	4844	Descriptio n
	4845
	4846	N/A
	4847
	4848
	4849	6.2.2.3.13 . Variable s Defined in Interfa ce
	4850
	4851	Table 35: Variables Defined i n Interfac e
	4852
	4853	NameTypeDe scription
	4854
	4855	N/A
	4856
	4857	6.2.2.3.14 . Types De fined in I nterface
	4858
	4859	Table 36: Types Defi ned in Int erface Nam eTypeDescr iption N/A
	4860	6.2.2.3.15 . GUI
	4861	There are no GUI int erfaces in Patient S tatement E nhancement s (PSE) Di screpancie s (Increme nt
	4862	1, Phase 1 ).
	4863
	4864	Table 37: GUI
	4865
	4866
	4867	Unit Name
	4868
	4869
	4870	Descriptio n
	4871
	4872	N/A
	4873
	4874
	4875	6.2.2.3.16 . GUI Clas ses
	4876
	4877	Table 38: GUI Classe s
	4878
	4879
	4880	GUI Classe s
	4881
	4882
	4883	Instructio ns
	4884
	4885	Class Name
	4886	N/A
	4887	Derived Fr om Class
	4888
	4889	Purpose
	4890
	4891
	4892	6.2.2.3.17 . Current Form
	4893
	4894	N/A
	4895
	4896	6.2.2.3.18 . Modified Form
	4897
	4898	N/A
	4899
	4900	6.2.2.3.19 . Componen ts on Form
	4901
	4902	Table 39: Components on Form
	4903
	4904	NameTypeDe scription
	4905
	4906	N/A
	4907
	4908	6.2.2.3.20 . Events
	4909
	4910	Table 40: Events
	4911
	4912	NameTypeDe scription
	4913
	4914	N/A
	4915
	4916	6.2.2.3.21 . Methods
	4917
	4918	Table 41: Methods
	4919
	4920	Method Nam eProcedure /FunctionD escription
	4921
	4922	N/A
	4923
	4924	6.2.2.3.22 . Special References
	4925
	4926	Table 42 : Special R eferences
	4927
	4928	Special Re ference Na meTypeDesc ription
	4929
	4930	N/A
	4931
	4932	6.2.2.3.23 . Class Ev ents
	4933
	4934	Table 43: Class Even ts
	4935
	4936	NameTypeDe scription
	4937
	4938	N/A
	4939
	4940	6.2.2.3.24 . Class Me thods
	4941
	4942	Table 44: Class Meth ods
	4943
	4944	NameProced ure/Functi onDescript ion
	4945
	4946	N/A
	4947
	4948	6.2.2.3.25 . Class Pr operties
	4949
	4950	Table 45: Class Prop erties
	4951
	4952	Class Prop erties Nam eTypeVisib ilityDescr iption
	4953
	4954	N/A
	4955
	4956	6.2.2.3.26 . Uses Cla use
	4957
	4958	N/A
	4959
	4960	6.2.2.3.27 . Forms
	4961
	4962	Table 46: Forms
	4963
	4964
	4965	Forms
	4966
	4967
	4968	Descriptio n
	4969
	4970	Form Name
	4971	N/A
	4972	Enhancemen t Category
	4973	NewModifyD eleteNo Ch ange
	4974	Form Funct ionality
	4975
	4976
	4977
	4978	Current Fo rm Layout
	4979
	4980
	4981
	4982
	4983	Modified F orm Layout (Changes are in bol d)
	4984
	4985
	4986
	4987	6.2.2.3.28 . Function s
	4988
	4989	Table 47: Forms
	4990
	4991
	4992	Function N ame
	4993
	4994
	4995	Activities
	4996
	4997	Short
	4998	Descriptio n
	4999	N/A
	5000	Enhancemen t
	5001	Category
	5002
	5003	NewModifyD eleteNo Ch ange
	5004	Related Op tions
	5005
	5006
	5007
	5008	Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”
	5009
	5010
	5011
	5012
	5013
	5014
	5015	Function N ame
	5016
	5017
	5018	Activities
	5019
	5020	Data Dicti onary
	5021	(DD) Refer ences
	5022
	5023	Related
	5024	Protocols
	5025
	5026
	5027
	5028
	5029	Function N ame
	5030
	5031
	5032	Activities
	5033
	5034	Related In tegration Control Re gistration s (ICRs)
	5035
	5036	Data Passi ng
	5037	InputOutpu tBothGloba l Referenc eLocal Ref erence
	5038	Input Attr ibute Name and Defin ition
	5039	Name: Defi nition:
	5040	Output Att ribute Nam e and Defi nition
	5041	Name: Defi nition:
	5042
	5043
	5044
	5045
	5046	Current Lo gic
	5047
	5048
	5049
	5050
	5051	Modified L ogic (Chan ges are in bold)
	5052
	5053
	5054
	5055	6.2.2.3.29 . Dialog
	5056
	5057	Table 48: Dialog
	5058
	5059
	5060	Dialog
	5061
	5062
	5063	Instructio ns
	5064
	5065	Dialog Mes sage
	5066	(Descripti on)
	5067	N/A
	5068	Enhancemen t Category
	5069	ModifyDele teNo Chang e
	5070	New
	5071	Dialog Mes sage
	5072	(Descripti on) Condit ion
	5073
	5074	Current Di alog Messa ge
	5075	(Descripti on)
	5076
	5077	Modified D ialog Mess age
	5078	(Descripti on) (Chang es are in bold)
	5079
	5080
	5081	6.2.2.3.30 . Help Fra me
	5082
	5083	Table 49: Help Frame
	5084
	5085	Help Frame Descriptio n
	5086
	5087
	5088
	5089	Help Frame
	5090
	5091
	5092	Descriptio n
	5093
	5094	Help Frame Text
	5095	N/A
	5096	Enhancemen t Category
	5097	NewModifyD eleteNo Ch ange
	5098	Help Frame Text Call ing
	5099	Mechanism
	5100
	5101
	5102
	5103	Current He lp Frame T ext
	5104
	5105
	5106
	5107
	5108	Modified H elp Frame Text (Chan ges are in bold)
	5109
	5110
	5111
	5112	6.2.2.3.31 . HL7 Appl ication Pa rameter
	5113
	5114	There is n o HL-7 mes saging in Patient St atement En hancements (PSE) Dis crepancies (Incremen t
	5115	1, Phase 1 ).
	5116
	5117	Table 50 : HL7 Appli cation Par ameter
	5118
	5119	HL7 Applic ation
	5120	Parameter Name
	5121	Descriptio n: N/A
	5122	Enhancemen t Category
	5123	NewModifyD eleteNo Ch ange
	5124	Applicatio n Status
	5125	ActiveInac tiveActive Inactive
	5126
	5127	Enhancemen t Category CurrentMod ified
	5128
	5129	Facility N ame
	5130
	5131	Country Co de
	5132
	5133	HL7 Field Separator
	5134
	5135	HL7 Encodi ng Charact ers
	5136
	5137	Mail Group
	5138
	5139	6.2.2.3.32 . HL7 Logi cal Link
	5140
	5141	Table 51: HL7 Logica l Link
	5142
	5143	HL7 Logica l LinkDesc ription
	5144
	5145
	5146	HL7 Logica l Link
	5147	Parameter Name
	5148
	5149	N/A
	5150
	5151
	5152	Enhancemen t Category NewModifyD eleteNo Ch ange
	5153
	5154	Enhancemen t Category CurrentMod ified
	5155
	5156	Enhancemen t Category CurrentMod ified
	5157
	5158	Node Insti tution Dom ain Autost art Queue Size LLP T ype
	5159	6.2.2.3.33 . COTS Int erface
	5160
	5161	There are no COTS in terfaces i n Patient Statement Enhancemen ts (PSE) D iscrepanci es
	5162	(Increment 1, Phase 1).
	5163
	5164	Table 52: COTS Inter face
	5165
	5166
	5167	COTS Inter face
	5168
	5169
	5170	Descriptio n
	5171
	5172	Communicat ion Method
	5173	N/A
	5174	Applicatio n Interfac e
	5175
	5176
	5177	6.3.Networ k Detailed Design
	5178
	5179	N/A - Pati ent Statem ent Enhanc ements (PS E) Discrep ancies (In crement 1, Phase 1) addresses balance di screpancy remediatio n and will be accomp lished wit hin the fr amework of VistA Acc ounts Rece ivable at the local VA sites. Therefore, no signif icant impa ct on netw ork design or resour ces is exp ected.
	5180
	5181	6.4.Securi ty and Pri vacy
	5182
	5183	The follow ing Securi ty and Pri vacy messu res were i mplemented in Patien t Statemen t
	5184	Enhancemen ts (PSE) D iscrepanci es (Increm ent 1, Pha se 1).
	5185
	5186	6.4.1.Secu rity
	5187
	5188	The PRCA A UTOCRCT PG M was crea ted and wi ll be assi gned to th e appropr iate Accou nt Receiva ble person nel so tha t only aut horized us ers can ru n the Pati ent Statem ent Auto- Correction Program.
	5189
	5190	6.4.2.Priv acy
	5191
	5192	The Auto-C orrect Pat ient Discr epancy Rep ort has be en coded s o that whe n the outp ut is sent to a Mail Man messag e, that me ssage is f lagged so that it ca n’t be for warded out side of th e secured VA network .
	5193
	5194	6.5.Servic e Oriented Architect ure / ESS Detailed D esign
	5195
	5196	N/A
	5197
	5198	6.5.1.Serv ice Descri ption for <Consumed Service Na me>
	5199
	5200	N/A
	5201
	5202	6.5.2.Serv ice Design for <Prov ided Servi ce Name>
	5203
	5204	There are no Severic e Designs for Patien t Statemen t Enhancem ents (PSE) Discrepan cies
	5205	(Increment 1, Phase 1).
	5206
	5207	6.5.2.1.In troduction
	5208
	5209	N/A
	5210
	5211	6.5.2.1.1. Purpose a nd Scope o f Service
	5212
	5213	N/A
	5214
	5215	6.5.2.1.2. Links to Other Docu ments
	5216
	5217	N/A
	5218
	5219	6.5.2.2.Se rvice Deta ils
	5220
	5221	N/A
	5222
	5223	6.5.2.2.1. Service I dentificat ion
	5224
	5225	Table 53: Service At tribute an d Value
	5226
	5227	Service At tributeVal ue Overvie wN/A Versi on
	5228	Latest Sta tus Servic e Type Arc hitecture Layer Busi ness Domai n Service Domain
	5229	Business O rganizatio n and Owne r
	5230
	5231	Technical Organizati on and Own er
	5232
	5233	Developmen t Organiza tion and
	5234	Owner
	5235
	5236	Support Or ganization and Owner
	5237
	5238	Target Con sumer Orga nization(s )
	5239	and Owner( s)
	5240
	5241	6.5.2.2.2. Service V ersions
	5242
	5243	Table 54 : Service V ersions
	5244
	5245	Version Nu mbers
	5246	Current St atus of
	5247	Version
	5248	A Brief De scription of the cha nge implem ented in t hat versio n
	5249	N/A
	5250
	5251
	5252
	5253
	5254
	5255
	5256
	5257
	5258
	5259	6.5.2.2.3. Summary o f Design a nd Platfor m Details
	5260
	5261	N/A
	5262
	5263	6.5.2.2.3. 1. SOA Pat tern(s) Im plemented
	5264
	5265	N/A
	5266
	5267	6.5.2.2.3. 2. COTS Pl atform ven dor names and versio ns for hos ting platf orm
	5268
	5269	N/A
	5270
	5271	6.5.2.3.De pendencies
	5272
	5273	N/A
	5274
	5275	6.5.2.4.Se rvice Desi gn Details
	5276
	5277	N/A
	5278
	5279	6.5.2.4.1. Interface Technical Specs
	5280
	5281	N/A
	5282
	5283	6.5.2.4.1. 1. Service Invocatio n Type
	5284
	5285	N/A
	5286
	5287	6.5.2.4.1. 2. Service Interface Type
	5288
	5289	N/A
	5290
	5291	6.5.2.4.1. 3. Service Name
	5292
	5293	N/A
	5294
	5295	6.5.2.4.1. 4. Interfa ce
	5296
	5297	N/A
	5298
	5299	6.5.2.4.1. 5. End Poi nts
	5300
	5301	N/A
	5302
	5303	6.5.2.4.1. 6. Operati ons or Met hods
	5304
	5305	Table 55: Operations or Method s
	5306
	5307	Operation Name
	5308	Inputs
	5309	Outputs
	5310	Transactio nal Qualit ies if rel evant (Upd ating?, At omic?, Can participa te in tran saction?)
	5311	Pre and Po st Conditi ons
	5312	Exception (s)
	5313	N/A
	5314
	5315
	5316
	5317
	5318
	5319
	5320
	5321
	5322
	5323
	5324
	5325
	5326	6.5.2.4.1. 7. Message Schemas
	5327
	5328	N/A
	5329
	5330	6.5.2.4.2. Informati on Model
	5331
	5332	N/A
	5333
	5334	6.5.2.4.2. 1. Class D iagram and Descripti on of Enti ties Invol ved
	5335
	5336	N/A
	5337
	5338	6.5.2.4.2. 2. Mapping s from ELD M to Stand ards Based Schemas
	5339
	5340	N/A
	5341
	5342	6.5.2.4.3. Behavior Model (AKA Use Case Realizatio n)
	5343
	5344	N/A
	5345
	5346	6.5.2.4.3. 1. Use Cas es (Use Ca se Model)
	5347
	5348	N/A
	5349
	5350
	5351
	5352	6.5.2.4.3. 2. Interac tion Diagr ams
	5353
	5354	N/A
	5355
	5356	6.5.2.5.Ga p Analysis
	5357
	5358	Table 56 : Gap Analy sis
	5359
	5360	Design
	5361	Elements
	5362	Policies / SLD
	5363	elements e tc.↓
	5364	Design
	5365	Element A
	5366	Design
	5367	Element
	5368	B
	5369	Design
	5370	Element
	5371	C
	5372	Comment fo r non-conf ormance
	5373	N/A
	5374
	5375
	5376
	5377
	5378
	5379
	5380
	5381
	5382
	5383
	5384
	5385	Design
	5386	Elements
	5387	Policies / SLD
	5388	elements e tc.↓
	5389	Design
	5390	Element A
	5391	Design
	5392	Element
	5393	B
	5394	Design
	5395	Element
	5396	C
	5397	Comment fo r non-conf ormance
	5398
	5399
	5400
	5401
	5402
	5403
	5404
	5405
	5406
	5407
	5408
	5409
	5410
	5411
	5412
	5413
	5414	6.5.2.5.1. Variances from Ente rprise Tar get Archit ecture
	5415
	5416	N/A
	5417
	5418	6.5.2.5.2. Variances from SLDs
	5419
	5420	N/A
	5421
	5422	6.5.2.5.3. Variances from Stan dards and Policies
	5423
	5424	N/A
	5425
	5426	6.5.2.5.4. Justifica tion for E xceptions and Mitiga tion
	5427
	5428	N/A
	5429
	5430	7.External System In terface De sign
	5431
	5432	There are no Externa l System I nterface D esign chan ges for Pa tient Stat ement Enha ncements
	5433	(PSE) Disc repancies (Increment 1, Phase 1).
	5434
	5435	7.1.Interf ace Archit ecture
	5436
	5437	N/A
	5438
	5439	7.2.Interf ace Detail ed Design
	5440
	5441	N/A
	5442
	5443	8.Human-Ma chine Inte rface
	5444
	5445	There are no Human-M achine Int erface cha nges for P atient Sta tement Enh ancements (PSE) Disc repancies (Increment 1, Phase 1).
	5446
	5447	8.1.Interf ace Design Rules
	5448
	5449	N/A
	5450
	5451	8.2.Inputs
	5452
	5453	N/A
	5454
	5455	8.3.Output s
	5456
	5457	N/A
	5458
	5459	8.4.Naviga tion Hiera rchy
	5460
	5461	N/A
	5462
	5463	8.4.1.Scre en [x.1] N /A
	5464	8.4.2.Scre en [x.2] N /A
	5465	8.4.3.Scre en [x.3] N /A
	5466
	5467	9.Attachme nt A – App roval Sign atures
	5468
	5469	This secti on is used to docume nt the app roval of t he System Design Doc ument. The review sh ould be co nducted fa ce to face where sig natures ca n be obtai ned ‘live’ during th e review. If unable to conduct a face-to -face meet ing then i t should b e held via LiveMeeti ng and con currence c aptured du ring the m eeting. Th e Scribe s hould add /es/name b y each pos ition cite d. Example provided below.
	5470
	5471	The Busine ss Sponsor and Proje ct Manager are requi red to sig n.
	5472
	5473
	5474
	5475
	5476	Signed: Je rry Battle sDate: Bus iness Spon sor
	5477
	5478
	5479	02/07/2017
	5480
	5481
	5482	Signed: Ra y Pietrzak Date:
	5483
	5484	Project Ma nager
	5485
	5486	A.Addition al Informa tion
	5487	A.1. Ident ification of Technol ogy and St andards
	5488	A.2. Const raining Po licies, Di rectives a nd Procedu res
	5489	A.3. Requi rements Tr aceability Matrix
	5490	A.4. Packa ging and I nstallatio n
	5491	A.5. Desig n Metrics
	5492
	5493	Template R evision Hi story
	5494
	5495	DateVersio nDescripti onAuthor
	5496
	5497
	5498	June 20152 .10Changed Heading 1 default s etting to eliminate page break before
	5499
	5500	May 20152. 9Edited fo r Section 508 confor mance and remediated with Comm on Look Of fice tool
	5501
	5502	February 2 0152.8Inco rporates r evisions f rom PMAS R eform Lock down; name ly removin g requirem ents for i nformation that can be obtaine d from oth er PMAS au thoritativ e sources.
	5503
	5504	Process Ma nagement
	5505
	5506
	5507	Process Ma nagement
	5508
	5509
	5510	Andrew Sla wter, Offi ce of Tech nology Str ategies
	5511
	5512
	5513	September
	5514	2014
	5515
	5516	2.7Adds En terprise S hared Serv ices terms and requi res AERB C ompliance Certificat e attachme nt.
	5517
	5518	Process Ma nagement
	5519
	5520
	5521	August 201 42.6Signat ure block update aut horized by
	5522	AERB CR_0 18934
	5523
	5524	March 2014 2.5Section 508 repai rs to new version ap proved by AERB Chair approved
	5525
	5526	August 201 32.3Replac ed the Ser vice Archi tecture su b- section with new sub-sectio ns for con sumed and provided s ervices. A lso applie d miscella neous feed back from VA team.
	5527
	5528	Process Ma nagement
	5529
	5530
	5531	Process Ma nagement
	5532
	5533
	5534	ASD Enterp rise Share d Services (ESS) Wor k Group
	5535
	5536
	5537	June 20131 .3Upgraded to MS Off ice 2007-2 010 format Process Ma nagement
	5538
	5539	June 20131 .2Address inconsiste ncies in S ection 3, Conceptual Design, C orrect hea dings
	5540	March 2013 1.1Formatt ed to docu mentation standards and edited for Secti on 508 con formance
	5541
	5542	Process Ma nagement
	5543
	5544	Process Ma nagement
	5545
	5546
	5547	January 20 131.0Initi al Documen tPMAS Busi ness
	5548	Office
	5549
	5550
	5551
	5552
	5553
	5554	See TOGAF® 9.1, Part III: ADM Guidelines & Techniq ues, Gap A nalysis on TOGAF web site at ht tp://pubs. opengroup. org/archit ecture/tog af9-doc/ar ch/chap27. html