|
midrange.com
What would cause a DDS window (a yes/no radio button window) that is
called from two different panels in the same DDS member, to display the
first panel after that panel has been processed while the second panel is
being processed?
Below is the DDS. The RPG logic appears adequate via debugging. Program
logic is that format W1INS is displayed first, and the user may double
click on the input field which displays the YNRADIOA panel where the user
can select a yes or no value. The program then proceeds to display ZPNL01.
On ZPNL01 there are two fields that are yes/no capable that also and use
the same YNRADIOA panel. When clicking on either of these two fields, the
YNRADIOA panel appears, but ZPNL01 disappears and W1INS re-appears. (The
exfmt of W1INS occurs once in the RPG during the *INZSR.) Viewing the call
stack only shows YNRADIOA as the only format open in the display file.
I've tried numerous combinations of adding/removing/mixing the ususal
suspect keywords (keep, erase, overlay, putovr etc...) all to no avail.
I'm stumped. I could just code another YNRADIO panel thereby giving each
calling panel it's own YNRADIO panel but that would be redundant and to me
totally wrong. So I need to make this work....
Also the panels work as expected if the user simply keys in a Y on the
W1INS panel, bypassing the display of the YNRADIOA panel being called from
W1INS. This leads me to believe the problem is with the radio button
process. The other odd thing is that the YNRADIOA panel, after selecting
values for both Y/N fields on ZPNL01 will acutally show both yes and no
values as being selected even though debug shows only one value for the
SNGCHCFLD field.
Thanks for any input.
A DSPSIZ(24 80 *DS3)
A HLPTITLE('Request Radiology
Service-
A s')
A HLPPNLGRP(RIF361 RIH361)
A ALTHELP(CA01)
A CF02(02)
A CF04(04)
A CF06(06)
A CA12(12)
A MOUBTN(*URD HELP *QUEUE)
A MOUBTN(*ULD CF11 *QUEUE)
A HELP
A*****************************************************************
A* INSURANCE MESSAGE RECORD
A*****************************************************************
A R W1INS
A*%%TS DD 20060510 115045 kerng REL-V5.0.1 WDSc
A WINDOW(2 40 19 36)
A**** KEEP
A RTNCSRLOC(&CSRREC &CSRFLD)
A WDWBORDER((*DSPATR RI) (*CHAR
' -
A '))
A H HLPPNLGRP(REPLY RIH361)
A HLPARA(*FLD ZYESNO)
A CSRREC 10A H
A CSRFLD 10A H
A ZCSROW 3S 0H
A ZCSCOL 3S 0H
A 1 2'RIM361'
A 1 11'Insurance Warning'
A DSPATR(HI)
A 4 2'Patient''s insurance does not
allo-
A w'
A 5 2'Radiology services to be
performed'
A 6 2'here.'
A 2 14'Warning!!!!'
A COLOR(RED)
A 8 2'This patient should be
referred to'
A 9 2'outside Radiology.'
A 11 2'Type (Y) and press enter to
add th-
A e'
A 12 2'request anyway.'
A 14 2'Or type (N) and press enter
to not'
A 15 2'add the request and return to
the'
A 16 2'previous panel.'
A ZYESNO 1A B 17 18
A 18 2'F1=Help'
A*****************************************************************
A* PANEL 1
A*****************************************************************
A R ZPNL01
A*%%TS DD 20060515 104349 kerng REL-V5.0.1 WDSc
A WINDOW(*DFT 22 58)
A RTNCSRLOC(&CSRREC &CSRFLD)
A BLINK
A OVERLAY
A PUTOVR
A OVRDTA
A WDWBORDER((*COLOR RED)
(*DSPATR RI)-
A (*CHAR ' '))
A CSRREC 10A H
A CSRFLD 10A H
A ZCSROW 3S 0H
A ZCSCOL 3S 0H
A HPATFC 4A H
A HENC# 13S 0H
A 1 1'RIM361'
A 1 17'Request Radiology Services'
A DSPATR(HI)
A ZMODE 6A O 2 1DSPATR(RI)
A 4 1'Patient..:'
A DSPATR(HI)
A ZPAT# 8S 0O 4 12
A ZPATNM 30A O 4 21
A 5 1'Loc......:'
A DSPATR(HI)
A ZLOC 1A O 5 12
A 5 14'Clno:'
A DSPATR(HI)
A ZCLNO 3S 0O 5 20
A 5 24'Sex:'
A DSPATR(HI)
A ZSEX 1A O 5 29
A 5 31'DOB:'
A DSPATR(HI)
A ZDOB 8Y 0O 5 36EDTWRD(' / / ')
A 5 47'Age:'
A DSPATR(HI)
A ZAGE 3Y 0O 5 52EDTCDE(Z)
A 6 1'Account..:'
A DSPATR(HI)
A ZACCT# 8Y 0B 6 12
A 71 DSPATR(PC)
A 71 DSPATR(RI)
A 7 1'Ind/Com/H:'
A DSPATR(HI)
A ZAIN 1A B 7 12
A 70 DSPATR(PC)
A 70 DSPATR(RI)
A 7 14'Patient FC:'
A DSPATR(HI)
A ZFCDESC 25A O 7 26
A 8 1'Req Dr...:'
A DSPATR(HI)
A ZDOC# 3Y 0B 8 12
A 73 DSPATR(PC)
A 73 DSPATR(RI)
A ZDOCNM 30A O 8 16
A 9 1'Referral.:'
A DSPATR(HI)
A ZREFDR 15A B 9 12
A 78 DSPATR(PC)
A 78 DSPATR(RI)
A ZREFNM 30A B 9 28
A 11 1'Other Information:'
A DSPATR(HI)
A ZTEXT1 50A B 12 5
A 74 DSPATR(PC)
A 74 DSPATR(RI)
A ZTEXT2 50A B 13 5
A ZTEXT3 50A B 14 5
A 16 1'Phone Report.....?'
A DSPATR(HI)
A ZPHRPT 1A B 16 20
A 72 DSPATR(PC)
A 16 32'Last'
A 16 37'Update:'
A ZUSRID 10A O 16 45
A 17 1'Send Films w/Pt..?'
A DSPATR(HI)
A ZSNDWPATF 1A B 17 20
A 81 DSPATR(PC)
A 17 32'Last User..:'
A ZCHGDT 8Y 0O 17 45EDTWRD(' / / ')
A 20 1'F1=Help'
A COLOR(BLU)
A 20 9'F2=Desc'
A COLOR(BLU)
A 20 17'F4=Prompt'
A COLOR(BLU)
A 20 27'F6=Review'
A COLOR(BLU)
A 20 37'F12=Previous'
A COLOR(BLU)
A*****************************************************************
A* DUMMY RECORD FORMAT
A*
A* THIS RECORD FORMAT IS NEEDED SO THAT WHEN THE WINDOW OVERLAYS
A* THE CURRENT SCREEN, THE CURRENT SCREEN ISN'T ERASED.
A* IF THIS DUMMY RECORD FORMAT IS LEFT OUT, WHEN THE WINDOW IN
A* THIS FILE DISPLAYS, THE SCREEN UNDERNEATH WILL BE BLANKED.
A*
A*****************************************************************
A R DUMMY
A*%%TS DD 20060508 154814 kerng REL-V5.0.1 WDSc
A ASSUME
A 11 1' '
A*****************************************************************
A* Y/N Request Radio Button
A*****************************************************************
A R YNRADIOA
A*%%TS SD 20040413 144820 JANE REL-V5R2M0 5722-WDS
A WINDOW(*DFT 3 8)
A OVERLAY
A PUTOVR
A OVRDTA
A WDWBORDER((*COLOR RED)
(*DSPATR RI)-
A (*CHAR '????????'))
A YNRADIO 2Y 0B 1 1SNGCHCFLD(*RSTCSR *AUTOENT
*AUTOSLT)
A CHOICE(1 'Yes')
A CHOICE(2 'No')
Regards, Jerry
Gerald Kern - MIS Project Leader
Lotus Notes/Domino Administrator
IBM Certified RPG IV Developer
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx
This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please inform the
sender by reply e-mail and destroy this and all copies of this message.
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.
