IBDFCG ;MAF/ALB - CLINIC GROUP FORMS SCREEN ; 09-FEB-1995
Source file <IBDFCG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; -- main entry point for IBDF EF CLINIC GROUP LT
|
|
HDR | ; -- header code
|
|
INIT | ; -- init variables and list array
|
|
ARRAY | ; -- Setting up array for clinic groups and the divisions and clinics
|
|
SETG1 | ; -- Creating the list entries
|
|
GROUPS | ; -- Creating the Listman Clinic Name titles for the list
|
|
TMP | ||
EDIT | ; -- Edit a selected Clinic Group
|
|
DEL | ; -- Delete Clinic Group
|
|
DELQ | ||
DP1 | ; -- actual deletion
|
|
QE | ; -- Quick edit Review entry
|
|
MESS | ; -- Message prior to editing a group
|
|
ADD1 | ; -- Add/Edit Clinic Group
|
|
REP | ||
REP1 | ||
JUMP | ; -- Jump action to display a specific clinic group on the screen.
|
|
JMP | ||
JUMP1 | ||
JSEL | ; -- Convert number selected to name
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
NUL | ; -- NULL MESSAGE
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBD(357.99 - [#357.99] | Classic Fileman Calls |