RE: [MEDITECH-L] Magic 5.4: Inactivating Providers with no patients inthe last 2 years

Mon, 15 May 2006 12:46:27 -0700 

All messages should be posted in plain text.  HTML will be converted to
attachments.    The meditech-l web site is MTUsers.com
======================================
Carla,
 
Try this one out.  It hasn't been run in awhile, but it looks like it may be what you're looking for.
 

David L. Carmody
Sr. Systems Analyst/
Customer Service Coordinator
Frederick Memorial Hospital
240.566.3722
[EMAIL PROTECTED]


From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Carla Fuller
Sent: Friday, May 12, 2006 3:39 PM
To: Meditech-L list
Subject: [MEDITECH-L] Magic 5.4: Inactivating Providers with no patients inthe last 2 years

Happy Friday Fellow L'ers!
 
I was asked by my director to post the following question:
 
We would like to clean up our Provider Dictionary and are having trouble coming up with a report that would list Providers that have not had a patient in our Facility in the last 2 years. Does anyone have something already written that would give us this information?
 
Thanks for your help,
 
Carla Fuller, CPC
War Memorial Hospital
Applications Specialist
500 Osborn Blvd
Sault Ste. Marie, MI 49783
(906) 635-4663
[EMAIL PROTECTED]

 

MEDITECH.CUST.RPTS^FREDERICK MEMORIAL HOSPITAL^FRD^LIVE.MIS^MIS-DLC^20060515^A^
@@VERSION:1
ABS.PAT.zcus.find.inactive.doctors
@@PROC
ABS.PAT.zcus.find.inactive.doctors
[EMAIL PROTECTED]
@@MACRO
ABS.PAT.zcus.find.inactive.doctors.M.build.doctors
0
""^AAA,
1
;
2
; MIS provider dictionary - Build list of active providers
3
;
4
+/["MIS.DOC.DICT.c.dr.type",XX]^XX,
5
E(XX)^VAL,
6
;VAL is equal to 127 if ALL is selected for Doctor type
7
;
8
DO{+\GGG[AAA]^AAA [EMAIL PROTECTED] @BUILD.MV}}
9

10
VERIFY.DOCTOR
11
\GGG[AAA]|0="Y"&(/["MIS.DOC.DICT.c.dr.type",\GGG[AAA]|8]=1!(VAL=127))
12

13
BUILD.MV
14
\GGG[AAA]|1^/MV["TR",AAA,4],
15
AAA^/MV["TR",AAA,3],
16
\GGG[AAA]|4_", "_\GGG[AAA]|5^/MV["TR",AAA,5],
17
\GGG[AAA]|17^/MV["TR",AAA,6],
18
\GGG[AAA]|8^/MV["TR",AAA,7]
19

20
COMMENTS
21
;12/23/02 - KBUDD - Modified report to allow user to search by individual Doctor
22
;type if they choose.
@@MACRO
ABS.PAT.zcus.find.inactive.doctors.M.elim.doctors
0
;eliminate doctors from list
1
""^/MV["TR",@admit.phys^AA,3]^/MV["TR",AA,4]^/MV["TR",AA,5]^/MV["TR",AA,6]^/MV["TR",AA,7],
2
@attending.phys^AA,
3
""^/MV["TR",AA,3]^/MV["TR",AA,4]^/MV["TR",AA,5]^/MV["TR",AA,6]^/MV["TR",AA,7],
4
@family.phys^AA,
5
""^/MV["TR",AA,3]^/MV["TR",AA,4]^/MV["TR",AA,5]^/MV["TR",AA,6]^/MV["TR",AA,7],
6
@prin.surg^AA,
7
""^/MV["TR",AA,3]^/MV["TR",AA,4]^/MV["TR",AA,5]^/MV["TR",AA,6]^/MV["TR",AA,7],
8
""^AAA,
9
; ABS.PAT abs.pat.physicians
10
DO{+:[EMAIL PROTECTED],"A","P",AAA]^AAA 
""^/MV["TR",AAA,3]^/MV["TR",AAA,4]^/MV["TR",AAA,5],
11
""^/MV["TR",AAA,6]^/MV["TR",AAA,7]}
@@RPT
Yzcus.find.inactive.doctorsABS.PATmainInactive 
DoctorsREG1210066066abs.patNNYNY
abs.pat.adm.x01Y
AT      719932915
MIS-KNBE
F1

