[Robelle-l] Outputting "FREEFORM" fields.

[Catherine Litten]

This is a multi-part message in MIME format.

------=_NextPart_000_0021_01C3B37C.BF777720
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 8bit

Sorry I didn't see this sooner here is the file I use to define Diagnoses
dataset in P2000 ( I am assuming you use P2000 as I recognized the field
names).  If you are getting these directly from the dataset and not
subfiling them first you need to use 'S-' before the defines of field names
that exist as keys in the database:

BA DBMR1.DATA,5,?
;
Get DIAGNOSES
define S-E-PAT-ACCT-NBR,1,8,byte, 1
define ENTITY-ID,1,2,byte, 1
define PAT-ACCT-NBR,3,6,packed, 1
define S-ICD-9-CM-CODE,9,6,byte, 1
define MR-CD-TYPE,9,1,byte, 1
define ICD-9-CM-CD,10,5,byte, 1
define ICD9-1-DGTS,10,1,byte, 1
define ICD9-4-DGTS,11,4,byte, 1
define FILLER-1,15,1,byte, 1
define CD-ASSGNMT-TYP,16,1,byte, 1
define CO-MORBID-IND,17,1,byte, 1
define MR-STATISTIC,18,1,byte, 1
define DIAG-CNTRY-FLDS,19,8,byte, 1
define DIAG-US-FLDS,19,8,byte, 1
define DIAG-UK-FLDS,19,8,byte, 1
define DIAG-US-PAD,19,8,byte, 1
define DIAG-CONS-SPEC,19,3,byte, 1
define DIAG-UK-PAD,22,5,byte, 1
define DIAG-CONSULTANT,27,5,display, 1
define ADM-IND,32,1,byte, 1
define S-DIAGNOSES-PAD,33,2,byte, 1
define S-PRI-DIAG-SRT,35,2,display, 1

Catherine Litten, 
Senior Programmer Analyst 
Valley Presbyterian Hospital 
www.valleypres.org 
********************************* 
The thoughts, comments, and opinions expressed herein are mine.  They do not
reflect those of my employer, nor anyone else.
***This E-mail is covered by the Electronic Communications Privacy Act, 18
U.S.C. §§ 2510-2521 and is legally privileged. This information is
confidential information and is intended only for the use of the individual
or entity named above. If the reader of this message is not the intended
recipient, you are hereby notified that any dissemination, distribution or
copying of this communication is strictly prohibited.  If you have received
this transmission in error, please notify the sender immediately by return
electronic transmission and then immediately delete this transmission.***
-----Original Message-----
From: robelle-l-admin@robelle.com [mailto:robelle-l-admin@robelle.com]On
Behalf Of Gates, Scott
Sent: Tuesday, November 25, 2003 7:08 AM
To: SUPRTOOL (robelle-l@robelle.com)
Subject: [Robelle-l] Outputing "FREEFORM" fields.


I have a subfile with two fields in it defined as "FREEFORM" by quiz 
DIAG-CONSULTANT                      FREEFORM         34     5 
PRI-DIAG-SRT                         FREEFORM         42     2 
I have tried every way in the book to define these so I can use them with
suprtool. 
DEFINE DIAG-CONSULTANT , 35,  5, display  ,1 
DEFINE PRI-DIAG-SRT    , 43,  2, display  ,1 
I've changed the type to BYTE, INTEGER,  REAL, IEEE, DOUBLE, LONG, PACKED,
PACKED*, LOGICAL, AND CHARACTER.  
The only is the gibberish that outputs.   I COULD backup and recode
everything for quiz, I suppose, but, that would add a bunch of time I don't
have. 
These are part of a BIG character record in image, just in case you're going
to ask.  


Thanks in advance.  
Scott Gates 

------=_NextPart_000_0021_01C3B37C.BF777720
Content-Type: application/ms-tnef;
	name="winmail.dat"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
	filename="winmail.dat"

