I am attaching the source code of the BAR report I had asked for help
for. Thanks for all the input and responses. The report I am sending
is now exactly what the agency wants. I hope this may help out someone
else down the road in not spending as much time as I did working on one.
Thanks again,
Brandon Gauntt
Director - Information Services
Hopkins County Memorial Hospital
903-439-4054 Office
903-348-2112 Cell
This e-mail, facsimile, or letter and any files or attachments transmitted with
it contains information that is confidential and privileged. This information
is intended only for the use of the individual(s) and entity(ies) to whom it is
addressed. If you are the intended recipient, further disclosures are
prohibited without proper authorization. If you are not the intended recipient,
any disclosure, copying, printing, or use of this information is strictly
prohibited and possibly a violation of federal or state law and regulations. If
you have received this information in error, please notify Baylor Health Care
System immediately at 1-866-402-1661 or via e-mail at [EMAIL PROTECTED] Baylor
Health Care System, its subsidiaries, and affiliates hereby claim all
applicable privileges related to this information.
REPORT LIST
PAGE 1
RUN ON 03/27/07-0934
HCD.LIVE
RUN BY BRANDONG
BAR.PAT.zcus.bkg.sbc.download.not.orig
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
SCREEN: BAR.PAT.zcus.bkg.sbc.download.not.orig
LN
+----------1---------2---------3---------4---------5---------6---------7--------+
1=c.agency
1 |Enter Agency: @1
|
+-------------------------------------------------------------------------------+
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
REPORT: BAR.PAT.zcus.bkg.sbc.download.not.orig
CPI=12
CPL=200 LPI=6 LPG=60 PGSZ=66 MARG=0 BAN=NONE
TYPE LN
+----------1---------2---------3---------4---------5---------6---------7---------8---------9---------0---------1---------2---------3---------4---------5---------6---------7---------8---------9---------+
D 1
|number______pt.last.name___pt.first.name__soc.sec________dob_______guar.name________________guar.adr1_____________________guar.adr2_____________________guar.city___________guguar.zip__
|
D 2
|guar.home.phone___guar.emp.name_________________guar.emp.phone____guar.soc.sec___adm.datedis.datear.chg.to__balancefin.class_visit.reason__________________
|
D 3
|ins1.name.disp___________ins1.addr.disp________________ins1.city.disp________________inins1.zip.dins1.phone.disxx.sub.name______________insured.policy.numb___________subscriber.grou
|
D 4 |subscriber__xx.ins.dxx.ins.pinsured.name.out_________ser.date
|
+--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
LINE ATTRIBUTES
---- ----------
1 NL = N
2 NL = N
3 NL = N
FIELDS
------
1 number = number
21 visit.reason = visit.reason [LEN=30]
2 pt.last.name = pt.last.name
22 ins1.name.disp = ins1.name.disp [LEN=25]
3 pt.first.name = pt.first.name
23 ins1.addr.disp = ins1.addr.disp
4 soc.sec = soc.sec
24 ins1.city.disp = ins1.city.disp
5 dob = dob
25 in = ins1.state.disp
6 guar.name = guar.name [LEN=25]
26 ins1.zip.d = ins1.zip.disp
7 guar.adr1 = guar.adr1
27 ins1.phone.dis = ins1.phone.disp [LEN=14]
8 guar.adr2 = guar.adr2
28 xx.sub.name = xx.sub.name [DAT=FREE, JFY=L,
LEN=25,
9 guar.city = guar.city
[EMAIL
PROTECTED],ins]^SUB,@MRI.SUBSCRIBER.subs.name[SUB]}]
10 gu = guar.state
29 insured.policy.numb = insured.policy.number
11 guar.zip = guar.zip
30 subscriber.grou = subscriber.group.number
12 guar.home.phone = guar.home.phone
31 subscriber = subscriber.relationship
13 guar.emp.name = guar.emp.name
32 xx.ins.d = xx.ins.amt.pay [DAT=DATE, JFY=R,
LEN=10,
14 guar.emp.phone = guar.emp.phone
[EMAIL
PROTECTED],insurance,+insurance.bill.ledger[accoun
15 guar.soc.sec = guar.soc.sec
t,insurance,""]]]
16 adm.date = adm.date
33 xx.ins.p = xx.ins.date.pay [DAT=SMONEY,
JFY=L, LEN=8,
17 dis.date = dis.date
[EMAIL
PROTECTED],insurance,+insurance.bill.ledger[account,insuran
18 ar.chg.to = ar.chg.total
ce,""]]]
19 balance = balance
34 insured.name.out = insured.name.out [LEN=25]
20 fin.class = fin.class
35 ser.date = ser.date
(CONTINUED)
REPORT LIST
PAGE 2
RUN ON 03/27/07-0934
HCD.LIVE.Ring
BAR.PAT.zcus.bkg.sbc.download.not.orig {continued}
DETAIL SEGMENT: insurances
INDEX FILE: number.x
SORT FIELDS PRODUCED BY DETAIL SEGMENT/INDEX FILE
1 number
2 account
3 insurance
# SELECT OP PROMPT/VALUE
DEFAULT/KEYWORD
-------- -- ------------
---------------
1 agency EQ Enter Agency:
2 balance GT 0
NOTES: SFF NO
PFF NO
EFF NO
FD 124
RL 600
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit MTUsers.NET.
To check the status of the meditech-l, visit MTUsers.NET.
For help, email [EMAIL PROTECTED]
Visit the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
