Google
 

Trailing-Edge - PDP-10 Archives - TRAFFIC-20_V4_840514 - traffic-demonstrations/dem6.frm
There are no other files named dem6.frm in the archive.
FORM DEM6
RECORD
OUTPUT
ERROR 24

FIELD FIL61
SECTION 1
POS 1 1
PROT
VALUE "There are occasions, too, when it is nice to keep static data on"

FIELD FIL62
SECTION 1
POS 2 1
PROT
VALUE "the screen,  and to present a sequence of different forms inside"

FIELD FIL63
SECTION 1
PROT
POS 3 1
VALUE "that,  rather like separate sheets.  This technique may help the"

FIELD FIL64
SECTION 1
PROT
POS 4 1
VALUE "user by preserving information he needs across  several forms or"

FIELD FIL65
SECTION 1
PROT
POS 5 1
VALUE "by neatly presenting alternative forms based on earlier answers."

FIELD QSEE6
SECTION 1
YES-NO
REQUIRED
POS 9 53
T-POS 9 10
T-VAL "Would you like to see an example of this?"

FIELD FIL66
SECTION 1
PROT
BOLD
WIDE
POS 23 10
VALUE "T R A F F I C   v 4"

FIELD ONAME6
SECTION 2
REQUIRED
ALPHABETIC
SPACES
LENGTH 12
FILL "-"
POS 8 20
T-POS 8 1
T-VAL "Admissions Officer"
HELP "Usually your own name"

FIELD TIME6
SECTION 2
TIME 4
REQUIRED
POS 8 63
T-POS 8 58
T-VALUE "TIME"
HELP "The time you are making this entry"

FIELD FIL67
SECTION 2
PROT
POS 9 1
VALUE "________________________________________________________________________"

FIELD FIL68
SAME-AS FIL67
SECTION 2
POS 22 1


FIELD FIL610
SECTION 3
HIDDEN
PROT
POS 10 12
WIDE
REVERSE
VALUE "PATIENT DETAILS"

FIELD FIL611
SECTION 3
HIDDEN
PROT
POS 21 11
WIDE
REVERSE
VALUE "CASUALTY ADMISSION"

FIELD PNAME
SECTION 3
HIDDEN
REQUIRED
BOLD
ALPHABETIC
ALLOW-LOWER
SPACES
FILL "_"
POS 12 10
LENGTH 20
T-POS 12 1
T-VAL "Name"
HELP "The name of the incoming patient"

FIELD PADD1
SECTION 3
HIDDEN
REQUIRED
BOLD
ANY
ALLOW-LOWER
LENGTH 20
FILL "_"
POS 14 10
T-POS 14 1
T-VAL "Address"
HELP "The patients address, if known. If not, enter NK"

FIELD PADD2
SECTION 3
HIDDEN
BOLD
ANY
ALLOW-LOWER
LENGTH 20
FILL "_"
POS 15 10

FIELD PADD3
SAME-AS PADD2
SECTION 3
POS 16 10

FIELD PPHONE
SECTION 3
HIDDEN
BOLD
ANY
LENGTH 20
FILL "_"
POS 18 10
T-POS 18 1
T-VAL "PHONE"

FIELD FIL620
HIDDEN
PROT
WIDE
REVERSE
SECTION 4
POS 10 10
VALUE "NEXT-OF-KIN DETAILS"

FIELD FIL621
HIDDEN
PROT
POS 21 11
WIDE
REVERSE
VALUE "CASUALTY ADMISSION"
SECTION 4

FIELD KNAME
HIDDEN
REQUIRED
BOLD
ALPHABETIC
ALLOW-LOWER
SPACES
FILL "_"
POS 12 10
LENGTH 20
T-POS 12 1
T-VAL "Name"
SECTION 4
HELP "The name of the next of kin of the patient, or the best contact"

!FIELD KSAME
!YES-NO
!POS 12 80
!BOLD 
!T-POS 12 67
!T-VAL "Same address?"

FIELD KADD1
HIDDEN
REQUIRED
BOLD
ANY
ALLOW-LOWER
LENGTH 20
FILL "_"
POS 14 10
T-POS 14 1
T-VAL "Address"
SECTION 4
HELP "Address of N-o-K, or enter 'same'"

FIELD KADD2
HIDDEN
BOLD
ANY
ALLOW-LOWER
LENGTH 20
FILL "_"
POS 15 10
SECTION 4

FIELD KADD3
HIDDEN
BOLD
ANY
ALLOW-LOWER
LENGTH 20
FILL "_"
POS 16 10
SECTION 4

FIELD KPHONE
HIDDEN
BOLD
ANY
LENGTH 20
FILL "_"
POS 18 10
T-POS 18 1
T-VAL "PHONE"
SECTION 4

FIELD KINFO
SECTION 4
HIDDEN
REQUIRED
YES-NO
BOLD
POS 18 80
T-POS 18 71
T-VAL "Informed?"

FIELD FIL630
HIDDEN
PROT
POS 10 13
WIDE
REVERSE
SECTION 5
VALUE "ROUTING DETAILS"

FIELD FIL631
HIDDEN
PROT
POS 21 11
WIDE
REVERSE
SECTION 5
VALUE "CASUALTY DISPOSAL"

FIELD XRAY
SECTION 5
HIDDEN
REQUIRED
YES-NO
BOLD
POS 12 10
T-POS 12 1
T-VAL "X-RAY?"
HELP "Should the patient be routed via X-RAY?"

FIELD WARD
SECTION 5
HIDDEN
BOLD
A-N
SPACES
FILL "_"
LENGTH 20
POS 14 10
T-POS 14 1
T-VAL "WARD"
HELP "Enter ward to which patient will go if known"

FIELD DOCTOR
SECTION 5
HIDDEN
required
BOLD
ALPHABETIC
SPACES
FILL "_"
LENGTH 20
POS 16 10
T-POS 16 1
T-VAL "DOCTOR"
HELP "The doctor to whom the patient is to be assigned"

FIELD QAGEN6
YES-NO
REQUIRED
SECTION 6
HIDDEN
POS 15 40
T-POS 15 6
T-VAL "Would you like to see that again?"
HELP "Type y to run thru that again, n to go to the next demo"

EXIT