eJ8+IhoBAQaQCAAEAAAAAAABAAEAAQeQBgAIAAAA5AQAAAAAAADoAAEIgAcAGAAAAElQTS5NaWNy
b3NvZnQgTWFpbC5Ob3RlADEIAQ2ABAACAAAAAgACAAEGgAMADgAAANMHCwAZABEAMwAAAAIARAEB
A5AGAMgMAAAlAAAACwACAAEAAAALACMAAAAAAAMAJgAAAAAACwApAAAAAAADAC4AAAAAAAMANgAA
AAAAHgBwAAEAAAAqAAAAW1JvYmVsbGUtbF0gT3V0cHV0dGluZyAiRlJFRUZPUk0iIGZpZWxkcy4A
AAACAXEAAQAAABYAAAABw7O/zSXmz44on5hIO4dQpIC0Z1J5AAACAR0MAQAAACUAAABTTVRQOkNB
VEhFUklORS5MSVRURU5AVkFMTEVZUFJFUy5PUkcAAAAACwABDgAAAABAAAYOAFq+vb+zwwECAQoO
AQAAABgAAAAAAAAA1x58DOAcw0O9RJMMFq1CFsKAAAALAB8OAQAAAAIBCRABAAAAJAgAACAIAAB6
DQAATFpGdRa39CcDAAoAcmNwZzEyNfIyAPszNgHoAqQD4wIABGNoCsBzZXQwIF8HEwKDAFAEVRCp
TBEQdMEEkCBHb3RoDeACgGZ9CoAIyCA7CW8OMDVLAoAKgXYIkHdrC4BkujQMYGMAUAsDC2BuDhA4
MDMzC6YGAAWwcnkAIEkgZGlkbiczBUARAGUgE8EEIHNv+wIgE3FoBJAZ8BoxE8AZ8G5mAxAZ8BlA
dREAGgBvLxlQARALgBnwRAcwZ27mbxEABCBkYQGQEQEbEE0DoFAB0B5QICgZMWEmbR7ABBB1bQuA
ZyD+eQhgG/MeNB2wGTEJcAWgmR0QaXoJgBtFZWwhUEZuHtAHkCkuIBkwZvcfgwrAGfBnE0EfUhtR
HBHzGWAgwXRsGSADUhtDHYbPAHAh8ROwGcB1YhuRI5X/HuAbkBDwBUAfkhqQIUIcUIEcAidTLScg
YgEQ3wWwGfIkERyDBCBvIrAhueMaAR2QIGV4BAAlsQQguGtleQQgHgElFmIdse46CqIKhAqBYwBB
DDAAQAggQkEc0EJNUjEALkRBVEEsNSwuPy1EFQAtU0cd0URJgEFHTk9TRVMtRCMcdSiwRS1QL0At
QQRDQzKATkJSLDEgLDgsYnkTYCwgAxdjMZdFTlRJVFnoLUlEMyEyM28cojJrUDMsNiwKsGMr8GQD
M74osElDRC05LQRDTTmwT0RFLDl/N7E1nxyxLvA5sDmANPBQvzoiMzA6jxyxOWg1MTAvcQc8vz3E
OaAxLURHVG5TPqI8nz/4NEClMzA0g0FPHKJGSUxMRTvQPTMwMS+AQT8ckzlxQVP6UzDwTTKAPCEz
IDfARa+BRrRPLU1PUkI1ILU1EE41MTdIHztnUy9Q/zTQTCA5YDMgM1BKnxyUMNGLObA0wFI1AEZM
REDh9zpAM19OCFUosE8PUB9RIP5LUV9Sb1ETMmA1MVQvTev0T04osFM8QEyhOkA3oHdWv1MZViIy
NXA+71esVX5ML1A0wDVgSnAvgBlgc70LUXkzvlYwOdBKIjM1cH9M/zHVMMdWExgwNW8xxlCsUklh
o0wQUl2gMy+A32LAXhkuEAFALVRiAtFmNU5DHZAa0RyiTGkTUW7fM7AtRAZgAwAFsVADYAnA9x7Q
B4AFwEEiECSQJ3EtRP5WB0AbsBkgaVAHkGLiByF1A6BIHTBwaBAHQGh1d6ltEC52avNwa2EuBbC7
H3AtRCpur2+taHVUG2HDE8AIYGdodHMzsAWg72mxAjBx0SXSb2xQaQEGMf8rYG2yEQAhUBrSHgEj
Eh9B7mUicXEhGSBkHFAmEglwvmYbsCRwcVIcESohbRkg8ycQC1BveQSQM7AdIAXA3wBwH5AcsSHQ
EQAubkdxIL8aMTJAAMADERoxBaB2GuF3IVBi4BtDRXYiA2ADAGN7RvByEXV7sR2QcyNpUGk1bVBj
GSBBJHAzsTggIFUuUy5DInBcJ7RhN35SIA4wGBAtDjHvLoAl0hoxG7BnavEZIG2w930AG6EjUGQi
cHljC4ApEf8AwHyCehSBkBlwckEHMYF733+FC4BoMQEAcsFuJJIFsT8bUhwCKiEbUhbxgJFkdfds
gQWxgtJ0GSAiEiFQAaDfemEicCKhG1IJcGEEgYYE+xoxB4FzHQAbAyYShkSElf8gwQUgCJACMDOw
ItYa0nrR/yYRBpAIkCFSKzF4ERlRc8EfH0F8czOwXhF7gGlideeB8wWxBaBweR9SiYZyAl98NxsS
j5Ikc22wbxPQYv9oEIDyIpYQ0HpwILJ0QHpw/yFSGyJpkACAH0AEEIIDA6D/BJADYHehC1CJIBwR
jWN65P8RAISxBcAHcIfxBzATYCSR+3rRCXB0CHCWYXtYlYsl0n8bUYIhmJkBABuwE2CVL25WLm+h
LUQtntJPBRBnu47hAyBNihSe0y1ERgNhGjogsG8o8GsBLWwtK4kwH0FAoTUucgEgW5t50hxAOqE/
okhdTwOgVEJlENBsIrBPIrBHu5jhcdFTBaACQGiHdKEQ2lQKUHMdgF5xTnphBtAPE3EOMDOwHkEz
IDc6cjB9wEFNcMWjUAYAVeFkQFRPT0wegKN3oiq2KWiFJmBqJGGhEFsIAG2jlV2lwI/gcI/hH2Ei
IEZSRUVGScBNIr8hpG3gLUstUxlAlFNhJkXvGfAD8BPAGgB3HFCvRB3yP2gQHGWIEQQgrpl60XF1
/yEgaHVczSKAto+2wa6mtsf0MzS2wzVodWRKts+3X/m7FjQyuxO9QLB7j6EhQXZlenEZIHdeYCw2
BuBv/mscOSPUGmAZMXxgA6AcA/8nArHjHyBtsBxABvB+MbU0667QSiBFXL4gM7BlEbkxf49TXkIi
gDMgw1y53jOwNO83oL2Bxb+woieUcRDBF/CLIUWHoHAcI0JZVDogcxkwNMBFR0UgxXGusEEOTMvx
rsDL4URPVUJrRRAzsExYUEczsDJgQ6xLRTUwzkUqzdJHOWCLzNJdgERG8EhBUjKgfcvQUiJxcMiF
Axsln1Bi/6hhBACyESsiCGCuEm3guxH/GUA58F1Q0BAs8DgAwtAlw/8gwgEAvuQTwR9hhVK00svx
/cKycB0xM7CP0TOwKxOyQN51IeGJMIgR14FuEMCGA/8HcRkyAiAZoZRSw0ZxIRwRvyMSCrHTISKw
sUBJ4EfKYv9pkCRwE3EgwgsgstMAwCNQfTOwahwAHeN8YBwRH5En3SMibyOTHFAdsGvQxy1K+3Eg
AHBrLCOJMG1Q2RB08l9ohaaCpfRodRQhAOSQHgBCEAEAAAA2AAAAPDI2QjdEQkRBNzlFMUQ3MTFC
NTc2MDBBMEM5QzU1MTUwMjlCRkEzQGFzaGxhbmQwMW1zeD4AAAALAAGACCAGAAAAAADAAAAAAAAA
RgAAAAADhQAAAAAAAAMAA4AIIAYAAAAAAMAAAAAAAABGAAAAABCFAAAAAAAAAwAHgAggBgAAAAAA
wAAAAAAAAEYAAAAAUoUAAH1uAQAeAAmACCAGAAAAAADAAAAAAAAARgAAAABUhQAAAQAAAAQAAAA5
LjAACwANgAggBgAAAAAAwAAAAAAAAEYAAAAAgoUAAAEAAAAeAA6ACCAGAAAAAADAAAAAAAAARgAA
AACDhQAAAQAAABMAAAAzNzE1ODQ0MDEtMjYxMTIwMDMAAAsAOoAIIAYAAAAAAMAAAAAAAABGAAAA
AA6FAAAAAAAAAwA8gAggBgAAAAAAwAAAAAAAAEYAAAAAEYUAAAAAAAADAD2ACCAGAAAAAADAAAAA
AAAARgAAAAAYhQAAAAAAAAsAUoAIIAYAAAAAAMAAAAAAAABGAAAAAAaFAAAAAAAAAwBTgAggBgAA
AAAAwAAAAAAAAEYAAAAAAYUAAAAAAAACAfgPAQAAABAAAADXHnwM4BzDQ71EkwwWrUIWAgH6DwEA
AAAQAAAA1x58DOAcw0O9RJMMFq1CFgIB+w8BAAAAmQAAAAAAAAA4obsQBeUQGqG7CAArKlbCAABQ
U1RQUlguRExMAAAAAAAAAABOSVRB+b+4AQCqADfZbgAAAEM6XERvY3VtZW50cyBhbmQgU2V0dGlu
Z3NcVjkzMzUyMlxMb2NhbCBTZXR0aW5nc1xBcHBsaWNhdGlvbiBEYXRhXE1pY3Jvc29mdFxPdXRs
b29rXG1haWxib3gucHN0AAAAAAMA/g8FAAAAAwANNP03AAACAX8AAQAAAD8AAAA8TURFRExORUVF
RUJDR0tLQktDQUtHRU1BTUdBRC5jYXRoZXJpbmUubGl0dGVuQHZhbGxleXByZXMub3JnPgAAAwAG
ED5WJ+YDAAcQcwkAAAMAEBAAAAAAAwAREAAAAAAeAAgQAQAAAGUAAABTT1JSWUlESUROVFNFRVRI
SVNTT09ORVJIRVJFSVNUSEVGSUxFSVVTRVRPREVGSU5FRElBR05PU0VTREFUQVNFVElOUDIwMDAo
SUFNQVNTVU1JTkdZT1VVU0VQMjAwMEFTSVJFAAAAAD+4

------=_NextPart_000_0021_01C3B37C.BF777720--