xx.b.adm.datexx.b.adm2L
F1CDAT
DATE
F1CJFY
L
F1CLEN
8
F1CVAL
b.adm.date
F2

xx.e.adm.datexx.e.adm2L
F2CDAT
DATE
F2CJFY
L
F2CLEN
8
F2CVAL
e.adm.date
F3

xx.dr.code
xx.dr.code2L
F3CDAT
FREE
F3CJFY
L
F3CLEN
10
F3CVAL
1
F4

xx.dr.name
xx.dr.name2L
F4CDAT
FREE
F4CJFY
L
F4CLEN
30
F4CVAL
1
F5

xx.dr.address
xx.dr.address2L
F5CDAT
FREE
F5CJFY
L
F5CLEN
30
F5CVAL
1
F6
xx.on.staffS2L
F6CDAT
FREE
F6CJFY
L
F6CLEN
1
F6CVAL
1
F7
xx.prov.type
xx.prov.ty2L
F7CDAT
FREE
F7CJFY
L
F7CLEN
10
F7CVAL
1
FS1
adm.date
FS1SE1
GE
b.adm.dateFrom Admit Date
FS1SE2
LE
e.adm.dateThru Admit Date
FS2
dr.typeMIS.DOC.DICT
FS2SE3
LIMIS.DOC.DICT.c.dr.typeMIS.DOC.DICTDoctor TypeALL
FI217
81
FI317
82
FI70
103
FI713
304
FI747
305
FI782
16
FI789
107
FI80
103
FI813
304
FI847
305
FI882
16
FI889
107
I1
adm.x
L1
HP
L1CBX
GRAY
L2
HP
L3
HP
L4
HP
L5
HP
L6
HP
L6CBX
WHITE
L7
TR
L7CMV
TR
L8
TR
L9
TR
L10
TR
L11
TR
N1
AL START build.doctors
N2
AL D elim.doctors
P1
 
P2
FROM ADMIT DATE: xx.b.adm
P3
THRU ADMIT DATE: xx.e.adm
P4
 
P5
MNEMONIC     NAME                              CITY AND STATE                   
ON STF   PROV TYPE
P6
 
P7
xx.dr.code   xx.dr.name____________________    xx.dr.address_________________   
  S      xx.prov.ty
P8
xx.dr.code   xx.dr.name____________________    xx.dr.address_________________   
  S      xx.prov.ty
P9
 
P10
END OF REPORT: ABS.PAT.zcus.find.inactive.doctors
P11
 
T1
adm.dateNONENASC
T2
urnNONENASC
U       719935920
MIS-KNBLIVE.MIS
U       719936119
MIS-KNBLIVE.MIS
U       719939125
MIS-KNBLIVE.MIS
U       719939211
MIS-KNBLIVE.MIS
U       720529966
MIS-KNBLIVE.MIS
U       724932521
MIS-KLKLIVE.MIS
U       735134453
MRD-EMKLIVE.MIS
U       735299236
MRD-EMKLIVE.MIS
U       735316499
MRD-EMKLIVE.MIS
U       735322700
MRD-EMKLIVE.MIS
@@SCRN
Yzcus.find.inactive.doctorsABS.PAT"ABS.PAT.zcus.find.inactive.doctors2NN
CS
12211
P1
Inactive Doctors%Z.on.device
P1F1

b.adm.date111769136913
P1F1CID.ARG
BR
P1F1CIFE
1
P1F1CREQ
1
P1F2

e.adm.date121769136913
P1F2CID.ARG
BR
P1F2CIFE
1
P1F2CREQ
1
P1F3
        c.dr.typeMIS.DOC.DICT250401401
P1F3CID.ARG
BA
P1F3CIFE
1
P1F3CMAP
D(127),"ALL"
P1F3CREQ
N
P1F3CREQI
N
P1MF3
31
P1P1
From Admit Date  @1
P1P2
Thru Admit Date  @2
P1P3
 
P1P4
Doctor Type
P1P5
@3
P1P6
@3
P1P7
@3
P1S1
N,1,2
P1S2
N153/T2,3

_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l

Reply via email to