6. EPMO Open Source Coordination Office Redaction File Detail Report

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

6.1 Files compared

#	Location	File	Last Modified
1	PSE_v22_PRCA4.5307.zip\PSE_v22_PRCA4.5307\PSE Patch PRCA_45_307 v22 CIF submission.zip	PSE SDD Phase 01 Incr 01 v1.18.docx	Tue Feb 7 16:37:40 2017 UTC
2	PSE_v22_PRCA4.5307.zip\PSE_v22_PRCA4.5307\PSE Patch PRCA_45_307 v22 CIF submission.zip	PSE SDD Phase 01 Incr 01 v1.18.docx	Tue Feb 28 05:20:27 2017 UTC

6.2 Comparison summary

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

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

6.4 Active regular expressions

No regular expressions were active.

6.5 Comparison detail

	1	Patient St atement En hancements
	2	System Des ign Docume nt
	3
	4	Patient St atement En hancements (PSE)
	5	Discrepanc ies (Incre ment 1, Ph ase 1)
	6
	7
	8
	9	January 20 17
	10	Version 1. 18
	11
	12	Department of Vetera ns Affairs
	13
	14
	15	Revision H istory
	16	Date
	17	Version
	18	Descriptio n
	19	Author
	20	8/26/2015
	21	1.0
	22	Initial dr aft
	23	Lloyd MacA skill
	24	9/30/2015
	25	1.01
	26	Draft revi sion
	27	Lloyd MacA skill
	28	10/21/2015
	29	1.02
	30	Added Inco mplete sta tus flag
	31	Dennis Bri cker
	32	10/27/2015
	33	1.03
	34	Added NA t o all blan k sections
	35	Shawnee Bl air
	36	12/3/2015
	37	1.04
	38	Elaboratio n of routi ne functio ns
	39	Lloyd MacA skill
	40	12/17/2015
	41	1.05
	42	Draft Revi sion
	43	Lloyd MacA skill
	44	1/5/2016
	45	1.06
	46	Updated se ction – 3. 3.31
	47	Sachin Sha rma
	48	3/4/2016
	49	1.07
	50	Updated se ction 1, a nd added S ecurity Ke y to 6.3.2 .2.8
	51	Lloyd MacA skill / Be th Easton
	52	4/13/2016
	53	1.08
	54	Updated ro utines
	55	Dennis Bri cker
	56	05/27/2016
	57	1.09
	58	Updated In troduction
	59	Shawnee Bl air
	60	09/06/2016
	61	1.10
	62	Added Chan ge Station Date info
	63	Mark Enfin ger
	64	10/20/2016
	65	1.11
	66	Update rou tine info to match v 15 coding solution.
	67	Matt Dill
	68	12/14/16
	69	1.12
	70	Update rou tine info to match v 17 coding solution.
	71	Matt Dill
	72	12/19/16
	73	1.13
	74	Update rou tine info to match v 18 coding solution.
	75	Matt Dill
	76	01/17/17
	77	1.14
	78	Update rou tine info to match v 19 coding solution.
	79	Matt Dill
	80	01/17/17
	81	1.15
	82	Update rou tine info to match v 19 coding solution.
	83	Mark Enfin ger
	84	01/18/17
	85	1.16
	86	Update rou tine info to match v 20 coding solution.
	87	Matt Dill
	88	01/23/17
	89	1.17
	90	Update rou tine info to match v 22 coding solution.
	91	Mark Enfin ger
	92	1/24/17
	93	1.18
	94	Updated pa ge numbers in Tables of Conten ts, List o f Tables a nd List of Figures
	95	Matt Dill
	96
	97	Artifact R ationale
	98	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 .
	99
	100
	101	When to Co mplete Eac h Section of the SDD
	102	Section
	103	Completed On or Befo re PMAS Ph ase
	104	Rationale
	105	1 – Introd uction
	106	MS 0 Revie w; updated thereafte r
	107	Conceptual design sh ould infor m evaluati on of inve stments
	108	2 - Backgr ound
	109	MS 0 Revie w; updated thereafte r
	110	Conceptual design sh ould infor m evaluati on of inve stments
	111	3 – Concep tual Desig n
	112	MS 0 Revie w; updated thereafte r
	113	Conceptual design sh ould infor m evaluati on of inve stments
	114	4 – System Architect ure
	115	MS 0 Revie w; updated thereafte r
	116	Conceptual design sh ould infor m evaluati on of inve stments
	117	5 – Data D esign
	118	MS 1 Revie w; updated thereafte r
	119	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	120	6 – Detail ed Design
	121	MS 1 Revie w; updated thereafte r
	122	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	123	7 – Extern al System Interface Design
	124	MS 1 Revie w; updated thereafte r
	125	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	126	8 – Human Machine In terfaces
	127	MS 1 Revie w; updated thereafte r
	128	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	129	Attachment s
	130	MS 1 Revie w; updated thereafte r
	131	Design det ails shoul d be elabo rated upon during PM AS Plannin g phase an d prior to developme nt
	132
	133	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.
	134
	135	Instructio ns
	136	Activity
	137	New Capabi lity (1)
	138	Feature En hancement (2)
	139	Field Depl oyment (A)
	140	No
	141	Yes
	142	Cloud/Web Deployment (B)
	143	No
	144	No
	145	Mobile App lication ( C)
	146	No
	147	No
	148
	149	Table of C ontents
	150	1.Introduc tion12
	151	1.1.Scope1 2
	152	1.2.User P rofiles13
	153	2.Backgrou nd13
	154	2.1.Overvi ew of the System13
	155	2.2.Overvi ew of the Business P rocess13
	156	2.3.Overvi ew of the Significan t Requirem ent13
	157	3.Conceptu al Design1 4
	158	3.1.Concep tual Appli cation Des ign14
	159	3.1.1.Appl ication Co ntext14
	160	3.1.2.High -Level App lication D esign17
	161	3.1.3.Appl ication Lo cations18
	162	3.2.Concep tual Data Design18
	163	3.2.1.Proj ect Concep tual Data Model18
	164	3.2.2.Data base Infor mation18
	165	3.2.3.User Interface Data Mapp ing19
	166	3.2.3.1.Ap plication Screen Int erface19
	167	3.2.3.2.Ap plication Report Int erface21
	168	3.2.3.3.Un mapped Dat a Element2 1
	169	3.3.Concep tual Infra structure Design21
	170	3.3.1.Syst em Critica lity and H igh Availa bility21
	171	3.3.2.Spec ial Techno logy22
	172	3.3.3.Tech nology Loc ations22
	173	3.3.4.Conc eptual Inf rastructur e Diagram2 3
	174	3.3.4.1.Lo cation of Environmen ts and Ext ernal Inte rfaces23
	175	3.3.4.2.Co nceptual P roduction String Dia gram23
	176	4.System A rchitectur e23
	177	4.1.Hardwa re Archite cture23
	178	4.2.Softwa re Archite cture23
	179	4.3.Networ k Architec ture23
	180	4.4.Servic e Oriented Architect ure / ESS2 3
	181	4.5.Enterp rise Archi tecture23
	182	5.Data Des ign23
	183	5.1.DBMS F iles24
	184	5.2.Non-DB MS Files24
	185	5.3.Data V iew24
	186	6.Detailed Design24
	187	6.1.Hardwa re Detaile d Design24
	188	6.2.Softwa re Detaile d Design24
	189	6.2.1.Conc eptual Des ign24
	190	6.2.1.1.Pr oduct Pers pective25
	191	6.2.1.1.1. User Inter faces25
	192	6.2.1.1.2. Hardware I nterfaces2 6
	193	6.2.1.1.3. Software I nterfaces2 6
	194	6.2.1.1.4. Communicat ions Inter faces26
	195	6.2.1.1.5. Memory Con straints26
	196	6.2.1.1.6. Special Op erations26
	197	6.2.1.2.Pr oduct Feat ures26
	198	6.2.1.3.Us er Charact eristics26
	199	6.2.1.4.De pendencies and Const raints26
	200	6.2.2.Spec ific Requi rements26
	201	6.2.2.1.Da tabase Rep ository26
	202	6.2.2.2.Sy stem Featu res27
	203	6.2.2.3.De sign Eleme nt Tables3 0
	204	6.2.2.3.1. Routines ( Entry Poin ts)30
	205	6.2.2.3.2. Templates9 5
	206	6.2.2.3.3. Bulletins9 5
	207	6.2.2.3.4. Data Entri es Affecte d by the D esign96
	208	6.2.2.3.5. Unique Rec ord(s)96
	209	6.2.2.3.6. File or Gl obal Size Changes96
	210	6.2.2.3.7. Mail Group s97
	211	6.2.2.3.8. Security K eys98
	212	6.2.2.3.9. Options99
	213	6.2.2.3.10 .Protocols 103
	214	6.2.2.3.11 .Remote Pr ocedure Ca ll (RPC)10 3
	215	6.2.2.3.12 .Constants Defined i n Interfac e104
	216	6.2.2.3.13 .Variables Defined i n Interfac e104
	217	6.2.2.3.14 .Types Def ined in In terface104
	218	6.2.2.3.15 .GUI104
	219	6.2.2.3.16 .GUI Class es104
	220	6.2.2.3.17 .Current F orm104
	221	6.2.2.3.18 .Modified Form104
	222	6.2.2.3.19 .Component s on Form1 05
	223	6.2.2.3.20 .Events105
	224	6.2.2.3.21 .Methods10 5
	225	6.2.2.3.22 .Special R eferences1 05
	226	6.2.2.3.23 .Class Eve nts105
	227	6.2.2.3.24 .Class Met hods105
	228	6.2.2.3.25 .Class Pro perties105
	229	6.2.2.3.26 .Uses Clau se106
	230	6.2.2.3.27 .Forms106
	231	6.2.2.3.28 .Functions 106
	232	6.2.2.3.29 .Dialog107
	233	6.2.2.3.30 .Help Fram e107
	234	6.2.2.3.31 .HL7 Appli cation Par ameter108
	235	6.2.2.3.32 .HL7 Logic al Link108
	236	6.2.2.3.33 .COTS Inte rface109
	237	6.3.Networ k Detailed Design109
	238	6.4.Securi ty and Pri vacy109
	239	6.4.1.Secu rity109
	240	6.4.2.Priv acy109
	241	6.5.Servic e Oriented Architect ure / ESS Detailed D esign109
	242	6.5.1.Serv ice Descri ption for <Consumed Service Na me>110
	243	6.5.2.Serv ice Design for <Prov ided Servi ce Name>11 0
	244	6.5.2.1.In troduction 110
	245	6.5.2.1.1. Purpose an d Scope of Service11 0
	246	6.5.2.1.2. Links to O ther Docum ents110
	247	6.5.2.2.Se rvice Deta ils110
	248	6.5.2.2.1. Service Id entificati on110
	249	6.5.2.2.2. Service Ve rsions111
	250	6.5.2.2.3. Summary of Design an d Platform Details11 1
	251	6.5.2.2.3. 1.SOA Patt ern(s) Imp lemented11 1
	252	6.5.2.2.3. 2.COTS Pla tform vend or names a nd version s for host ing platfo rm111
	253	6.5.2.3.De pendencies 111
	254	6.5.2.4.Se rvice Desi gn Details 111
	255	6.5.2.4.1. Interface Technical Specs111
	256	6.5.2.4.1. 1.Service Invocation Type111
	257	6.5.2.4.1. 2.Service Interface Type111
	258	6.5.2.4.1. 3.Service Name111
	259	6.5.2.4.1. 4.Interfac e111
	260	6.5.2.4.1. 5.End Poin ts111
	261	6.5.2.4.1. 6.Operatio ns or Meth ods112
	262	6.5.2.4.1. 7.Message Schemas112
	263	6.5.2.4.2. Informatio n Model112
	264	6.5.2.4.2. 1.Class Di agram and Descriptio n of Entit ies Involv ed112
	265	6.5.2.4.2. 2.Mappings from ELDM to Standa rds Based Schemas112
	266	6.5.2.4.3. Behavior M odel (AKA Use Case R ealization )112
	267	6.5.2.4.3. 1.Use Case s (Use Cas e Model)11 2
	268	6.5.2.4.3. 2.Interact ion Diagra ms112
	269	6.5.2.5.Ga p Analysis 112
	270	6.5.2.5.1. Variances from Enter prise Targ et Archite cture113
	271	6.5.2.5.2. Variances from SLDs1 13
	272	6.5.2.5.3. Variances from Stand ards and P olicies113
	273	6.5.2.5.4. Justificat ion for Ex ceptions a nd Mitigat ion113
	274	7.External System In terface De sign113
	275	7.1.Interf ace Archit ecture113
	276	7.2.Interf ace Detail ed Design1 13
	277	8.Human-Ma chine Inte rface113
	278	8.1.Interf ace Design Rules113
	279	8.2.Inputs 113
	280	8.3.Output s113
	281	8.4.Naviga tion Hiera rchy114
	282	8.4.1.Scre en [x.1] N /A114
	283	8.4.2.Scre en [x.2] N /A114
	284	8.4.3.Scre en [x.3] N /A114
	285	9.Attachme nt A – App roval Sign atures115
	286	A.Addition al Informa tion116
	287	A.1.Identi fication o f Technolo gy and Sta ndards116
	288	A.2.Constr aining Pol icies, Dir ectives an d Procedur es116
	289	A.3.Requir ements Tra ceability Matrix116
	290	A.4.Packag ing and In stallation 116
	291	A.5.Design Metrics11 6
	292
	293
	294	List of Ta bles
	295	Table 1: B usiness Ru les13
	296	Table 2: A pplication Context D escription 16
	297	Table 3: O bjects in the High L evel Appli cation Des ign17
	298	Table 4: A pplication Locations 18
	299	Table 5: A pplication Users18
	300	Table 6: D atabase In ventory18
	301	Table 7: D escription 21
	302	Table 8: Special Te chnology R equirement s22
	303	Table 9: T echnology Location D etails22
	304	Table 10: Database I nventory26
	305	Table 11: Functional Specifica tions27
	306	Table 12: Routine : PRCACPS31
	307	Table 13: Routine : PRCACPSA45
	308	Table 14: Routines: PRCAACR50
	309	Table 15: Routines: PRCAACR157
	310	Table 16: Routines: PRCA307P63
	311	Table 17: Routines: PRCASER165
	312	Table 18: Routines: RCCPCBJ69
	313	Table 19: Routines: RCDPBTLM74
	314	Table 20: Routines: RCWROFF86
	315	Table 21: Templates9 5
	316	Table 22: Bulletins9 5
	317	Table 23: Data Entri es Affecte d by the D esign96
	318	Table 24: Unique Rec ord ID96
	319	Table 25: File or Gl obal Size Changes97
	320	Table 26: Mail Group s97
	321	Table 27: Security K eys98
	322	Table 28: Option PRC A ACCOUNT MANAGEMENT 99
	323	Table 29: Option PRC A AUTOCRCT PGM100
	324	Table 30: Option PRC A AUTOCRCT PGM QUEUE D101
	325	Table 31: Option PRC A AUTOCRCT RPT102
	326	Table 32: Protocols1 03
	327	Table 33: RPCs103
	328	Table 34: Constants Defined in Interface 104
	329	Table 35: Variables Defined i n Interfac e104
	330	Table 36: Types Defi ned in Int erface104
	331	Table 37: GUI104
	332	Table 38: GUI Classe s104
	333	Table 39: Components on Form10 5
	334	Table 40: Events105
	335	Table 41: Methods105
	336	Table 42 : Special R eferences1 05
	337	Table 43: Class Even ts105
	338	Table 44: Class Meth ods105
	339	Table 45: Class Prop erties105
	340	Table 46: Forms106
	341	Table 47: Forms106
	342	Table 48: Dialog107
	343	Table 49: Help Frame 107
	344	Table 50 : HL7 Appli cation Par ameter108
	345	Table 51: HL7 Logica l Link108
	346	Table 52: COTS Inter face109
	347	Table 53: Service At tribute an d Value110
	348	Table 54 : Service V ersions111
	349	Table 55: Operations or Method s112
	350	Table 56 : Gap Analy sis112
	351
	352	List of Fi gures
	353	Figure 31: Existing Deficiency Resolutio n Flow15
	354	Figure 32: AS-IS PSE Diagram 1 16
	355	Figure 33 : Auto-C orrect Pat ient Discr epancy Rep ort20
	356	Figure 61 : Auto-C orrect Pro cess Flow2 4
	357
	358
	359
	360	Introducti on
	361	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 .
	362	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.
	363	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.
	364	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.
	365	The tables in this s ection ide ntify the full scope of the PS E project by Increme nt.
	366	Scope
	367	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:
	368	Developmen t and inst allation o f an autom ated proce ss for the detection and track ing of dis crepancies that prev ent a pati ent statem ent from p rocessing.
	369
	370	Remediatio n of the r oot cause for the fo llowing di screpancie s that pre vent a pat ient state ment from processing :
	371	Transactio n amount m issing
	372	Duplicate transactio n
	373	Incomplete status
	374	For 17 spe cific Stat ion ID’s t he SITE ST ATEMENT DA Y field in the AR PA RAMETER fi le will be updated.
	375	User Profi les
	376	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.
	377	Background
	378	Overview o f the Syst em
	379	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.
	380	Overview o f the Busi ness Proce ss
	381	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.
	382	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 .
	383	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.
	384	http:// URL . DNS /HAPEPortf olioPMO/Pa tientState mentEnhanc ement/defa ult.aspx
	385	Overview o f the Sign ificant Re quirement
	386	Table 1: B usiness Ru les
	387	Business R ules (Auto -Correctio n Job)
	388	Background Job - Aut o-correcti on will fu nction as a tasked j ob.
	389	Opti on - The j ob can be run on-dem and.
	390	Post-I nit - The initial jo b run will occur imm ediately a fter patch installat ion.
	391
	392	Auto-Corre ction - Op tion
	393	Execute fu nctionalit y “on-dema nd”
	394	The new PR CA STATEME NT AUTO-CO RRECTION s ecurity ke y will be provided t o limit ac cess to th e auto-cor rection op tion.
	395
	396	Auto-Corre ction - Ba ckground J ob
	397	Will be pa rameter-ba sed (set u p in the A R site par ameters fi le)
	398
	399	Scheduling (When sho uld the jo b run?)
	400	Initial di scussion – Once a we ek…on the weekend…at night
	401	Decision b y consensu s – TBD du ring site testing ba sed on how long the job runs
	402	Post Init – Immediat e auto-cor rection wa nted after the patch installat ion
	403	Layout - A uto-Correc tion Repor t
	404	Changes to the Auto correction report re quested by the workg roup:
	405	Displays o nly the la st 4 digit s of the S ocial Secu rity Numbe r (SSN)
	406	Sort by SS N was not needed
	407	Provide a date range to run th e report
	408
	409
	410	User can r un the rep ort from a n option
	411	User can e nter a dat e range wh ich is for the date of auto-co rrection
	412	The report will disp lay only t he last 4 digits on the SSN
	413	The Statem ent Discre pancy List ing will p rovide wha t was NOT auto-corre cted (exis ting repor t)
	414
	415
	416	Conceptual Design
	417	Conceptual Applicati on Design
	418	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.
	419	Applicatio n Context
	420	For Phase 1, the exi sting defi ciency res olution fl ow has bee n defined:
	421
	422
	423	Figure 31: Existing Deficiency Resolutio n Flow
	424	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.
	425	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 only entities directly i nvolved in statement preparati on, produc tion and d elivery ar e the stat ion or med ical cente r that pre pares the statement record, an d the Cons olidated C o-payment Processing Center (C CPC) to wh ich statem ent record s that are in balanc e are sent for print ing and ma iling.
	426
	427
	428
	429	Figure 32: AS-IS PSE Diagram 1
	430	Table 2: A pplication Context D escription
	431	ID
	432	Name
	433	Descriptio n
	434	Interface Name
	435	Interface System
	436	VistA A/R
	437	VistA Stat ion
	438	Sends pati ent statem ent record informati on to be p rinted and mailed.
	439	Statement
	440	MailMan
	441	CCPC
	442	Consolidat ed Co-paym ent Proces sing Cente r
	443	Prints and mails pat ient state ments to v eterans.
	444
	445
	446	Interfaces External to OI&T
	447	ID
	448	Name
	449	Related Ob ject
	450	Input Mess ages
	451	Output Mes sages
	452	External P arty
	453
	454
	455
	456
	457
	458
	459	Interfaces Internal to OI&T
	460	ID
	461	Name
	462	Related Ob ject
	463	Input Mess ages
	464	Output Mes sages
	465	External P arty
	466
	467
	468
	469
	470
	471
	472	Externally Shared Da ta Stores
	473	ID
	474	Name
	475	Data Store d
	476	Owner
	477	Access
	478
	479
	480
	481
	482
	483	High-Level Applicati on Design
	484	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.
	485	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.
	486	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.
	487	Objects / Components to be Bui lt or Modi fied
	488	Table 3: O bjects in the High L evel Appli cation Des ign
	489	ID
	490	Name
	491	Descriptio n
	492	Service or Legacy Co de
	493	External I nterface N ame
	494	External I nterface I D
	495	Internal I nterface N ame
	496	Internal I nterface I D
	497	SDP Sectio ns 1&2
	498
	499	Auto Corre ct Account Balance D iscrepancy
	500	Tasked job to correc t statemen t discrepa ncies if p ossible
	501
	502
	503
	504
	505
	506
	507
	508	Auto-Corre ct Patient Discrepan cy Report
	509	Details of statement record an d how it w as correct ed (or not )
	510
	511
	512
	513
	514
	515
	516	Internal D ata Stores
	517	ID
	518	Name
	519	Data Store d
	520	Steward
	521	Access
	522
	523
	524
	525
	526
	527	Applicatio n Location s
	528	Table 4: A pplication Locations
	529	Applicatio n Componen t
	530	Descriptio n
	531	Location a t Which Co mponent is Run
	532	Type
	533	Auto Corre ction Job
	534	Tasked job
	535	VA Station , CPAC
	536	Local and regional
	537	Auto Corre ction Repo rt
	538	Report
	539	VA Station , CPAC
	540	Local and regional
	541	Table 5: A pplication Users
	542	Applicatio n Componen t
	543	Location
	544	User
	545	Auto Corre ction Job
	546	VA Station , CPAC
	547	Facility R evenue Tec hnician
	548	Auto Corre ction Repo rt
	549	VA Station , CPAC
	550	Facility R evenue Tec hnician
	551	Conceptual Data Desi gn
	552	Project Co nceptual D ata Model
	553	Not applic able for P atient Sta tement Enh ancements (PSE) Disc repancies (Increment 1, Phase 1).
	554	Database I nformation
	555	Table 6: D atabase In ventory
	556	Database N ame
	557	Descriptio n
	558	Type
	559	Steward
	560	VistA
	561	Accounts R eceivable
	562	Modify
	563	VA Station , CPAC
	564	User Inter face Data Mapping
	565	Applicatio n Screen I nterface
	566	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-corr ection typ es provide d for this report ar e the inco mplete tra nsactions (“I”), dup licate tra nsactions (“D”), and null tran sactions ( “N”). Thes e correcti on types p rovided fo r a specif ic transac tion entry will be r ecorded in the new A UTO-CORREC TION TYPE OF ERROR ( #96) field that is b eing added to correc ted entrie s in the A R TRANSACT ION File ( #433).
	567	Figure 33 : Auto-C orrect Pat ient Discr epancy Rep ort
	568
	569	1 - SORTED BY BILL N O.
	570
	571	PAGE 1 BI LLS THAT H AVE BEEN A UTO-CORREC TED (SORTE D BY BILL #) OCT 20, 2016
	572	---------- ---------- ---------- ---------- ---------- ---------- ---------- --------
	573
	574	BILL NO. DEBTOR SSN TR ANS NUM A UTO-C DATE AUTO-C REASON
	575	---------- - ------- ---------- - ---- - -------- ---------- -- ------ --------
	576	442-K000FQ ACSCURE N,TSTZALO C 1627 4525262 APR 28,201 5 DUPLIC ATE TRAN
	577	442-K111AA ACSAER, TSTANT CHE E 0411 1 23456789 APR 28,201 5 NULL T RANSACTI
	578	442-K111BB ACSAER, TSTANT CHE E 0411 9 87654321 APR 28,201 5 NOT FI XABLE
	579	442-K111DD D ACSEK,T STCEL CHEU G 0092 8793333 MAY 5,201 5 INCOMP LETE FLA
	580
	581	2 -SORTED BY DEBTOR
	582
	583	PAGE 1 BI LLS THAT H AVE BEEN A UTO-CORREC TED (SORTE D BY DEBTO R) OCT 20, 2016
	584	---------- ---------- ---------- ---------- ---------- ---------- ---------- --------
	585
	586	DEBTOR BILL NO. SSN TR ANS NUM A UTO-C DATE AUTO-C REASON
	587	---------- -------- ---------- - ---- - -------- ---------- -- ------ --------AC SAER,TSTAN T CHEE 44 2-K111AA 0411 123 456789 AP R 28,2015 NULL TRA NSACTI
	588	ACSAER,TST ANT CHEE 442-K111BB 0411 9 87654321 APR 28,201 5 NOT FI XABLE
	589	ACSCUREN,T STZALO C 442-K000FQ 1627 4525262 APR 28,201 5 DUPLIC ATE TRAN
	590	ACSEK,TSTC EL CHEUG 442-K111DD D 0092 8793333 MAY 5,201 5 INCOMP LETE FLA
	591
	592
	593	3 - SORTED BY AUTO-C ORRECT DAT E
	594
	595	PAGE 1 BI LLS THAT H AVE BEEN A UTO-CORREC TED (SORTE D BY AUTO- C DT) OCT 20, 2016
	596	---------- ---------- ---------- ---------- ---------- ---------- ---------- --------
	597
	598	AUTO-C DAT E DEBTOR BILL N O. SSN TRANS NU M AUTO-C REASON
	599	---------- -- ------ ---------- -- ------ ----- --- - ------- -- ------ --------
	600	APR 28,201 5 ACSAER ,TSTANT CH EE 442-K1 11AA 041 1 1234567 89 NULL T RANSACTI
	601	APR 28,201 5 ACSAER ,TSTANT CH EE 442-K1 11BB 041 1 9876543 21 NOT FI XABLE
	602	APR 28,201 5 ACSCUR EN,TSTZALO C 442-K0 00FQ 162 7 45252 62 DUPLIC ATE TRAN
	603	MAY 5,201 5 ACSEK, TSTCEL CHE UG 442-K1 11DDD 009 2 87933 33 INCOMP LETE FLA
	604
	605
	606	4 -SORTED BY TRANSAC TION NUMBE R
	607
	608	PAGE 1 BI LLS THAT H AVE BEEN A UTO-CORREC TED (SORTE D BY TRANS NUM) OCT 20, 2016
	609	---------- ---------- ---------- ---------- ---------- ---------- ---------- --------
	610
	611	TRANS NUM DEBTOR BILL NO. SSN A UTO-C DATE AUTO-C REASON
	612	--------- --------- --------- --------- -- ---- ---------- -- ------ --------
	613	4525262 ACSCUREN, TSTZALO C 442-K000F Q 1627 APR 28,201 5 DUPLIC ATE TRAN
	614	8793333 ACSEK,TST CEL CHEUG 442-K111D DD 0092 MAY 5,201 5 INCOMP LETE FLA
	615	123456789 ACSAER,TS TANT CHEE 442-K111A A 0411 APR 28,201 5 NULL T RANSACTI
	616	987654321 ACSAER,TS TANT CHEE 442-K111B B 0411 APR 28,201 5 NOT FI XABLE
	617
	618	Applicatio n Report I nterface
	619	Table 7: D escription
	620	Report Col umn
	621	Data Sourc e
	622	BILL NO. ( #.01)
	623	ACCOUNTS R ECEIVABLE File (#430 )
	624	DEBTOR (#. 01)
	625	AR DEBTOR File (#340 )
	626	SSN (#110)
	627	AR DEBTOR File (#340 )
	628	TRANS NUM (#.01)
	629	AR TRANSAC TION File (#433)
	630	AUTO-C DAT E (#94)
	631	AR TRANSAC TION File (#433)
	632	AUTO-CORCT REASON (# 96)
	633	AR TRANSAC TION File (#433)
	634	Unmapped D ata Elemen t
	635	There is n o unmapped data.
	636	Conceptual Infrastru cture Desi gn
	637	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.
	638	System Cri ticality a nd High Av ailability
	639	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 arc hitecture/ Hardware/s ystem perf ormance/LA N impact/S ecurity an d do not i ntroduce a ny new ser vice/appli cation dep endencies for VistA or the cor responding AR packag e(s).
	640	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.
	641	Special Te chnology
	642	Table 8: Special Te chnology R equirement s
	643	Special Te chnology
	644	Descriptio n
	645	Notional L ocation
	646	TRM Status
	647
	648
	649
	650
	651	Technology Locations
	652	Table 9: T echnology Location D etails
	653	Technology Component
	654	Production 1
	655	Location
	656	Usage
	657	Workstatio ns
	658
	659
	660	Special Ha rdware
	661
	662
	663	Interface Processors
	664
	665
	666	Legacy Mai nframe
	667
	668
	669	Legacy App lication S erver
	670
	671
	672	Legacy Dat abases
	673	VAMC VistA
	674	VAMC, CPAC
	675	Other
	676
	677
	678
	679	Technology Component
	680	Production 2
	681	Location
	682	Usage
	683
	684
	685
	686
	687	Technology Component
	688	Certificat ion
	689	Location
	690	Usage
	691
	692
	693
	694
	695	Technology Component
	696	Education
	697	Location
	698	Usage
	699
	700
	701
	702
	703	Technology Component
	704	Test
	705	Location
	706	Usage
	707
	708
	709
	710
	711	Technology Component
	712	Developmen t
	713	Location
	714	Usage
	715
	716
	717
	718	Conceptual Infrastru cture Diag ram
	719	Location o f Environm ents and E xternal In terfaces
	720	Conceptual Productio n String D iagram
	721	System Arc hitecture
	722	Hardware A rchitectur e
	723	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.
	724	Software A rchitectur e
	725	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.
	726	Network Ar chitecture
	727	Patient S tatement E nhancement s (PSE) Di screpancie s (Increme nt 1, Phas e 1) will operate wi thin the e xisting ne twork arch itecture t hat suppor ts VistA i nstallatio ns for the VA.
	728	Service Or iented Arc hitecture / ESS
	729	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.
	730	Enterprise Architect ure
	731	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.
	732	Data Desi gn
	733	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.
	734	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.
	735	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.
	736	DBMS Files
	737	N/A
	738	Non-DBMS F iles
	739	N/A
	740	Data View
	741	N/A
	742	Detailed D esign
	743	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 .
	744	Hardware D etailed De sign
	745	N/A
	746	Software D etailed De sign
	747	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 .
	748	Conceptual Design
	749	The follow ing figure outlines the concep tual desig n for the auto-corre ct process .
	750	Figure 61 : Auto-C orrect Pro cess Flow
	751
	752
	753	Product Pe rspective
	754	N/A
	755	User Inter faces
	756	The intend ed users o f the Cons olidated P atient Sta tement sof tware are the AR sta ff located at the VA MCs and CP ACs, who a re respons ible for m anaging th e Patient Statement generation .
	757	Hardware I nterfaces
	758	This secti on is not applicable to Patien t Statemen t Enhancem ents (PSE) Discrepan cies (Incr ement 1, P hase 1).
	759	Software I nterfaces
	760	The Consol idated Pat ient State ment funct ionality w ill use th e VA Mailm an for dat a transfer .
	761	Communicat ions Inter faces
	762	Memory Con straints
	763	No limits on memory or partiti on size wi ll exist f or the Con solidated Patient St atement.
	764	Special Op erations
	765	No special operation s are requ ired by th e user or for extern al devices or COTS s ystems.
	766	Product Fe atures
	767	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 6.2 .2.2 for m ore detail on the pr oduct feat ures.
	768	User Chara cteristics
	769	The intend ed users o f the Cons olidated P atient Sta tement sof tware are the AR sta ff located at the VA MCs and CP ACs, who a re respons ible for m anaging th e Patient Statement generation .
	770	Dependenci es and Con straints
	771	Not all of the proce ssing cond itions whi ch result in a missi ng transac tion amoun ts, “incom plete” tra nsaction s tatuses or duplicate transacti ons have b een identi fied.
	772	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.
	773	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.
	774	Specific R equirement s
	775	Database R epository
	776	The follow ing table identifies all datab ases that will be mo dified as part of th is project .
	777	Table 10: Database I nventory
	778	Database N ame
	779	Descriptio n
	780	Type
	781	Steward
	782	AR Transac tion file #433
	783	Holds the Accounts R eceivable transactio ns.
	784	Modify
	785	Accounts R eceivable package
	786	System Fea tures
	787	This sub-s ection out lines the functional specifica tions for the Consol idated Pat ient State ment.
	788	Table 11: Functional Specifica tions
	789	ACJ001
	790	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:
	791	Transactio n amount m issing
	792	Duplicate transactio n
	793	Incomplete status
	794	ACJ002
	795	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
	796	ACJ003
	797	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.
	798	ACJ004
	799	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.
	800	ACJ005
	801	The Auto-C orrection job shall run after patch inst allation, so that au to-correct ion of dis crepancies begins im mediately.
	802	ACJ006
	803	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.
	804
	805	ACJ007
	806	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)
	807
	808	Note: This requireme nt may be modified a s work on the auto-c orrection continues.
	809
	810	ACJ008
	811
	812	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-balanc e by setti ng the INC OMPLETE ST ATUS FLAG field (#10 ) to a val ue of 1.
	813
	814	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.
	815
	816	Note: This requireme nt may be modified a s work on the auto-c orrection continues
	817
	818	ACJ009
	819
	820	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)
	821
	822	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 Pa tient Stat ement will remain ou t of balan ce after t he Auto-Co rrection a nd will be listed on the CCPC Statement Errors rep ort when i t is run.
	823
	824	Note: This requireme nt may be modified a s work on the auto-c orrection continues
	825	ACJ010
	826	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:
	827	Transactio n amount m issing
	828	Duplicate transactio n
	829	Incomplete status
	830	ACJ011
	831	The Auto-C orrection job shall send a mes sage to th e Mailman Mail Group PRCACPS w hen the jo b has comp leted.
	832	ACR001
	833	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:
	834	Transactio n amount m issing
	835	Duplicate transactio n
	836	Incomplete status
	837	ACR002
	838	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 .
	839	ACR003
	840	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 .
	841	ACR004
	842	The Auto-C orrection report sha ll display only the last 4 dig its of the Social Se curity Num ber (SSN).
	843	ACR005
	844	The AR app lication s hall promp t the user to enter a FROM and TO date f or the Aut o-Correcti on Report.
	845	ACR006
	846	The Auto-C orrection Report sha ll provide a default FROM date value of “T-7”.
	847	ACR007
	848	The Auto-C orrection Report sha ll provide a default TO date v alue of “T ”.
	849	ACR008
	850	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:
	851	Bill numbe r
	852	Debtor nam e
	853	Transactio n number
	854	Auto-Corre ction Date
	855	ACR009
	856	The Auto-C orrection report sha ll display the follo wing infor mation wit h correspo nding head ers:
	857	BILL NO.
	858	DEBTOR
	859	SSN
	860	TRANS NUM
	861	AUTO-CORCT DATE
	862	AUTO-CORCT REASON
	863	ACR010
	864	The Auto-C orrection report mai n header s hall read
	865	“BILLS THA T HAVE BEE N AUTO-COR RECTED”
	866	ACR011
	867	The Auto-C orrection report wil l have the following menu path :
	868
	869	Clerk’s AR Menu
	870	Accou nt Managem ent
	871	Auto- Correct Pa tient Disc repancy Re port
	872	ACR012
	873	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.
	874	US003
	875	As a VistA user, I w ant my Vis tA site to build and transmit patient bi lling stat ement file s that are sent to A ITC prior to the 26t h of each month so t hat when c onsolidate d patient statement functional ity is imp lemented t here is a window at the end of the prior month whe n all stat ement data has been processed for billin g.
	876	STATION # STATION NAME DATE
	877	---------- ---------- ---------- ----
	878	438 SIOUX FA LLS,SD 21
	879	501 ALBUQUER QUE,NM 21
	880	504 AMARILLO ,TX 21
	881	542 COATESVI LLE,PA 21
	882	562 ERIE,PA 21
	883	568 FORT MEA DE,SD 21
	884	649 PRESCOTT ,AZ 21
	885	656 ST. CLOU D,MN 21
	886	688 WASHINGT ON,DC 21
	887	756 EL PASO, TX 21
	888	565 FAYETTEV ILLE,NC 22
	889	621 MOUNTAIN HOME,TN 22
	890	658 SALEM,VA 22
	891	664 SAN DIEG O,CA 22
	892	671 SAN ANTO NIO,TX 22
	893	689 WEST HAV EN,CT 22
	894	740 TX VALLE Y CSTL,TX 22
	895
	896	Design Ele ment Table s
	897
	898	Routines ( Entry Poin ts)
	899	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:
	900	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.
	901	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) .
	902	The fields of intere st within the transa ction reco rd are:
	903	INCOMPLETE TRANSACTI ON FLAG (# 10)
	904	TRANSACTIO N DATE (#1 1)
	905	TRANS. AMO UNT (#15)
	906	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 wil l be filed under the PRCAGTPS label. The y will the n be filed in an ord ered array by:
	907	Number of the job th at is crea ting the r eport ($J)
	908	AR DEBTOR File (#340 ) Internal Entry Num ber (IEN)
	909	Bill Numbe r – IEN fo r ACCOUNTS RECEIVABL E File (#4 30)
	910	Transactio n Number – From the AR TRANSAC TION file (#433) ent ry for thi s bill #.
	911	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:
	912	AUTO-CORRE CTION DATE (#94)
	913	AUTO-CORRE CTION TRAN S. AMOUNT (#95)
	914	AUTO-CORRE CTION TYPE OF ERROR (#96)
	915	Table 12: Routine : PRCACPS
	916	Routines
	917	Activities
	918	Routine Na me
	919	PRCACPS
	920	Enhancemen t Category
	921	New
	922	Modify
	923	Delete
	924	No Change
	925	RTM
	926	ACJ001-ACJ 013
	927	Related Op tions
	928	Patient St atement Au to-Correct ion Progra m
	929
	930	Related Ro utines
	931	Routines “ Called By”
	932	Routines “ Called”
	933
	934
	935	$$LST^RCFN 01
	936	$$CRC32^XL FCRC
	937	EN1^DIP
	938	^DIR
	939	$$FMTE^XLF DT
	940	$$UPPER^VA LM1
	941	%ZTLOAD
	942	%ZIS
	943
	944	Routines
	945	Activities
	946	Data Dicti onary (DD) Reference s
	947	ACCOUNTS R ECEIVABLE File (#430 )
	948	AR TRANSAC TION File (#433)
	949	AR DEBTOR File (#340 )
	950	Related Pr otocols
	951	N/A
	952	Related In tegration Control Re gistration s (ICRs)
	953	N/A
	954	Data Passi ng
	955	Input
	956	Output Re ference
	957	Both
	958	Global Re ference
	959	Local
	960	Input Attr ibute Name and Defin ition
	961	Name: N/A
	962	Definition :
	963	Output Att ribute Nam e and Defi nition
	964	Name: N/A
	965	Definition :
	966
	967	Current Lo gic
	968	NA
	969
	970	Modified L ogic (Chan ges are in bold)
	971	PRCACPS ; ALBANY/BDB -PATIENT S TATEMENTS AUTO-CORRE CTION ;09/ 21/15 3:34 PM
	972	; ;4.5;Accou nts Receiv able;307 ;Mar 20, 1995;Buil d 79
	973	; ;Per VA Di rective 64 02, this r outine sho uld not be modified.
	974	;
	975	Q
	976	;
	977	BEGIN ; Entry poi nt for man ual run
	978	; Determine if Auto C orrect pro cess is cu rrently ru nning
	979	N DIR,PRCAS TRT,QUIT,X ,X1,X2,Y
	980	S PRCASTRT= $G(^XTMP(" PRCACPS",0 )),QUIT=0
	981	; Notify us er if Auto Correct p rocess is currently running
	982	I PRCASTRT' ="" D Q:Q UIT
	983	. S Y=$P(PRC ASTRT,U,2)
	984	. D DD^%DT
	985	. S PRCASTRT =Y
	986	. W !!,"The Patient St atement Au to-Correct ion Progra m was prev iously sta rted on"
	987	. W !,PRCAST RT," and h as not yet successfu lly comple ted."
	988	. W !!,"The job can ta ke up to 1 hour to c omplete wh en schedul ed to run outside"
	989	. W !,"of no rmal busin ess hours and longer if run du ring norma l business hours"
	990	. W !,"when the load o n the syst em is grea ter."
	991	. W !!
	992	. W !,"If it has been more than an hour si nce the Pa tient Stat ement Auto -Correctio n"
	993	. W !,"Progr am was sta rted and t he confirm ation e-ma il with su bject: CPS "
	994	. W !,"AUTO- CORRECTION COMPLETE has not be en sent to the PRCAC PS mail gr oup, you c an"
	995	. W !,"run t he Patient Statement Auto-Corr ection Pro gram again ."
	996	. W !
	997	. S DIR("A") ="Do you w ant to run the Patie nt Stateme nt Auto-Co rrection P rogram aga in"
	998	. S DIR(0)=" Y",DIR("B" )="NO"
	999	. D ^DIR
	1000	. W !
	1001	. ; Quit if ^, ^^, Tim eout or No
	1002	. I $D(DTOUT )!($D(DUOU T))!($D(DI ROUT))!(Y= 0) S QUIT= 1
	1003	. K DTOUT,DU OUT,DIROUT
	1004	. Q
	1005	;
	1006	N ZTDTH,ZTI O,ZTDESC,Z TRTN,ZTSK
	1007	W !,"Queue the patien t statemen t discrepa ncies auto -correctio n program to run:"
	1008	S ZTDESC="A uto-Correc t Patient Statement Discrepanc ies"
	1009	S ZTRTN="ST ART^PRCACP S",ZTIO=""
	1010	D ^%ZTLOAD
	1011	Q
	1012	;
	1013	START ; Entry poi nt for Sch eduled bac kground jo b
	1014	N DEBTOR,DE BTOR0,DEBT OR1,PRCAST RT,REFREV, X,Y
	1015	S PRCASTRT= $G(^XTMP(" PRCACPS",0 ))
	1016	; If a prev ious job s till runni ng send e- mail warni ng to PRCA CPS mail g roup
	1017	I PRCASTRT' ="" D
	1018	. S Y=$P(PRC ASTRT,U,2)
	1019	. ; Convert date to ex ternal for mat
	1020	. D DD^%DT
	1021	. S PRCASTRT =Y
	1022	. ; Send mai l to PRCAC PS mail gr oup noting previous run didn't complete
	1023	. D PRCAMAIL (PRCASTRT)
	1024	. Q
	1025	; Get curre nt date/ti me
	1026	D NOW^%DTC
	1027	S (PRCASTRT ,X1)=%,X2= 8
	1028	D C^%DTC
	1029	S ^XTMP("PR CACPS",0)= X_U_PRCAST RT_U_"Pati ent Statem ent Auto-C orrection Program"
	1030	; Loop thro ugh C x-re f in 430. This field points to the Debto r File, wh ich in tur n is a
	1031	; variable pointer to other fil es.
	1032	S DEBTOR=0
	1033	F S DEBTOR =$O(^PRCA( 430,"C",DE BTOR)) Q:D EBTOR'?1N. N D
	1034	. ; Perform the same i n/out of b alance che ck as the CHECK PATI ENT ACCOUN T BALANCE option
	1035	. ; Quit to next debto r if accou nt is in b alance
	1036	. I '$$EN^PR CAMRKC(DEB TOR) Q
	1037	. S BALDIFF= 0
	1038	. S DEBTOR0= $G(^RCD(34 0,DEBTOR,0 )),DEBTOR1 =$G(^(1))
	1039	. ; QUIT if it doesn't point to the PATIEN T (^DPT) f ile
	1040	. Q:$P(DEBTO R0,"^")'[" DPT("
	1041	. Q:$P(DEBTO R1,"^",9)= 1 ; quit if debtor address ma rked unkno wn
	1042	. ; Skip thi s Debtor i s they at least 1 Bi ll in #430 with a st atus of RE FUND REVIE W (#44)
	1043	. Q:$$REFREV (DEBTOR)
	1044	. ; Get prev ious balan ce and dat e of last transactio n from the AR EVENT file (#341 )
	1045	. D ENTER(DE BTOR)
	1046	. ; Perform checks/upd ates based on File # 430
	1047	. D START1
	1048	. ; QUIT if in balance
	1049	. ; *** Remo ved so all out of ba lance acco unts to en ter START2
	1050	. ;I BALDIFF =0 K BALDI FF,^TMP("P RCAGTPS",$ J),^TMP("P RCABILL",$ J) Q
	1051	. ; Review D ata in ^TM P and upda te #433 as needed
	1052	. D START2
	1053	. ; If the a ccount is still out of balance after fix ing everyt hing it ca n
	1054	. ; call UPD TLTR to ma rk the las t transact ion for th e account as NOT FIX ABLE
	1055	. I $$EN^PRC AMRKC(DEBT OR) D UPDT LTR^PRCACP SA(0)
	1056	. ; clean up temp info and proce ss next de btor
	1057	. K BALDIFF, ^TMP("PRCA GTPS",$J), ^TMP("PRCA BILL",$J)
	1058	; Send mail man messag e to the P RCACPS mai l group at end of pr ocessing
	1059	D USRMSG
	1060	Q
	1061	;
	1062	REFREV(DEB TOR) ;
	1063	; Check if any Bill f or this De btor has a status of REFUND RE VIEW (#44)
	1064	N BN,QUIT
	1065	S BN="",QUI T=0
	1066	F S BN=$O( ^PRCA(430, "C",DEBTOR ,BN)) Q:'B N D Q:QU IT
	1067	. ; Check CU RRENT STAT US (#8) fo r status o f REFUND R EVIEW (#44 )
	1068	. I $P($G(^P RCA(430,BN ,0)),U,8)= 44 S QUIT= 1
	1069	Q QUIT
	1070	;
	1071	ENTER(DEBT OR) ;
	1072	S (PBAL,BBA L,TBAL)=0 K ^TMP("PR CAGTPS",$J )
	1073	; Get last type of ev ent for de btor by ca lling $$LS T^RCFN01. References files #34 0 and #341 .1
	1074	S DAT=$$LST ^RCFN01(DE BTOR,2) I DAT<1 S DA T=0
	1075	; PBAL^PRCA GU gets pr evious bal ance and d ate of las t transact ion from t he AR EVEN T file (#3 41)
	1076	I DAT S DAT =9999999.9 99999-DAT D PBAL^PRC AGU(DEBTOR ,.DAT,.PBA L)
	1077	D EN(DEBTOR ,DAT)
	1078	K BBAL,TBAL ,DAT
	1079	Q
	1080	;
	1081	EN(DEBTOR, BEG,END,TT Y) ;
	1082	N EW Y
	1083	; If Beginn ing date i s not defi ned, set i t to 0 to start at b eginning
	1084	; If End da te is not defined, s et it to t oday's dat e
	1085	S :$G(BEG)=" " BEG=0 I $G(END)="" D NOW^%DT C S END=% K %
	1086	S TTY=$G(TT Y) I TTY=" " D F430
	1087	D F433
	1088	Q Q
	1089	F430 ; Checks fo r ACCOUNTS RECEIVABL E file (#4 30) for bi lls with ( #3) ORIGIN AL AMOUNT has a valu e,
	1090	; set this into the ^ TMP global with _"^0 "
	1091	N EW DAT,BN
	1092	S DAT=BEG F S DAT=$O (^PRCA(430 ,"ATD",DEB TOR,DAT)) Q:('DAT)!( DAT>END) S BN=0 F S BN=$O(^P RCA(430,"A TD",DEBTOR ,DAT,BN)) Q:
	1093	'BN D
	1094	. ; Add the original a mount if i t is withi n date ran ge based o n the date of the la st stateme nt
	1095	. I $P(^PRCA (430,BN,0) ,U,3) S ^T MP("PRCAGT PS",$J,DEB TOR,BN,0)= $P(^PRCA(4 30,BN,0)," ^",3)_"^0"
	1096	Q
	1097	F433 ;
	1098	N EW DAT,TN
	1099	; Loop thro ugh the Da tes and Bi lls
	1100	F DAT=BEG:0 S DAT=$O( ^PRCA(433, "ATD",DEBT OR,DAT)) Q :('DAT)!(D AT>END) F TN=0:0 S TN=$O(^PRC A(433,"ATD ",DEBTOR,D AT,TN)) Q: 'T
	1101	N D
	1102	. S TCMPLT=" ",TMBSNC=" ",TRDMRD=" ",COMM=0
	1103	. S TN0=$G(^ PRCA(433,T N,0)) Q:TN 0=""
	1104	. S TN1=$G(^ PRCA(433,T N,1))
	1105	. S TN3=$G(^ PRCA(433,T N,3))
	1106	. I $P(TN1,U ,2)="" Q ;MISSING T RANS TYPE
	1107	. I $P(TN0,U ,10)=1 S T CMPLT=1
	1108	. I $P(TN1,U ,2)=45 S C OMM=1 G F4 33A
	1109	. I $G(TTY)' ="" Q:TTY' =$P(TN1,U, 2)
	1110	. ; Quit if Transactio n Type is blank or o ne of the following:
	1111	. ; 3:REFER TO RC, 4:R EFER TO DO J, 5:REEST ABLISH TO RC/DOJ, 6: RETURNED B Y RC/DOJ
	1112	. ; 7:CASH C OLLECTION BY RC/DOJ, 24:MARSHA L/COURT CO ST, 25:REP AYMENT PLA N, 30:DEBI T VOUCHER (SF 5515)
	1113	. I TTY=""," ,3,4,5,6,7 ,24,25,30, "[(","_$P( TN1,U,2)_" ,") Q
	1114	. ; QUIT if BILL NUMBE R (#.03)= blank OR T RANSACTION STATUS (# 4) '= COMP LETE
	1115	. I ($P(TN0, U,2)="")!( $P(TN0,U,4 )'=2) Q
	1116	. ; IF PRCAH IST="THIST " AND TRAN SACTION TY PE (#12) = COMMENT ( #45) call F433A to S et the dat a into ^TM P("PRCAGTP S",$J,DEBT OR
	1117	. I $G(PRCAH IST)="THIS T",$P(TN1, U,2)=45 G F433A
	1118	. ; IF TRANS ACTION TYP E (#12) '= to 46 UN SUSPENDED AND TRANSA CTION TYPE (#12)'= t o 47 CHAR GE SUSPEND ED
	1119	. I $P(TN1," ^",2)'=46, $P(TN1,"^" ,2)'=47 D I TN1="" Q
	1120	. .N RCTRAND A,RCSTOP,T RANTYPE
	1121	. .S RCSTOP= 0
	1122	. .; Loop BA CKWARDS th rough the BILL NUMBE R "C" x-re f
	1123	. .S RCTRAND A=TN
	1124	. .F S RCTR ANDA=$O(^P RCA(433,"C ",+$P(TN0, "^",2),RCT RANDA),-1) Q:'RCTRAN DA D I R CSTOP Q
	1125	. ..; QUIT i f TRANSACT ION STATUS (#4) '= C OMPLETE
	1126	. ..I $P($G( ^PRCA(433, RCTRANDA,0 )),"^",4)' =2 Q
	1127	. ..; Load T ransaction Type
	1128	. ..S TRANTY PE=$P($G(^ PRCA(433,R CTRANDA,1) ),"^",2)
	1129	. ..; IF TRA NSACTION T YPE (#12) = 46 UNSUS PENDED set stop & Qu it
	1130	. ..I TRANTY PE=46 S RC STOP=1 Q
	1131	. ..; IF TRA NSACTION T YPE (#12) = 47 CHARG E SUSPENDE D set stop & Quit
	1132	. ..I TRANTY PE=47 S RC STOP=1,TN1 ="" Q
	1133	F433A .
	1134	. ; The data in the ^T MP is as f ollows:
	1135	. ; Data =
	1136	. ; 1. TRANS . AMOUNT ( #15) $P( TN1,U,5)
	1137	. ; 2. TRANS ACTION TYP E (#12) $P( TN1,U,2)
	1138	. ; 3. PRIN. COLLECTED (#31) $P( TN3,U,1)
	1139	. ; 4. INTER EST COLLEC TED (#32) $P( TN3,U,2)
	1140	. ; 5. ADMIN .COLLECTED (#33) $P( TN3,U,3)
	1141	. ; 6. MARSH AL FEE COL LECTED (#3 4) $P( TN3,U,4)
	1142	. ; 7. COURT COST COLL ECTED (#35 ) $P( TN3,U,5)
	1143	. ; 8. TOTAL OF #3 - # 7 $P( TN3,U,1)+$ P(TN3,U,2) +$P(TN3,U, 3)+$P(TN3, U,4)+$P(TN 3,U,5)
	1144	. ; 9. TCMPL T (#1 0) INCOMPL ETE TRANSA CTION FLAG
	1145	. ;10. TRDMR D - Doesn' t appear t o be used
	1146	. ;11. TMBSN C - Doesn' t appear t o be used
	1147	. ;12. Dupli cate flag for use in START2 1= duplicate, 0=not a d uplicate. Set in BIL LQUIT^PRCA CPSA
	1148	. ;
	1149	. N PRCATEMP
	1150	. S PRCATEMP =$P(TN1,U, 5)_U_$P(TN 1,U,2)_U_$ P(TN3,U,1) _U_$P(TN3, U,2)_U_$P( TN3,U,3)_U _$P(TN3,U, 4)_U_$P(TN 3,U,5)
	1151	. S PRCATEMP =PRCATEMP_ U_($P(TN3, U,1)+$P(TN 3,U,2)+$P( TN3,U,3)+$ P(TN3,U,4) +$P(TN3,U, 5))
	1152	. S PRCATEMP =PRCATEMP_ U_TCMPLT
	1153	. S PRCATEMP =PRCATEMP_ U_TRDMRD
	1154	. S PRCATEMP =PRCATEMP_ U_TMBSNC
	1155	. S ^TMP("PR CAGTPS",$J ,DEBTOR,$P (TN0,U,2), TN)=PRCATE MP
	1156	. K TN0,TN1, TN3,TCMPLT ,TRDMRD,TM BSNC,COMM
	1157	K PRCAHIST
	1158	Q
	1159	;
	1160	START1 ;
	1161	;
	1162	S BILL=""
	1163	S CBALTOT=0 ; Will be the total of all CU RRENT BALA NCE field (#11) for the accoun t
	1164	; ACCOUNTS RECEIVABLE (#430) Th e C cross- reference allows use r look-up of bills b elonging t o a specif ic debtor.
	1165	; Loop thro ugh bills
	1166	; ^TMP("PRC ABILL",$J, DEBTOR,BIL L)= Sum of CURRENT B ALANCE fie ld (#11) f or the Bil l
	1167	; ^Sum of TRANS. AM OUNT (#15) for all t ransaction s for the Bill
	1168	; ^Stop F lag if the Bill has more than one error
	1169	K ^TMP("PRC ABILL",$J)
	1170	F S BILL=$ O(^PRCA(43 0,"C",DEBT OR,BILL)) Q:BILL'?1N .N D
	1171	. ; BILLTOT is the CUR RENT BALAN CE field ( #11) for e ach Bill f or the Deb tor
	1172	. N BILLTOT
	1173	. S BN0=$G(^ PRCA(430,B ILL,0))
	1174	. ; QUIT: CU RRENT STAT US (#8) '= ACTIVE
	1175	. ; I $P(BN0 ,U,8)'=16 Q based o n call on 11/28/16 p rocess all bill with a status other than Refund Re view
	1176	. ; Skip all Debtors w ith 1 or m ore Bills with a sta tus of REF EUND REVIE W (#44). This check is done i n
	1177	. ; REFREV a bove.
	1178	. ; Sum up C URRENT BAL ANCE (#11) for each ACTIVE Bil l
	1179	. ; Set in C BALTOT for BALDIFF a nd in PRCA BILL for B ILLDIFF in Start2
	1180	. ; S CBALTO T=CBALTOT+ $$GET1^DIQ (430,BILL, 11)
	1181	. S BILLTOT= $$GET1^DIQ (430,BILL, 11) ; Get CURRENT BA LANCE (#11 ) which is computed: #71+#72+# 73+#74+#75
	1182	. S ^TMP("PR CABILL",$J ,DEBTOR,BI LL)=+BILLT OT
	1183	. S CBALTOT= CBALTOT+BI LLTOT
	1184	N BILL,I,TN ,TRANSTOT, TNVAL,TTYP E,TNTOT
	1185	S TN="",(BI LL,TRANSTO T,TTYPE,TN VAL)=0
	1186	; Loop thro ugh Bills
	1187	F S BILL=$ O(^TMP("PR CAGTPS",$J ,DEBTOR,BI LL)) Q:BIL L="" D
	1188	. ; Call BIL LQUIT to d etermine i f this bil l has mult iple issue s
	1189	. I $$BILLQU IT^PRCACPS A(DEBTOR,B ILL) Q
	1190	. ; Initiali ze TNTOT f or Transac tion Total for this bill
	1191	. I $G(TNTOT (BILL))="" S TNTOT(B ILL)=0
	1192	. ; Loop thr ough Trans actions
	1193	. S TN=0 F S TN=$O(^T MP("PRCAGT PS",$J,DEB TOR,BILL,T N)) Q:TN=" " D
	1194	. .; IF Tran saction # = 0 Add TR ANS. AMOUN T (#15) to the Trans action Tot al
	1195	. .; I TN=0 S TRANSTOT =TRANSTOT+ ^TMP("PRCA GTPS",$J,D EBTOR,BILL ,TN) Q
	1196	. .; S TNVAL = (#15) T RANS. AMOU NT from #4 33
	1197	. .S TNVAL=+ ^TMP("PRCA GTPS",$J,D EBTOR,BILL ,TN)
	1198	. .; S TTYPE = (#12) T RANSACTION TYPE from #433
	1199	. .S TTYPE=+ $P(^TMP("P RCAGTPS",$ J,DEBTOR,B ILL,TN),U, 2)
	1200	. .; IF INCO MPLETE TRA NSACTION F LAG is set , set Tran saction am ount = 0
	1201	. .S TCMPLT= +$P(^TMP(" PRCAGTPS", $J,DEBTOR, BILL,TN),U ,9)
	1202	. .I TCMPLT S TNVAL=0
	1203	. .S TMBSNC= $P(^TMP("P RCAGTPS",$ J,DEBTOR,B ILL,TN),U, 11)
	1204	. .I TMBSNC S TNVAL=0
	1205	. .; Set TNV AL =0 if o ne of the following Transactio n Types:
	1206	. .; 3:REFER TO RC, 4: REFER TO D OJ, 5:REES TABLISH TO RC/DOJ, 6 :RETURNED BY RC/DOJ
	1207	. .; 25:REPA YMENT PLAN , 32:RETUR NED FOR AM ENDMENT, 3 3:AMENDED BILL
	1208	. .I (TTYPE= 3)!(TTYPE= 4)!(TTYPE= 5)!(TTYPE= 6)!(TTYPE= 32)!(TTYPE =25)!(TTYP E=33) S TN VAL=0
	1209	. .; Set TNV AL to nega tive value if one of the Trans action Typ es:
	1210	. .; 2:PAYME NT (IN PAR T), 8:TERM .BY FIS.OF FICER, 9:T ERM.BY COM PROMISE, 1 0:WAIVED I N FULL
	1211	. .; 11:WAIV ED IN PART , 14:EXEMP T INT/ADM. COST, 29: TERM.BY RC /DOJ, 34:P AYMENT (IN FULL)
	1212	. .; 35:DECR EASE ADJUS TMENT, 41: REFUNDED, 47:CHARGE SUSPENDED
	1213	. .I TTYPE=2 !(TTYPE=8) !(TTYPE=9) !(TTYPE=10 )!(TTYPE=1 1)!(TTYPE= 14)!(TTYPE =29)!(TTYP E=34)!(TTY PE=35)!(TT YPE=41)!(T TYPE=47) S T
	1214	NVAL=-TNVA L
	1215	. .; Update Transactio n Total
	1216	. .S TRANSTO T=TRANSTOT +TNVAL
	1217	. .; Update Transactio n Total fo r this Bil l
	1218	. .S TNTOT(B ILL)=TNTOT (BILL)+TNV AL
	1219	. ; Update P RCABILL wi th Transac tion Total for this Bill
	1220	. S $P(^TMP( "PRCABILL" ,$J,DEBTOR ,BILL),U,2 )=TNTOT(BI LL)
	1221	; Set Balan ce Differe nce = Sum up CURRENT BALANCE ( #8) for ea ch ACTIVE Bill - Tra nsaction T otal for a ll bills - PBAL from A
	1222	R EVENT fi le (#341)
	1223	S BALDIFF=C BALTOT-TRA NSTOT-PBAL
	1224	K CBALTOT,T RANSTOT,PB AL,TCMPLT, BILL,BN0
	1225	Q
	1226	;
	1227	START2 ;
	1228	N I,ATNLAST ,BILL,BILL CNT,BILLCN TR,BILLNUM ,FLAGGED,T N,TN9,TRAN STOT,TNVAL ,TTYPE,TCP LT,STOP,TR ANCRNT,TRA NPREV,TNLA ST
	1229	S (BILL,BIL LCNTR,FLAG GED)=0,ATN LAST=""
	1230	; ATNLAST = The last number for the accou nt
	1231	; FLAGGED = Account l evel flag noting if audit data was marke d for this account
	1232	; PRCAFIX(X ) = Holds the total of the num ber of tra nsactions for a bill that matc h to check criteria X
	1233	; Determine the numbe r of bill for this a ccount
	1234	S (BILLCNT, BILLCNTR)= 0,BILLNUM= ""
	1235	; Determine the numbe r of bills for this account
	1236	F S BILLNU M=$O(^TMP( "PRCAGTPS" ,$J,DEBTOR ,BILLNUM)) Q:'BILLNU M S BILLC NT=BILLCNT +1
	1237	; Loop thro ugh Bills
	1238	F S BILL=$ O(^TMP("PR CAGTPS",$J ,DEBTOR,BI LL)) Q:BIL L="" D
	1239	. S BILLCNTR =BILLCNTR+ 1
	1240	. ; QUIT if STOP flag is set for this Bill
	1241	. I $P($G(^T MP("PRCABI LL",$J,DEB TOR,BILL)) ,U,3)=1 S FLAGGED=FL AGGED+1 Q
	1242	. ; New and set Bill B alance Dif ference
	1243	. N BILLDIFF
	1244	. ; *** Th e followin g 2 formul as will ne ed to be r e-evaluate d once the VA suppli es us the necessary details ***
	1245	. ; If the O riginal Bi ll Amount is not nul l use this formula
	1246	. I +$G(^TMP ("PRCAGTPS ",$J,DEBTO R,BILL,0)) D
	1247	. .S BILLDIF F=$P($G(^T MP("PRCAGT PS",$J,DEB TOR,BILL,0 )),U,1)-$P ($G(^TMP(" PRCABILL", $J,DEBTOR, BILL)),U,1 )+$P($G(^T MP("PRCABI LL
	1248	",$J,DEBTO R,BILL)),U ,2)
	1249	. ; If the O riginal Am ount is nu ll use thi s formula
	1250	. I '+$G(^TM P("PRCAGTP S",$J,DEBT OR,BILL,0) ) D
	1251	. .S BILLDIF F=$P($G(^T MP("PRCABI LL",$J,DEB TOR,BILL)) ,U,1)-$P($ G(^TMP("PR CABILL",$J ,DEBTOR,BI LL)),U,2)
	1252	. ; Quit if Bill Balan ce Differe nce is zer o
	1253	. I 'BILLDIF F Q
	1254	. ; PRCAFIX( X) = Holds the total of the nu mber of tr ansactions for a bil l that mat ch to chec k criteria X
	1255	. ; PRCATTTF = Total T ransaction Types to Fix
	1256	. N PRCATTTF ,PRCAFIX
	1257	. S (PRCATTT F,TRANSTOT ,TTYPE,TNV AL)=0
	1258	. S (TN,TNLA ST)=""
	1259	. ; Initiali ze type of fix count s
	1260	. F I=1:1:4 S PRCAFIX( I)=""
	1261	. ;
	1262	. F S TN=$O (^TMP("PRC AGTPS",$J, DEBTOR,BIL L,TN)) Q:T N="" D
	1263	. .; Save fi rst transa ction numb er
	1264	. .S (ATNLAS T,TNLAST)= TN
	1265	. .; IF Tran saction nu mber = 0 u pdate Tran saction To tal with ( #15) TRANS . AMOUNT f rom #433
	1266	. .I TN=0 S TRANSTOT=T RANSTOT+^T MP("PRCAGT PS",$J,DEB TOR,BILL,T N) Q
	1267	. .; Set TNV AL = (#15) TRANS. AM OUNT from #433
	1268	. .S TNVAL=$ P(^TMP("PR CAGTPS",$J ,DEBTOR,BI LL,TN),U,1 )
	1269	. .; Set TTY PE = (#12) TRANSACTI ON TYPE fr om #433
	1270	. .S TTYPE=+ $P(^TMP("P RCAGTPS",$ J,DEBTOR,B ILL,TN),U, 2)
	1271	. .; Set TCP LT = (#10) INCOMPLET E TRANSACT ION FLAG
	1272	. .S TCPLT=+ $P($G(^PRC A(433,TN,0 )),U,10)
	1273	. .; I think this will always be blank
	1274	. .S TRDMRD= $P(^TMP("P RCAGTPS",$ J,DEBTOR,B ILL,TN),U, 10)
	1275	. .; I think this will always be blank
	1276	. .S TMBSNC= $P(^TMP("P RCAGTPS",$ J,DEBTOR,B ILL,TN),U, 11)
	1277	. .; Quit it this tran saction wa s previous ly used to correct a n out of b alance sce nario
	1278	. .S TN9=$G( ^PRCA(433, TN,9))
	1279	. .Q:$P(TN9, U,4)'=""
	1280	. .;
	1281	. .; *** The Null tran saction ch eck will b e implemen ted in PRC A4.5313 ***
	1282	. .; Check # 1 - Transa ction with missing $ amount & Transactio n Type '= Comment (# 45)
	1283	. .;I TNVAL= "",(TTYPE' =45) D Q
	1284	. .;.S PRCAF IX(1)=$G(P RCAFIX(1)) +1,IENCRRT =TN
	1285	. .;.S PRCAF IX(1,TN)=" "
	1286	. .;
	1287	. .; Check # 2 - Transa ction mark ed as Inco mplete wit h +$ amoun t matching off by am ount
	1288	. .I TNVAL=B ILLDIFF I TCPLT D Q
	1289	. ..Q:(TTYPE =45)
	1290	. ..I TRDMRD Q
	1291	. ..S PRCAFI X(2)=$G(PR CAFIX(2))+ 1,IENCRRT= TN
	1292	. ..S PRCAFI X(2,TN)=""
	1293	. .;
	1294	. .; Check # 3 - Transa ction mark ed as Inco mplete wit h -$ amoun t matching off by am ount
	1295	. .I -TNVAL= BILLDIFF I TCPLT D Q
	1296	. ..Q:(TTYPE =45)
	1297	. ..S PRCAFI X(3)=$G(PR CAFIX(3))+ 1,IENCRRT= TN
	1298	. ..S PRCAFI X(3,TN)=""
	1299	. .;
	1300	. .; Check # 4 - Duplic ate Transa ction
	1301	. .I TTYPE'= 45,($P(^TM P("PRCAGTP S",$J,DEBT OR,BILL,TN ),U,12)=1) D
	1302	. ..S PRCAFI X(4)=$G(PR CAFIX(4))+ 1,IENCRRT= TN
	1303	. ..S PRCAFI X(4,TN)=""
	1304	. ;
	1305	. ; Quit if there were no transa ctions for this bill
	1306	. I $G(IENCR RT)=""!($G (TNLAST)=" ") Q
	1307	. ; If we ar e on the l ast Bill a nd there w ere no tra nsactions for the en tire accou nt Quit
	1308	. I BILLCNTR =BILLCNT,A TNLAST="" Q
	1309	. ;
	1310	. F I=1:1:4 D
	1311	. .S PRCATTT F=PRCATTTF +PRCAFIX(I )
	1312	. ; if you g et to here the bill was out of balance a nd if it s hows nothi ng to fix, set last transactio n
	1313	. ; for this Bill to N OT FIXABLE
	1314	. I PRCATTTF =0 D UPDTL TR^PRCACPS A($G(TNLAS T)) S FLAG GED=1 Q
	1315	. ; Update t his bill
	1316	. D FIXBILL( .FLAGGED)
	1317	Q :FLAGGED
	1318	; The accou nt was out of balanc e but noth ing was fo und on any bill that could be fixed.
	1319	; Mark the last trans action for the last bill for t his accoun t as not f ixable.
	1320	I 'FLAGGED D UPDTLTR^ PRCACPSA($ G(ATNLAST) )
	1321	Q
	1322	;
	1323	FIXBILL(FL AGGED) ;Up date a sin gle bill u sing PRCAF IX array
	1324	; Make upda te determi nation bas ed on chec ks 1 - 4.
	1325	; Sum up ch eck totals
	1326	; F I=1:1:4 D
	1327	; .S PRCATTT F=PRCATTTF +PRCAFIX(I )
	1328	; Get curre nt date/ti me
	1329	N PRCADATE
	1330	D NOW^%DTC
	1331	S PRCADATE= X
	1332	; Otherwise there is only 1 bad transacti on so upda te as need ed
	1333	; Lock Reco rd
	1334	L +^PRCA(43 3,IENCRRT, 9):DILOCKT M
	1335	; If lock n ot obtaine d, update number of transactio ns that co uldn't be fixed
	1336	Q :'$T
	1337	; Set FDA a rray for t he necessa ry fields based on t he type of fix ident ified
	1338	N PRCAFDA
	1339	; *** The N ull transa ction chec k will be implemente d in PRCA* 4.5313 * *
	1340	; Check #1 - Transact ion with m issing $ a mount
	1341	; I PRCAFIX( 1) D
	1342	; .S PRCAFDA (433,IENCR RT_",",15) =$S(BILLDI FF>0:BILLD IFF,1:-BIL LDIFF)
	1343	; .S PRCAFDA (433,IENCR RT_",",94) =PRCADATE
	1344	; .S PRCAFDA (433,IENCR RT_",",95) =$S(BILLDI FF>0:BILLD IFF,1:-BIL LDIFF)
	1345	; .S PRCAFDA (433,IENCR RT_",",96) ="N" ; NUL L TRANSACT ION AMOUNT
	1346	; Check #2 - Transact ion marked as Incomp lete with +$ amount matching o ff by amou nt
	1347	; Check #3 - Transact ion marked as Incomp lete with -$ amount matching o ff by amou nt
	1348	I PRCAFIX(2 )!(PRCAFIX (3)) D
	1349	. S PRCAFDA( 433,IENCRR T_",",10)= ""
	1350	. S PRCAFDA( 433,IENCRR T_",",94)= PRCADATE
	1351	. S PRCAFDA( 433,IENCRR T_",",96)= "I" ; INCO MPLETE FLA G ERROR
	1352	; Check #4 - Duplicat e Transact ion
	1353	I PRCAFIX(4 ) D
	1354	. ; Null out audit fie lds on ori ginal tran saction
	1355	. S PRCAFDA( 433,IENCRR T-1_",",94 )=""
	1356	. S PRCAFDA( 433,IENCRR T-1_",",95 )=""
	1357	. S PRCAFDA( 433,IENCRR T-1_",",96 )=""
	1358	. L +^PRCA(4 33,IENCRRT -1,9):DILO CKTM
	1359	. Q:'$T
	1360	. D FILE^DIE (,"PRCAFDA ")
	1361	. L -^PRCA(4 33,IENCRRT -1,9)
	1362	. ; Set the fields for the dupli cate trans action
	1363	. S PRCAFDA( 433,IENCRR T_",",10)= 1 ; INCOMP LETE TRANS ACTION
	1364	. S PRCAFDA( 433,IENCRR T_",",94)= PRCADATE
	1365	. S PRCAFDA( 433,IENCRR T_",",95)= $S(BILLDIF F>0:BILLDI FF,1:-BILL DIFF)
	1366	. S PRCAFDA( 433,IENCRR T_",",96)= "D" ; DUPL ICATE TRAN SACTION
	1367	; Update Tr ansaction
	1368	D FILE^DIE( ,"PRCAFDA" )
	1369	S FLAGGED=1
	1370	; Unlock fi le
	1371	L -^PRCA(43 3,IENCRRT, 9)
	1372	K TMBSNC,IE NCRRT
	1373	Q
	1374	;
	1375	DIQOUTCS(D IQOUT) ;Re turn check sum for a processed DIQOUT arr ay.
	1376	N CS,DATA,F IELD,FNUM, IENS,IND,S FN,STRING, TARGET,TEX T,WP
	1377	S FNUM=$O(D IQOUT(""))
	1378	S (CS,FNUM) =0
	1379	F S FNUM=$ O(DIQOUT(F NUM)) Q:FN UM="" D
	1380	. S IENS=""
	1381	. F S IENS= $O(DIQOUT( FNUM,IENS) ) Q:IENS=" " D
	1382	. .S FIELD=0
	1383	. .F S FIEL D=$O(DIQOU T(FNUM,IEN S,FIELD)) Q:FIELD="" D
	1384	. ..S DATA=D IQOUT(FNUM ,IENS,FIEL D)
	1385	. ..S TEXT=F NUM_$L(IEN S,",")_FIE LD_DATA
	1386	. ..S CS=$$C RC32^XLFCR C(TEXT,CS)
	1387	Q CS
	1388	;
	1389	USRMSG ; sends mail man messag e to the P RCACPS mai l group
	1390	N XMY,XMDUZ ,XMSUB,XMT EXT,X
	1391	S XMDUZ="AR PACKAGE"
	1392	S XMY("G.PR CACPS")=""
	1393	S XMSUB="CP S AUTO-COR RECTION CO MPLETE "_$ E(DT,4,5)_ "/"_$E(DT, 6,7)_"/"_$ E(DT,2,3)
	1394	S X(1)="Con solidated Patient St atement Au to-Correct ion"
	1395	S X(2)="Pro gram compl eted on "_ $$FMTE^XLF DT($$NOW^X LFDT(),"5P ")
	1396	S XMTEXT="X ("
	1397	D ^XMD
	1398	; Remove ^X TMP node
	1399	K ^XTMP("PR CACPS",0)
	1400	Q
	1401	;
	1402	PRCAMAIL(P RCASTRT) ;
	1403	; Send e-ma il notific ation to t he PRCACPS mail grou p if the A uto-Correc t was manu ally run
	1404	; when it s howed to b e currentl y running or possibl e errored out on a p revious at tempt.
	1405	;
	1406	; PRCASTART = Externa l format o f date/tim e (i.e. OC T 12, 2016 @09:39:58) that the
	1407	; Auto-Corr ect progra m was last started.
	1408	N XMY,XMDUZ ,XMSUB,XMT EXT,X
	1409	S XMDUZ="AR PACKAGE"
	1410	S XMY("G.PR CACPS")=""
	1411	S XMSUB="CP S AUTO-COR RECTION FA ILURE "_$E (DT,4,5)_" /"_$E(DT,6 ,7)_"/"_$E (DT,2,3)
	1412	S X(1)="The Patient S tatement A uto-Correc tion Progr am was sta rted on:"
	1413	S X(2)=PRCA STRT_" and may not h ave comple ted normal ly."
	1414	S X(3)=""
	1415	S X(4)="Ple ase have O I&T check the error trap for a ny errors related to routine"
	1416	S X(5)="PRC ACPS on th is date."
	1417	S XMTEXT="X ("
	1418	D ^XMD
	1419	Q
	1420	Table 13: Routine : PRCACPSA
	1421	Routines
	1422	Activities
	1423	Routine Na me
	1424	PRCACPSA
	1425	Enhancemen t Category
	1426	New
	1427	Modify
	1428	Delete
	1429	No Change
	1430	RTM
	1431	ACJ001-ACJ 013
	1432	Related Op tions
	1433	Patient St atement Au to-Correct ion Progra m
	1434
	1435	Related Ro utines
	1436	Routines “ Called By”
	1437	Routines “ Called”
	1438
	1439	PRCACPS
	1440	NOW^%DT C
	1441	FILE^DI E
	1442	GETS^DI Q
	1443	$$DIQOU TCS^PRCACP S
	1444
	1445	Routines
	1446	Activities
	1447	Data Dicti onary (DD) Reference s
	1448	ACCOUNTS R ECEIVABLE File (#430 )
	1449	AR TRANSAC TION File (#433)
	1450	AR DEBTOR File (#340 )
	1451	Related Pr otocols
	1452	N/A
	1453	Related In tegration Control Re gistration s (ICRs)
	1454	N/A
	1455	Data Passi ng
	1456	Input
	1457	Output Re ference
	1458	Both
	1459	Global Re ference
	1460	Local
	1461	Input Attr ibute Name and Defin ition
	1462	Name: N/A
	1463	Definition :
	1464	Output Att ribute Nam e and Defi nition
	1465	Name: N/A
	1466	Definition :
	1467
	1468	Current Lo gic
	1469	NA
	1470
	1471	Modified L ogic (Chan ges are in bold)
	1472	PRCACPSA ; ALBANY/MGD -PATIENT S TATEMENTS AUTO-CORRE CTION ;09/ 21/15 3:34 PM
	1473	; ;4.5;Accou nts Receiv able;307 ;Mar 20, 1995;Buil d 79
	1474	; ;Per VA Di rective 64 02, this r outine sho uld not be modified.
	1475	;
	1476	Q
	1477	;
	1478	BILLQUIT(D EBTOR,BILL ) ;
	1479	; check new s and init ialization s
	1480	N FILENUM,I ENCRRT,IEN PREV,PRCAB FIX,PRCABS T,PRCAFDA, PRCACUR,PR CACUR1,PRC APRV,PRCAP RV1,TN,TNL AST,TRNSCR RT,TRNSPRE V,X
	1481	S TNLAST=""
	1482	S PRCABFIX= 0
	1483	S TN=0
	1484	F S TN=$O( ^TMP("PRCA GTPS",$J,D EBTOR,BILL ,TN)) Q:'T N D
	1485	. ; Load 0 a nd 1 nodes
	1486	. S PRCACUR= $G(^PRCA(4 33,TN,0))
	1487	. S PRCACUR1 =$G(^PRCA( 433,TN,1))
	1488	. ; Quit if this Trans action is a COMMENT
	1489	. I $P(PRCAC UR1,U,2)=4 5 Q
	1490	. ; Quit if this trans action was updated e arlier as part of an previous fix
	1491	. I $P($G(^P RCA(433,TN ,9)),U,4) Q
	1492	. S TNLAST=T N
	1493	. ; Check if Transacti on is mark ed as INCO MPLETE
	1494	. I $P(PRCAC UR,U,10)=1 S PRCABFI X=PRCABFIX +1,PRCABFI X("I")=$G( PRCABFIX(" I"))+1
	1495	. ; *** The Null trans action che ck will be implement ed in PRCA 4.5313 * **
	1496	. ; Check if zero doll ar amount
	1497	. ;I $P(PRCA CUR1,U,5)= "" S PRCAB FIX=PRCABF IX+1,PRCAB FIX("N")=$ G(PRCABFIX ("N"))+1
	1498	. S PRCAPRV= $G(^PRCA(4 33,TN-1,0) )
	1499	. S PRCAPRV1 =$G(^PRCA( 433,TN-1,1 ))
	1500	. ; Perform quick high level dup licate che ck
	1501	. I $P(PRCAC UR,U,2)'=$ P(PRCAPRV, U,2) Q ; QUIT if (# .03) BILL NUMBER don 't match
	1502	. I $P(PRCAC UR,U,9)'=$ P(PRCAPRV, U,9) Q ; QUIT if (# 42) PROCES SED BY don 't match
	1503	. I $P(PRCAC UR1,U,1)'= $P(PRCAPRV 1,U,1) Q ; QUIT if (#11) TRAN SACTION DA TE don't m atch
	1504	. I $P(PRCAC UR1,U,5)'= $P(PRCAPRV 1,U,5) Q ; QUIT if (#15) TRAN S. AMOUNT don't matc h
	1505	. ; Perform detailed d uplicate c heck
	1506	. S IENPREV= TN-1,IENCR RT=TN,FILE NUM=433
	1507	. K TRNSPREV S FILENUM =433 D GET S^DIQ(FILE NUM,IENPRE V,"**","N" ,"TRNSPREV ","MSG")
	1508	. K TRNSCRRT S FILENUM =433 D GET S^DIQ(FILE NUM,IENCRR T,"**","N" ,"TRNSCRRT ","MSG")
	1509	. S TRNSCRRT (433,TN_", ",.01)=TRN SPREV(433, (TN-1)_"," ,.01)
	1510	. I $D(TRNSP REV(433,(T N-1)_",",4 1)) S TRNS CRRT(433,T N_",",41)= $G(TRNSPRE V(433,(TN- 1)_",",41) )
	1511	. I $$DIQOUT CS^PRCACPS (.TRNSPREV )'=$$DIQOU TCS^PRCACP S(.TRNSCRR T) Q
	1512	. ; Set dupl icate flag which wil l be used in START2
	1513	. S $P(^TMP( "PRCAGTPS" ,$J,DEBTOR ,BILL,TN), U,12)=1
	1514	. ; we have a duplicat e so updat e counter
	1515	. S PRCABFIX =PRCABFIX+ 1,PRCABFIX ("D")=$G(P RCABFIX("D "))+1
	1516	; Get Bill Status for checks
	1517	S PRCABST=$ P($G(^PRCA (430,BILL, 0)),U,8)
	1518	;
	1519	; 3rd piece of ^TMP(" PRCABILL", $J,DEBTOR, BILL) is s top/go fla g for this bill.
	1520	; Set below and utili zed in STA RT2^PRCACP S
	1521	;
	1522	; Check for Duplicate needs to include Bi ll Status of ACTIVE (#16), OPE N (#42) or CANCELLAT ION (#39)
	1523	; If there was only 1 problem a nd that pr oblem was a Duplicat e and the Bill Statu s is ACTIV E or OPEN
	1524	; or CANCEL LATION Qui t and let it get set in CHECK2
	1525	I PRCABFIX= 1,$G(PRCAB FIX("D"))= 1,(PRCABST =16!(PRCAB ST=42)!(PR CABST=39)) S $P(^TMP ("PRCABILL ",$J,DEBTO R,BILL),U, 3)=0 Q 0
	1526	; If a sing le problem on a Bill in a stat us other t han Active or Open m ark last t ransaction as NOT FI XABLE
	1527	I PRCABFIX= 1,PRCABST' =16&(PRCAB ST'=42) D UPDTLTR($G (TNLAST))
	1528	; If a sing le problem on a Bill in a stat us of Acti ve or Open will be f urther che cked in ST ART2
	1529	I PRCABFIX= 1,(PRCABST =16!(PRCAB ST=42)) S PRCABFIX=0
	1530	; If multip le problem s set audi t fields f or last tr ansaction for the Bi ll
	1531	I PRCABFIX> 1 D UPDTLT R($G(TNLAS T)) S PRCA BFIX=1
	1532	; Update Bi ll level s top flag
	1533	S $P(^TMP(" PRCABILL", $J,DEBTOR, BILL),U,3) =PRCABFIX
	1534	Q PRCABFIX
	1535	;
	1536	UPDTLTR(TN LAST) ;
	1537	; Initializ e variable s
	1538	N PRCABILL, PRCABILX,P RCADTR,PRC ATN,PRCAUP DT
	1539	; Initializ e PRCAUPDT to 0 (i.e . No). Th is flag is set to 1 when an tr ansaction was update d with the audit dat a
	1540	S PRCAUPDT= 0
	1541	; If TNLAST was undef ined or nu ll or some thing othe r than a p ositive nu mber, set TNLAST=0
	1542	; If TNLAST was a pos itive numb er, leave it as is
	1543	S TNLAST=+$ G(TNLAST,0 )
	1544	; If the IE N was a de cimal numb er, strip off the de cimal amou nt
	1545	S TNLAST=$P (TNLAST,". ",1)
	1546	; Init chec ks for a p ositive IE N and no c orrespondi ng transac tion
	1547	I +TNLAST>0 ,'$D(^PRCA (433,TNLAS T,0)) S TN LAST=0
	1548	; Init chec ks for a p ositive IE N and this Transacti on exists
	1549	I +TNLAST>0 ,$D(^PRCA( 433,TNLAST ,0)) D Q: PRCAUPDT
	1550	. ; If this transactio n hasn't b een previo usly used to flag an account, use it
	1551	. I $P($G(^P RCA(433,TN LAST,9)),U ,6)="" S P RCAUPDT=1 D UPDTSET( TNLAST) Q
	1552	. ; If this transactio n was prev iously use d to ident ify a NOT FIXABLE is sue
	1553	. ; update i t again to have toda y's date
	1554	. I $P($G(^P RCA(433,TN LAST,9)),U ,6)="X" S PRCAUPDT=1 D UPDTSET (TNLAST) Q
	1555	. ; If this Transactio n was prev iously use d to fix a n issue ot her than N OT FIXABLE ,
	1556	. ; reset to 0 to make it find a nother tra nsaction
	1557	. I $P($G(^P RCA(433,TN LAST,9)),U ,6)'="",($ P($G(^PRCA (433,TNLAS T,9)),U,6) '="X") S T NLAST=0
	1558	. Q
	1559	; If you ge t to here, TNLAST wa s either s ent in wit h a positi ve value t hat couldn 't be used
	1560	; OR TNLAST was sent in as a nu ll or 0. E ither way, try to fi nd another acceptabl e transact ion to mar k
	1561	; There is a possibil ity that n o transact ion can be found to mark, in w hich case, just quit
	1562	I +TNLAST<1 D Q:+TNL AST<1
	1563	. S PRCABILX =""
	1564	. F S PRCAB ILX=$O(^TM P("PRCAGTP S",$J,DEBT OR,PRCABIL X),-1) Q:' PRCABILX D Q:TNLAS T
	1565	. .S PRCATN= ""
	1566	. .F S PRCA TN=$O(^TMP ("PRCAGTPS ",$J,DEBTO R,PRCABILX ,PRCATN),- 1) Q:'PRCA TN D Q:T NLAST
	1567	. ..; Quit i f this tra nsaction f rom ^TMP d oesn't exi st in ^PRC A(433
	1568	. ..I '$D(^P RCA(433,PR CATN,0)) Q
	1569	. ..; If thi s transact ion hasn't been mark ed for any thing, use it
	1570	. ..I $P($G( ^PRCA(433, PRCATN,9)) ,U,6)="" S TNLAST=PR CATN Q
	1571	. ..; Check if this tr ansaction was previo usly flagg ed as some fix other than NOT FIXABLE
	1572	. ..I $P($G( ^PRCA(433, PRCATN,9)) ,U,6)'="X" Q
	1573	. ..; If thi s transcti on was pre viously ma rked as NO T FIXABLE, mark it a gain with today's da te
	1574	. ..S TNLAST =PRCATN
	1575	; QUIT If n o acceptab le transac tion could be found
	1576	Q :+TNLAST<1
	1577	; QUIT if t his transa ction does n't exist for some r eason
	1578	Q :'$D(^PRCA (433,TNLAS T,0))
	1579	; Call UPDT SET to upd ate the tr ansaction that was i dentified
	1580	D UPDTSET(T NLAST)
	1581	Q
	1582	;
	1583	UPDTSET(TN LAST) ; On ce transac tion has b een identi fied, set the necess ary audit fields
	1584	; Identify Bill for t his Transa ction
	1585	S PRCABILL= $P($G(^PRC A(433,TNLA ST,0)),U,2 )
	1586	; Quit if b ill can't be identif ied
	1587	Q :PRCABILL= ""
	1588	; Use Bill to identif y Debtor
	1589	S PRCADTR=$ P($G(^PRCA (430,PRCAB ILL,0)),U, 9)
	1590	; Quit if D ebtor can' t be defin ed
	1591	Q :PRCADTR=" "
	1592	; Quit if t he stop fl ag for thi s bill was previousl y set in $ $BILLQUIT^ PRCACPSA
	1593	I $P($G(^TM P("PRCABIL L",$J,PRCA DTR,PRCABI LL)),U,3) Q
	1594	; Get curre nt date
	1595	D NOW^%DTC
	1596	N PRCADATE
	1597	S PRCADATE= X
	1598	; Set up Au dit Field Array
	1599	S PRCAFDA(4 33,TNLAST_ ",",94)=PR CADATE
	1600	S PRCAFDA(4 33,TNLAST_ ",",96)="X " ; NOT FI XABLE
	1601	S PRCAFDA(4 33,TNLAST_ ",",97)=1
	1602	L +^PRCA(43 3,TNLAST,9 ):DILOCKTM
	1603	; QUIT if l ock not ob tainable
	1604	Q :'$T
	1605	; Update re cord
	1606	D FILE^DIE( ,"PRCAFDA" )
	1607	; Unlock fi le
	1608	L -^PRCA(43 3,TNLAST,9 )
	1609	Q
	1610
	1611
	1612	Table 14: Routines: PRCAACR
	1613	Routines
	1614	Activities
	1615	Routine Na me
	1616	PRCAACR
	1617	Enhancemen t Category
	1618	New
	1619	Modify
	1620	Delete
	1621	No Change
	1622	RTM
	1623	ACR001 – A CR012
	1624	Related Op tions
	1625	Auto-Corre ct Patient Discrepan cy Report
	1626
	1627	Related Ro utines
	1628	Routines “ Called By”
	1629	Routines “ Called”
	1630
	1631
	1632	DD^%DT
	1633	^%ZIS
	1634	^%ZISC
	1635	^%ZTLOAD
	1636	$$GET1^DIQ
	1637	^DIR
	1638	PRT^PRCAAC R1
	1639	PRCAMAIL^P RCACPS
	1640	$$UPPER^VA LM1
	1641	$$FMTE^XLF DT
	1642
	1643	Routines
	1644	Activities
	1645	Data Dicti onary (DD) Reference s
	1646	N/A
	1647	Related Pr otocols
	1648	N/A
	1649	Related In tegration Control Re gistration s (ICRs)
	1650	N/A
	1651	Data Passi ng
	1652	Input
	1653	Output Re ference
	1654	Both
	1655	Global Re ference
	1656	Local
	1657	Input Attr ibute Name and Defin ition
	1658	Name: N/A
	1659	Definition :
	1660	Output Att ribute Nam e and Defi nition
	1661	Name: N/A
	1662	Definition :
	1663
	1664	Current Lo gic
	1665	N/A
	1666
	1667	Modified L ogic (Chan ges are in bold)
	1668	PRCAACR ;A LBANY/BDB- PATIENT ST ATEMENTS A UTO-CORREC TION REPOR T ;09/21/1 5 3:34 PM ;;4.5;Acco unts Recei vable;30 7;Mar 20 , 1995;Bui ld 55 ;;Pe r VA Direc tive 6402, this rout ine should not be mo dified. ; Q ;PSACRT ; report, prints sor ted indivi dual trans actions th at have be en auto-co rrected N DIC,PAGE,B Y,DHD,FILE NUM,FLDS,F R,L,TO,PRC ABDT,PRCAE DT,PRCASOR T W !PSDAT E ; ; Dete rmine if A uto Correc t process is current ly running N PRCASTR T,QUIT,X,X 1,X2,Y S P RCASTRT=$G (^XTMP("PR CACPS",0)) ,QUIT="" ; QUIT if A uto Correc t process is current ly running I PRCASTR T'="" D Q :QUIT .S Y =$P(PRCAST RT,U,2) .D DD^%DT .S PRCASTRT= Y .W !!,"T he Patient Statement Auto-Corr ection Pro gram is cu rrently ru nning." .W !,"It was started a t ",PRCAST RT," and c an take up to 1 hour to comple te." .W !! ,"If you c hoose to c ontinue wi th this re port, it m ay not ref lect all o f the" .W !,"changes from this latest ru n of the P atient Sta tement Aut o-Correcti on Program ." .W ! .S DIR(0)="Y ",DIR("A") ="Do you w ant to con tinue",DIR ("B")="NO" .D ^DIR . W ! .; Qui t if ^, ^^ , Timeout or No .I $ D(DTOUT)!( $D(DUOUT)) !($D(DIROU T))!(Y=0) S QUIT=1 . ; Send Mai lMan messa ge to PRCA CPS mail g roup if Ye s .I Y=1 D PRCAMAIL^ PRCACPS(PR CASTRT) .K DTOUT,DUO UT,DIROUT ; N DIROUT ,DIS,DTOUT ,DUOUT S D IR("A")="D ate Range: FROM: ",D IR("B")="T -7" S DIR( "?")="The default da te is T-7. Future da tes may no t be enter ed." S DIR (0)="DO" D ^DIR S:Y' ="" PRCABD T=Y I $D(D IRUT)&'Y K DIRUT Q I PRCABDT>D T G PSDATE W "(",Y(0 ),")" K DI R,X,Y S DI R(0)="DO" S DIR("A") ="Date Ran ge: TO: ", DIR("B")=" T" S DIR(" ?")="The d efault dat e is T, bu t any date may be en tered." D ^DIR S:Y=" " Y=DT I $ D(DIRUT)&' Y K DIRUT Q W "(",Y( 0),")" S P RCAEDT=Y I PRCABDT>P RCAEDT G P SDATE K DI R S DIR(0) ="S^1:Bill Number;2: Debtor Nam e;3:Auto-C orrect Dat e;4:Transa ction Numb er",DIR("A ")="Sort b y" D ^DIR K DIR S PR CASORT=Y Q :$D(DTOUT) !($D(DUOUT ))!($D(DIR OUT)) ; ; Prompt for device W ! N ZTRTN, ZTDESC,ZTS AVE S %ZIS ="Q" D ^%Z IS Q:POP I $D(IO("Q" )) D Q .I $G(IOST)[ "P-MES" S ZTRTN="PRT ^PRCAACR1" .I $G(IOS T)'["P-MES " S ZTRTN= "PRT^PRCAA CR" .S ZTS AVE("PRCAB DT")="",ZT SAVE("PRCA EDT")="",Z TSAVE("PRC ASORT")="" .D ^%ZTLO AD .D ^%ZI SC .K IO(" Q"),POP ; ;Print Rep ort if not QUEUEDPRT ; ; If no t queued a nd output sent to P- MES I $G(I OST)["P-ME S" D PRT^P RCAACR1 Q ;If not qu eued and o utput not sent to P- MES U IO K ^TMP("PRC AACR",$J) S PAGE=0 S DASH="",$ P(DASH,"-" ,79)="" S DIS(0)="I $D(^PRCA(4 33,""TACD" ",PRCATSRT ,D0))",L=0 N PRCATSR T,PRCATN,P RCAACD,PRC AACR,PRCAB N,PRCADATA ,PRCADTR,P RCASSN S P RCATSRT=PR CABDT-.000 01 ; Loop through th e specifie d date ran ge F S PR CATSRT=$O( ^PRCA(433, "TACD",PRC ATSRT)) Q: PRCATSRT=" "!(PRCATSR T>PRCAEDT) D .S PRCA TN="" .; L oop throug h the tran sactions f or the cur rent date .F S PRCA TN=$O(^PRC A(433,"TAC D",PRCATSR T,PRCATN)) Q:'PRCATN D ..; Lo ad associa ted data f ields for report ..S PRCABN=$P (^PRCA(433 ,PRCATN,0) ,U,2) ..S PRCADTR=$$ GET1^DIQ(4 30,PRCABN_ ",",9) ; ( #9) DEBTOR ..S PRCAS SN=$G(^PRC A(430,PRCA BN,0)) ; L oad 0 Node ..S PRCAS SN=$P(PRCA SSN,U,9) ; get IEN o f Debtor . .S PRCABN= $$GET1^DIQ (433,PRCAT N_",",.03) ; (#.03) BILL NUMBE R ..S PRCA SSN=$$GET1 ^DIQ(340,P RCASSN_"," ,110) ; SS N ..S PRCA ACD=$$GET1 ^DIQ(433,P RCATN_",", 94) ;(#94) AUTO-CORR ECTION DAT E ..S PRCA ACR=$$GET1 ^DIQ(433,P RCATN_",", 96) ;(#96) AUTO-CORR ECTION TYP E OF ERROR ..; ..; S tore in ^T MP sorted by Bill Nu mber, Debt or and Tra nsaction # ..I PRCAS ORT=1 D Q ...S ^TMP ("PRCAACR" ,$J,PRCABN ,PRCADTR,P RCATN)=PRC ABN_U_PRCA DTR_U_PRCA SSN_U_PRCA TN_U_PRCAA CD_U_PRCAA CR ..; ..; Store in ^TMP sorte d by Debto r, Bill Nu mber and T ransaction # ..I PRC ASORT=2 D Q ...S ^T MP("PRCAAC R",$J,PRCA DTR,PRCABN ,PRCATN)=P RCADTR_U_P RCABN_U_PR CASSN_U_PR CATN_U_PRC AACD_U_PRC AACR ..; . .; Store i n ^TMP sor ted by Aut o-Correct Date, Debt or, Bill N umber and Transactio n # ..I PR CASORT=3 D Q ...S ^ TMP("PRCAA CR",$J,PRC AACD,PRCAD TR,PRCABN, PRCATN)=PR CAACD_U_PR CADTR_U_PR CABN_U_PRC ASSN_U_PRC ATN_U_PRCA ACR ..; St ore in ^TM P sorted b y Bill Num ber, Debto r and Tran saction # ..; ..; St ore in ^TM P sorted b y Transact ion, Debto r and #Bil l Number . .I PRCASOR T=4 D Q . ..S ^TMP(" PRCAACR",$ J,PRCATN,P RCADTR,PRC ABN)=PRCAT N_U_PRCADT R_U_PRCABN _U_PRCASSN _U_PRCAACD _U_PRCAACR ..; Store in ^TMP s orted by B ill Number , Debtor a nd Transac tion # ; ; Display A uto-Correc t data sor ted by Bil l Number N QUIT ; QU IT before end of rep ort S QUIT ="" I PRCA SORT=1 D . ; Display Bill Numbe r header . D PSACRTP1 .S PRCABN ="" .F S PRCABN=$O( ^TMP("PRCA ACR",$J,PR CABN)) Q:' PRCABN D Q:QUIT .. S PRCADTR= "" ..F S PRCADTR=$O (^TMP("PRC AACR",$J,P RCABN,PRCA DTR)) Q:PR CADTR="" D Q:QUIT ...S PRCAT N="" ...F S PRCATN= $O(^TMP("P RCAACR",$J ,PRCABN,PR CADTR,PRCA TN)) Q:'PR CATN D Q :QUIT .... S PRCADATA =^TMP("PRC AACR",$J,P RCABN,PRCA DTR,PRCATN ) ....W !, $J(PRCABN, 11),?13,$E (PRCADTR,1 ,18),?33,$ E($P(PRCAD ATA,U,3),6 ,9),?39,$J (PRCATN,9) ,?50,$P(PR CADATA,U,5 ),?64,$E($ P(PRCADATA ,U,6),1,14 ) ....I $Y >(IOSL-2) D .....I $ E(IOST,1,2 )="C-" D Q:QUIT ... ...D PRTC ......I $D (DIRUT)!($ D(DTOUT)) S QUIT=1 . ....D PSAC RTP1 ; ; D isplay Aut o-Correct data sorte d Debtor I PRCASORT= 2 D .; Dis play Debto r header . D PSACRTP2 .S PRCADT R="" .F S PRCADTR=$ O(^TMP("PR CAACR",$J, PRCADTR)) Q:PRCADTR= "" D Q:Q UIT ..S PR CABN="" .. F S PRCAB
	1669	N=$O(^TMP( "PRCAACR", $J,PRCADTR ,PRCABN)) Q:'PRCABN D Q:QUIT ...S PRCA TN="" ...F S PRCATN =$O(^TMP(" PRCAACR",$ J,PRCADTR, PRCABN,PRC ATN)) Q:'P RCATN D Q:QUIT ... .S PRCADAT A=^TMP("PR CAACR",$J, PRCADTR,PR CABN,PRCAT N) ....W ! ,$E(PRCADT R,1,18),?2 0,$J(PRCAB N,11),?33, $E($P(PRCA DATA,U,3), 6,9),?39,$ J(PRCATN,9 ),?50,$P(P RCADATA,U, 5),?64,$E( $P(PRCADAT A,U,6),1,1 4) ....I $ Y>(IOSL-2) D .....I $E(IOST,1, 2)="C-" D Q:QUIT .. ....D PRTC ......I $ D(DIRUT)!( $D(DTOUT)) S QUIT=1 .....D PSA CRTP2 ; ; Display Au to-Correct data sort ed AUTO-C DATE I PRC ASORT=3 D .; Display AUTO-C DA TE header .D PSACRTP 3 .S PRCAA CD="" .F S PRCAACD= $O(^TMP("P RCAACR",$J ,PRCAACD)) Q:PRCAACD ="" D Q: QUIT ..S P RCADTR="" ..F S PRC ADTR=$O(^T MP("PRCAAC R",$J,PRCA ACD,PRCADT R)) Q:PRCA DTR="" D Q:QUIT .. .S PRCABN= "" ...F S PRCABN=$O (^TMP("PRC AACR",$J,P RCAACD,PRC ADTR,PRCAB N)) Q:'PRC ABN D Q: QUIT ....S PRCATN="" ....F S PRCATN=$O( ^TMP("PRCA ACR",$J,PR CAACD,PRCA DTR,PRCABN ,PRCATN)) Q:'PRCATN D Q:QUIT .....S PR CADATA=^TM P("PRCAACR ",$J,PRCAA CD,PRCADTR ,PRCABN,PR CATN) .... .W !,PRCAA CD,?14,$E( PRCADTR,1, 18),?34,$J (PRCABN,11 ),?47,$E($ P(PRCADATA ,U,4),6,9) ,?53,$J(PR CATN,9),?6 4,$E($P(PR CADATA,U,6 ),1,14) .. ...I $Y>(I OSL-2) D . .....I $E( IOST,1,2)= "C-" D Q: QUIT ..... ..D PRTC . ......I $D (DIRUT)!($ D(DTOUT)) S QUIT=1 . .....D PSA CRTP3 ; ; Display Au to-Correct data sort ed Transac tion Numbe r I PRCASO RT=4 D .; Display AU TO-C DATE header .D PSACRTP4 . S PRCATN=" " .F S PR CATN=$O(^T MP("PRCAAC R",$J,PRCA TN)) Q:'PR CATN D Q :QUIT ..S PRCADTR="" ..F S PR CADTR=$O(^ TMP("PRCAA CR",$J,PRC ATN,PRCADT R)) Q:PRCA DTR="" D Q:QUIT .. .S PRCABN= "" ...F S PRCABN=$O (^TMP("PRC AACR",$J,P RCATN,PRCA DTR,PRCABN )) Q:'PRCA BN D Q:Q UIT ....S PRCADATA=^ TMP("PRCAA CR",$J,PRC ATN,PRCADT R,PRCABN) ....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(PRCA DATA,U,5), ?64,$E($P( PRCADATA,U ,6),1,14) ....I $Y>( IOSL-2) D .....I $E( IOST,1,2)= "C-" D Q: QUIT ..... .D PRTC .. ....I $D(D IRUT)!($D( DTOUT)) S QUIT=1 ... ..D PSACRT P4 D ^%ZIS C I $E(IOS T,1,2)="C- ",'$D(DUOU T),('$D(DT OUT)) W ! S DIR(0)=" E" D ^DIR K X,Y,DASH ,D0 Q ;PRT C ; Press Return To Continue S DIR(0)="E " D ^DIR Q ;PSACRTP1 ; header for patien t statemen t auto-cor rection re port 1 W @ IOF S PAGE =PAGE+1 W "PAGE "_PA GE,?8,"BIL LS THAT HA VE BEEN AU TO-CORRECT ED (SORTED BY BILL # )",?66,$$U PPER^VALM1 ($$FMTE^XL FDT(DT)) W !,DASH,! W !,"BILL NO.",?13," DEBTOR",?3 3,"SSN",?3 9,"TRANS N UM",?50,"A UTO-C DATE ",?64,"AUT O-C REASON " W !,"--- --------", ?13,"----- ---------- ---",?33," ----",?39, "--------- ",?50,"--- ---------" ,?64,"---- ---------- " Q ;PSACR TP2 ; head er for pat ient state ment auto- correction report 2 W @IOF S P AGE=PAGE+1 W "PAGE " _PAGE,?8," BILLS THAT HAVE BEEN AUTO-CORR ECTED (SOR TED BY DEB TOR)",?66, $$UPPER^VA LM1($$FMTE ^XLFDT(DT) ) W !,DASH ,! W !,"DE BTOR",?20, "BILL NO." ,?33,"SSN" ,?39,"TRAN S NUM",?50 ,"AUTO-C D ATE",?64," AUTO-C REA SON" W !," ---------- --------", ?20,"----- ------",?3 3,"----",? 39,"------ ---",?50," ---------- --",?64,"- ---------- ---" Q ;PS ACRTP3 ; h eader for patient st atement au to-correct ion report 3 W @IOF S PAGE=PAG E+1 W "PAG E "_PAGE,? 8,"BILLS T HAT HAVE B EEN AUTO-C ORRECTED ( SORTED BY AUTO-C DT) ",?66,$$UP PER^VALM1( $$FMTE^XLF DT(DT)) W !,DASH,! W !,"AUTO-C DATE",?14 ,"DEBTOR", ?34,"BILL NO.",?47," SSN",?53," TRANS NUM" ,?64,"AUTO -C REASON" W !,"---- --------", ?14,"----- ---------- ---",?34," ---------- -",?47,"-- --",?53,"- --------", ?64,"----- ---------" Q ;PSACRT P4 ; heade r for pati ent statem ent auto-c orrection report 4 W @IOF S PA GE=PAGE+1 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)) W !,DA SH,! W !," TRANS NUM" ,?11,"DEBT OR",?31,"B ILL NO.",? 44,"SSN",? 50,"AUTO-C DATE",?64 ,"AUTO-C R EASON" W ! ,"-------- -",?11,"-- ---------- ------",?3 1,"------- ----",?44, "----",?50 ,"-------- ----",?64, "--------- -----" Q ; EXIT ; Q
	1670
	1671	Table 15: Routines: PRCAACR1
	1672	Routines
	1673	Activities
	1674	Routine Na me
	1675	PRCAACR1
	1676	Enhancemen t Category
	1677	New
	1678	Modify
	1679	Delete
	1680	No Change
	1681	RTM
	1682	ACR001 – A CR012
	1683	Related Op tions
	1684	NA
	1685
	1686	Related Ro utines
	1687	Routines “ Called By”
	1688	Routines “ Called”
	1689
	1690	PRCAACR
	1691	HOME^%ZIS
	1692	$$GET1^DIQ
	1693	$$UPPER^VA LM1
	1694	$$FMTE^XLF DT
	1695	SENDMSG^XM XAPI
	1696
	1697	Routines
	1698	Activities
	1699	Data Dicti onary (DD) Reference s
	1700	N/A
	1701	Related Pr otocols
	1702	N/A
	1703	Related In tegration Control Re gistration s (ICRs)
	1704	N/A
	1705	Data Passi ng
	1706	Input
	1707	Output Re ference
	1708	Both
	1709	Global Re ference
	1710	Local
	1711	Input Attr ibute Name and Defin ition
	1712	Name: N/A
	1713	Definition :
	1714	Output Att ribute Nam e and Defi nition
	1715	Name: N/A
	1716	Definition :
	1717
	1718	Current Lo gic
	1719	N/A
	1720
	1721	Modified L ogic (Chan ges are in bold)
	1722	PRCAACR1 ; ALBANY/BDB -PATIENT S TATEMENTS AUTO-CORRE CTION REPO RT ;09/21/ 15 3:34 PM ;;4.5;Acc ounts Rece ivable;3 07;Mar 2 0, 1995;Bu ild 55 ;;P er VA Dire ctive 6402 , this rou tine shoul d not be m odified. ; Q ;Print Report whe n Queued t o P-MESPRT ; U IO ; build arra y of trans action aut o-correcte d K ^TMP(" PRCAACR1", $J) N DASH ,PAGE S PA GE=0 S DAS H="",$P(DA SH,"-",79) ="" N PRCA TSRT,PRCAT N,PRCAACD, PRCAACR,PR CABN,PRCAD ATA,PRCADT R,PRCASSN, PRCAIEN S PRCATSRT=P RCABDT-.00 001,PRCAIE N=0 ; Prin t Header I PRCASORT= 1 D PSACRT P1 I PRCAS ORT=2 D PS ACRTP2 I P RCASORT=3 D PSACRTP3 I PRCASOR T=4 D PSAC RTP4 ; Loo p through the specif ied date r ange F S PRCATSRT=$ O(^PRCA(43 3,"TACD",P RCATSRT)) Q:PRCATSRT =""!(PRCAT SRT>PRCAED T) D .S PR CATN="" .; Loop thro ugh the tr ansactions for the c urrent dat e .F S PR CATN=$O(^P RCA(433,"T ACD",PRCAT SRT,PRCATN )) Q:'PRCA TN D ..; Load assoc iated data fields fo r report . .S PRCABN= $P(^PRCA(4 33,PRCATN, 0),U,2) .. S PRCADTR= $$GET1^DIQ (430,PRCAB N_",",9) ; (#9) DEBT OR ..S PRC ASSN=$G(^P RCA(430,PR CABN,0)) ; Load 0 No de ..S PRC ASSN=$P(PR CASSN,U,9) ; get IEN of Debtor ..S PRCAB N=$$GET1^D IQ(433,PRC ATN_",",.0 3) ; (#.03 ) BILL NUM BER ..S PR CASSN=$$GE T1^DIQ(340 ,PRCASSN_" ,",110) ; SSN ..S PR CASSN=$E(P RCASSN,6,9 ) ..S PRCA ACD=$$GET1 ^DIQ(433,P RCATN_",", 94) ;(#94) AUTO-CORR ECTION DAT E ..S PRCA ACR=$$GET1 ^DIQ(433,P RCATN_",", 96) ;(#96) AUTO-CORR ECTION TYP E OF ERROR ..S PRCAA CR=$E(PRCA ACR,1,14) ..; ..; St ore in ^TM P sorted b y Bill Num ber, Debto r and Tran saction # ..I PRCASO RT=1 D Q ...S PRCAI EN=PRCAIEN +1 ...; Ad d Bill Num ber ...S P RCADATA=$J (PRCABN,11 ),$E(PRCAD ATA,13)=" " ...; Add 18 chars of Debtor' s name ... S PRCADATA =PRCADATA_ $E(PRCADTR ,1,18),$E( PRCADATA,3 3)=" " ... ; Add SSN ...S PRCAD ATA=PRCADA TA_PRCASSN ,$E(PRCADA TA,39)=" " ...; Add Transactio n Number . ..S PRCADA TA=PRCADAT A_$J(PRCAT N,9),$E(PR CADATA,50) =" " ...; Add Auto-C orrect Dat e ...S PRC ADATA=PRCA DATA_PRCAA CD,$E(PRCA DATA,64)=" " ...; Ad d Auto-Cor rect Reaso n ...S PRC ADATA=PRCA DATA_PRCAA CR ...S ^T MP("PRCAAC R1",$J,PRC AIEN)=PRCA DATA ...Q ..; ..; St ore in ^TM P sorted b y Debtor, Bill Numbe r and Tran saction # ..I PRCASO RT=2 D Q ...S PRCAI EN=PRCAIEN +1 ...; Ad d 18 chars of Debtor 's name .. .S PRCADAT A=$E(PRCAD TR,1,18),$ E(PRCADATA ,20)=" " . ..; Add Bi ll Number ...S PRCAD ATA=PRCADA TA_$J(PRCA BN,11),$E( PRCADATA,3 3)=" " ... ; Add SSN ...S PRCAD ATA=PRCADA TA_PRCASSN ,$E(PRCADA TA,39)=" " ...; Add Transactio n Number . ..S PRCADA TA=PRCADAT A_$J(PRCAT N,9),$E(PR CADATA,50) =" " ...; Add Auto-C orrect Dat e ...S PRC ADATA=PRCA DATA_PRCAA CD,$E(PRCA DATA,64)=" " ...; Ad d Auto-Cor rect Reaso n ...S PRC ADATA=PRCA DATA_PRCAA CR ...S ^T MP("PRCAAC R1",$J,PRC AIEN)=PRCA DATA ...Q ..; ..; St ore in ^TM P sorted b y Auto-Cor rect Date, Debtor, B ill Number and Trans action # . .I PRCASOR T=3 D Q . ..S PRCAIE N=PRCAIEN+ 1 ...; Add Auto-Corr ect Date . ..S PRCADA TA=PRCAACD ,$E(PRCADA TA,14)=" " ...; Add 18 chars o f Debtor's name ...S PRCADATA= PRCADATA_$ E(PRCADTR, 1,18),$E(P RCADATA,34 )=" " ...; Add Bill Number ... S PRCADATA =PRCADATA_ $J(PRCABN, 11),$E(PRC ADATA,47)= " " ...; A dd SSN ... S PRCADATA =PRCADATA_ PRCASSN,$E (PRCADATA, 53)=" " .. .; Add Tra nsaction N umber ...S PRCADATA= PRCADATA_$ J(PRCATN,9 ),$E(PRCAD ATA,64)=" " ...; Add Auto-Corr ect Reason ...S PRCA DATA=PRCAD ATA_PRCAAC R ...S ^TM P("PRCAACR 1",$J,PRCA IEN)=PRCAD ATA ...Q ..; ..; St ore in ^TM P sorted b y Transact ion, Debto r and #Bil l Number . .I PRCASOR T=4 D Q . ..S PRCAIE N=PRCAIEN+ 1 ...; Add Transacti on Number ...S PRCAD ATA=$J(PRC ATN,9),$E( PRCADATA,1 1)=" " ... ; Add 18 c hars of De btor's nam e ...S PRC ADATA=PRCA DATA_$E(PR CADTR,1,18 ),$E(PRCAD ATA,31)=" " ...; Add Bill Numb er ...S PR CADATA=PRC ADATA_$J(P RCABN,11), $E(PRCADAT A,44)=" " ...; Add S SN ...S PR CADATA=PRC ADATA_PRCA SSN,$E(PRC ADATA,50)= " " ...; A dd Auto-Co rrect Date ...S PRCA DATA=PRCAD ATA_PRCAAC D,$E(PRCAD ATA,64)=" " ...; Add Auto-Corr ect Reason ...S PRCA DATA=PRCAD ATA_PRCAAC R ...S ^TM P("PRCAACR 1",$J,PRCA IEN)=PRCAD ATA ...Q ; ; Send Ma ilMan mess age with N o Forward N XMTO,XMS UBJ,XMBODY ,XMINSTR,X MDUZ S XMT O(DUZ)="" S XMSUBJ=" BILLS THAT HAVE BEEN AUTO-CORR ECTED" S X MBODY="^TM P(""PRCAAC R1"",$J)" S XMINSTR( "FLAGS")=" X" S XMDUZ =DUZ D SEN DMSG^XMXAP I(XMDUZ,XM SUBJ,XMBOD Y,.XMTO,.X MINSTR) D HOME^%ZIS K IO("Q"), POP K ^TMP ("PRCAACR1 ",$J) K PR CABDT,PRCA EDT,PRCASO RT Q ;PSAC RTP1 ; hea der for pa tient stat ement auto -correctio n report 1 S PAGE=PA GE+1 S PRC AIEN=PRCAI EN+1 S ^TM P("PRCAACR 1",$J,PRCA IEN)="" S PRCADATA=" PAGE "_PAG E,$E(PRCAD ATA,8)="" S PRCADATA =PRCADATA_ "BILLS THA T HAVE BEE N AUTO-COR RECTED (SO RTED BY BI LL #)" S $ E(PRCADATA ,66)="",PR CADATA=PRC ADATA_$$UP PER^VALM1( $$FMTE^XLF DT(DT)) S PRCAIEN=PR CAIEN+1 S ^TMP("PRCA ACR1",$J,P RCAIEN)=PR CADATA S P RCAIEN=PRC AIEN+1 S ^ TMP("PRCAA CR1",$J,PR CAIEN)=DAS H S PRCAIE N=PRCAIEN+ 1 S ^TMP(" PRCAACR1", $J,PRCAIEN )="" S PRC ADATA="BIL L NO. DEBT OR SSN TRA NS NUM AUT O-C DATE A UTO-C REAS ON" S PRCA IEN=PRCAIE N+1 S ^TMP ("PRCAACR1 ",$J,PRCAI EN)=PRCADA TA S PRCAD ATA="----- ------ --- ---------- ----- ---- --------- --------- --- ------ --------" S PRCAIEN= PRCAIEN+1 S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA Q ;PSACRTP2 ; header for patien t statemen t auto-cor rection re port 2 S P AGE=PAGE+1 S PRCAIEN =PRCAIEN+1 S ^TMP("P RCAACR1",$ J,PRCAIEN) ="" S PRCA DATA="PAGE "_PAGE,$E (PRCADATA,
	1723	8)="" S PR CADATA=PRC ADATA_"BIL LS THAT HA VE BEEN AU TO-CORRECT ED (SORTED BY DEBTOR )" S $E(PR CADATA,66) ="",PRCADA TA=PRCADAT A_$$UPPER^ VALM1($$FM TE^XLFDT(D T)) S PRCA IEN=PRCAIE N+1 S ^TMP ("PRCAACR1 ",$J,PRCAI EN)=PRCADA TA S PRCAI EN=PRCAIEN +1 S ^TMP( "PRCAACR1" ,$J,PRCAIE N)=DASH S PRCAIEN=PR CAIEN+1 S ^TMP("PRCA ACR1",$J,P RCAIEN)="" S PRCADAT A="DEBTOR BILL NO. S SN TRANS N UM AUTO-C DATE AUTO- C REASON" S PRCAIEN= PRCAIEN+1 S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA S PRCADATA= "--------- --------- ---------- - ---- --- ------ --- --------- ---------- ----" S PR CAIEN=PRCA IEN+1 S ^T MP("PRCAAC R1",$J,PRC AIEN)=PRCA DATA Q ;PS ACRTP3 ; h eader for patient st atement au to-correct ion report 3 W @IOF S PAGE=PAG E+1 S PRCA IEN=PRCAIE N+1 S ^TMP ("PRCAACR1 ",$J,PRCAI EN)="" S P RCADATA="P AGE "_PAGE ,$E(PRCADA TA,8)="" S PRCADATA= PRCADATA_" BILLS THAT HAVE BEEN AUTO-CORR ECTED (SOR TED BY AUT O-C DT)" S $E(PRCADA TA,66)="", PRCADATA=P RCADATA_$$ UPPER^VALM 1($$FMTE^X LFDT(DT)) S PRCAIEN= PRCAIEN+1 S ^TMP("PR CAACR1",$J ,PRCAIEN)= PRCADATA S PRCAIEN=P RCAIEN+1 S ^TMP("PRC AACR1",$J, PRCAIEN)=D ASH S PRCA IEN=PRCAIE N+1 S ^TMP ("PRCAACR1 ",$J,PRCAI EN)="" S P RCADATA="A UTO-C DATE DEBTOR BI LL NO. SSN TRANS NUM AUTO-C RE ASON" S PR CAIEN=PRCA IEN+1 S ^T MP("PRCAAC R1",$J,PRC AIEN)=PRCA DATA S PRC ADATA="--- --------- ---------- -------- - ---------- ---- ---- ----- ---- ---------- " S PRCAIE N=PRCAIEN+ 1 S ^TMP(" PRCAACR1", $J,PRCAIEN )=PRCADATA Q ;PSACRT P4 ; heade r for pati ent statem ent auto-c orrection report 4 W @IOF S PA GE=PAGE+1 S PRCAIEN= PRCAIEN+1 S ^TMP("PR CAACR1",$J ,PRCAIEN)= "" S PRCAD ATA="PAGE "_PAGE,$E( PRCADATA,8 )="" S PRC ADATA=PRCA DATA_"BILL S THAT HAV E BEEN AUT O-CORRECTE D (SORTED BY TRANS N UM)" S $E( PRCADATA,6 6)="",PRCA DATA=PRCAD ATA_$$UPPE R^VALM1($$ FMTE^XLFDT (DT)) S PR CAIEN=PRCA IEN+1 S ^T MP("PRCAAC R1",$J,PRC AIEN)=PRCA DATA S PRC AIEN=PRCAI EN+1 S ^TM P("PRCAACR 1",$J,PRCA IEN)=DASH S PRCAIEN= PRCAIEN+1 S ^TMP("PR CAACR1",$J ,PRCAIEN)= "" S PRCAD ATA="TRANS NUM DEBTO R BILL NO. SSN AUTO- C DATE AUT O-C REASON " S PRCAIE N=PRCAIEN+ 1 S ^TMP(" PRCAACR1", $J,PRCAIEN )=PRCADATA S PRCADAT A="------- -- ------- ---------- - -------- --- ---- - ---------- - -------- ------" S PRCAIEN=PR CAIEN+1 S ^TMP("PRCA ACR1",$J,P RCAIEN)=PR CADATA Q ; EXIT ; Q
	1724
	1725	Table 16: Routines: PRCA307P
	1726	Routines
	1727	Activities
	1728	Routine Na me
	1729	PRCA307P
	1730	Enhancemen t Category
	1731	New
	1732	Modify
	1733	Delete
	1734	No Change
	1735	RTM
	1736	ACJ005
	1737	Related Op tions
	1738	N/A
	1739
	1740	Related Ro utines
	1741	Routines “ Called By”
	1742	Routines “ Called”
	1743
	1744	N/A
	1745	^%ZTLOAD
	1746	$$SITE^RCM SITE
	1747	BMES^XPDUT L
	1748	MES^XPDUTL
	1749
	1750	Routines
	1751	Activities
	1752	Data Dicti onary (DD) Reference s
	1753	N/A
	1754	Related Pr otocols
	1755	N/A
	1756	Related In tegration Control Re gistration s (ICRs)
	1757	N/A
	1758	Data Passi ng
	1759	Input
	1760	Output Re ference
	1761	Both
	1762	Global Re ference
	1763	Local
	1764	Input Attr ibute Name and Defin ition
	1765	Name: N/A
	1766	Definition :
	1767	Output Att ribute Nam e and Defi nition
	1768	Name: N/A
	1769	Definition :
	1770
	1771	Current Lo gic
	1772	N/A
	1773
	1774	Modified L ogic (Chan ges are in bold)
	1775	PRCA307P ; ALB/BDB - PATCH PRCA 4.5307 P OST-INSTAL L ROUTINE ; 11/2/15 4:15pm ;;4 .5;Account s Receivab le;307 ;Mar 20, 1 995;Build 55 ;;Per V A Directiv e 6402, th is routine should no t be modif ied. ; Thi s routine will updat e a specif ic list of Station I D's ; and queues the Patient S tatement A uto-Correc tion Progr am ; QEN ; Entry poin t for PRCA 4.5307 p ost-instal l N SDAY,S ITE,T S SI TE=$$SITE^ RCMSITE I SITE=0 D . D MES^XPDU TL(" ") .D BMES^XPDU TL(">>> WA RNING! STA TION ID NO T FOUND!") .D MES^XP DUTL(">>> THE PATIEN T STATEMEN T TRANSMIS SION DATE WILL NOT B E UPDATED" ) .D MES^X PDUTL(" ") I SITE'=0 ,$T(@SITE) D .D MES^ XPDUTL(" " ) .D BMES^ XPDUTL(">> > STATION ID "_SITE_ " MATCH FO UND!") .D MES^XPDUTL (">>> THE PATIENT ST ATEMENT TR ANSMISSION DATE WILL BE UPDATE D") .D MES ^XPDUTL(" ") .;set p atient sta tement day to site s tatement d ay .S T=$T (@SITE),SD AY=+$P(T," ;;",2) .S $P(^RC(342 ,1,0),"^", 11)=SDAY . S DEB=0 F S DEB=$O( ^RCD(340," AB","DPT(" ,DEB)) Q:' DEB I $D( ^RCD(340,+ DEB,0)) D ..S STDT=$ P($G(^RCD( 340,+DEB,0 )),"^",3) Q:'STDT .. S SSTDT=$P ($G(^RC(34 2,1,0)),"^ ",11) ..Q: (SSTDT=STD T) ..K ^RC D(340,"AC" ,STDT,+DEB ) ..S $P(^ RCD(340,+D EB,0),"^", 3)=SSTDT . .S ^RCD(34 0,"AC",SST DT,DEB)="" K SDAY,SI TE,DEB,STD T,SSTDT,T ; N ZTDTH, ZTIO,ZTDES C,ZTRTN,ZT SK S ZTDES C="Auto-Co rrect Pati ent Statem ent Discre pancies" S ZTRTN="ST ART^PRCACP S",ZTDTH=$ H,ZTIO="" D ^%ZTLOAD I $G(ZTSK ) D Q .D BMES^XPDUT L(">>>POST -INSTALL C ONSOLIDATE D PATIENT STATEMENT AUTO-CORRE CTION") .D MES^XPDUT L(">>>PROG RAM HAS BE EN QUEUED IN TASK "_ ZTSK) I '$ G(ZTSK) D Q .D BMES ^XPDUTL("> >>ERROR: P OST-INSTAL L CONSOLID ATED PATIE NT STATEME NT AUTO-CO RRECTION") .D MES^XP DUTL(">>>P ROGRAM COU LD NOT BE QUEUED") ; ;Stations that will have mont hly statem ent build date chang ed438 ;;21 ^SIOUX FAL LS,SD501 ; ;21^ALBUQU ERQUE,NM50 4 ;;21^AMA RILLO,TX54 2 ;;21^COA TESVILLE,P A562 ;;21^ ERIE,PA568 ;;21^FORT MEADE,SD6 49 ;;21^PR ESCOTT,AZ6 56 ;;21^ST . CLOUD,MN 688 ;;21^W ASHINGTON, DC756 ;;21 ^EL PASO,T X565 ;;22^ FAYETTEVIL LE,NC621 ; ;22^MOUNTA IN HOME,TN 658 ;;22^S ALEM,VA664 ;;22^SAN DIEGO,CA67 1 ;;22^SAN ANTONIO,T X689 ;;22^ WEST HAVEN ,CT740 ;;2 2^TEXAS VA LLEY COAST AL,TX
	1776	Table 17: Routines: PRCASER1
	1777	Routines
	1778	Activities
	1779	Routine Na me
	1780	PRCASER1
	1781	Enhancemen t Category
	1782	New
	1783	Modify
	1784	Delete
	1785	No Change
	1786	RTM
	1787	US005
	1788	Related Op tions
	1789	PRCAX CO-P AY EXEMPTI ON REPORT
	1790
	1791	Related Ro utines
	1792	Routines “ Called By”
	1793	Routines “ Called”
	1794
	1795	PRCAX, RCK ATP, RCKAT PD
	1796	XMD, PRCAS ER1, FY^RC FN01, $$NA M^RCFN01, $$SSN^RCFN 01, $$FY^R CFN01,
	1797
	1798	Routines
	1799	Activities
	1800	Data Dicti onary (DD) Reference s
	1801	ACCOUNTS R ECEIVABLE File (#430 )
	1802	AR TRANSAC TION File (#433)
	1803	ACCOUNTS R ECEIVABLE TRANS.TYPE (#430.3)
	1804	NEW PERSON (#200)
	1805	Related Pr otocols
	1806	N/A
	1807	Related In tegration Control Re gistration s (ICRs)
	1808	N/A
	1809	Data Passi ng
	1810	Input
	1811	Output Re ference
	1812	Both
	1813	Global Re ference
	1814	Local
	1815	Input Attr ibute Name and Defin ition
	1816	Name: N/A
	1817	Definition :
	1818	Output Att ribute Nam e and Defi nition
	1819	Name: N/A
	1820	Definition :
	1821	Current Lo gic
	1822	PRCASER1 ; WASH-ISC@A LTOONA,PA/ RGY-Accept transacti on from bi lling engi ne ;9/8/93
	1823	2:21 PM
	1824	V ; ;4.5;Accou nts Receiv able;48, 104,165,23 3;Mar 20 , 1995;Bui ld 4
	1825	; ;Per VHA D irective 1 0-93-142, this routi ne should not be mod ified.
	1826	N EW AMT,AMT 1,PRCAERR, PRCABN,PRC ADJ,X1,XMD UZ,XMSUB,X MTEXT,XMY, DEBT
	1827	I '$D(X) S PRCAERR="- 1^PRCA020" G Q
	1828	I $O(^PRCA( 430.3,"AC" ,+X,0))'?1 N.N,$P($G( ^PRCA(430. 3,+X,0))," ^",3)'=21
	1829	S PRCAERR= "-1^PRCA02 1" G Q
	1830	I +X'=21,$P ($G(^PRCA( 430.3,+X,0 )),"^",3)' =21 S PRCA ERR="-1^PR CA022" G Q
	1831	I $P(X,"^", 2)'?.N.1". ".2N S PRC AERR="-1^P RCA023" G Q
	1832	I $P(X,"^", 2)'>0 S PR CAERR="-1^ PRCA017" G Q
	1833	I $P(X,"^", 3)="" S PR CAERR="-1^ PRCA006" G Q
	1834	S PRCABN=$O (^PRCA(430 ,"B",$P(X, "^",3),0)) I $G(^PRC A(430,+PRC ABN,0))=""
	1835	S PRCAERR ="-1^PRCA0 07" G Q
	1836	I '$D(^VA(2 00,+$P(X," ^",4),0)) S PRCAERR= "-1^PRCA01 3" G Q
	1837	I $P(X,"^", 5)'?7N S P RCAERR="-1 ^PRCA024" G Q
	1838	S (AMT1,AMT )=$P(X,"^" ,2)
	1839	D DEC(PRCAB N,.AMT,$P( X,"^",4),$ P(X,U,6),$ P(X,U,5))
	1840	S XMDUZ="AR Package", XMTEXT="X1 (",DEBT=$P ($G(^PRCA( 430,PRCABN ,0)),"^",9
	1841	),DEBT=$E( $$NAM^RCFN 01(DEBT),1 )_" ("_$E( $$SSN^RCFN 01(DEBT),6 ,9)_")"
	1842	I AMT'=AMT1 S X1(1)=" A decrease adjustmen t for bill /Pt name ( SSN) #"_$P
	1843	(X,"^",3)_ "/"_DEBT_" has been" ,XMSUB="Au tomatic Ad j: "_$P(X, "^",3)
	1844	I AMT=AMT1 S X1(1)="* *** NOTICE : A decrea se adjustm ent for bi ll/Pt name
	1845	(SSN) #"_ $P(X,U,3)_ "/"_DEBT,X MSUB="Manu al Adj: "_ $P(X,U,3), X1(3)=" "
	1846	S Y=DT X ^D D("DD") S X1(2)=$S(A MT'=AMT1:" automatica lly",1:"ne eds to be
	1847	manually") _" applied in the am ount of $" _$J($S(AMT 1=AMT:AMT1 ,1:AMT1-AM T),0,2)_"
	1848	on "_Y_"."
	1849	I AMT,AMT'= AMT1 S X1( 3)="Please review bi ll for pro per applic ation of t
	1850	he unappli ed amount of $"_$J(A MT,0,2)_". "
	1851	S X1(4)=" " ,X1(5)="Da ta sent fr om Service "
	1852	S X1(6)=" Amou nt: $"_$J( AMT1,0,2)
	1853	S Y=$P(X,U, 5) X ^DD(" DD") S X1( 7)=" Date: "_Y
	1854	S X1(8)=" Reas on: "_$S($ P(X,"^",6) ]"":$P(X," ^",6),1:"N /A")
	1855	S X1(9)=" A djustment by: "_$P($ G(^VA(200, +$P(X,"^", 4),0)),"^" )
	1856	S AMT=0 F X =1:1:5 S A MT=AMT+$P( $G(^PRCA(4 30,PRCABN, 7)),U,X)
	1857	S AMT1=AMT- +$G(^PRCA( 430,PRCABN ,7))
	1858	S X=$P(^PRC A(430.3,+$ P($G(^PRCA (430,PRCAB N,0)),U,8) ,0),U,1)
	1859	S X1(10)=" ",X1(12)=" ",X1(13)= "Bill stat us is "_$S (XMSUB["Au to":"now "
	1860	,1:"")_X_" with a ba lance of $ "_$J(AMT,0 ,2)_".",X1 (14)=" "
	1861	I AMT1>0 S X1(15)=" * WARNING* There is o utstanding administr ative char
	1862	ges of $"_ $J(AMT1,0, 2)_".",X1( 16)=" An adjustment of admini strative c
	1863	harges MAY need to b e done."
	1864	S XMY("G.PR CA ADJUSTM ENT TRANS" )=""
	1865	D ^XMD
	1866	Q S Y=$S($D(P RCAERR):PR CAERR,1:0) Q
	1867	TEST ;
	1868	S X="21^22^ 503-AA0007 ^5^2921206 ^RX RETURN ED IN MAIL " D ^PRCAS ER1 W !,Y,
	1869	!
	1870	Q
	1871	DEC(PRCABN ,AMT,APR,R EA,BDT,PRC AEN) ;Auto decrease from servi ce Bill#,T ran amt,pe
	1872	rson,reaso n,Tran dat e
	1873	N EW BAL,DA, DIC,DIE,DR ,ERR,PRCA, PRCAA2,PRC AMT,PRCASV ,X,Y
	1874	S PRCAEN="" ,BAL=+$G(^ PRCA(430,P RCABN,7)) I 'BAL Q
	1875	I $P(^PRCA( 430,PRCABN ,0),U,8)'= $O(^PRCA(4 30.3,"AC", 102,"")),$ P(^PRCA(43
	1876	0,PRCABN,0 ),U,8)'=$O (^PRCA(430 .3,"AC",11 2,"")) Q
	1877	I $P(^PRCA( 430,PRCABN ,0),U,2)=$ O(^PRCA(43 0.2,"AC",3 3,0)) Q
	1878	S BAL=$S(AM T>BAL:BAL, 1:AMT)
	1879	S PRCA("ADJ ")=$O(^PRC A(430.3,"A C",21,0)), PRCASV("FY ")=$$FY^RC FN01(DT)_U
	1880	_BAL,PRCAS V("APR")=A PR,PRCASV( "BDT")=$S( $G(BDT)>0: BDT,1:DT)
	1881	D SETTR^PRC AUTL,PATTR ^PRCAUTL S DIE="^PRC A(433,",DR ="[PRCA FY ADJ2 BATC
	1882	H]",DA=PRC AEN D ^DIE S PRCAA2= $P(^PRCA(4 33,PRCAEN, 4,0),U,3) D UPFY^PRC ADJ,TRANUP
	1883	^PRCAUTL
	1884	I ("^30^31^ ")[("^"_$P ($G(^PRCA( 430,PRCABN ,0)),"^",2 )_"^") D E N^PRCAFBDM
	1885	(PRCABN,BA L,PRCA("AD J"),$G(PRC ADJ("BDT") ),PRCAEN,. ERR)
	1886	D UPPRIN^PR CADJ
	1887	I "AutoAUTO "'[$E(REA, 1,4) S REA ="Auto Dec .: "_REA
	1888	S DA=PRCAEN ,DIE="^PRC A(433,",DR ="41///"_R EA D ^DIE
	1889	S AMT=AMT-+ $P($G(^PRC A(433,PRCA EN,1)),U,5 )
	1890	Q
	1891
	1892	Modified L ogic (Chan ges are in bold)
	1893	PRCASER1 ; WASH-ISC@A LTOONA,PA/ RGY-Accept transacti on from bi lling engi ne ;9/8/93 2:21 PMV ;;4.5;Acco unts Recei vable;48 ,104,165,2 33,301,307 ;Mar 20, 1995;Buil d 55 ;;Per VA Direct ive 6402, this routi ne should not be mod ified. NEW AMT,AMT1, PRCAERR,PR CABN,PRCAD J,X1,XMDUZ ,XMSUB,XMT EXT,XMY,DE BT I '$D(X ) S PRCAER R="-1^PRCA 020" G Q I $O(^PRCA( 430.3,"AC" ,+X,0))'?1 N.N,$P($G( ^PRCA(430. 3,+X,0))," ^",3)'=21 S PRCAERR= "-1^PRCA02 1" G Q I + X'=21,$P($ G(^PRCA(43 0.3,+X,0)) ,"^",3)'=2 1 S PRCAER R="-1^PRCA 022" G Q I $P(X,"^", 2)'?.N.1". ".2N S PRC AERR="-1^P RCA023" G Q I $P(X," ^",2)'>0 S PRCAERR=" -1^PRCA017 " G Q I $P (X,"^",3)= "" S PRCAE RR="-1^PRC A006" G Q 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 I '$D(^VA(2 00,+$P(X," ^",4),0)) S PRCAERR= "-1^PRCA01 3" G Q I $ P(X,"^",5) '?7N S PRC AERR="-1^P RCA024" G Q S (AMT1, AMT)=$P(X, "^",2) D D EC(PRCABN, .AMT,$P(X, "^",4),$P( X,U,6),$P( X,U,5)) S XMDUZ="AR Package",X MTEXT="X1( ",DEBT=$P( $G(^PRCA(4 30,PRCABN, 0)),"^",9) ,DEBT=$E($ $NAM^RCFN0 1(DEBT),1) _" ("_$E($ $SSN^RCFN0 1(DEBT),6, 9)_")" I A MT'=AMT1 S X1(1)="A decrease a djustment for bill/P t name (SS N) #"_$P(X ,"^",3)_"/ "_DEBT_" h as been",X MSUB="Auto matic Adj: "_$P(X,"^ ",3) I AMT =AMT1 S X1 (1)="**** NOTICE: A decrease a djustment for bill/P t name (SS N) #"_$P(X ,U,3)_"/"_ DEBT,XMSUB ="Manual A dj: "_$P(X ,U,3),X1(3 )=" " S Y= DT X ^DD(" DD") S X1( 2)=$S(AMT' =AMT1:"aut omatically ",1:"needs to be man ually")_" applied in the amoun t of $"_$J ($S(AMT1=A MT:AMT1,1: AMT1-AMT), 0,2)_" on "_Y_"." I AMT,AMT'=A MT1 S X1(3 )="Please review bil l for prop er applica tion of th e unapplie d amount o f $"_$J(AM T,0,2)_"." S X1(4)=" ",X1(5)=" Data sent from Servi ce" S X1(6 )=" Amount : $"_$J(AM T1,0,2) S Y=$P(X,U,5 ) X ^DD("D D") S X1(7 )=" Date: "_Y S X1(8 )=" Reason : "_$S($P( X,"^",6)]" ":$P(X,"^" ,6),1:"N/A ") S X1(9) =" Adjustm ent by: "_ $P($G(^VA( 200,+$P(X, "^",4),0)) ,"^") S AM T=0 F X=1: 1:5 S AMT= AMT+$P($G( ^PRCA(430, PRCABN,7)) ,U,X) S AM T1=AMT-+$G (^PRCA(430 ,PRCABN,7) ) S X=$P(^ PRCA(430.3 ,+$P($G(^P RCA(430,PR CABN,0)),U ,8),0),U,1 ) S X1(10) =" ",X1(12 )=" ",X1(1 3)="Bill s tatus is " _$S(XMSUB[ "Auto":"no w ",1:"")_ X_" with a balance o f $"_$J(AM T,0,2)_"." ,X1(14)=" " I AMT1>0 S X1(15)= " WARNING There is outstandi ng adminis trative ch arges of $ "_$J(AMT1, 0,2)_".",X 1(16)=" An adjustmen t of admin istrative charges MA Y need to be done." S XMY("G.P RCA ADJUST MENT TRANS ")="" D ^X MDQ S Y=$S ($D(PRCAER R):PRCAERR ,1:0) QTES T ; S X=" 21^22^503- AA0007^5^2 921206^RX RETURNED I N MAIL" D ^PRCASER1 W !,Y,! QD EC(PRCABN, AMT,APR,RE A,BDT,PRCA EN) ;Auto decrease f rom servic e Bill#,Tr an amt,per son,reason ,Tran date NEW BAL,D A,DIC,DIE, DR,ERR,PRC A,PRCAA2,P RCAMT,PRCA SV,X,Y,PRC ADUP ; PRC A4.5307 - New PRCA DUP then i nitialize next line S PRCADUP= 0 ; PRCA4 .5307 - I f reason i s TIER RAT E check fo r duplicat e I REA["T IER RATE" D DUPCHK S PRCAEN="" ,BAL=+$G(^ PRCA(430,P RCABN,7)) I 'BAL Q I $P(^PRCA( 430,PRCABN ,0),U,8)'= $O(^PRCA(4 30.3,"AC", 102,"")),$ P(^PRCA(43 0,PRCABN,0 ),U,8)'=$O (^PRCA(430 .3,"AC",11 2,"")) Q I $P(^PRCA( 430,PRCABN ,0),U,2)=$ O(^PRCA(43 0.2,"AC",3 3,0)) Q S BAL=$S(AMT >BAL:BAL,1 :AMT) S PR CA("ADJ")= $O(^PRCA(4 30.3,"AC", 21,0)),PRC ASV("FY")= $$FY^RCFN0 1(DT)_U_BA L,PRCASV(" APR")=APR, PRCASV("BD T")=$S($G( BDT)>0:BDT ,1:DT) D S ETTR^PRCAU TL,PATTR^P RCAUTL S D IE="^PRCA( 433,",DR=" [PRCA FY A DJ2 BATCH] ",DA=PRCAE N D ^DIE S PRCAA2=$P (^PRCA(433 ,PRCAEN,4, 0),U,3) D UPFY^PRCAD J,TRANUP^P RCAUTL I ( "^30^31^") [("^"_$P($ G(^PRCA(43 0,PRCABN,0 )),"^",2)_ "^") D EN^ PRCAFBDM(P RCABN,BAL, PRCA("ADJ" ),$G(PRCAD J("BDT")), PRCAEN,.ER R) D UPPRI N^PRCADJ I "AutoAUTO "'[$E(REA, 1,4) S REA ="Auto Dec .: "_REA S DA=PRCAEN ,DIE="^PRC A(433,",DR ="41///"_R EA D ^DIE ; PRCA4.5 307 - Mar k Incomple te Transac tion if du plicate, b locking fr om Patient Statement I PRCADU P S DR="10 ////1" D ^ DIE S AMT= AMT-+$P($G (^PRCA(433 ,PRCAEN,1) ),U,5)
	1894	I PRCAEN,$ D(^PRCA(43 0,"TCSP",P RCABN)) D DECADJ^RCT CSPU(PRCAB N,PRCAEN) ;prca4.5 301 add cs decrease adjustment 5B Q ;DUP CHK ;PRCA* 4.5*307 - Check for duplicate (lower/hig her) set P RCADUP if true N PRC ATX,PRCAII ,PRCATRN S PRCATX=$P (^PRCA(433 ,0),U,3) F PRCAII=PR CATX-20:1: PRCATX D Q:PRCADUP . S PRCATR N=$G(^PRCA (433,PRCAI I,1)) I $P (PRCATRN,U ,5)'=AMT Q . I $P($G (^PRCA(433 ,PRCAII,0) ),U,2)'=PR CABN Q . I $P($G(^PR CA(433,PRC AII,0)),U, 9)'=APR Q . I $P(PRC ATRN,U)'=B DT Q . S P RCADUP=PRC AII Q
	1895
	1896	Table 18: Routines: RCCPCBJ
	1897	Routines
	1898	Activities
	1899	Routine Na me
	1900	RCCPCBJ
	1901	Enhancemen t Category
	1902	New
	1903	Modify
	1904	Delete
	1905	No Change
	1906	RTM
	1907	ACJ002
	1908	Related Op tions
	1909
	1910
	1911	Related Ro utines
	1912	Routines “ Called By”
	1913	Routines “ Called”
	1914
	1915
	1916	^%DTC
	1917	C^%DTC
	1918	^%ZTLOAD
	1919	^DIE
	1920	$$EN^PRCAR FU
	1921	FIRSTPTY^R CBECHGS
	1922	$$STD^RCCP CFN
	1923	$$STDY^RCC PCFN
	1924	EN^RCCPCML
	1925	^RCCPCPS
	1926	TRANCHK^RC CPCSV1
	1927	^RCEXINAD
	1928	$$DOW^XLFD T
	1929
	1930	Routines
	1931	Activities
	1932	Data Dicti onary (DD) Reference s
	1933
	1934	Related Pr otocols
	1935
	1936	Related In tegration Control Re gistration s (ICRs)
	1937
	1938	Data Passi ng
	1939	Input
	1940	Output Re ference
	1941	Both
	1942	Global Re ference
	1943	Local
	1944	Input Attr ibute Name and Defin ition
	1945	Name:
	1946	Definition :
	1947	Output Att ribute Nam e and Defi nition
	1948	Name:
	1949	Definition :
	1950
	1951	Current Lo gic
	1952	DEVISC1A1: PATVEE>ZL RCCPCBJ ZP
	1953	RCCPCBJ ; WASH-ISC@A LTOONA,PA/ NYB-Backgr ound Drive r for CCPC ;1/7/97 9:42 AM
	1954	; ;4.5;Accou nts Receiv able;34, 76,130,153 ,166,195,2 17,237;M ar 20, 199 5
	1955	; ;Per VHA D irective 1 0-93-142, this routi ne should not be mod ified.
	1956	EN ; Starts the backgroun d job for CCPC 5 day s before s tatement d ay
	1957	N X,X1,X2,X 3,ZTRTN,ZT IO,ZTDTH,Z TSK,ZTDESC
	1958	D ACK
	1959	S X1=$$STD^ RCCPCFN,X2 =-2 D C^%D TC
	1960	; 10-process end time/ 18-ccpc fi le built
	1961	I X=DT D Q
	1962	. S X3=$O(^ RCPS(349.2 ,0)) Q:'X3
	1963	. Q:'$P($P( $G(^RCPS(3 49.2,X3,0) ),"^",10), ".")
	1964	. Q:'$P($G( ^RCPS(349. 2,X3,0))," ^",18)
	1965	. D EN^RCCP CML
	1966	; quit if da te created is yester day's date
	1967	S X1=$$STD^ RCCPCFN,X2 =-1 D C^%D TC
	1968	I X=DT D Q
	1969	. S X3=+$O( ^RCT(349,0 ))
	1970	. S X3=$P($ P($G(^RCT( 349,X3,0)) ,"^",11)," .")
	1971	. S X1=DT,X 2=-1 D C^% DTC
	1972	. I X=X3 Q
	1973	. D EN^RCCP CML
	1974	;
	1975	S X1=$$STD^ RCCPCFN,X2 =-3 D C^%D TC
	1976	I X'=DT Q
	1977	I DT'<$P($G (^RC(342,1 ,30)),"^", 1)&(DT'>$P ($G(^RC(34 2,1,30))," ^",2)) D ^ RCEXINAD
	1978	S ZTIO="",Z TRTN="OPEN ^RCCPCBJ", ZTDESC="CC PC PATIENT STATEMENT "
	1979	S ZTDTH=$H D ^%ZTLOAD
	1980	Q
	1981	OPEN ; Update Ope n status b ills to Ac tive or Ca ncellation status
	1982	N DAY,BN,DE BTOR,DA,DI E,DR,P,AMT
	1983	N ZTSAVE,ZT RTN,ZTDESC ,ZTASK,%ZI S,ZTDTH
	1984	S DATE=$$ST D^RCCPCFN, DAY=+$$STD Y^RCCPCFN, DEBTOR=0 F S DEBTOR =$O(^RCD(3 40,"AC",DA Y,DEBTOR)) Q:'DEBTOR D
	1985	.S BN=0 F S BN=$O (^PRCA(430 ,"AS",DEBT OR,$O(^PRC A(430.3,"A C",112,0)) ,BN)) Q:'B N D
	1986	..S A MT=0 F P=1 :1:5 S AMT =$P($G(^PR CA(430,+BN ,7)),"^",P )+AMT
	1987	..I $ P($G(^PRCA (430,+BN,0 )),"^",2)= $O(^PRCA(4 30.2,"AC", 33,0)),AMT Q
	1988	..S D IE="^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 ^DI ER
	1989	..Q
	1990	.Q
	1991	;
	1992	; update p atient acc ounts with interest and admin
	1993	N RCLASDAT
	1994	S RCLASDAT= DATE
	1995	I DT>301010 1 D FIRSTP TY^RCBECHG S
	1996	D ^RCCPCPS
	1997	D REFUND
	1998	Q
	1999	;
	2000	;
	2001	REFUND ; Update Ope n status P REPAYMENT bills to R EFUND REVI EW
	2002	S DEBTOR=0, DAY=+$$STD Y^RCCPCFN
	2003	F S DEBTOR =$O(^RCD(3 40,"AC",DA Y,DEBTOR)) Q:'DEBTOR D
	2004	.S BN=0 F S BN=$O (^PRCA(430 ,"AS",DEBT OR,$O(^PRC A(430.3,"A C",112,0)) ,BN)) Q:'B N D
	2005	..I $ P($G(^PRCA (430,+BN,0 )),"^",2)= $O(^PRCA(4 30.2,"AC", 33,0)) S X =$$EN^PRCA RFU(+BN)
	2006	..Q
	2007	.Q
	2008	Q
	2009	;
	2010	ACK ; CHECK FOR ACKNOWLEDG EMENTS
	2011	N DEB,MSG,N O,RCX,X,X1 ,X2
	2012	S X1=$$STD^ RCCPCFN,X2 =DT D ^%DT C I X>3 D
	2013	. D TRANCHK^ RCCPCSV1
	2014	Q
	2015
	2016	Modified L ogic (Chan ges are in bold)
	2017	RCCPCBJ ;W ASH-ISC@AL TOONA,PA/N YB-Backgro und Driver for CCPC ;1/7/97 9: 42 AM ;;4. 5;Accounts Receivabl e;34,76, 130,153,16 6,195,217, 237,307; Mar 20, 19 95;Build 5 5 ;;Per VH A Directiv e 10-93-14 2, this ro utine shou ld not be modified.E N ;Starts the backgr ound job f or CCPC 5 days befor e statemen t day N X, X1,X2,X3,Z TRTN,ZTIO, ZTDTH,ZTSK ,ZTDESC D ACK I $$DO W^XLFDT(DT ,1)=3 D ; run the cb s auto-cor rection pr ogram on w ednesdays .N ZTDESC, ZTASK,ZTDT H,ZTIO,ZTR TN .S ZTIO ="",ZTRTN= "START^PRC ACPS" .S Z TDESC="PAT IENT STATE MENTS AUTO -CORRECTIO N PROGRAM" ,ZTDTH=$H .D ^%ZTLOA D ; S X1=$ $STD^RCCPC FN,X2=-2 D C^%DTC ;1 0-process end time/1 8-ccpc fil e built I X=DT D Q . S X3=$O( ^RCPS(349. 2,0)) Q:'X 3 . Q:'$P( $P($G(^RCP S(349.2,X3 ,0)),"^",1 0),".") . Q:'$P($G(^ RCPS(349.2 ,X3,0)),"^ ",18) . D EN^RCCPCML ;quit if date creat ed is yest erday's da te S X1=$$ STD^RCCPCF N,X2=-1 D C^%DTC I X =DT D Q . S X3=+$O( ^RCT(349,0 )) . S X3= $P($P($G(^ RCT(349,X3 ,0)),"^",1 1),".") . S X1=DT,X2 =-1 D C^%D TC . I X=X 3 Q . D EN ^RCCPCML ; S X1=$$ST D^RCCPCFN, X2=-3 D C^ %DTC I X'= DT Q I DT' <$P($G(^RC (342,1,30) ),"^",1)&( DT'>$P($G( ^RC(342,1, 30)),"^",2 )) D ^RCEX INAD S ZTI O="",ZTRTN ="OPEN^RCC PCBJ",ZTDE SC="CCPC P ATIENT STA TEMENT" S ZTDTH=$H D ^%ZTLOAD QOPEN ;Upd ate Open s tatus bill s to Activ e or Cance llation st atus N DAT E,DAY,BN,D EBTOR,DA,D IE,DR,P,AM T N ZTSAVE ,ZTRTN,ZTD ESC,ZTASK, %ZIS,ZTDTH S DATE=$$ STD^RCCPCF N,DAY=+$$S TDY^RCCPCF N,DEBTOR=0 F S DEBT OR=$O(^RCD (340,"AC", DAY,DEBTOR )) Q:'DEBT OR D . S BN=0 F S BN=$O(^P RCA(430,"A S",DEBTOR, $O(^PRCA(4 30.3,"AC", 112,0)),BN )) Q:'BN D .. S AMT=0 F P=1:1:5 S AMT=$P($G( ^PRCA(430, +BN,7)),"^ ",P)+AMT ..I $ P($G(^PRCA (430,+BN,0 )),"^",2)= $O(^PRCA(4 30.2,"AC", 33,0)),AMT Q . .S DIE="^P RCA(430,", DA=+BN,DR= "8////^S X ="_$S(AMT: $O(^PRCA(4 30.3,"AC", 102,0)),1: $O(^PRCA(4 30.3,"AC", 111,0))) D ^DIE K DA ,DIE,DR ..Q .Q ; ; up date patie nt account s with int erest and admin N RC LASDAT S R CLASDAT=DA TE I DT>30 10101 D FI RSTPTY^RCB ECHGS D ^R CCPCPS D R EFUND Q ; ;REFUND ;U pdate Open status PR EPAYMENT b ills to RE FUND REVIE W S DEBTOR =0,DAY=+$$ STDY^RCCPC FN F S DE BTOR=$O(^R CD(340,"AC ",DAY,DEBT OR)) Q:'DE BTOR D .S BN=0 F S BN=$O( ^PRCA(430, "AS",DEBTO R,$O(^PRCA (430.3,"AC ",112,0)), BN)) Q:'BN D ..I $P($G( ^PRCA(430, +BN,0)),"^ ",2)=$O(^P RCA(430.2, "AC",33,0) ) S X=$$EN ^PRCARFU(+ BN) ..Q .Q Q ;ACK ;CH ECK FOR AC KNOWLEDGEM ENTS N DEB ,MSG,NO,RC X,X,X1,X2 S X1=$$STD ^RCCPCFN,X 2=DT D ^%D TC I X>3 D .D TRANCH K^RCCPCSV1 Q
	2018
	2019	Table 19: Routines: RCDPBTLM
	2020	Routines
	2021	Activities
	2022	Routine Na me
	2023	RCDPBTLM
	2024	Enhancemen t Category
	2025	New
	2026	Modify
	2027	Delete
	2028	No Change
	2029	RTM
	2030	??? - noth ing
	2031	Related Op tions
	2032	Decrease A djustment, Increase Adjustment
	2033
	2034	Related Ro utines
	2035	Routines “ Called By”
	2036	Routines “ Called”
	2037
	2038	RCBEADJ
	2039	^DIC
	2040	^DIR
	2041	$$REC^IBRF N
	2042	$$COMP3^PR CAAPR
	2043	$$IBEEOBCK ^PRCAAPR1
	2044	SET^RCDPAP LI
	2045	$$ACCNTHDR ^RCDPAPLM
	2046	DIQ430^RCD PBPLM
	2047	$$TRANBAL^ RCRJRCOT
	2048	EN^VALM
	2049
	2050	Routines
	2051	Activities
	2052	Data Dicti onary (DD) Reference s
	2053	N/A
	2054	Related Pr otocols
	2055	N/A
	2056	Related In tegration Control Re gistration s (ICRs)
	2057	N/A
	2058	Data Passi ng
	2059	Input
	2060	Output Re ference
	2061	Both
	2062	Global Re ference
	2063	Local
	2064	Input Attr ibute Name and Defin ition
	2065	Name: N/A
	2066	Definition :
	2067	Output Att ribute Nam e and Defi nition
	2068	Name: N/A
	2069	Definition :
	2070
	2071	Current Lo gic
	2072	RCDPBTLM ; WISC/RFJ - bill tran sactions L ist Manage r top rout ine ;1 Jun 99
	2073	; ;4.5;Accou nts Receiv able;114 ,148,153,1 68,169,198 ,247,271,2 76;Mar 2 0, 1995;Bu ild 87
	2074	; ;Per VHA D irective 2 004-038, t his routin e should n ot be modi fied.
	2075	;
	2076	; Reference to $$REC^ IBRFN supp orted by D BIA 2031
	2077	;
	2078	; called f rom menu o ption (19)
	2079	;
	2080	N RCBILLDA, RCDPFXIT
	2081	;
	2082	F D Q:'RC BILLDA
	2083	. W !! S R CBILLDA=$$ SELBILL
	2084	. I RCBILL DA<1 S RCB ILLDA=0 Q
	2085	. D EN^VAL M("RCDP TR ANSACTIONS LIST")
	2086	. ; fast exit
	2087	. I $G(RCD PFXIT) S R CBILLDA=0
	2088	Q
	2089	;
	2090	;
	2091	INIT ; initiali zation for list mana ger list
	2092	; requires rcbillda
	2093	N ADMIN,DAT E,RCLINE,R CLIST,RCTO TAL,RCTRAN ,RCTRANDA
	2094	K ^TMP("RCD PBTLM",$J) ,^TMP("VAL M VIDEO",$ J)
	2095	;
	2096	; fast exi t
	2097	I $G(RCDPFX IT) S VALM QUIT=1 Q
	2098	;
	2099	; set the List Manag er line nu mber
	2100	S RCLINE=0
	2101	; set the List Manag er transac tion numbe r
	2102	S RCTRAN=0
	2103	;
	2104	; get tran sactions a nd balance for bill
	2105	S RCTOTAL=$ $GETTRANS( RCBILLDA)
	2106	;
	2107	S DATE="" F S DATE=$ O(RCLIST(D ATE)) Q:'D ATE D
	2108	. S RCTRAN DA="" F S RCTRANDA= $O(RCLIST( DATE,RCTRA NDA)) Q:RC TRANDA="" D
	2109	. . S RCL INE=RCLINE +1
	2110	. . ;
	2111	. . ; cr eate an in dex array for transa ction look up in list
	2112	. . I RCT RANDA D
	2113	. . . S RCTRAN=RCT RAN+1
	2114	. . . S ^TMP("RCDP BTLM",$J," IDX",RCTRA N,RCTRAN)= RCTRANDA
	2115	. . . D SET^RCDPAP LI(RCTRAN, RCLINE,1,8 0,0,IORVON ,IORVOFF)
	2116	. . ;
	2117	. . D SET ^RCDPAPLI( $S(RCTRAND A:RCTRANDA ,1:" "),RC LINE,4,80)
	2118	. . D SET ^RCDPAPLI( $E(DATE,4, 5)_"/"_$E( DATE,6,7)_ "/"_$E(DAT E,2,3),RCL INE,13,21)
	2119	. . D SET ^RCDPAPLI( $TR($P(RCL IST(DATE,R CTRANDA)," ^"),"ABCDE FGHIJKLMNO PQRSTUVWXY Z","abcdef ghijklmnop qrstuvwxyz "),RCLINE)
	2120	. . D SET ^RCDPAPLI( $J($P(RCLI ST(DATE,RC TRANDA),"^ ",2),9,2), RCLINE,53, 62)
	2121	. . D SET ^RCDPAPLI( $J($P(RCLI ST(DATE,RC TRANDA),"^ ",3),9,2), RCLINE,62, 71)
	2122	. . ; ad d marshal fee and co urt cost t o create a dmin dolla rs
	2123	. . S ADM IN=$P(RCLI ST(DATE,RC TRANDA),"^ ",4)+$P(RC LIST(DATE, RCTRANDA), "^",5)+$P( RCLIST(DAT E,RCTRANDA ),"^",6)
	2124	. . D SET ^RCDPAPLI( $J(ADMIN,9 ,2),RCLINE ,71,80)
	2125	;
	2126	; show tot als
	2127	S RCLINE=RC LINE+1
	2128	D SET^RCDPA PLI(" --- ------ --- ----- ---- ----",RCLI NE,1,80)
	2129	S RCLINE=RC LINE+1
	2130	D SET^RCDPA PLI(" TO TAL BALANC E FOR BILL ",RCLINE,1 ,80)
	2131	D SET^RCDPA PLI($J($P( RCTOTAL,"^ ",1),9,2), RCLINE,53, 62)
	2132	D SET^RCDPA PLI($J($P( RCTOTAL,"^ ",2),9,2), RCLINE,62, 71)
	2133	D SET^RCDPA PLI($J($P( RCTOTAL,"^ ",3)+$P(RC TOTAL,"^", 4)+$P(RCTO TAL,"^",5) ,9,2),RCLI NE,71,80)
	2134	;
	2135	; compare totals to what is st ored in th e file
	2136	N RCDATA7,R CFOUT
	2137	S RCDATA7=$ G(^PRCA(43 0,RCBILLDA ,7))
	2138	; for a wr ite-off bi ll, the ba lance shou ld equal a ll zeros, for
	2139	; these bi lls, node 7 is the w rite-off a mount, so for the ou t of
	2140	; balance check to w ork, node 7 needs to be adjust ed to all zeros
	2141	I $P(^PRCA( 430,RCBILL DA,0),"^", 8)=23 S RC DATA7="0^0 ^0^0^0"
	2142	I +$P(RCDAT A7,"^",1)' =+$P(RCTOT AL,"^",1) S RCFOUT=1
	2143	I +$P(RCDAT A7,"^",2)' =+$P(RCTOT AL,"^",2) S RCFOUT=1
	2144	I ($P(RCDAT A7,"^",3)+ $P(RCDATA7 ,"^",4)+$P (RCDATA7," ^",5))'=+$ P(RCTOTAL, "^",3) S R CFOUT=1
	2145	I $G(RCFOUT ) D
	2146	. S RCLINE =RCLINE+1
	2147	. D SET^RC DPAPLI(" " ,RCLINE,1, 80)
	2148	. S RCLINE =RCLINE+1
	2149	. D SET^RC DPAPLI(" STORED BAL ANCE FOR B ILL ( IN CORRECT )",RCLINE, 1,80)
	2150	. D SET^RC DPAPLI($J( $P(RCDATA7 ,"^",1),9, 2),RCLINE, 53,62)
	2151	. D SET^RC DPAPLI($J( $P(RCDATA7 ,"^",2),9, 2),RCLINE, 62,71)
	2152	. D SET^RC DPAPLI($J( $P(RCDATA7 ,"^",3)+$P (RCDATA7," ^",4)+$P(R CDATA7,"^" ,5),9,2),R CLINE,71,8 0)
	2153	;
	2154	; set valm cnt to num ber of lin es in the list
	2155	S VALMCNT=R CLINE
	2156	D HDR
	2157	Q
	2158	;
	2159	;
	2160	HDR ; header c ode for li st manager display
	2161	; requires rcbillda
	2162	N %,DATA,RC DEBTDA,RCD PDATA
	2163	;
	2164	D DIQ430^RC DPBPLM(RCB ILLDA,".01 ;8;")
	2165	;
	2166	S RCDEBTDA= $P(^PRCA(4 30,RCBILLD A,0),"^",9 )
	2167	S DATA=$$AC CNTHDR^RCD PAPLM(RCDE BTDA)
	2168	;
	2169	S %="",$P(% ," ",80)=" "
	2170	; PRCA4.5 276 - get EEOB indic ator for 1 st/3rd par ty payment and attac h to bill when appli cable
	2171	S PRCOUT=$$ COMP3^PRCA APR(RCBILL DA)
	2172	I PRCOUT'=" %" S PRCOU T=$$IBEEOB CK^PRCAAPR 1(RCBILLDA )
	2173	S VALMHDR(1 )=$E("Bill #: "_$G(P RCOUT)_$G( RCDPDATA(4 30,RCBILLD A,.01,"E") )_%,1,25)_ "Account: "_$P(DATA, "^")_$P(DA TA,"^",2)
	2174	S VALMHDR(2 )=$E("Stat us: "_$G(R CDPDATA(43 0,RCBILLDA ,8,"E"))_% ,1,25)_$E( " Addr: "_$P(DATA, "^",4)_", "_$P(DATA, "^",7)_", ")
	2175	; PRCA4.5 276 - show caption f or user
	2176	S VALMSG="\| % EEOB \| E nter ?? fo r more act ions \|" ; PRCA4.52 76
	2177	Q
	2178	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)
	2179	Q
	2180	;
	2181	;
	2182	EXIT ; exit lis t manager option and clean up
	2183	K ^TMP("RCD PBTLM",$J) ,^TMP("RCD PBTLMX",$J )
	2184	Q
	2185	;
	2186	;
	2187	SELBILL() ; select a bill
	2188	; returns -1 for tim eout or ^, 0 for no selection, or ien of bill
	2189	N %,%Y,C,DI C,DTOUT,DU OUT,RCBEFL UP,X,Y
	2190	N DPTNOFZY, DPTNOFZK S (DPTNOFZY ,DPTNOFZK) =1
	2191	N RCY,DIR,D IRUT
	2192	; allow use r to get t he record using bill # or ECME#
	2193	S DIR("A")= "Select (B )ILL or (E )CME#: "
	2194	S DIR(0)="S A^B:BILL N UMBER;E:EC ME#"
	2195	S DIR("B")= "B"
	2196	D ^DIR K DI R I $D(DIR UT) Q 0
	2197	S RCY=Y
	2198	I RCY="E" Q $$SELECME
	2199	S DIC="^PRC A(430,",DI C(0)="QEAM ",DIC("A") ="Select B ILL: "
	2200	S DIC("W")= "D DICW^RC BEUBI1"
	2201	; special lookup on input
	2202	S RCBEFLUP= 1
	2203	D ^DIC
	2204	I Y<0,'$G(D UOUT),'$G( DTOUT) S Y =0
	2205	Q +Y
	2206	;
	2207	;
	2208	GETTRANS(B ILLDA) ; original a mount goes first for bill
	2209	; returns list of tr ansactions in
	2210	; rclist(d ate,tranda )=trantype ^ princip le ^ inter est ^ admi n
	2211	; returns principle balance ^ interest b alance ^ a dmin balan ce
	2212	; ^ marshall f ee balance ^ court c ost balanc e
	2213	N %,ADMBAL, AMTDISP,CC BAL,DATA1, DATE,INTBA L,MFBAL,PR INBAL,RCDP DATA,TRAND A,VALUE
	2214	;
	2215	D DIQ430^RC DPBPLM(BIL LDA,"3;60; ")
	2216	;
	2217	K RCLIST
	2218	S (ADMBAL,C CBAL,INTBA L,MFBAL,PR INBAL)=0
	2219	S PRINBAL=R CDPDATA(43 0,BILLDA,3 ,"I")
	2220	; loop tra nsaction a nd add to list
	2221	S TRANDA=0 F S TRAND A=$O(^PRCA (433,"C",B ILLDA,TRAN DA)) Q:'TR ANDA D
	2222	. S DATA1= $G(^PRCA(4 33,TRANDA, 1))
	2223	. S DATE=$ P(DATA1,"^ ",9) I 'DA TE Q
	2224	. S VALUE= $$TRANVALU (TRANDA) I VALUE="" Q
	2225	. S RCLIST ($P(DATE," ."),TRANDA )=$P($G(^P RCA(430.3, +$P(DATA1, "^",2),0)) ,"^")_VALU E
	2226	. ;
	2227	. ; calcu late bill' s balance
	2228	. S PRINBA L=PRINBAL+ $P(VALUE," ^",2)
	2229	. S INTBAL =INTBAL+$P (VALUE,"^" ,3)
	2230	. S ADMBAL =ADMBAL+$P (VALUE,"^" ,4)
	2231	. S MFBAL= MFBAL+$P(V ALUE,"^",5 )
	2232	. S CCBAL= CCBAL+$P(V ALUE,"^",6 )
	2233	;
	2234	S DATE=$G(R CDPDATA(43 0,BILLDA,6 0,"I"))
	2235	; check to make sure activatio n date is not greate r than fir st transac tion
	2236	S %=$O(RCLI ST(0)) I D ATE>% S DA TE=%
	2237	S RCLIST(+$ P(DATE,"." ),0)="orig inal amoun t^"_RCDPDA TA(430,BIL LDA,3,"I")
	2238	;
	2239	Q PRINBAL_" ^"_INTBAL_ "^"_ADMBAL _"^"_MFBAL _"^"_CCBAL
	2240	;
	2241	;
	2242	TRANVALU(T RANDA) ; return the transacti on value a s displaye d (with + or - sign)
	2243	N TYPE,VALU E
	2244	S VALUE=$$T RANBAL^RCR JRCOT(TRAN DA)
	2245	; no dolla rs on tran saction
	2246	I '$P(VALUE ,"^"),'$P( VALUE,"^", 2),'$P(VAL UE,"^",3), '$P(VALUE, "^",4),'$P (VALUE,"^" ,5) Q ""
	2247	; check ty pe for pay ments, etc , make val ues (-) to subtract
	2248	S TYPE=$P($ G(^PRCA(43 3,TRANDA,1 )),"^",2)
	2249	I TYPE=2!(T YPE=8)!(TY PE=9)!(TYP E=10)!(TYP E=11)!(TYP E=14)!(TYP E=29)!(TYP E=34)!(TYP E=35)!(TYP E=41) D
	2250	. S $P(VAL UE,"^",1)= -$P(VALUE, "^",1)
	2251	. S $P(VAL UE,"^",2)= -$P(VALUE, "^",2)
	2252	. S $P(VAL UE,"^",3)= -$P(VALUE, "^",3)
	2253	. S $P(VAL UE,"^",4)= -$P(VALUE, "^",4)
	2254	. S $P(VAL UE,"^",5)= -$P(VALUE, "^",5)
	2255	;
	2256	; the foll owing tran saction ty pes should not chang e the bill s balance
	2257	; return t he amount displayed in the des cription a nd 0 for v alue
	2258	; refer to RC 3, r efer to DO J 4, reest ablish 5, returned 6 and 32
	2259	; repaym ent plan 2 5, amended 33, suspe nded 47, u nsuspended 46
	2260	K AMTDISP
	2261	I TYPE=3!(T YPE=4)!(TY PE=5)!(TYP E=6)!(TYPE =25)!(TYPE =32)!(TYPE =33)!(TYPE =46)!(TYPE =47) D
	2262	. S AMTDIS P=" ($"_$J ($P(VALUE, "^")+$P(VA LUE,"^",2) +$P(VALUE, "^",3)+$P( VALUE,"^", 4)+$P(VALU E,"^",5),0 ,2)_")"
	2263	. S VALUE= ""
	2264	Q $G(AMTDIS P)_"^"_VAL UE
	2265	;
	2266	SELECME() ;
	2267	; function takes the user input of the EC ME # to re turn a val id ien of file 430
	2268	; if an inv alid ECME is evaluat ed then th e process keeps aski ng the use r for ECME #
	2269	; until a v alid ECME# is entere d or until the user enters a " ^" or null value
	2270	; output - returns th e IEN of t he record entry in t he ACCOUNT RECEIVABL E file (#4 30) or "?? "
	2271	N RCECME,RC BILL,DIR,D IRUT,Y
	2272	S DIR(0)="F O^1:12^I X '?1.12N W !!,""Canno t contain alpha char acters"" K X"
	2273	S DIR("A")= "Select EC ME#"
	2274	RET D ^DIR I $D (DIRUT) Q 0
	2275	S RCECME=$S (+Y>0:Y,1: 0)
	2276	S RCBILL=$$ REC^IBRFN( RCECME) ; IA 2031
	2277	I RCBILL<0 W !!,"??" G RET
	2278	E W !!,$P( $G(^PRCA(4 30,+RCBILL ,0)),"^"), " "
	2279	Q RCBILL
	2280	; RCDPBTLM
	2281
	2282	Modified L ogic (Chan ges are in bold)
	2283	RCDPBTLM ; WISC/RFJ - bill tran sactions L ist Manage r top rout ine ;1 Jun 99
	2284	;;4.5;Acc ounts Rece ivable;1 14,148,153 ,168,169,1 98,247,271 ,276,307 ;Mar 20, 1 995;Build 71
	2285	;;Per VHA Directive 2004-038, this rout ine should not be mo dified.
	2286	;
	2287	; Referen ce to $$RE C^IBRFN su pported by DBIA 2031
	2288	;
	2289	; called from menu option (1 9)
	2290	;
	2291	N RCBILLD A,RCDPFXIT
	2292	;
	2293	F D Q:' RCBILLDA
	2294	. W !! S RCBILLDA =$$SELBILL
	2295	. I RCB ILLDA<1 S RCBILLDA=0 Q
	2296	. D EN^ VALM("RCDP TRANSACTI ONS LIST")
	2297	. ; fa st exit
	2298	. I $G( RCDPFXIT) S RCBILLDA =0
	2299	Q
	2300	;
	2301	;
	2302	INIT ; in itializati on for lis t manager list
	2303	; requir es rcbilld a
	2304	N ADMIN,D ATE,RCLINE ,RCLIST,RC TOTAL,RCTR AN,RCTRAND A
	2305	K ^TMP("R CDPBTLM",$ J),^TMP("V ALM VIDEO" ,$J)
	2306	;
	2307	; fast e xit
	2308	I $G(RCDP FXIT) S VA LMQUIT=1 Q
	2309	;
	2310	; set th e List Man ager line number
	2311	S RCLINE= 0
	2312	; set th e List Man ager trans action num ber
	2313	S RCTRAN= 0
	2314	;
	2315	; get tr ansactions and balan ce for bil l
	2316	S RCTOTAL =$$GETTRAN S(RCBILLDA )
	2317	;
	2318	S DATE="" F S DATE =$O(RCLIST (DATE)) Q: 'DATE D
	2319	. S RCT RANDA="" F S RCTRAN DA=$O(RCLI ST(DATE,RC TRANDA)) Q :RCTRANDA= "" D
	2320	. . S RCLINE=RC LINE+1
	2321	. . ;
	2322	. . ; create a n index ar ray for tr ansaction lookup in list
	2323	. . I RCTRANDA D
	2324	. . . S RCTRA N=RCTRAN+1
	2325	. . . S ^TMP( "RCDPBTLM" ,$J,"IDX", RCTRAN,RCT RAN)=RCTRA NDA
	2326	. . . D SET^R CDPAPLI(RC TRAN,RCLIN E,1,80,0,I ORVON,IORV OFF)
	2327	. . ;
	2328	. . D SET^RCDPA PLI($S(RCT RANDA:RCTR ANDA,1:" " ),RCLINE,4 ,80)
	2329	. . D SET^RCDPA PLI($E(DAT E,4,5)_"/" _$E(DATE,6 ,7)_"/"_$E (DATE,2,3) ,RCLINE,13 ,21)
	2330	. . D SET^RCDPA PLI($TR($P (RCLIST(DA TE,RCTRAND A),"^"),"A BCDEFGHIJK LMNOPQRSTU VWXYZ","ab cdefghijkl mnopqrstuv wxyz"),RCL INE,25,50)
	2331	. . D SET^RCDPA PLI($J($P( RCLIST(DAT E,RCTRANDA ),"^",2),9 ,2),RCLINE ,53,62)
	2332	. . D SET^RCDPA PLI($J($P( RCLIST(DAT E,RCTRANDA ),"^",3),9 ,2),RCLINE ,62,71)
	2333	. . ; add mars hal fee an d court co st to crea te admin d ollars
	2334	. . S ADMIN=$P( RCLIST(DAT E,RCTRANDA ),"^",4)+$ P(RCLIST(D ATE,RCTRAN DA),"^",5) +$P(RCLIST (DATE,RCTR ANDA),"^", 6)
	2335	. . D SET^RCDPA PLI($J(ADM IN,9,2),RC LINE,71,80 )
	2336	;
	2337	; show t otals
	2338	S RCLINE= RCLINE+1
	2339	D SET^RCD PAPLI(" - -------- - ------- -- ------",RC LINE,1,80)
	2340	S RCLINE= RCLINE+1
	2341	D SET^RCD PAPLI(" TOTAL BALA NCE FOR BI LL",RCLINE ,1,80)
	2342	D SET^RCD PAPLI($J($ P(RCTOTAL, "^",1),9,2 ),RCLINE,5 3,62)
	2343	D SET^RCD PAPLI($J($ P(RCTOTAL, "^",2),9,2 ),RCLINE,6 2,71)
	2344	D SET^RCD PAPLI($J($ P(RCTOTAL, "^",3)+$P( RCTOTAL,"^ ",4)+$P(RC TOTAL,"^", 5),9,2),RC LINE,71,80 )
	2345	;
	2346	; compar e totals t o what is stored in the file
	2347	N RCDATA7 ,RCFOUT
	2348	S RCDATA7 =$G(^PRCA( 430,RCBILL DA,7))
	2349	; for a write-off bill, the balance sh ould equal all zeros , for
	2350	; these bills, nod e 7 is the write-off amount, s o for the out of
	2351	; balanc e check to work, nod e 7 needs to be adju sted to al l zeros
	2352	I $P(^PRC A(430,RCBI LLDA,0),"^ ",8)=23 S RCDATA7="0 ^0^0^0^0"
	2353	I +$P(RCD ATA7,"^",1 )'=+$P(RCT OTAL,"^",1 ) S RCFOUT =1
	2354	I +$P(RCD ATA7,"^",2 )'=+$P(RCT OTAL,"^",2 ) S RCFOUT =1
	2355	I ($P(RCD ATA7,"^",3 )+$P(RCDAT A7,"^",4)+ $P(RCDATA7 ,"^",5))'= +$P(RCTOTA L,"^",3) S RCFOUT=1
	2356	I $G(RCFO UT) D
	2357	. S RCL INE=RCLINE +1
	2358	. D SET ^RCDPAPLI( " ",RCLINE ,1,80)
	2359	. S RCL INE=RCLINE +1
	2360	. D SET ^RCDPAPLI( " STORED BALANCE FO R BILL ( INCORRECT )",RCLI NE,1,80)
	2361	. D SET ^RCDPAPLI( $J($P(RCDA TA7,"^",1) ,9,2),RCLI NE,53,62)
	2362	. D SET ^RCDPAPLI( $J($P(RCDA TA7,"^",2) ,9,2),RCLI NE,62,71)
	2363	. D SET ^RCDPAPLI( $J($P(RCDA TA7,"^",3) +$P(RCDATA 7,"^",4)+$ P(RCDATA7, "^",5),9,2 ),RCLINE,7 1,80)
	2364	;
	2365	; set va lmcnt to n umber of l ines in th e list
	2366	S VALMCNT =RCLINE
	2367	D HDR
	2368	Q
	2369	;
	2370	;
	2371	HDR ; hea der code f or list ma nager disp lay
	2372	; requir es rcbilld a
	2373	N %,DATA, RCDEBTDA,R CDPDATA
	2374	;
	2375	D DIQ430^ RCDPBPLM(R CBILLDA,". 01;8;")
	2376	;
	2377	S RCDEBTD A=$P(^PRCA (430,RCBIL LDA,0),"^" ,9)
	2378	S DATA=$$ ACCNTHDR^R CDPAPLM(RC DEBTDA)
	2379	;
	2380	S %="",$P (%," ",80) =""
	2381	; PRCA4. 5276 - ge t EEOB ind icator for 1st/3rd p arty payme nt and att ach to bil l when app licable
	2382	S PRCOUT= $$COMP3^PR CAAPR(RCBI LLDA)
	2383	I PRCOUT' ="%" S PRC OUT=$$IBEE OBCK^PRCAA PR1(RCBILL DA)
	2384	S VALMHDR (1)=$E("Bi ll #: "_$G (PRCOUT)_$ G(RCDPDATA (430,RCBIL LDA,.01,"E "))_%,1,25 )_"Account : "_$P(DAT A,"^")_$P( DATA,"^",2 )
	2385	S VALMHDR (2)=$E("St atus: "_$G (RCDPDATA( 430,RCBILL DA,8,"E")) _%,1,25)_$ E(" Addr : "_$P(DAT A,"^",4)_" , "_$P(DAT A,"^",7)_" , "_$P(DAT A,"^",8)_" "_$P(DAT A,"^",9)_% ,1,55)
	2386	; PRCA4. 5276 - sh ow caption for user
	2387	S VALMSG= "\|% EEOB \| Enter ?? for more a ctions \|" ; PRCA4.5 276
	2388	Q
	2389	S VALMHDR (3)=" "_I ORVON_$E(" Bill Balan ce: "_$J($ P(RCTOTAL, "^")+$P(RC TOTAL,"^", 2)+$P(RCTO TAL,"^",3) +$P(RCTOTA L,"^",4)+$ P(RCTOTAL, "^",5),0,2 )_%,1,23)_ IORVOFF_" Phone: "_ $P(DATA,"^ ",10)
	2390	Q
	2391	;
	2392	;
	2393	EXIT ; ex it list ma nager opti on and cle an up
	2394	K ^TMP("R CDPBTLM",$ J),^TMP("R CDPBTLMX", $J)
	2395	Q
	2396	;
	2397	;
	2398	SELBILL() ; select a bill
	2399	; return s -1 for t imeout or ^, 0 for n o selectio n, or ien of bill
	2400	N %,%Y,C, DIC,DTOUT, DUOUT,RCBE FLUP,X,Y
	2401	N DPTNOFZ Y,DPTNOFZK S (DPTNOF ZY,DPTNOFZ K)=1
	2402	N RCY,DIR ,DIRUT
	2403	; allow u ser to get the recor d using bi ll# or ECM E#
	2404	S DIR("A" )="Select (B)ILL or (E)CME#: "
	2405	S DIR(0)= "SA^B:BILL NUMBER;E: ECME#"
	2406	S DIR("B" )="B"
	2407	D ^DIR K DIR I $D(D IRUT) Q 0
	2408	S RCY=Y
	2409	I RCY="E" Q $$SELEC ME
	2410	S DIC="^P RCA(430,", DIC(0)="QE AM",DIC("A ")="Select BILL: "
	2411	S DIC("W" )="D DICW^ RCBEUBI1"
	2412	; specia l lookup o n input
	2413	S RCBEFLU P=1
	2414	D ^DIC
	2415	I Y<0,'$G (DUOUT),'$ G(DTOUT) S Y=0
	2416	Q +Y
	2417	;
	2418	;
	2419	GETTRANS(B ILLDA) ; original a mount goes first for bill
	2420	; return s list of transactio ns in
	2421	; rclist (date,tran da)=tranty pe ^ princ iple ^ int erest ^ ad min
	2422	; return s principl e balance ^ interest balance ^ admin bal ance
	2423	; ^ marshall fee balan ce ^ court cost bala nce
	2424	N %,ADMBA L,AMTDISP, CCBAL,DATA 0,DATA1,DA TA9,DATE,I NTBAL,MFBA L,PRINBAL, RCDPDATA,T RANDA,VALU E
	2425	;
	2426	D DIQ430^ RCDPBPLM(B ILLDA,"3;6 0;")
	2427	;
	2428	K RCLIST
	2429	S (ADMBAL ,CCBAL,INT BAL,MFBAL, PRINBAL)=0
	2430	S PRINBAL =RCDPDATA( 430,BILLDA ,3,"I")
	2431	; loop t ransaction and add t o list
	2432	S TRANDA= 0 F S TRA NDA=$O(^PR CA(433,"C" ,BILLDA,TR ANDA)) Q:' TRANDA D
	2433	. S DATA1 =$G(^PRCA( 433,TRANDA ,1))
	2434	. S DATE= $P(DATA1," ^",9) I 'D ATE Q
	2435	. ; Don't include t ransaction s that hav e the INCO MPLETE TRA NSACTION F LAG (#10) set to YES and
	2436	. ; this transactio n was prev iously use d by the a uto-correc t program to correct an earlie r issue. P RCA4.530 7
	2437	. S DATA0 =$G(^PRCA( 433,TRANDA ,0))
	2438	. S DATA9 =$G(^PRCA( 433,TRANDA ,9))
	2439	. ; Check for Incom plete and previously fixed by auto-corre ct
	2440	. I $P(DA TA0,U,10), ($P(DATA9, U,4)) S VA LUE="" Q
	2441	. S VALUE =$$TRANVAL U(TRANDA) I VALUE="" Q
	2442	. S RCLIS T($P(DATE, "."),TRAND A)=$P($G(^ PRCA(430.3 ,+$P(DATA1 ,"^",2),0) ),"^")_VAL UE
	2443	. ;
	2444	. ; calc ulate bill 's balance
	2445	. S PRINB AL=PRINBAL +$P(VALUE, "^",2)
	2446	. S INTBA L=INTBAL+$ P(VALUE,"^ ",3)
	2447	. S ADMBA L=ADMBAL+$ P(VALUE,"^ ",4)
	2448	. S MFBAL =MFBAL+$P( VALUE,"^", 5)
	2449	. S CCBAL =CCBAL+$P( VALUE,"^", 6)
	2450	;
	2451	S DATE=$G (RCDPDATA( 430,BILLDA ,60,"I"))
	2452	; check to make su re activat ion date i s not grea ter than f irst trans action
	2453	S %=$O(RC LIST(0)) I DATE>% S DATE=%
	2454	S RCLIST( +$P(DATE," ."),0)="or iginal amo unt^"_RCDP DATA(430,B ILLDA,3,"I ")
	2455	;
	2456	Q PRINBAL _"^"_INTBA L_"^"_ADMB AL_"^"_MFB AL_"^"_CCB AL
	2457	;
	2458	;
	2459	TRANVALU(T RANDA) ; return the transacti on value a s displaye d (with + or - sign)
	2460	N TYPE,VA LUE
	2461	S VALUE=$ $TRANBAL^R CRJRCOT(TR ANDA)
	2462	; no dol lars on tr ansaction
	2463	I '$P(VAL UE,"^"),'$ P(VALUE,"^ ",2),'$P(V ALUE,"^",3 ),'$P(VALU E,"^",4),' $P(VALUE," ^",5) Q ""
	2464	; check type for p ayments, e tc, make v alues (-) to subtrac t
	2465	S TYPE=$P ($G(^PRCA( 433,TRANDA ,1)),"^",2 )
	2466	I TYPE=2! (TYPE=8)!( TYPE=9)!(T YPE=10)!(T YPE=11)!(T YPE=14)!(T YPE=29)!(T YPE=34)!(T YPE=35)!(T YPE=41) D
	2467	. S $P( VALUE,"^", 1)=-$P(VAL UE,"^",1)
	2468	. S $P( VALUE,"^", 2)=-$P(VAL UE,"^",2)
	2469	. S $P( VALUE,"^", 3)=-$P(VAL UE,"^",3)
	2470	. S $P( VALUE,"^", 4)=-$P(VAL UE,"^",4)
	2471	. S $P( VALUE,"^", 5)=-$P(VAL UE,"^",5)
	2472	;
	2473	; the fo llowing tr ansaction types shou ld not cha nge the bi lls balanc e
	2474	; return the amoun t displaye d in the d escription and 0 for value
	2475	; refe r to RC 3, refer to DOJ 4, ree stablish 5 , returned 6 and 32
	2476	; repa yment plan 25, amend ed 33, sus pended 47, unsuspend ed 46
	2477	K AMTDISP
	2478	I TYPE=3! (TYPE=4)!( TYPE=5)!(T YPE=6)!(TY PE=25)!(TY PE=32)!(TY PE=33)!(TY PE=46)!(TY PE=47) D
	2479	. S AMT DISP=" ($" _$J($P(VAL UE,"^")+$P (VALUE,"^" ,2)+$P(VAL UE,"^",3)+ $P(VALUE," ^",4)+$P(V ALUE,"^",5 ),0,2)_")"
	2480	. S VAL UE=""
	2481	Q $G(AMTD ISP)_"^"_V ALUE
	2482	;
	2483	SELECME() ;
	2484	; functio n takes th e user inp ut of the ECME # to return a v alid ien o f file 430
	2485	; if an i nvalid ECM E is evalu ated then the proces s keeps as king the u ser for EC ME #
	2486	; until a valid ECM E# is ente red or unt il the use r enters a "^" or nu ll value
	2487	; output - returns the IEN of the recor d entry in the ACCOU NT RECEIVA BLE file ( #430) or " ??"
	2488	N RCECME, RCBILL,DIR ,DIRUT,Y
	2489	S DIR(0)= "FO^1:12^I X'?1.12N W !!,""Can not contai n alpha ch aracters"" K X"
	2490	S DIR("A" )="Select ECME#"
	2491	RET D ^DIR I $D(DIRU T) Q 0
	2492	S RCECME= $S(+Y>0:Y, 1:0)
	2493	S RCBILL= $$REC^IBRF N(RCECME) ; IA 20 31
	2494	I RCBILL< 0 W !!,"?? " G RET
	2495	E W !!,$ P($G(^PRCA (430,+RCBI LL,0)),"^" )," "
	2496	Q RCBILL
	2497	;RCDPBTLM
	2498
	2499	Table 20: Routines: RCWROFF
	2500	Routines
	2501	Activities
	2502	Routine Na me
	2503	RCWROFF
	2504	Enhancemen t Category
	2505	New
	2506	Modify
	2507	Delete
	2508	No Change
	2509	RTM
	2510	US006
	2511	Related Op tions
	2512	Compromise d by RC/DO J, Termina ted by RC/ DOJ, Waive d by RC/DO J, Suspend an AR bil l, Comprom ise Termin ation, Fis cal Office r Terminat ed, Full W aiver, Par tial Waive r
	2513
	2514	Related Ro utines
	2515	Routines “ Called By”
	2516	Routines “ Called”
	2517
	2518
	2519	$$GETABILL ^RCBEUBIL, SHOWBILL^ RCWROFF1, $$ADD433^R CBEUTRA, $ $EDIT433^R CBEUTRA, S ETRCDOJ^RC BEUBIL, CH GSTAT^RCBE UBIL, PROC ESS^RCBEUT RA,
	2520	$$ACCK^PRC AACC,
	2521	$$LDATE^RC RJ, $$FPS^ RCAMFN0,
	2522	$$BUILDWR^ RCXFMSW1,
	2523
	2524	Routines
	2525	Activities
	2526	Data Dicti onary (DD) Reference s
	2527	N/A
	2528	Related Pr otocols
	2529	N/A
	2530	Related In tegration Control Re gistration s (ICRs)
	2531	N/A
	2532	Data Passi ng
	2533	Input
	2534	Output Re ference
	2535	Both
	2536	Global Re ference
	2537	Local
	2538	Input Attr ibute Name and Defin ition
	2539	Name: N/A
	2540	Definition :
	2541	Output Att ribute Nam e and Defi nition
	2542	Name: N/A
	2543	Definition :
	2544
	2545	Current Lo gic
	2546	RCWROFF ; WISC/RFJ-w rite off, terminated ;1 Feb 20 00
	2547	; ;4.5;Accou nts Receiv able;168 ,204,309 ;Mar 20, 1 995;Build 72
	2548	; ;Per VA Di rective 64 02, this r outine sho uld not be modified.
	2549	Q
	2550	;
	2551	;
	2552	8 ; terminat ed by fisc al officer (trantype =8) (menu option)
	2553	N RCDRSTRG
	2554	S RCDRSTRG= "11TERMINA TION DATE; "
	2555	S RCDRSTRG= RCDRSTRG_" 17;" ;ter mination r eason
	2556	D MAIN("8^F iscal Offi cer Termin ation",RCD RSTRG)
	2557	Q
	2558	;
	2559	;
	2560	9 ; terminat ed by comp romise (tr antype=9) (menu opti on)
	2561	N RCDRSTRG
	2562	S RCDRSTRG= "11TERMINA TION DATE; "
	2563	S RCDRSTRG= RCDRSTRG_" 17;" ;ter mination r eason
	2564	D MAIN("9^C ompromise Terminatio n",RCDRSTR G)
	2565	Q
	2566	;
	2567	;
	2568	A9 ; compromi sed by rc/ doj (use t rantype=9) (menu opt ion)
	2569	N RCDRSTRG
	2570	S RCDRSTRG= "11TERMINA TION DATE; "
	2571	S RCDRSTRG= RCDRSTRG_" 17;" ;ter mination r eason
	2572	D MAIN("9^C ompromise Terminatio n by RC/DO J",RCDRSTR G)
	2573	Q
	2574	;
	2575	;
	2576	10 ; waived i n full tra nsaction ( trantype=1 0) (menu o ption)
	2577	D MAIN("10^ Waiver","1 1WAIVED DA TE;")
	2578	Q
	2579	;
	2580	;
	2581	A10 ; waived b y rc/doj ( use tranty pe=10) (me nu option)
	2582	D MAIN("10^ RC/DOJ Wai ver","11WA IVED DATE; ")
	2583	Q
	2584	;
	2585	;
	2586	29 ; terminat ed by rc/d oj (tranty pe=29) (me nu option)
	2587	N RCDRSTRG
	2588	S RCDRSTRG= "11TERMINA TION DATE; "
	2589	S RCDRSTRG= RCDRSTRG_" 17;" ;ter mination r eason
	2590	D MAIN("29^ RC/DOJ Ter mination", RCDRSTRG)
	2591	Q
	2592	;
	2593	;
	2594	47 ; suspende d (trantyp e=47) (men u option)
	2595	N RCDRSTRG
	2596	S RCDRSTRG= "11SUSPEND ED DATE;"
	2597	S RCDRSTRG= RCDRSTRG_" 90R;" ;su spension t ype
	2598	S RCDRSTRG= RCDRSTRG_" S RCX=$$SU STP^RCWROF F(X);"
	2599	S RCDRSTRG= RCDRSTRG_" 5.02////^S X=RCX;" ;brief com ment
	2600	S RCDRSTRG= RCDRSTRG_" K RCX;"
	2601	D MAIN("47^ Suspension ",RCDRSTRG )
	2602	Q
	2603	;
	2604	SUSTP(X) ; suspensio n types fo r brief co mment in * 309
	2605	; input-cod e between 0 to 11
	2606	; output-te xt
	2607	N IBX
	2608	S IBX=$P($T (SUSTX+X), ";;",2)
	2609	Q IBX
	2610	;
	2611	SUSTX ; ;NOT CO-PA Y SUSPENSI ON
	2612	; ;INITIAL C O-PAY WAIV ER
	2613	; ;APPEAL CO -PAY WAIVE R
	2614	; ;ADMINISTR ATIVE SUSP ENSION
	2615	; ;COMPROMIS E
	2616	; ;TERMINATI ON
	2617	; ;BANKRUPTC Y CHAP 7
	2618	; ;BANKRUPTC Y CHAP 13
	2619	; ;BANKRUPTC Y OTHER
	2620	; ;PROBATE
	2621	; ;CHOICE
	2622	; ;DISPUTE
	2623	;
	2624	;
	2625	MAIN(RCTRT YPE,RCDRST RG) ; mai n subrouti ne to proc ess a waiv er, termin ation, sus
	2626	pended tra nsaction
	2627	; rctrtype = transac tion type^ descriptio n, example 10^waiver
	2628	; rcdrstrg = dr stri ng used wh en calling die
	2629	N BALANCE,D R,RCBILLDA ,RCTRANDA, Y
	2630	F D Q:RCB ILLDA<1
	2631	. K RCTRAN DA ;do no t leave ar ound in fo r loop
	2632	. ; selec t a bill
	2633	. S RCBILL DA=$$GETAB ILL^RCBEUB IL I RCBIL LDA<1 Q
	2634	. ; check to see if bill has been refer red to rc/ doj (6;4 = referral
	2635	date)
	2636	. I $P(RCT RTYPE,"^", 2)["RC/DOJ ",$P($G(^P RCA(430,RC BILLDA,6)) ,"^",4)="
	2637	" W !,"THI S ACCOUNT IS NOT REF ERRED TO R C/DOJ." Q
	2638	. ; lock the bill
	2639	. L +^PRCA (430,RCBIL LDA):5 I ' $T W !,"AN OTHER USER IS CURREN TLY WORKI
	2640	NG WITH TH IS BILL." Q
	2641	. D SHOWBI LL^RCWROFF 1(RCBILLDA )
	2642	. I '$G(^P RCA(430,RC BILLDA,7)) W !,"THIS BILL HAS NO PRINCIP AL BALANC
	2643	E." D UNLO CK Q
	2644	. ; ask t o enter tr ansaction
	2645	. S Y=$$AS KOK($P(RCT RTYPE,"^", 2)) I Y'=1 D UNLOCK S:Y<0 RCBI LLDA=0 Q
	2646	. ; add a new trans action to file 433
	2647	. S RCTRAN DA=$$ADD43 3^RCBEUTRA (RCBILLDA, $P(RCTRTYP E,"^")) I 'RCTRANDA
	2648	W !,$P(RC TRANDA,"^" ,2) D UNLO CK Q
	2649	. W !," T ransaction number ", RCTRANDA," added ... "
	2650	. ;
	2651	. ; set u p dr strin g for die call
	2652	. S DR=RCD RSTRG_"41; " ;commen t
	2653	. ; bill amount mov ed to tran saction am ount
	2654	. S BALANC E=$P($G(^P RCA(430,RC BILLDA,7)) ,"^",1,5)
	2655	. S DR=DR_ "15////"_( $P(BALANCE ,"^")+$P(B ALANCE,"^" ,2)+$P(BAL ANCE,"^",
	2656	3)+$P(BALA NCE,"^",4) +$P(BALANC E,"^",5))_ ";"
	2657	. I $P(BAL ANCE,"^",1 ) S DR=DR_ "81////"_+ $P(BALANCE ,"^",1)_"; " ;prin
	2658	cipal
	2659	. I $P(BAL ANCE,"^",2 ) S DR=DR_ "82////"_+ $P(BALANCE ,"^",2)_"; " ;inte
	2660	rest
	2661	. I $P(BAL ANCE,"^",3 ) S DR=DR_ "83////"_+ $P(BALANCE ,"^",3)_"; " ;admi
	2662	n
	2663	. I $P(BAL ANCE,"^",4 ) S DR=DR_ "84////"_+ $P(BALANCE ,"^",4)_"; " ;mars
	2664	hal fee
	2665	. I $P(BAL ANCE,"^",5 ) S DR=DR_ "85////"_+ $P(BALANCE ,"^",5)_"; " ;cour
	2666	t cost
	2667	. ;
	2668	. ; edit the fields
	2669	. S Y=$$ED IT433^RCBE UTRA(RCTRA NDA,DR)
	2670	. I 'Y W ! ,$P(Y,"^", 2) D DEL43 3^RCBEUTRA (RCTRANDA, "",0),UNLO CK Q
	2671	. ; set t he bill an d transact ion as RC/ DOJ
	2672	. I $P(RCT RTYPE,"^", 2)["RC/DOJ " D SETRCD OJ^RCBEUBI L(RCBILLDA ,RCTRANDA
	2673	,"RC")
	2674	. ; chang e the stat us of the bill
	2675	. I $P(RCT RTYPE,"^") '=47 D CHG STAT^RCBEU BIL(RCBILL DA,23) ;w rite off
	2676	. I $P(RCT RTYPE,"^") =47 D CHGS TAT^RCBEUB IL(RCBILLD A,40) ;s uspended
	2677	. ; mark transactio n as proce ssed
	2678	. D PROCES S^RCBEUTRA (RCTRANDA)
	2679	. ;
	2680	. ; creat e fms writ e off docu ment, if n ot accrued and not s uspended
	2681	(47) trans action
	2682	. I '$$ACC K^PRCAACC( RCBILLDA), $P($G(^PRC A(433,RCTR ANDA,1))," ^",2)'=47
	2683	D FMSDOC( RCTRANDA)
	2684	. ;
	2685	. W !," * * * * * " ,$P(RCTRTY PE,"^",2), " has been PROCESSED ! * * * *
	2686	*"
	2687	. I '$G(REFM S)&(DT>$$L DATE^RCRJR (DT)) S Y= $E($$FPS^R CAMFN01(DT ,1),1,5)_"
	2688	01" D DD^% DT W !!," * * * * Transmissi on will be held unti l "_Y_" * * * *"
	2689	. D UNLOCK
	2690	Q
	2691	;
	2692	;
	2693	FMSDOC(RCT RANDA) ; create fms write off document
	2694	N Y
	2695	W !!,"Creat ing FMS Wr ite-off do cument ... "
	2696	S Y=$$BUILD WR^RCXFMSW 1(RCTRANDA )
	2697	I Y W $P(Y, "^",2)," c reated."
	2698	E W "ERROR : ",$P(Y," ^",2)
	2699	Q
	2700	;
	2701	;
	2702	UNLOCK ; unlock b ill and tr ansaction
	2703	L -^PRCA(43 0,RCBILLDA )
	2704	I $G(RCTRAN DA) L -^PR CA(433,RCT RANDA)
	2705	Q
	2706	;
	2707	;
	2708	ASKOK(TRAN TYPE) ; a sk record transactio n
	2709	N DIR,DIQ2, DIRUT,DTOU T,DUOUT,X, Y
	2710	S DIR(0)="Y O",DIR("B" )="NO"
	2711	S DIR("A")= " Are you sure you want to re cord this bill as a "
	2712	I $L(TRANTY PE)<20 S D IR("A")=DI R("A")_TRA NTYPE
	2713	E S DIR("A ",1)=DIR(" A"),DIR("A ")=" "_TR ANTYPE
	2714	W ! D ^DIR
	2715	I $G(DTOUT) !($G(DUOUT )) S Y=-1
	2716	Q Y
	2717
	2718	Modified L ogic (Chan ges are in bold)
	2719	RCWROFF ;W ISC/RFJ-wr ite off, t erminated ;1 Feb 200 0 ;;4.5;Ac counts Rec eivable;** 168,204,30 9,301,307* ;Mar 20, 1995;Build 55 ;;Per VA Directi ve 6402, t his routin e should n ot be modi fied. Q ; ;8 ; termi nated by f iscal offi cer (trant ype=8) (me nu option) N RCDRSTR G S RCDRST RG="11TERM INATION DA TE;" S RCD RSTRG=RCDR STRG_"17;" ;termina tion reaso n D MAIN(" 8^Fiscal O fficer Ter mination", RCDRSTRG) Q ; ;9 ; t erminated by comprom ise (trant ype=9) (me nu option) N RCDRSTR G S RCDRST RG="11TERM INATION DA TE;" S RCD RSTRG=RCDR STRG_"17;" ;termina tion reaso n D MAIN(" 9^Compromi se Termina tion",RCDR STRG) Q ; ;A9 ; comp romised by rc/doj (u se trantyp e=9) (menu option) N RCDRSTRG S RCDRSTRG ="11TERMIN ATION DATE ;" S RCDRS TRG=RCDRST RG_"17;" ;terminati on reason D MAIN("9^ Compromise Terminati on by RC/D OJ",RCDRST RG) Q ; ;1 0 ; waived in full t ransaction (trantype =10) (menu option) D MAIN("10^ Waiver","1 1WAIVED DA TE;") Q ; ;A10 ; wai ved by rc/ doj (use t rantype=10 ) (menu op tion) D MA IN("10^RC/ DOJ Waiver ","11WAIVE D DATE;") Q ; ;29 ; terminated by rc/doj (trantype =29) (menu option) N RCDRSTRG S RCDRSTRG ="11TERMIN ATION DATE ;" S RCDRS TRG=RCDRST RG_"17;" ;terminati on reason D MAIN("29 ^RC/DOJ Te rmination" ,RCDRSTRG) Q ; ;47 ; suspended (trantype =47) (menu option) N RCDRSTRG S RCDRSTRG ="11SUSPEN DED DATE;" S RCDRSTR G=RCDRSTRG _"90R;" ; suspension type S RC DRSTRG=RCD RSTRG_"S R CX=$$SUSTP ^RCWROFF(X );" S RCDR STRG=RCDRS TRG_"5.02/ ///^S X=RC X;" ;brie f comment S RCDRSTRG =RCDRSTRG_ "K RCX;" D MAIN("47^ Suspension ",RCDRSTRG ) Q ;SUSTP (X) ; susp ension typ es for bri ef comment in 309 ; input-cod e between 0 to 11 ; output-tex t N IBX S IBX=$P($T( SUSTX+X)," ;;",2) Q I BX ;SUSTX ;;NOT CO-P AY SUSPENS ION ;;INIT IAL CO-PAY WAIVER ;; APPEAL CO- PAY WAIVER ;;ADMINIS TRATIVE SU SPENSION ; ;COMPROMIS E ;;TERMIN ATION ;;BA NKRUPTCY C HAP 7 ;;BA NKRUPTCY C HAP 13 ;;B ANKRUPTCY OTHER ;;PR OBATE ;;CH OICE ;;DIS PUTE ; ;MA IN(RCTRTYP E,RCDRSTRG ) ; main s ubroutine to process a waiver, terminati on, suspen ded transa ction ; rc trtype = t ransaction type^desc ription, e xample 10^ waiver ; r cdrstrg = dr string used when calling di e N BALANC E,DR,RCBIL LDA,RCTRAN DA,Y F D Q:RCBILLD A<1 . K RC TRANDA ;d o not leav e around i n for loop . ; selec t a bill . S RCBILLD A=$$GETABI LL^RCBEUBI L I RCBILL DA<1 Q
	2720	. I $D(^PR CA(430,"TC SP",RCBILL DA)) W !," BILL HAS B EEN REFERR ED TO CROS S-SERVICIN G.",!,"NO TRANSACTIO NS ARE ALL OWED." D Q ;prca4 .5301 . . I +RCTRTY PE=10!(+RC TRTYPE=47) !(+RCTRTYP E=9)!(+RCT RTYPE=8) W !," THE RECALL PR OCESS MUST BE UTILIZ ED PRIOR T O PERFORMI NG THIS FU NCTION " ;prca4 .5301 . ; check to see if bil l has been referred to rc/doj (6;4 = ref erral date ) . I $P(R CTRTYPE,"^ ",2)["RC/D OJ",$P($G( ^PRCA(430, RCBILLDA,6 )),"^",4)= "" W !,"TH IS ACCOUNT IS NOT RE FERRED TO RC/DOJ." Q . ; lock the bill . L +^PRCA( 430,RCBILL DA):5 I '$ T W !,"ANO THER USER IS CURRENT LY WORKING WITH THIS BILL." Q . D SHOWBI LL^RCWROFF 1(RCBILLDA ) . I '$G( ^PRCA(430, RCBILLDA,7 )) W !,"TH IS BILL HA S NO PRINC IPAL BALAN CE." D UNL OCK Q . ; ask to ent er transac tion . S Y =$$ASKOK($ P(RCTRTYPE ,"^",2)) I Y'=1 D UN LOCK S:Y<0 RCBILLDA= 0 Q . ; ad d a new tr ansaction to file 43 3 . S RCTR ANDA=$$ADD 433^RCBEUT RA(RCBILLD A,$P(RCTRT YPE,"^")) I 'RCTRAND A W !,$P(R CTRANDA,"^ ",2) D UNL OCK Q . W !," Transa ction numb er ",RCTRA NDA," adde d ..." . ; . ; set u p dr strin g for die call PRCA* 4.5307 - Move comme nt below b alance set s . S DR=R CDRSTRG ;_"41;" ;c omment . ; bill amou nt moved t o transact ion amount . S BALAN CE=$P($G(^ PRCA(430,R CBILLDA,7) ),"^",1,5) . S DR=DR _"15////"_ ($P(BALANC E,"^")+$P( BALANCE,"^ ",2)+$P(BA LANCE,"^", 3)+$P(BALA NCE,"^",4) +$P(BALANC E,"^",5))_ ";" . I $P (BALANCE," ^",1) S DR =DR_"81/// /"_+$P(BAL ANCE,"^",1 )_";" ;p rincipal . I $P(BALA NCE,"^",2) S DR=DR_" 82////"_+$ P(BALANCE, "^",2)_";" ;intere st . I $P( BALANCE,"^ ",3) S DR= DR_"83//// "_+$P(BALA NCE,"^",3) _";" ;ad min . I $P (BALANCE," ^",4) S DR =DR_"84/// /"_+$P(BAL ANCE,"^",4 )_";" ;m arshal fee . I $P(BA LANCE,"^", 5) S DR=DR _"85////"_ +$P(BALANC E,"^",5)_" ;" ;cour t cost . ; . ; PRCA 4.5307 - Comment sa ve is move d below ba lance sets . S DR=DR _"41;" . ; edit the fields . S Y=$$EDIT4 33^RCBEUTR A(RCTRANDA ,DR) . I ' Y W !,$P(Y ,"^",2) D DEL433^RCB EUTRA(RCTR ANDA,"",0) ,UNLOCK Q . ; set th e bill and transacti on as RC/D OJ . I $P( RCTRTYPE," ^",2)["RC/ DOJ" D SET RCDOJ^RCBE UBIL(RCBIL LDA,RCTRAN DA,"RC") . ; change the status of the bi ll . I $P( RCTRTYPE," ^")'=47 D CHGSTAT^RC BEUBIL(RCB ILLDA,23) ;write off . I $P(RC TRTYPE,"^" )=47 D CHG STAT^RCBEU BIL(RCBILL DA,40) ;su spended . ; mark tra nsaction a s processe d . D PROC ESS^RCBEUT RA(RCTRAND A) . ; . ; create fm s write of f document , if not a ccrued and not suspe nded (47) transactio n . I '$$A CCK^PRCAAC C(RCBILLDA ),$P($G(^P RCA(433,RC TRANDA,1)) ,"^",2)'=4 7 D FMSDOC (RCTRANDA) . ; . W ! ," * * * * ",$P(RC TRTYPE,"^" ,2)," has been PROCE SSED! * * * * " . I '$G(REFMS )&(DT>$$LD ATE^RCRJR( DT)) S Y=$ E($$FPS^RC AMFN01(DT, 1),1,5)_"0 1" D DD^%D T W !!," * * * Tra nsmission will be he ld until " _Y_" * * * *" . D UN LOCK Q ; ; FMSDOC(RCT RANDA) ; c reate fms write off document N Y W !!,"C reating FM S Write-of f document ... " S Y =$$BUILDWR ^RCXFMSW1( RCTRANDA) I Y W $P(Y ,"^",2)," created." E W "ERRO R: ",$P(Y, "^",2) Q ; ;UNLOCK ; unlock bi ll and tra nsaction L -^PRCA(43 0,RCBILLDA ) I $G(RCT RANDA) L - ^PRCA(433, RCTRANDA) Q ; ;ASKOK (TRANTYPE) ; ask rec ord transa ction N DI R,DIQ2,DIR UT,DTOUT,D UOUT,X,Y S DIR(0)="Y O",DIR("B" )="NO" S D IR("A")=" Are you su re you wan t to recor d this bil l as a " I $L(TRANTY PE)<20 S D IR("A")=DI R("A")_TRA NTYPE E S DIR("A",1 )=DIR("A") ,DIR("A")= " "_TRANTY PE W ! D ^ DIR I $G(D TOUT)!($G( DUOUT)) S Y=-1 Q Y
	2721	Templates
	2722	Table 21: Templates
	2723	Templates
	2724	Descriptio n
	2725	Template N ame
	2726	PRCA RE-ES TABLISH WR ITE-OFF
	2727	Enhancemen t Category
	2728	New
	2729	Modify
	2730	Delete
	2731	No Change
	2732	RSD
	2733
	2734	Template T ype
	2735	Sort
	2736	Input
	2737	Print
	2738	Other
	2739	Related Op tions
	2740	PRCAC TR R E-ESTABLIS H BILL
	2741
	2742	Related Ro utines
	2743	Routines “ Called By”
	2744	Routines “ Called”
	2745
	2746	PRCAWREA
	2747
	2748
	2749	Routines
	2750	Descriptio n
	2751	Data Dicti onary (DD) Reference s
	2752	N/A
	2753	Global Ref erences
	2754	N/A
	2755	Bulletins
	2756	Table 22: Bulletins
	2757	Bulletins
	2758	Descriptio n
	2759	Bulletin N ame
	2760
	2761	Enhancemen t Category
	2762	New
	2763	Modify
	2764	Delete
	2765	No Change
	2766	RTM
	2767
	2768
	2769	Related Ro utines
	2770	Routines “ Called By”
	2771	Routines “ Called”
	2772
	2773
	2774
	2775
	2776	Routines
	2777	Descriptio n
	2778	Mail Subje ct
	2779
	2780	Mail Group
	2781
	2782	Parameters
	2783
	2784	Data Dicti onary (DD) Reference s
	2785
	2786	Data Entri es Affecte d by the D esign
	2787	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.
	2788	Table 23: Data Entri es Affecte d by the D esign
	2789	Field Name
	2790	Current Va lue
	2791	New Value
	2792	AUTO-CORRE CTION DATE field (#9 4)
	2793	N/A
	2794	7 byte Fil eMan date i.e. 31610 20
	2795	AUTO-CORRE CTION TRAN S. AMOUNT field (#95 )
	2796	N/A
	2797	Dollar amo unt betwee n -999999 and 999999 , 2 decima l digits. 8 bytes m ax
	2798	AUTO-CORRE CTION TYPE OF ERROR field (#96 )
	2799	N/A
	2800	1 byte err or code
	2801	AUTO-CORRE CTION TICK ET FLAG (# 97)
	2802	N/A
	2803	1 byte Y/N Flag
	2804	Unique Rec ord(s)
	2805	Table 24: Unique Rec ord ID
	2806	Field Name (s)
	2807	Current Va lue
	2808	New Value
	2809
	2810
	2811
	2812	File or Gl obal Size Changes
	2813	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.
	2814	Table 25: File or Gl obal Size Changes
	2815	File/Globa l Name(s)
	2816	Estimated Increase
	2817	Estimated Decrease
	2818	AR TRANSAC TION file (#433)
	2819	AUTO-CORRE CTION DATE field (#9 4)
	2820	7 byte Fil eMan date i.e. 31610 20
	2821
	2822	AR TRANSAC TION file (#433)
	2823	AUTO-CORRE CTION TRAN S. AMOUNT field (#95 )
	2824	Dollar amo unt betwee n -999999 and 999999 , 2 decima l digits. 9 bytes m ax
	2825
	2826	AR TRANSAC TION file (#433)
	2827	AUTO-CORRE CTION TYPE OF ERROR field (#96 )
	2828	1 byte err or code
	2829
	2830	AR TRANSAC TION file (#433)
	2831	AUTO-CORRE CTION TICK ET FLAG (# 97)
	2832	1 byte Y/N Flag
	2833
	2834	Mail Group s
	2835	Table 26: Mail Group s
	2836	Mail Group s
	2837	Activities
	2838	Mail Group Name
	2839	PRCACPS
	2840	Enhancemen t Category
	2841	New
	2842	Modify
	2843	Delete
	2844	No Change
	2845	Related Op tions
	2846
	2847
	2848	Related Ro utines
	2849	Routines “ Called By”
	2850	Routines “ Called”
	2851
	2852	PRCACPS, P RCAACR, PR CAACR1
	2853
	2854
	2855	Mail Group s
	2856	Instructio ns
	2857	Data Dicti onary (DD) Reference s
	2858	N/A
	2859	Related Pr otocols
	2860	N/A
	2861	Mail Group Descripti on
	2862	This mail group will receive a notificat ions under the follo wing 3 cir cumstances :
	2863	The Patien t Statemen t Auto-Cor rection Pr ogram whet her run ma nually or through a scheduled TaskMan jo b has run to complet ion.
	2864	The Patien t Statemen t Auto-Cor rection Pr ogram whet her run ma nually or through a scheduled TaskMan jo b 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.
	2865	The Auto-C orrect Pat ient Discr epancy Rep ort is run and it de termines t hat the Pa tient Stat ement Auto -Correctio n program is still r unning or that it ma y have err ored out d uring a pr evious run and the u ser elects to run th e report a nyway.
	2866	Self-Enrol lment Allo wed
	2867	Yes
	2868	No
	2869	Type
	2870	Public
	2871	Private
	2872	Security K eys
	2873	Table 27: Security K eys
	2874	Security K eys
	2875	Activities
	2876	Security K ey Name
	2877	PRCA AUTOC RCT PGM
	2878	Enhancemen t Category
	2879	New
	2880	Modify
	2881	Delete
	2882	No Change
	2883	Related Op tions
	2884	Patient St atement Au to-Correct ion Progra m
	2885
	2886	Related Ro utines
	2887	Routines “ Called By”
	2888	Routines “ Called”
	2889
	2890	PRCACPS
	2891
	2892
	2893	Security K eys
	2894	Activities
	2895	Data Passi ng
	2896	Input
	2897	Output
	2898	Both
	2899	Global Re ference
	2900	Local Ref erence
	2901	Security K ey Descrip tion
	2902	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.
	2903	Subordinat e Keys
	2904	N/A
	2905	Mutually E xclusive K eys
	2906	N/A
	2907	Granting C ondition L ogic
	2908	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.
	2909
	2910	Current Lo gic
	2911	N/A
	2912
	2913	Modified L ogic (Chan ges are in bold)
	2914	N/A
	2915
	2916	Security K eys
	2917	Activities
	2918	Hierarchic al Precede nce
	2919	N/A
	2920	Options
	2921	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
	2922	Table 28: Option PRC A ACCOUNT MANAGEMENT
	2923	Options
	2924	Activities
	2925	Option Nam e
	2926	PRCA ACCOU NT MANAGEM ENT
	2927	Enhancemen t Category
	2928	New
	2929	Modify
	2930	Delete
	2931	No Change
	2932	Associated Menu Opti ons that w ill invoke this refe rence
	2933	XUCORE
	2934	=> PRCA MANAGER M ENU
	2935	=> P RCA CLERK MENU
	2936	= > PRCA ACC OUNT MANAG EMENT
	2937	Data Passi ng
	2938	Input
	2939	Output
	2940	Both
	2941	Global Re ference
	2942	Local Ref erence
	2943	Menu Text Descriptio n
	2944	Account Ma nagement
	2945	Option Typ e
	2946	Edit
	2947	Print
	2948	Menu
	2949	Inquire
	2950
	2951	Action
	2952	Run Routi ne
	2953	Other
	2954
	2955	Associated Routine
	2956	N/A
	2957	Option Def inition
	2958	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.
	2959
	2960	Current En try Action Logic
	2961	N/A
	2962
	2963	Modified E ntry Actio n Logic (C hanges are in bold)
	2964	N/A
	2965
	2966	Current Ex it Action Logic
	2967	N/A
	2968
	2969	Modified E xit Action Logic (Ch anges are in bold)
	2970	N/A
	2971
	2972	Table 29: Option PRC A AUTOCRCT PGM
	2973	Options
	2974	Activities
	2975	Option Nam e
	2976	PRCA AUTOC RCT PGM
	2977	Enhancemen t Category
	2978	New
	2979	Modify
	2980	Delete
	2981	No Change
	2982	Associated Menu Opti ons that w ill invoke this refe rence
	2983	PRCA ACCOU NT MANAGEM ENT
	2984	Data Passi ng
	2985	Input
	2986	Output
	2987	Both
	2988	Global Re ference
	2989	Local Ref erence
	2990	Menu Text Descriptio n
	2991	Patient St atement Au to-Correct ion Progra m
	2992	Option Typ e
	2993	Edit
	2994	Print
	2995	Menu
	2996	Inquire
	2997
	2998	Action
	2999	Run Routi ne
	3000	Other
	3001
	3002	Associated Routine
	3003	BEGIN^PRCA CPS
	3004	Option Def inition
	3005	This optio n runs the Auto-Corr ection pro gram for P atient
	3006	Statement discrepan cies.
	3007
	3008	Current En try Action Logic
	3009	N/A
	3010
	3011	Modified E ntry Actio n Logic (C hanges are in bold)
	3012	N/A
	3013
	3014	Current Ex it Action Logic
	3015	N/A
	3016
	3017	Modified E xit Action Logic (Ch anges are in bold)
	3018	N/A
	3019
	3020	Table 30: Option PRC A AUTOCRCT PGM QUEUE D
	3021	Options
	3022	Activities
	3023	Option Nam e
	3024	PRCA AUTOC RCT PGM QU EUED
	3025	Enhancemen t Category
	3026	New
	3027	Modify
	3028	Delete
	3029	No Change
	3030	Associated Menu Opti ons that w ill invoke this refe rence
	3031	N/A
	3032	Data Passi ng
	3033	Input
	3034	Output
	3035	Both
	3036	Global Re ference
	3037	Local Ref erence
	3038	Menu Text Descriptio n
	3039	Patient St atement Au to-Correct ion Progra m Queued
	3040	Option Typ e
	3041	Edit
	3042	Print
	3043	Menu
	3044	Inquire
	3045
	3046	Action
	3047	Run Routi ne
	3048	Other
	3049
	3050	Associated Routine
	3051	START^PRCA CPS
	3052	Option Def inition
	3053	This optio n supports the entry point for the Queue ing of the
	3054	Auto-Corr ection pro gram for P atient Sta tement dis crepancies .
	3055
	3056	Current En try Action Logic
	3057	N/A
	3058
	3059	Modified E ntry Actio n Logic (C hanges are in bold)
	3060	N/A
	3061
	3062	Current Ex it Action Logic
	3063	N/A
	3064
	3065	Modified E xit Action Logic (Ch anges are in bold)
	3066	N/A
	3067	Table 31: Option PRC A AUTOCRCT RPT
	3068	Options
	3069	Activities
	3070	Option Nam e
	3071	PRCA AUTOC RCT RPT
	3072	Enhancemen t Category
	3073	New
	3074	Modify
	3075	Delete
	3076	No Change
	3077	Associated Menu Opti ons that w ill invoke this refe rence
	3078	PRCA ACCOU NT MANAGEM ENT
	3079	Data Passi ng
	3080	Input
	3081	Output
	3082	Both
	3083	Global Re ference
	3084	Local Ref erence
	3085	Menu Text Descriptio n
	3086	Auto-Corre ct Patient Discrepan cy Report
	3087	Option Typ e
	3088	Edit
	3089	Print
	3090	Menu
	3091	Inquire
	3092
	3093	Action
	3094	Run Routi ne
	3095	Other
	3096
	3097	Associated Routine
	3098	PSACRT^PRC AACR
	3099	Option Def inition
	3100	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.
	3101
	3102	Current En try Action Logic
	3103	N/A
	3104
	3105	Modified E ntry Actio n Logic (C hanges are in bold)
	3106	N/A
	3107
	3108	Current Ex it Action Logic
	3109	N/A
	3110
	3111	Modified E xit Action Logic (Ch anges are in bold)
	3112	N/A
	3113
	3114	Protocols
	3115	Table 32: Protocols
	3116	Protocols
	3117	Activities
	3118	Protocol N ame
	3119	N/A
	3120	Enhancemen t Category
	3121	New Mo dify De lete No Change
	3122	Associated Protocols
	3123
	3124	Data Passi ng
	3125	Input Output Both Gl obal Refer ence Lo cal Refere nce
	3126	Item Text Descriptio n
	3127
	3128	Protocol T ype
	3129	Action Menu P rotocol Menu L imited Pro tocol E xtended Ac tion Di alog Ot her
	3130	Associated Routine
	3131
	3132
	3133	Current En try Action Logic
	3134
	3135
	3136	Modified E ntry Actio n Logic (C hanges are in bold)
	3137
	3138
	3139	Current Ex it Action Logic
	3140
	3141
	3142	Modified E xit Action Logic (Ch anges are in bold)
	3143
	3144	Remote Pro cedure Cal l (RPC)
	3145	Table 33: RPCs
	3146	RPCs
	3147	Activities
	3148	Name
	3149	N/A
	3150	TAG^RTN
	3151
	3152	Input Para meters
	3153
	3154	Results Ar ray
	3155	Single Va lue
	3156	Array
	3157	Word Proc essing
	3158
	3159	Global Ar ray
	3160	Global In stance
	3161
	3162	Descriptio n
	3163
	3164	Constants Defined in Interface
	3165	Table 34: Constants Defined in Interface
	3166	Name
	3167	Descriptio n
	3168	N/A
	3169
	3170	Variables Defined in Interface
	3171	Table 35: Variables Defined i n Interfac e
	3172	Name
	3173	Type
	3174	Descriptio n
	3175	N/A
	3176
	3177
	3178	Types Defi ned in Int erface
	3179	Table 36: Types Defi ned in Int erface
	3180	Name
	3181	Type
	3182	Descriptio n
	3183	N/A
	3184
	3185
	3186	GUI
	3187	There are no GUI int erfaces in Patient S tatement E nhancement s (PSE) Di screpancie s (Increme nt 1, Phas e 1).
	3188	Table 37: GUI
	3189	Unit Name
	3190	Descriptio n
	3191	N/A
	3192
	3193	GUI Classe s
	3194	Table 38: GUI Classe s
	3195	GUI Classe s
	3196	Instructio ns
	3197	Class Name
	3198	N/A
	3199	Derived Fr om Class
	3200
	3201	Purpose
	3202
	3203	Current Fo rm
	3204	N/A
	3205	Modified F orm
	3206	N/A
	3207	Components on Form
	3208	Table 39: Components on Form
	3209	Name
	3210	Type
	3211	Descriptio n
	3212	N/A
	3213
	3214
	3215	Events
	3216	Table 40: Events
	3217	Name
	3218	Type
	3219	Descriptio n
	3220	N/A
	3221
	3222
	3223	Methods
	3224	Table 41: Methods
	3225	Method Nam e
	3226	Procedure/ Function
	3227	Descriptio n
	3228	N/A
	3229
	3230
	3231	Special Re ferences
	3232	Table 42 : Special R eferences
	3233	Special Re ference Na me
	3234	Type
	3235	Descriptio n
	3236	N/A
	3237
	3238
	3239	Class Even ts
	3240	Table 43: Class Even ts
	3241	Name
	3242	Type
	3243	Descriptio n
	3244	N/A
	3245
	3246
	3247	Class Meth ods
	3248	Table 44: Class Meth ods
	3249	Name
	3250	Procedure/ Function
	3251	Descriptio n
	3252	N/A
	3253
	3254
	3255	Class Prop erties
	3256	Table 45: Class Prop erties
	3257	Class Prop erties Nam e
	3258	Type
	3259	Visibility
	3260	Descriptio n
	3261	N/A
	3262
	3263
	3264
	3265	Uses Claus e
	3266	N/A
	3267	Forms
	3268	Table 46: Forms
	3269	Forms
	3270	Descriptio n
	3271	Form Name
	3272	N/A
	3273	Enhancemen t Category
	3274	New
	3275	Modify
	3276	Delete
	3277	No Change
	3278	Form Funct ionality
	3279
	3280
	3281	Current Fo rm Layout
	3282
	3283
	3284	Modified F orm Layout (Changes are in bol d)
	3285
	3286	Functions
	3287	Table 47: Forms
	3288	Function N ame
	3289	Activities
	3290	Short Desc ription
	3291	N/A
	3292	Enhancemen t Category
	3293	New
	3294	Modify
	3295	Delete
	3296	No Change
	3297	Related Op tions
	3298
	3299
	3300	Related Ro utines
	3301	Routines “ Called By”
	3302	Routines “ Called”
	3303
	3304
	3305
	3306
	3307	Function N ame
	3308	Activities
	3309	Data Dicti onary (DD) Reference s
	3310
	3311	Related Pr otocols
	3312
	3313	Related In tegration Control Re gistration s (ICRs)
	3314
	3315	Data Passi ng
	3316	Input
	3317	Output
	3318	Both
	3319	Global Re ference
	3320	Local Ref erence
	3321	Input Attr ibute Name and Defin ition
	3322	Name:
	3323
	3324	Definition :
	3325	Output Att ribute Nam e and Defi nition
	3326	Name:
	3327
	3328	Definition :
	3329
	3330	Current Lo gic
	3331
	3332
	3333	Modified L ogic (Chan ges are in bold)
	3334
	3335	Dialog
	3336	Table 48: Dialog
	3337	Dialog
	3338	Instructio ns
	3339	Dialog Mes sage (Desc ription)
	3340	N/A
	3341	Enhancemen t Category
	3342	New
	3343	Modify
	3344	Delete
	3345	No Change
	3346	Dialog Mes sage (Desc ription) C ondition
	3347
	3348	Current Di alog Messa ge (Descri ption)
	3349
	3350	Modified D ialog Mess age (Descr iption) (C hanges are in bold)
	3351
	3352	Help Frame
	3353	Table 49: Help Frame
	3354	Help Frame
	3355	Descriptio n
	3356	Help Frame Text
	3357	N/A
	3358	Enhancemen t Category
	3359	New
	3360	Modify
	3361	Delete
	3362	No Change
	3363	Help Frame Text Call ing Mechan ism
	3364
	3365
	3366	Current He lp Frame T ext
	3367
	3368
	3369	Modified H elp Frame Text (Chan ges are in bold)
	3370
	3371	HL7 Applic ation Para meter
	3372	There is n o HL-7 mes saging in Patient St atement En hancements (PSE) Dis crepancies (Incremen t 1, Phase 1).
	3373	Table 50 : HL7 Appli cation Par ameter
	3374	HL7 Applic ation Para meter Name
	3375	Descriptio n: N/A
	3376
	3377	Enhancemen t Category
	3378	New
	3379	Modify
	3380	Delete
	3381	No Change
	3382
	3383	Applicatio n Status
	3384	Active
	3385	Inactive
	3386	Active
	3387	Inactive
	3388
	3389
	3390
	3391	Enhancemen t Category
	3392	Current
	3393	Modified
	3394	Facility N ame
	3395
	3396
	3397	Country Co de
	3398
	3399
	3400	HL7 Field Separator
	3401
	3402
	3403	HL7 Encodi ng Charact ers
	3404
	3405
	3406	Mail Group
	3407
	3408
	3409	HL7 Logica l Link
	3410	Table 51: HL7 Logica l Link
	3411	HL7 Logica l Link
	3412	Descriptio n
	3413	HL7 Logica l Link Par ameter Nam e
	3414	N/A
	3415
	3416	Enhancemen t Category
	3417	New
	3418	Modify
	3419	Delete
	3420	No Change
	3421
	3422	Enhancemen t Category
	3423	Current
	3424	Modified
	3425	Node
	3426
	3427
	3428	Institutio n
	3429
	3430
	3431	Domain
	3432
	3433
	3434	Autostart
	3435
	3436
	3437	Queue Size
	3438
	3439
	3440	LLP Type
	3441
	3442
	3443	COTS Inter face
	3444	There are no COTS in terfaces i n Patient Statement Enhancemen ts (PSE) D iscrepanci es (Increm ent 1, Pha se 1).
	3445	Table 52: COTS Inter face
	3446	COTS Inter face
	3447	Descriptio n
	3448	Communicat ion Method
	3449	N/A
	3450	Applicatio n Interfac e
	3451
	3452	Network De tailed Des ign
	3453	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.
	3454	Security a nd Privacy
	3455	The follow ing Securi ty and Pri vacy messu res were i mplemented in Patien t Statemen t Enhancem ents (PSE) Discrepan cies (Incr ement 1, P hase 1).
	3456	Security
	3457	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-C orrection Program.
	3458	Privacy
	3459	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 .
	3460	Service Or iented Arc hitecture / ESS Deta iled Desig n
	3461	N/A
	3462	Service De scription for <Consu med Servic e Name>
	3463	N/A
	3464	Service De sign for < Provided S ervice Nam e>
	3465	There are no Severic e Designs for Patien t Statemen t Enhancem ents (PSE) Discrepan cies (Incr ement 1, P hase 1).
	3466	Introducti on
	3467	N/A
	3468	Purpose an d Scope of Service
	3469	N/A
	3470	Links to O ther Docum ents
	3471	N/A
	3472	Service De tails
	3473	N/A
	3474	Service Id entificati on
	3475	Table 53: Service At tribute an d Value
	3476	Service At tribute
	3477	Value
	3478	Overview
	3479	N/A
	3480	Version
	3481
	3482	Latest Sta tus
	3483
	3484	Service Ty pe
	3485
	3486	Architectu re Layer
	3487
	3488	Business D omain
	3489
	3490	Service Do main
	3491
	3492	Business O rganizatio n and Owne r
	3493
	3494	Technical Organizati on and Own er
	3495
	3496	Developmen t Organiza tion and O wner
	3497
	3498	Support Or ganization and Owner
	3499
	3500	Target Con sumer Orga nization(s ) and Owne r(s)
	3501
	3502	Service Ve rsions
	3503	Table 54 : Service V ersions
	3504	Version Nu mbers
	3505	Current St atus of Ve rsion
	3506	A Brief De scription of the cha nge implem ented in t hat versio n
	3507	N/A
	3508
	3509
	3510
	3511
	3512
	3513
	3514
	3515
	3516	Summary of Design an d Platform Details
	3517	N/A
	3518	SOA Patter n(s) Imple mented
	3519	N/A
	3520	COTS Platf orm vendor names and versions for hostin g platform
	3521	N/A
	3522	Dependenci es
	3523	N/A
	3524	Service De sign Detai ls
	3525	N/A
	3526	Interface Technical Specs
	3527	N/A
	3528	Service In vocation T ype
	3529	N/A
	3530	Service In terface Ty pe
	3531	N/A
	3532	Service Na me
	3533	N/A
	3534	Interface
	3535	N/A
	3536	End Points
	3537	N/A
	3538	Operations or Method s
	3539	Table 55: Operations or Method s
	3540	Operation Name
	3541	Inputs
	3542	Outputs
	3543	Transactio nal Qualit ies if rel evant (Upd ating?, At omic?, Can participa te in tran saction?)
	3544	Pre and Po st Conditi ons
	3545	Exception (s)
	3546	N/A
	3547
	3548
	3549
	3550
	3551
	3552
	3553
	3554
	3555
	3556
	3557
	3558	Message Sc hemas
	3559	N/A
	3560	Informatio n Model
	3561	N/A
	3562	Class Diag ram and De scription of Entitie s Involved
	3563	N/A
	3564	Mappings f rom ELDM t o Standard s Based Sc hemas
	3565	N/A
	3566	Behavior M odel (AKA Use Case R ealization )
	3567	N/A
	3568	Use Cases (Use Case Model)
	3569	N/A
	3570
	3571	Interactio n Diagrams
	3572	N/A
	3573	Gap Analys is
	3574	Table 56 : Gap Analy sis
	3575	Design Ele ments
	3576	Policies / SLD eleme nts etc.↓
	3577	Design
	3578	Element A
	3579	Design
	3580	Element B
	3581	Design
	3582	Element C
	3583	Comment fo r non-conf ormance
	3584	N/A
	3585
	3586
	3587
	3588
	3589
	3590
	3591
	3592
	3593
	3594
	3595
	3596
	3597
	3598
	3599
	3600
	3601
	3602
	3603
	3604
	3605
	3606
	3607
	3608
	3609	Variances from Enter prise Targ et Archite cture
	3610	N/A
	3611	Variances from SLDs
	3612	N/A
	3613	Variances from Stand ards and P olicies
	3614	N/A
	3615	Justificat ion for Ex ceptions a nd Mitigat ion
	3616	N/A
	3617	External S ystem Inte rface Desi gn
	3618	There are no Externa l System I nterface D esign chan ges for Pa tient Stat ement Enha ncements ( PSE) Discr epancies ( Increment 1, Phase 1 ).
	3619	Interface Architectu re
	3620	N/A
	3621	Interface Detailed D esign
	3622	N/A
	3623	Human-Mach ine Interf ace
	3624	There are no Human-M achine Int erface cha nges for P atient Sta tement Enh ancements (PSE) Disc repancies (Increment 1, Phase 1).
	3625	Interface Design Rul es
	3626	N/A
	3627	Inputs
	3628	N/A
	3629	Outputs
	3630	N/A
	3631	Navigation Hierarchy
	3632	N/A
	3633	Screen [x. 1] N/A
	3634	Screen [x. 2] N/A
	3635	Screen [x. 3] N/A
	3636	Attachment A – Appro val Signat ures
	3637	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.
	3638	The Busine ss Sponsor and Proje ct Manager are requi red to sig n.
	3639
	3640	__________ __________ __________ __________ __________ __________ __________ ________
	3641	Signed:Dat e:
	3642	Business S ponsor
	3643
	3644	__________ __________ __________ __________ __________ __________ __________ ________
	3645	Signed:Dat e:
	3646	Project Ma nager
	3647
	3648	Additional Informati on
	3649	Identifica tion of Te chnology a nd Standar ds
	3650	Constraini ng Policie s, Directi ves and Pr ocedures
	3651	Requiremen ts Traceab ility Matr ix
	3652	Packaging and Instal lation
	3653	Design Met rics
	3654
	3655
	3656	Template R evision Hi story
	3657	Date
	3658	Version
	3659	Descriptio n
	3660	Author
	3661	June 2015
	3662	2.10
	3663	Changed He ading 1 de fault sett ing to eli minate pag e break be fore
	3664	Process Ma nagement
	3665	May 2015
	3666	2.9
	3667	Edited for Section 5 08 conform ance and r emediated with Commo n Look Off ice tool
	3668	Process Ma nagement
	3669	February 2 015
	3670	2.8
	3671	Incorporat es revisio ns from PM AS Reform Lockdown; namely rem oving requ irements f or informa tion that can be obt ained from other PMA S authorit ative sour ces.
	3672	Andrew Sla wter, Offi ce of Tech nology Str ategies
	3673	September 2014
	3674	2.7
	3675	Adds Enter prise Shar ed Service s terms an d requires AERB Comp liance Cer tificate a ttachment.
	3676	Process Ma nagement
	3677	August 201 4
	3678	2.6
	3679	Signature block upda te authori zed by AER B CR_0189 34
	3680	Process Ma nagement
	3681	March 2014
	3682	2.5
	3683	Section 50 8 repairs to new ver sion appro ved by AER B Chair ap proved
	3684	Process Ma nagement
	3685	August 201 3
	3686	2.3
	3687	Replaced t he Service Architect ure sub-se ction with new sub-s ections fo r consumed and provi ded servic es. Also a pplied mis cellaneous feedback from VA te am.
	3688	ASD Enterp rise Share d Services (ESS) Wor k Group
	3689	June 2013
	3690	1.3
	3691	Upgraded t o MS Offic e 2007-201 0 format
	3692	Process Ma nagement
	3693	June 2013
	3694	1.2
	3695	Address in consistenc ies in Sec tion 3, Co nceptual D esign, Cor rect headi ngs
	3696	Process Ma nagement
	3697	March 2013
	3698	1.1
	3699	Formatted to documen tation sta ndards and edited fo r Section 508 confor mance
	3700	Process Ma nagement
	3701	January 20 13
	3702	1.0
	3703	Initial Do cument
	3704	PMAS Busin ess Office
	3705
	3706
	3707	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