[U2] CSV output
If you are into kewl, crazy short cuts (and other clever devices) For those who are lazy to write fancy routines to create CSV files, I've created two dict items, namely COMMA and QUOTE, as follows: COMMA 001: I 002: , 003: 004: , 005: 1T QUOTE 001: I 002: '' 003: 004: 005:1T To create a CSV file of _ANY_ file data, these dict items either need to be in the DICT of every file, OR once off in the DICT.DICT (I think - correct me anyone?) csv imports don't mind excessive spaces... LIST DFQ COMMA DFQ.ID COMMA ACCOUNT COMMA DATEOP COMMA 21:47:38 07-02-08 DFQUOTE.FILE. , QUOTE NO. , ACCOUNT... , DATEOP , 208-015646-01 , 208-015646-01 , 208-015646 , 04/05/2007 , 205-011887-AH , 205-011887-AH , 205-011887 , 10/11/2000 , 202-012637-AH , 202-012637-AH , 202-012637 , 16/02/2005 , to handle numeric fields simply quote them LIST DFQ COMMA QUOTE DFQ.ID QUOTE COMMA QUOTE ACCOUNT QUOTE 21:50:36 07-02 DFQUOTE.FILE. ,'QUOTE NO.','ACCOUNT... ' '208-015646-01,'208-015646-01','208-015646 ' '205-011887-AH,'205-011887-AH','205-011887 ' '202-012637-AH,'202-012637-AH','202-012637 ' '202-014954-01,'202-014954-01','202-014954 ' And here is where I used it 0001: PA 0002: DISPLAY Saving output as AAQ 0003: SP-ASSIGN HS 0004: SETPTR 0,300,,0,0,3,BRIEF,NFMT, BANNER AAQ 0005: SORT DFQ _ 0006: WITH INVOICE _ 0007: BY ACCOUNT _ 0008: BY DATEOP _ 0009: COMMA DFQ.ID _ 0010: COMMA ACCOUNT _ 0011: COMMA DATEOP _ 0012: COMMA _ 0013: COMMA DFQ.HPHONE _ 0014: COMMA HPM.HOMEPHONE _ 0015: COMMA _ 0016: COMMA DFQ.WPHONE _ 0017: COMMA HPM.WORKPHONE _ 0018: COMMA _ 0019: COMMA DFQ.CELL _ 0020: COMMA HPM.CELLPHONE _ 0021: COMMA _ 0022: COMMA DFQ.SPWORKNO _ 0023: COMMA HPM.SPWORKPHONE _ 0024: COMMA _ 0025: COMMA DFQ.SPCELL _ 0026: COMMA HPM.SPCELLPHONE _ 0027: LPTR NOPAGE HDR.SUP ID.SUP --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Pick programmer needed full time
Job Title: PROGRAMMER ANALYST/SR PROGRAMMER ANALYST School/Center: SCHOOL OF VETERINARY MEDICINE Department: IT Group/Deans Office Salary Grade: Employee Type: Exempt, Monthly Paid Hours: 35 Position Length: Ongoing Duties: Lead programmer for developing EMR (Electronic Medical Record) in animal hospital and some web development as applies to hospital systems and services when needed. Develop a web-based, unified, medical case record system both for hospital use and to support data access for academic research. Design a single system that extracts (text and visual) data from all of the following environments: PICK, MS SQL 7.0, Oracle, Access, Filemaker, Mumps, etc. Meet with hospital services and academic sections in VHUP to identify existing (paper) forms and procedures in order to program databases - and when necessary, web interfaces - that allow for the capture, storage and presentation of this data electronically. Evaluate select technologies and tools to support the EMR. Develop support structures to facilitate end user access to data. Represent the School on relevant university committees, and offer expert consultation by keeping informed of programming, middleware and relevant web-related technologies. Reports directly to the IT Director of Hospital systems and indirectly reports, and collaborates on a team lead by, current webmaster. Qualifications: BA/BS or equivalent. Minimum of 3 years progressively responsible experience in application and/or systems programming plus 2 to 3 years experience in web site development, page design implementation with demonstrated artistic programming ability. At least 2 years programming experience: Allaires Cold Fusion experience and database design required; PHP, Java, JavaScript, XML, etc. also desired. Experience with MS Access and SQL 7.0 required, other databases (PICK, MUMPS) a plus. Programming expertise in HTML, Perl, Java, C and JavaScript; complete understanding of mechanisms involved in CGI-bin scripting, and query/report tools (i.e., Business Objects and Access) Must be able to work as a member of a team; Must have excellent analytical skills; must have excellent verbal written communication skills and excellent interpersonal skills; demonstrated planning and organizational skills. Expert ability with Web browsers. For Senior Programmer Analyst: Same as above except minimum of 5 years of progressively responsible experience. Special Requirements: Background Check Required Please visit https://jobs.hr.upenn.edu and reference job posting# 080123810 for more information. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] a data view utility of great use
And since I'm into sharing my dark secrets, here's a very useful util I
wrote a while back (probably from some-one else's inspiration, so don't sue
me...)
GLOBAL catalog it, then at the UV prompt enter
SEE HPMAST
HPMAST.FILE - KEY...: 001-01011 RECORD #1
001: F1.:
002: F2.: 05/02/96
003: SURNAME.UP.: BARTLETT
004: INIT...: DQ
005: Title..: MR
006: First names: } }B
007: D.O.B..:
008: F8.:
009: Employer...:
010: Salary.:0.00
011: F11:
012: F12:
013: F13:
014: Spouse init:
015: Title..:
016: First names:
017: D.O.B..:
018: F18:
019: Spouse emp.:
020: Spouse Sal.:0.00
It will display each record alongside the dict item it found associated (it
does get confused if your site is as well documented as this one..not!), but
still worthwhile seeing data in relation to other data
* SEE
* D.Bartlett 02Dec96
* View contents of files alongside dictionary headings
*
* Mod DQB 18Aug98 Try get the conversions right
* Mod DQB 15Oct98 Clearselect after viewing
* Mod DQB 01Apr98 Added 'N'ext record capability
* Mod DQB 06Dec99 Added 'SEE FILENAME RECORD', ie no need for 'ITEM='
*
GOSUB HOUSEKEEPING
GOSUB PARSE.SENTENCE
GOSUB SHOW.PARAMS
GOSUB PROCESS.DICT
* Now get a list together so we have something to process
BEGIN CASE
CASE LISTNAME NE '' ; EXECUTE 'GET.LIST ':LISTNAME
CASE ITEMNAME NE '' ; FORMLIST ITEMNAME
CASE 1
SELECT HANDLE
END CASE
* then process these records...
LOOP
READNEXT KEY ELSE EXIT
GOSUB PROCESS.DATA
UNTIL DONE = 1
GOSUB PROMPT.USER
IF DONE = 1 THEN EXIT
REPEAT
CLEARSELECT
STOP
*
PROCESS.DATA:
DONE = 0
RECORD.NO += 1
READ RECORD FROM HANDLE, KEY THEN
IF TO.LPTR = 'LPTR' THEN PRINTER ON
GOSUB PRINT.HDR
*Display all the fields...
FOR F = 1 TO FLDS
* Display field number...
PRINT FMT(F,'30R') : ': ':
* then the DICTIONARY name for this field...
PRINT FMT(DICT.FLDSF, '27.L'):': ':
* ...and extract the data...
LINE = RECORDF
* Check if there's a conversion...?
IF DICT.CONVF NE '' THEN GOSUB CONVERT.DATA
* And finally show the (converted) data, stripped out into
* separate lines of 45 chars each...
LOOP
THIS.LN = LINE[1,45]
PRINT THIS.LN : SPACE(46 - LEN(THIS.LN)) :
LINE = TRIM(LINE[46,LEN(LINE)])
IF TO.LPTR NE 'LPTR' THEN GOSUB CHECK.PAGING
UNTIL LINE = ''
PRINT '***: ' : SPACE(29) :
REPEAT
IF TO.LPTR = 'LPTR' THEN PRINT
NEXT F
IF TO.LPTR = 'LPTR' THEN PRINTER OFF
END ELSE
IF ITEMNAME NE '' THEN
PRINT ; PRINT CHAR(7)
PRINT 'Item ':ITEMNAME:
PRINT ' does not exist in ':FILENAME:'!':
INPUT JUNK:
STOP
END
END
RETURN
*
CHECK.PAGING:
LN += 1
IF LN GE LINES.PAGE THEN
INPUT CONT,1
CONT = UPCASE(CONT)
* Mod DQB 01Apr98 Added 'N'ext record capability
BEGIN CASE
CASE CONT = 'Q'
DONE = 1 ; F = FLDS ; EXIT.FLAG = 'QUIT'
CASE CONT = 'N'
F = FLDS ; EXIT.FLAG = 'NEXT'
CASE 1
GOSUB PRINT.HDR
END CASE
END ELSE
PRINT
END
RETURN
*
PRINT.HDR:
* Display the filename, and key...
PRINT @(-1)
PRINT FMT((FILENAME : ' - KEY'),'32.L'):': ':KEY:
IF KEY.CONV NE '' THEN
OUTKEY = '(' :OCONV(KEY,KEY.CONV) : ')'
PRINT FMT(OUTKEY,'20R') :
END
PRINT SPACE(5):'RECORD #':RECORD.NO
PRINT
LN = 2
RETURN
*
CONVERT.DATA:
* If there are MVs / SMs, convert each individually...
MULTI.LINE = 0
BEGIN CASE
CASE INDEX(LINE, @FM, 1) ; MULTI.LINE = 1
CASE INDEX(LINE, @VM, 1) ; MULTI.LINE = 1
CASE INDEX(LINE, @SM, 1) ; MULTI.LINE = 1
END CASE
IF MULTI.LINE = 1 THEN
NEW.LINE = ''
QQ.MORE = 1
LOOP
REMOVE NEXT.VAL FROM LINE SETTING
RE: [U2] Web Developer Needed Full Time ***REVISED***
Can you at least put the state in which the position is in? Country/state/city would be ideal. Glen Batchelor IT Director All-Spec Industries phone: (910) 332-0424 fax: (910) 763-5664 E-mail: [EMAIL PROTECTED] Web: http://www.all-spec.com Blog: http://blog.all-spec.com -Original Message- From: [EMAIL PROTECTED] [mailto:owner-u2- [EMAIL PROTECTED] On Behalf Of Mathew Varghese Sent: Thursday, February 07, 2008 4:44 PM To: u2-users@listserver.u2ug.org Subject: [U2] Web Developer Needed Full Time ***REVISED*** Please disregard initial posting for job# 080123810 description and requirements * Title PROGRAMMER ANALYST SR School Name University of Pennsylvania School of Veterinary Medicine (58) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] a data view utility of great use
Very nice. I changed LINES.PAGE under HOUSEKEEPING from
LINES.PAGE = 22
to
LINES.PAGE = @crthigh - 3
so it would display on any size display that is recognized by the TERM
setting for the height.
Since I always use 'non-standard' terminal sizes (132x75 for programming,
80x60 for regular work, and every size in between) having it recognize the
size of the current terminal session makes it very much nicer for me.
My 2 bits.
Karl
quote who=Dennis Bartlett
And since I'm into sharing my dark secrets, here's a very useful util I
wrote a while back (probably from some-one else's inspiration, so don't
sue
me...)
GLOBAL catalog it, then at the UV prompt enter
SEE HPMAST
HPMAST.FILE - KEY...: 001-01011 RECORD #1
001: F1.:
002: F2.: 05/02/96
003: SURNAME.UP.: BARTLETT
004: INIT...: DQ
005: Title..: MR
006: First names: } }B
007: D.O.B..:
008: F8.:
009: Employer...:
010: Salary.:0.00
011: F11:
012: F12:
013: F13:
014: Spouse init:
015: Title..:
016: First names:
017: D.O.B..:
018: F18:
019: Spouse emp.:
020: Spouse Sal.:0.00
It will display each record alongside the dict item it found associated
(it
does get confused if your site is as well documented as this one..not!),
but
still worthwhile seeing data in relation to other data
* SEE
* D.Bartlett 02Dec96
* View contents of files alongside dictionary headings
*
* Mod DQB 18Aug98 Try get the conversions right
* Mod DQB 15Oct98 Clearselect after viewing
* Mod DQB 01Apr98 Added 'N'ext record capability
* Mod DQB 06Dec99 Added 'SEE FILENAME RECORD', ie no need for 'ITEM='
*
GOSUB HOUSEKEEPING
GOSUB PARSE.SENTENCE
GOSUB SHOW.PARAMS
GOSUB PROCESS.DICT
* Now get a list together so we have something to process
BEGIN CASE
CASE LISTNAME NE '' ; EXECUTE 'GET.LIST ':LISTNAME
CASE ITEMNAME NE '' ; FORMLIST ITEMNAME
CASE 1
SELECT HANDLE
END CASE
* then process these records...
LOOP
READNEXT KEY ELSE EXIT
GOSUB PROCESS.DATA
UNTIL DONE = 1
GOSUB PROMPT.USER
IF DONE = 1 THEN EXIT
REPEAT
CLEARSELECT
STOP
*
PROCESS.DATA:
DONE = 0
RECORD.NO += 1
READ RECORD FROM HANDLE, KEY THEN
IF TO.LPTR = 'LPTR' THEN PRINTER ON
GOSUB PRINT.HDR
*Display all the fields...
FOR F = 1 TO FLDS
* Display field number...
PRINT FMT(F,'30R') : ': ':
* then the DICTIONARY name for this field...
PRINT FMT(DICT.FLDSF, '27.L'):': ':
* ...and extract the data...
LINE = RECORDF
* Check if there's a conversion...?
IF DICT.CONVF NE '' THEN GOSUB CONVERT.DATA
* And finally show the (converted) data, stripped out into
* separate lines of 45 chars each...
LOOP
THIS.LN = LINE[1,45]
PRINT THIS.LN : SPACE(46 - LEN(THIS.LN)) :
LINE = TRIM(LINE[46,LEN(LINE)])
IF TO.LPTR NE 'LPTR' THEN GOSUB CHECK.PAGING
UNTIL LINE = ''
PRINT '***: ' : SPACE(29) :
REPEAT
IF TO.LPTR = 'LPTR' THEN PRINT
NEXT F
IF TO.LPTR = 'LPTR' THEN PRINTER OFF
END ELSE
IF ITEMNAME NE '' THEN
PRINT ; PRINT CHAR(7)
PRINT 'Item ':ITEMNAME:
PRINT ' does not exist in ':FILENAME:'!':
INPUT JUNK:
STOP
END
END
RETURN
*
CHECK.PAGING:
LN += 1
IF LN GE LINES.PAGE THEN
INPUT CONT,1
CONT = UPCASE(CONT)
* Mod DQB 01Apr98 Added 'N'ext record capability
BEGIN CASE
CASE CONT = 'Q'
DONE = 1 ; F = FLDS ; EXIT.FLAG = 'QUIT'
CASE CONT = 'N'
F = FLDS ; EXIT.FLAG = 'NEXT'
CASE 1
GOSUB PRINT.HDR
END CASE
END ELSE
PRINT
END
RETURN
*
PRINT.HDR:
* Display the filename, and key...
PRINT @(-1)
PRINT FMT((FILENAME : ' - KEY'),'32.L'):': ':KEY:
IF KEY.CONV NE '' THEN
OUTKEY = '(' :OCONV(KEY,KEY.CONV)
[U2] Web Developer Needed Full Time ***REVISED***
Please disregard initial posting for job# 080123810 description and requirements * Title PROGRAMMER ANALYST SR School Name University of Pennsylvania School of Veterinary Medicine (58) Org Vet Dean's Office (5801) Job Open Date 01-14-2008 Salary Grade D Job Family E-Information Systems/Technology Employment Type Exempt Hours 35 Position Type Full Time Position Schedule 9-5 Months 12 Position End Date Duties The University of Pennsylvania School of Veterinary Medicine (Penn Vet) is currently seeking a Sr Programmer Analyst with a minimum of 3 to 5 years of practical experience with C#, VB, ASP, VB.NET, ASP.NET, IIS, HTML, XML, and web services that includes the full software development life cycle (analysis, design, coding, testing, debugging, and documentation). The Sr Programmer Analyst develops applications within .NET framework using Microsoft Visual Studio development tools that interface with our hospital's Universe (IBM) database. Candidates should have thorough understanding of and previous experience using and manipulating database-driven content and forms with SQL, Access, and MySQL. Candidates must also have a working knowledge of MS SQL Server development including SQL Server Stored Procedures, DTS, User Functions, and triggers as well as relational database design skills and practical hands-on experience integrating SQL with the .NET platform (ASP.NET, VB.NET). Demonstrated experience using IBM UniObjects (or other object-oriented development that provide access to IBM U2 tables, files and views) is preferred. The qualified candidate will be responsible for planning, developing, implementing and enhancing enterprise .NET/ASP/VB intranet and clinical systems applications. The successful candidate will be required to develop all layers of architected solutions including data access and web service development. Qualifications The Sr Programmer Analyst will consult with clients and other project team members in developing and deploying web applications, intranet sites, and internet solutions such as online forms for clinical and research projects, external and internal micro sites, and websites. Our candidates must have excellent interpersonal, written, and verbal communication skills and have strong project planning skills. The successful candidate should have a demonstrated ability to work well with a diverse campus community, strong analytical and decision-making skills, and excellent interpersonal communication skills. Special Requirements Background Check Required Please visit https://jobs.hr.upenn.edu and reference job posting# 080123810 for more information. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UB] Detecting KeyBoard Up Arrow
The following program needs help. Using Dynamic Connect (+ wIntegrate) , I am trying to decode it when a user presses the UpArrow key. Suggestions would be appreciated. --Bill prompt '' *--- --- Top: crt @(-1) crt crt input Ans, 1 begin case case Ans = '^[OA' ; crt 'Victory ' : gosub Bottom.Prompt case Ans = 'x' ; go The.End case Ans = 'X' ; go The.End case 1 ; crt '__' : Ans : '__' gosub Bottom.Prompt end case go Top *--- --- *--- --- Bottom.Prompt: crt crt ' [] ' : input Ans.2 return *--- --- The.End: crt @(-1) END _ The program comes back with the following... The box looks like the pi symbol (3.14) on the screen. ^[ ____ [] OA --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] a data view utility of great use
Hmmmlooks familiar! This one works with files, or procs or programs.
Never got around to making it truly structuredoops :)
Use:
D filename
D procname
D programname
* Release Information
* MANAGE-2000 - VSI - Release 4.3g
* D - Display the item based on the VOC
Version=~Ver=~7.0.85~1584612803~
* =
* Written by Allen E. Elwood, AK Savage Software 02-19-89
* (c) Copyright by AK Savage Software 1989,90,91,92,93,94,95,96,97 All
Rights Reserved.
* Upgraded from a simple shortcut to a replacement for LIST fname S
* for version 6.2e when Unidata cut @UQ to a max of 100 attr's
* This version handles display of proc's and basic programs based off of the
* name, very similar to ROI's proc chase (note mine is MUCH older, ver 4.3)
* and will also display all data in a record for which dict items exist.
* Use SHOW.ME to look at files without dicts, or to view files in their raw
* data state
* =
*#* COPY COPY.TOOLS.BP STANDARD.VARIABLES.2 (REPLACING PGM.NAME BY D.,
FN.NAME BY D, IO.OPEN.OPTS BY TERM.DATA:LOCK:XREF) ;*#* Copied Source
Follows (08-25-97)
$INCLUDE STANDARD.COMMON.VARIABLES FROM COPY.TOOLS.BP
$INCLUDE STANDARD.COMMON.APP.PROGRAMS FROM COPY.TOOLS.BP
$INCLUDE COM500 FROM COPY.TOOLS.BP
$INCLUDE STANDARD.VARIABLES.END FROM COPY.TOOLS.BP
PGM.NAME='D.'; FN.NAME ='D'
CALL IO.OPEN('TERM.DATA:LOCK:XREF',PASSWORDS)
*#*
*===
EQU ESCAPE TO ''
EQU MAXL TO 20
PRINT CLR:B4.T:L24:'Enter END to Exit':
PRINT L(1):C(1):'D - Display an Item based on the VOC entry':AFT.T
THE.FILE.NAME='' ; THE.ITEM.NAME=''
IF EXTRA.IP#?NO? THEN
SWAP ';' WITH ' ' IN EXTRA.IP
THE.VOC.NAME=FIELD(EXTRA.IP,' ',1)
END
PRINT 'Proc/Program Name : ':
IF THE.VOC.NAME = THEN
INPUT THE.VOC.NAME
END ELSE
PRINT THE.VOC.NAME
END
THE.VOC.NAME=ICONV(THE.VOC.NAME,'MCU')
IF THE.VOC.NAME#'END' THEN
OPEN 'VOC' TO VOC ELSE STOP
READ VOC.REC FROM VOC, THE.VOC.NAME ELSE
PRINT 'NO VOC BUBA'
STOP
END
BEGIN CASE
CASE VOC.REC1='R'
THE.FILE.NAME=VOC.REC2
THE.ITEM.NAME=VOC.REC3
CASE VOC.REC1='C'
THE.FILE.NAME=FIELD(VOC.REC3,' ',1)
THE.ITEM.NAME=FIELD(VOC.REC3,' ',2)
CASE (VOC.REC1='F' OR VOC.REC1='DIR')
IF THE.FILE.NAME[LEN(THE.FILE.NAME)-2,3]='.BP' THEN BP=1 ELSE BP=0
GOSUB DISPLAY.FILE
STOP
CASE 1
CALL SCREEN.MSG('D cannot access ':VOC.REC1:' type VOC
records;b;c;h')
STOP
END CASE
OPEN THE.FILE.NAME TO F.NAME ELSE
ERM='Sorry, but file : ':B4.T:THE.FILE.NAME:AFT.T:' does not
exist!;B;C;H'
CALL SCREEN.MSG(ERM); PROMPT
STOP
END
READ TEXT FROM F.NAME, THE.ITEM.NAME ELSE
TEXT='NOT ON FILE!'
END
NUMBER=DCOUNT(TEXT,AM)
HDS=CRT Listing of File: :THE.FILE.NAME:', Item: ':THE.ITEM.NAME:'
Page ':AM
CALL SCROLL.INQ('I','',HDS,1 ,1,ACT,PARMS ,SC.WRK,1)
IF ERROR THEN STOP
FOR I=1 TO NUMBER
TEXTI=CHANGE(TEXTI,ESCAPE,'[')
TEXTI=ICONV(TEXTI,'MCP')
IF NUMBER100 THEN
TEXTI=IL#2:': ':ICONV(TEXTI,'MCC;~; ')
END ELSE
TEXTI=IL#3:': ':ICONV(TEXTI,'MCC;~; ')
END
CALL SCROLL.INQ('N',TEXTI,HDS,1,1,ACT,PARMS,SC.WRK,1)
IF ACT='END' THEN STOP
IF ACT='X' THEN STOP
NEXT I
CALL SCROLL.INQ('F','',HDS,1,1,ACT,PARMS,SC.WRK,1)
END
STOP
*===
DISPLAY.FILE:
*On yer marks
DO.DAA=SYSTEM(11)
IF DO.DAA 0 THEN
PERFORM SAVE.LIST Display:PROCESS.ID CAPTURING JUNK
LIST.SAVED=1
END ELSE
LIST.SAVED=0
END
FILENAME=FIELD(EXTRA.IP,' ',1)
*CRT CLR:'Display File : ':FILENAME
*LOOP
* CRT '1-Include Formatting, 2-Raw Data':;INPUT FMO
* IF (FMO=1 OR FMO=2) THEN EXIT
*REPEAT
*Decided I was too busy to do this option, maybe later
FMO=1
*===
*Get Set
OPEN 'DICT', FILENAME TO DH ELSE CALL SCREEN.MSG('Cannot Open dict for
':FILENAME:';b;c;h')
OPEN '', FILENAME TO FH ELSE CALL SCREEN.MSG('Cannot Open dict for
':FILENAME:';b;c;h')
SS= 'SSELECT DICT ':FILENAME:' TO 9 BY LOC BY.DSND @ID WITH F1 LIKE D...
'
SS:='AND WITH @ID UNLIKE B$... AND WITH F16 NE S'
PERFORM SS CAPTURING JUNK
[EMAIL PROTECTED]
HD=''
CV=''
FM=''
LO=0
*===
*Build Dict Control
LOOP
READNEXT DID FROM 9 ELSE EXIT
IF (DID[1,1]='F' AND OCONV(DID[2,21],'MCA')=) THEN CONTINUE
READ DICT.REC FROM DH, DID ELSE CONTINUE
ATTR=DICT.REC2
IF ATTR=0 THEN
ID.HEAD=CHANGE(CHANGE(DICT.REC4,' ','') ,@VM,' ')
END ELSE
CVATTR=DICT.REC3
READV HD.DESC FROM DH, F:ATTR, 61 THEN
HDATTR=TRIM(HD.DESC)
END ELSE
[U2] NotePad++ User Defined Language
I use NotePad++ as my default code writing tool - it plugs directly into the server via SAMBA and saves code straight into TYPE1 files.. If anyone is interested I have created a universe User defined Language (basically a syntax highlighter). Does anybody use an MV IDE like the sierra bravo one? I'd like feed back... dennis --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Pick programmer needed full time
THIS JOB IS POSTED IN ERROR AND DOES NOT EXIST, PLEASE DISREGARD REVISED POSTING WILL FOLLOW I apologize for any inconvenience -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Mathew Varghese Sent: Thursday, February 07, 2008 9:19 AM To: u2-users@listserver.u2ug.org Subject: [U2] Pick programmer needed full time Job Title: PROGRAMMER ANALYST/SR PROGRAMMER ANALYST School/Center: SCHOOL OF VETERINARY MEDICINE Department: IT Group/Deans Office Salary Grade: Employee Type: Exempt, Monthly Paid Hours: 35 Position Length: Ongoing Duties: Lead programmer for developing EMR (Electronic Medical Record) in animal hospital and some web development as applies to hospital systems and services when needed. Develop a web-based, unified, medical case record system both for hospital use and to support data access for academic research. Design a single system that extracts (text and visual) data from all of the following environments: PICK, MS SQL 7.0, Oracle, Access, Filemaker, Mumps, etc. Meet with hospital services and academic sections in VHUP to identify existing (paper) forms and procedures in order to program databases - and when necessary, web interfaces - that allow for the capture, storage and presentation of this data electronically. Evaluate select technologies and tools to support the EMR. Develop support structures to facilitate end user access to data. Represent the School on relevant university committees, and offer expert consultation by keeping informed of programming, middleware and relevant web-related technologies. Reports directly to the IT Director of Hospital systems and indirectly reports, and collaborates on a team lead by, current webmaster. Qualifications: BA/BS or equivalent. Minimum of 3 years progressively responsible experience in application and/or systems programming plus 2 to 3 years experience in web site development, page design implementation with demonstrated artistic programming ability. At least 2 years programming experience: Allaires Cold Fusion experience and database design required; PHP, Java, JavaScript, XML, etc. also desired. Experience with MS Access and SQL 7.0 required, other databases (PICK, MUMPS) a plus. Programming expertise in HTML, Perl, Java, C and JavaScript; complete understanding of mechanisms involved in CGI-bin scripting, and query/report tools (i.e., Business Objects and Access) Must be able to work as a member of a team; Must have excellent analytical skills; must have excellent verbal written communication skills and excellent interpersonal skills; demonstrated planning and organizational skills. Expert ability with Web browsers. For Senior Programmer Analyst: Same as above except minimum of 5 years of progressively responsible experience. Special Requirements: Background Check Required Please visit https://jobs.hr.upenn.edu and reference job posting# 080123810 for more information. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Web Developer Needed Full Time ***REVISED***
Glen Batchelor wrote: Can you at least put the state in which the position is in? Country/state/city would be ideal. snip School Name University of Pennsylvania School of Veterinary Medicine (58) --- If I had to guess, I'd guess Pennsylvania... But that's just a SWAG :) -- allen --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Web Developer Needed Full Time ***REVISED***
Hmmm ... University of PENNSYLVANIA ... Must be in ... NEW MEXICO? ;-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Glen Batchelor Sent: Thursday, February 07, 2008 2:17 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Web Developer Needed Full Time ***REVISED*** Can you at least put the state in which the position is in? Country/state/city would be ideal. Glen Batchelor IT Director All-Spec Industries phone: (910) 332-0424 fax: (910) 763-5664 E-mail: [EMAIL PROTECTED] Web: http://www.all-spec.com Blog: http://blog.all-spec.com -Original Message- From: [EMAIL PROTECTED] [mailto:owner-u2- [EMAIL PROTECTED] On Behalf Of Mathew Varghese Sent: Thursday, February 07, 2008 4:44 PM To: u2-users@listserver.u2ug.org Subject: [U2] Web Developer Needed Full Time ***REVISED*** Please disregard initial posting for job# 080123810 description and requirements * Title PROGRAMMER ANALYST SR School Name University of Pennsylvania School of Veterinary Medicine (58) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Web Developer Needed Full Time ***REVISED***
Well there you go. I quickly scanned the post and didn't even notice that. I just looked for location. Glen Batchelor IT Director All-Spec Industries phone: (910) 332-0424 fax: (910) 763-5664 E-mail: [EMAIL PROTECTED] Web: http://www.all-spec.com Blog: http://blog.all-spec.com -Original Message- From: [EMAIL PROTECTED] [mailto:owner-u2- [EMAIL PROTECTED] On Behalf Of Allen Egerton Sent: Thursday, February 07, 2008 6:08 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Web Developer Needed Full Time ***REVISED*** Glen Batchelor wrote: Can you at least put the state in which the position is in? Country/state/city would be ideal. snip School Name University of Pennsylvania School of Veterinary Medicine (58) --- If I had to guess, I'd guess Pennsylvania... But that's just a SWAG :) -- allen --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UB] Detecting KeyBoard Up Arrow
-Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill Sent: Thursday, February 07, 2008 2:00 PM To: 'u2-users@listserver.u2ug.org' Subject: [U2] [UB] Detecting KeyBoard Up Arrow The following program needs help. Using Dynamic Connect (+ wIntegrate) , I am trying to decode it when a user presses the UpArrow key. Suggestions would be appreciated. --Bill The problem is the up-arrow key sends 3 characters. Try: input Ans, 3 If you're trying to capture single keystrokes, some of which may only be 1 character in length, you might have to use the KEYIN() function in a loop. If you get a ctrl-[, you'll know to expect 2 more characters for that key. -John --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[OT]:RE: [U2] Web Developer Needed Full Time ***REVISED***
Salary grade of D? I need at LEAST a B+. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Larry Hiscock Sent: Thursday, February 07, 2008 6:26 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Web Developer Needed Full Time ***REVISED*** Hmmm ... University of PENNSYLVANIA ... Must be in ... NEW MEXICO? ;-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Glen Batchelor Sent: Thursday, February 07, 2008 2:17 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Web Developer Needed Full Time ***REVISED*** Can you at least put the state in which the position is in? Country/state/city would be ideal. Glen Batchelor IT Director All-Spec Industries phone: (910) 332-0424 fax: (910) 763-5664 E-mail: [EMAIL PROTECTED] Web: http://www.all-spec.com Blog: http://blog.all-spec.com -Original Message- From: [EMAIL PROTECTED] [mailto:owner-u2- [EMAIL PROTECTED] On Behalf Of Mathew Varghese Sent: Thursday, February 07, 2008 4:44 PM To: u2-users@listserver.u2ug.org Subject: [U2] Web Developer Needed Full Time ***REVISED*** Please disregard initial posting for job# 080123810 description and requirements * Title PROGRAMMER ANALYST SR School Name University of Pennsylvania School of Veterinary Medicine (58) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Web Developer Needed Full Time ***REVISED***
I saw penn, and figured it must be a cow penn, and ergo...new mexicoBrilliant ;) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Larry Hiscock Sent: Thursday, February 07, 2008 15:26 To: u2-users@listserver.u2ug.org Subject: RE: [U2] Web Developer Needed Full Time ***REVISED*** Hmmm ... University of PENNSYLVANIA ... Must be in ... NEW MEXICO? ;-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Glen Batchelor Sent: Thursday, February 07, 2008 2:17 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Web Developer Needed Full Time ***REVISED*** Can you at least put the state in which the position is in? Country/state/city would be ideal. Glen Batchelor IT Director All-Spec Industries phone: (910) 332-0424 fax: (910) 763-5664 E-mail: [EMAIL PROTECTED] Web: http://www.all-spec.com Blog: http://blog.all-spec.com -Original Message- From: [EMAIL PROTECTED] [mailto:owner-u2- [EMAIL PROTECTED] On Behalf Of Mathew Varghese Sent: Thursday, February 07, 2008 4:44 PM To: u2-users@listserver.u2ug.org Subject: [U2] Web Developer Needed Full Time ***REVISED*** Please disregard initial posting for job# 080123810 description and requirements * Title PROGRAMMER ANALYST SR School Name University of Pennsylvania School of Veterinary Medicine (58) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Web Developer Needed Full Time ***REVISED***
New Mexico? Try Texas, Nebraska and Kansas are the top 3. New Mexico is # 21. I was surprised to see Montana at only #13. Minnesota has more cattle than Montana. I'm surprised they don't all fall in the 14,000 lakes. http://www.cattlerange.com/cattle-graphs/all-cattle-numbers.html On Feb 7, 2008 4:32 PM, Allen E. Elwood [EMAIL PROTECTED] wrote: I saw penn, and figured it must be a cow penn, and ergo...new mexicoBrilliant ;) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Larry Hiscock Sent: Thursday, February 07, 2008 15:26 To: u2-users@listserver.u2ug.org Subject: RE: [U2] Web Developer Needed Full Time ***REVISED*** Hmmm ... University of PENNSYLVANIA ... Must be in ... NEW MEXICO? ;-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Glen Batchelor Sent: Thursday, February 07, 2008 2:17 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Web Developer Needed Full Time ***REVISED*** Can you at least put the state in which the position is in? Country/state/city would be ideal. Glen Batchelor IT Director All-Spec Industries phone: (910) 332-0424 fax: (910) 763-5664 E-mail: [EMAIL PROTECTED] Web: http://www.all-spec.com Blog: http://blog.all-spec.com -Original Message- From: [EMAIL PROTECTED] [mailto:owner-u2- [EMAIL PROTECTED] On Behalf Of Mathew Varghese Sent: Thursday, February 07, 2008 4:44 PM To: u2-users@listserver.u2ug.org Subject: [U2] Web Developer Needed Full Time ***REVISED*** Please disregard initial posting for job# 080123810 description and requirements * Title PROGRAMMER ANALYST SR School Name University of Pennsylvania School of Veterinary Medicine (58) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- -- Louie The only function of economic forecasting is to make astrology look respectable. -- John Kenneth Galbraith http://louieinseattle.blogspot.com/ (updated 1/27) http://www.cafepress.com/louieinseattle http://www.louisbergsagel.com --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
