|
midrange.com
Hi Jim,
Here you go:
A DSPSIZ(24 80 *DS3)
A REF(*LIBL/PHPREF)
A MSGLOC(24)
A PRINT
A CF01(64 'HELP ALT KEY')
A CF12
A VLDCMDKEY(60)
...
A R PHDE010D TEXT('Account number or patient typ-
A e entry screen')
A*%%TS SD 19980323 141928 RBOMAN REL-V3R2M0 5763-PW1
A CHANGE(89)
A CF03
A*A001 86 CF07(84 'Consents')
A 86 CF08(84 'Consents')
A CF04(49 'Prompt')
A* CF08
A CF07
A CF09
A BLINK
A RTNCSRLOC(&@@RCD &@@FLD &POS1)
A RTNCSRLOC(*WINDOW &ZRWOUT &ZCLOUT)
A 97 CSRLOC(ZRWOUT ZCLOUT)
A OVERLAY
A @@RCD 10A H
A @@FLD 10A H
A POS1 4S 0H
A ZRWOUT 3S 0H TEXT('ROW NUMBER')
A ZCLOUT 3S 0H TEXT('COLUMN NUMBER')
A 1 2'PHDE010D'
A*XXWB 17 FLD <IMG src="<%=request.getContextPath()%>/styles/chrome/SepLin+
A*XXWB +e1.gif" width=100% height="4" border="0">
A*XXWB 15 FLD 1 78
A*XXWB 2 FLD 2 2
A COLOR(BLU)
A 1 27'ONLINE PATIENT REGISTRATION'
A*XXWB 1 FLD siemensheader1
A*XXWB 3 FLD 27|Online Patient Registration
A*XXWB 2 FLD 1 2
A COLOR(WHT)
A 1 72
A*XXWB 4 FLD
A DATE
A EDTCDE(Y)
A COLOR(BLU)
A 2 72
A*XXWB 4 FLD
A TIME
A COLOR(BLU)
A 3 2'Acct # or Pat Type'
A*XXWB 1 FLD siemensfieldlabel
A $ACT# 11Y 0O 3 21TEXT('PATIENT ACCOUNT #')
A EDTCDE(4)
A $PTYP 1A O 3 33
A 20 3 51'Note: Preadmission data found'
A*XXWB 1 FLD siemensmessage
A DSPATR(HI)
A 4 2'Preadmit (Y/N)....'
A*XXWB 1 FLD siemensfieldlabel
A*XXWB 3 FLD 15|Preadmit (Y/N):
A $PRAF 1A O 4 21TEXT('PREADMISSION FLAG')
A 21 4 57'Existing account update'
A*XXWB 1 FLD siemensmessage
A DSPATR(HI)
A 5 2'Observation....'
Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 793-4480 fax
951 522-3214 cell
----- Original Message -----
From: "Jim Franz" <franz400@xxxxxxxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Thursday, January 06, 2005 2:18 PM
Subject: Re: Display file format with no response to attention keys
> can you show the code of both that format (or at least the keywords
> at the top, and also the keywords for the whole dspf?
> jim
> ----- Original Message -----
> From: "Peter Dow" <maillist@xxxxxxxxxxxxxxx>
> To: <MIDRANGE-L@xxxxxxxxxxxx>
> Sent: Thursday, January 06, 2005 5:03 PM
> Subject: Display file format with no response to attention keys
>
>
> > Hi All,
> >
> > I was just shown a vendor-supplied program and display file modified and
> > used by one of my customers that in its latest version gets to a
> particular
> > format and at that point does not respond to any attention keys, e.g.
> > function keys, ENTER, HELP key, etc. In debug I set a breakpoint on the
> > EXFMT stmt and the following stmt, and it gets to the EXFMT, but never
the
> > next stmt. My telnet client, which normally shows which attention key
was
> > pressed, shows nothing. All other keys act normally -- I can key data
> into
> > fields, field exit, use tab and arrow keys. I can use SysReq and
display
> > the job or cancel it.
> >
> > The display file looks normal with the exception that a bunch of
webfacing
> > lines (normally %%WB comments) have been changed to XXWB comments,
because
> > SDA will not work with them present. The parti9cular format in question
> is
> > not a subfile control format nor a window; it's just a plain format with
a
> > lot of labels and data fields on it. Various function keys are enabled,
> > including F3, F4, F12 with no conditioning indicators, and using CFxx,
not
> > CAxx.
> >
> > This is on a V5R2 machine, with current PTFs as far as I know.
> >
> > Any ideas?
> >
> > Peter Dow
> > Dow Software Services, Inc.
> > 909 793-9050 voice
> > 909 793-4480 fax
> > 951 522-3214 cell
> >
> >
> >
> > --
> > Internal Virus Database is out-of-date.
> > Checked by AVG Anti-Virus.
> > Version: 7.0.298 / Virus Database: 265.6.7 - Release Date: 12/30/2004
> >
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> >
> >
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
>
> --
> Internal Virus Database is out-of-date.
> Checked by AVG Anti-Virus.
> Version: 7.0.298 / Virus Database: 265.6.7 - Release Date: 12/30/2004
>
>
--
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.298 / Virus Database: 265.6.7 - Release Date: 12/30/2004
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
