Subscreens

[Catherine Litten]

Ok Its been a while since I've had to design more than basic set of quick
screens for capturing data.  Mostly I write standard screens and subscreens
that are called with Field Text Mark in the main screen and a return in the
designer  proceedure of the second screen.

However, what I would like to do this time is only replace the bottom 1/2 of
the screen with the approriate selection and then back to the menu that
apears on the bottom 1/2 of the screen.  I know this can be done using
designer procedures.  But what I can't find is how to  call up a subscreen
for only the last 20 lines or so and not reset the entire screen.   I did
this once many, many moons ago but I no longer have an example program and I
can not find an example of what I am trying to do in the book or by doing a
breif lookup on the list.

Here is an example of a screen that needs this modification for the LIST
designer procedure:

screen DRK900BC.VPHC &
  receiving PASS-AREA

description of screen &
 "This information is confidential and  not for public dissemination."

use DEFINEU.PUB nolist   ;<----- Defines of passed thru data
use DEFINESU.PUB nolist  ;<----- More defines

temp TRAN-ID char * 8

temp LDEV INTEGER*3 initial nconvert(PORT-ID-PASS)

temp T-PRT-ID char*8

temp T-COPIES char*1

file PARAM-FILE des open append semiexclusive need all

file LDEV-MSTR reference
  access via LDEV-NBR using LDEV

define V-SCREEN-NBR char * 8 = "DRK900BC"

define V-SCREEN-TITLE char * 40 = &
  "Physician Suspension Report on Screen"

    ;SEE DMDFILEU FOR reference to FOLLOWING DEFINES
define DELFILE char*80 = "PURGE MSYT000A.DATA,TEMP"

define BLDFILE char*80 = "build MSYT000A.DATA;REC=-80,1,F,ASCII;TEMP"

use HEAD80K.VPHU nolist ;<---- Standard look and feel of a VPH Screen

hilite data halftone
hilite input inverse halftone

title "Type 'LIST' in the Action Field - for on Screen List" at 05,10
title "Type 'E' in Action Field to Print the Suspension Report" at 07,10

field LDEV-DEF-PRT of LDEV-MSTR noid &
    label "Default Printer #" at 09,05  data at 09,23

field T-PRT-ID  noid &
  DEFAULT LDEV-DEF-PRT &
  label "Change Printer #" at 09,34 data at 09,51

field T-COPIES noid default "1" &
  label "No. of Copies:" at 09,62 data at 09,77

procedure internal DRR724
  begin
    run command BLDFILE
    let FILLER-80 = &
        "!Job DRR724,MGR.ALTTEST;Pri=CS;Inpri=12"
    PUT PARAM-file reset
    let FILLER-80 = &
        "!file DRR724AC;DEV=" + T-PRT-ID + ",12," + T-COPIES
    PUT PARAM-file reset
    let FILLER-80 = "!QUIZ"
    PUT PARAM-file reset
    let FILLER-80 = "exe DRR724AC.VPHC"
    PUT PARAM-file reset
    let FILLER-80 = "EXIT"
    PUT PARAM-file reset
    let FILLER-80 = "!EOJ"
    put PARAM-FILE reset
    close PARAM-FILE
    run command "STREAM MSYT000A"
  end

procedure designer LIST nodata
  begin
   run command 'quiz auto="DRR724BC.VPHC"' refresh screen clear screen
  end

procedure ENTRY
  begin
    display LDEV-DEF-PRT of LDEV-MSTR
    display T-PRT-ID
    display T-COPIES
    run command DELFILE
    accept T-PRT-ID
    accept T-COPIES
    do internal DRR724
  end

use SECURTYU.PUB nolist  ;<------------Security Designer Procedures

procedure designer VER NODATA &
   help "ENTER VER FOR PROGRAM VERSION INFORMATION"
   info "VER 001 VPH 2002/10/30 (ALT 11)"


build list

Thanks I would appreciate any help.

Sincerely,
Catherine Litten,
Senior Programmer / Analyst

Valley Presbyterian Hospital
Community Hospital / Non-Profit Organization
15104 Vanowen Street, Van Nuys, CA  91405 (881) 782-6600
E-mail: catherine.litten@valleypres.org Website:
<http://www.valleypres.org/>
CONFIDENTIALITY NOTICE
This transmission and any attachments are confidential and intended solely
for the use of the individual or entity to which they are addressed. It may
also be legally privileged and protected under any and all local, state and
federal laws. If you are not the addressee, you may not copy, forward,
disclose or use any part of it. If you have received this message in error,
please delete it and all copies from your system and notify the sender
immediately by return E-mail, fax or phone.
Electronic communications cannot be guaranteed to be timely, secure, error
or virus-free. The sender does not accept liability for any errors or
omissions or differences between the original and the transmission copy