Routine: IBDFCG

Information

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	Prompt: !!,"In use by parameter group, Not deleted",! Line Location: DEL+6
Function Call: WRITE	Prompt: !,"Entry ",$P($G(^IBD(357.99,DA,0)),"^",1)," not Deleted!" Line Location: DEL+9
Function Call: WRITE	Prompt: !,"Entry ",IBDVALM," Deleted" Line Location: DP1+2
Function Call: WRITE	Prompt: !!,"Enter the clinics for this clinic group. Enter as many Clinics as you want." Line Location: MESS+1
Function Call: WRITE	Prompt: !,"If you want all clinics for a division, do not enter any clinics but enter" Line Location: MESS+2
Function Call: WRITE	Prompt: !,"the division name at the Select Division: prompt." Line Location: MESS+3
Function Call: WRITE	Prompt: ! Line Location: ADD1+4
Function Call: WRITE	Prompt: !!,"There is no data listed for this Clinic Group" Line Location: JUMP1+3
Function Call: WRITE	Prompt: !! Line Location: HELP+1

FileNo	Call Tags
^IBD(357.99 - [#357.99]	Classic Fileman Calls