I do this in GL, I enter the data for each line, move to the next record
and check for EOF, once I have reached the EOF I Key F12.
Each piece of data is entered in a separate step because I only
AutoPause for the Title. This is what it is structured like:
CheckEOF
Not EOF...Go to Step EnterGLAccountNo
EOF...Go to Step Close
EnterGLAccountNo
Title Enter/Edit Batch at 1,32...Enter D("GLAcctNo")...Go to
Step EnterDebit
EnterDebit
Title Enter/Edit Batch at 1,32...Enter D("Debit")...Go to Step
EnterCredit
Title The entry is not defined at 1,1...Enter ""...Go to Step
EntryNotDefined
EnterCredit
Title Enter/Edit Batch at 1,32...Enter D("Credit")
Always...D("EntryStatus")="Entered"...Go to Step NextRecord
NextRecord
Always...D.Next_...Go to Step CheckEOF
Hope this helps,
Michael
Michael Blake, Programmer Analyst
Bloomer Medical Center
Luther Midelfort-Mayo Health System
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Julie Pratt
Sent: Tuesday, June 20, 2006 4:21 PM
To: [email protected]
Subject: [Talk] Fwd: scrolling screen help
>>> Julie Pratt 06/20/06 10:53AM >>>
Help, please!
BWS, Rules, 8.118 Revision 717
STAR 10.0, HBOWEM
Field 8 of the screen below is considered a 'scrolling screen'. I need
to read through my file and enter ITEM NBR and ITEM COUNT. After each
item number/count is entered, the cursor moves to the next line for the
next entry. I need some sort of loop (I think) that disregards the
cursor's position and lets me loop until EOF. Can you give me some
ideas, please?
Thanks,
Tue Jun 20, 2006 10:47 Ent :
WYOMING MEDICAL CENTER
1 Location Code 2 Description
OR OR
3 Item Description
4 Location QOH 5 Dispensing Unit 6 Store Unit 7 Store
Conversion
0
8 Item Nbr Phy Adj Dept Phy Adj Subacct Unit
Item Count
10462 6600 00317
Disp 50
F1Prev Page F2Next Page F3 Insert F4 Delete F5Item Sel F6 Reset F7
Exit
Julie Pratt
Integration Analyst
Wyoming Medical Center
(307)577-2127
[EMAIL PROTECTED]
********************Confidentiality Notice********************
This message is intended for the sole use of the individual and entity to whom
it is addressed, and may contain information that is privileged, confidential
and exempt from disclosure under applicable law. Any unauthorized review, use,
disclosure or distribution of this email message, including any attachment, is
prohibited. If you are not the intended recipient, please advise the sender by
reply email and destroy all copies of the original message. Thank you.
