Routine: IBDFU5

Entry Points

Name	Comments	DBIA/ICR reference
TOPNBOT(BLOCK,TOP,BOT)	;finds the top and bottom of the block - pass TOP and BOT by reference
RUSURE(NAME)	;obtains verification from the user for deletion- returns 1 if answered YES, otherwise NO
PAUSE	;
NOGRPHCS	;sets graphics variables to "_" and "\|"
HELP1	;displays a list of the record's fields from file 357.6, IB PACKAGE INTERFACE file - EXECUTABLE HELP FOR FIELDS IN THE DATA FIELD FILE
HELP2	;displays a list of the record's fields from file 357.6, IB PACKAGE INTERFACE file - EXECUTABLE HELP FOR FIELDS IN THE SELECTION LIST FILE
HELP3	;displays a list of the record's fields from file 357.6, IB PACKAGE INTERFACE file - used to display available data to the user before he enters a data field label
HELP4	;displays a list of the record's fields from file 357.6, IB PACKAGE INTERFACE file - used to display to the user the available data before a subcolumn to a selection list
HELP5	;for number of columns in list
SHOWDATA	;displays a discription of the the record returned by the package interface
RESET	;resets the scrolling area of the screen to that defined by List Manager
VARIABLE(VAR)	;returns 0 if VAR is not syntactically a good local variable name, 1 otherwise
ID1	;writes identifier for subcolumn of selection list (file 357.2)
DFLTS()	;returns the default form if found, 0 otherwise
OKPIECE(PI,PIECE)	;returns 1 if the piece=PIECE is selectable for the package interface=PI, 0 otherwise

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Press RETURN to continue..." Line Location: PAUSE+2
Function Call: WRITE	Prompt: !,"WHAT DATA SHOULD BE PRINTED IN THE SUBFIELD? CHOOSE FROM:" Line Location: HELP1+6
Function Call: WRITE	Prompt: !,"WHAT DATA SHOULD BE PRINTED IN THIS SUBCOLUMN? CHOOSE FROM:" Line Location: HELP2+5
Function Call: WRITE	Prompt: !,"You can also enter 0 if you want the item number entered in the subcolumn.",! Line Location: HELP2+9
Function Call: WRITE	Prompt: !,"Available Data:" Line Location: HELP3+4
Function Call: WRITE	Prompt: !,"Available Data:" Line Location: HELP4+5
Function Call: WRITE	Prompt: !!,"A selection list COLUMN contains items on the list. It may consist of several",!,"subcolumns. For example, a typical column may have three subcolumns, one" Line Location: HELP5+2
Function Call: WRITE	Prompt: !,"containing a code, the second a description, and the third a marking area for",!,"the user to indicate his selections from the list. Besides going down the",!,"form, the list can can go across the form by having multiple columns." Line Location: HELP5+3
Function Call: WRITE	Prompt: !!,"Entering the number of columns is optional. By default the entire block will",!,"be filled with the list.",! Line Location: HELP5+4
Function Call: WRITE	Prompt: IOSC,@IOSTBM,IORC Line Location: RESET+1
Function Call: WRITE	Prompt: "HEADER=",$$PADRIGHT^IBDFU($P(NODE,U,2),27)_" CONTENT=" Line Location: ID1+3