Routine: IBDFCG

Information

IBDFCG ;MAF/ALB - CLINIC GROUP FORMS SCREEN ; 09-FEB-1995

Source Information

Source file <IBDFCG.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Registration	4	EN^VALM ($$SETSTR,FULL,PAUSE)^VALM1 (CNTRL,KILL)^VALM10 EN^VALM2
VA Fileman	4	^DIC ^DIE ^DIK ^DIR
Automated Information Collection System	3	INIT^IBDFCG (CLIN,CLIN1,DIV,DIV1)^IBDFCG1 INIT^IBDFPE
Kernel	1	DISP^XQORM1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Automated Information Collection System	1	IBDFCG

Entry Points

Name	Comments	DBIA/ICR reference
TMP
SETG1	; -- Creating the list entries
HDR	; -- header code
ADD1	; -- Add/Edit Clinic Group
REP
EXPND	; -- expand code
DEL	; -- Delete Clinic Group
GROUPS	; -- Creating the Listman Clinic Name titles for the list
HELP	; -- help code
JMP
NUL	; -- NULL MESSAGE
JSEL	; -- Convert number selected to name
JUMP1
INIT	; -- init variables and list array
QE	; -- Quick edit Review entry
ARRAY	; -- Setting up array for clinic groups and the divisions and clinics
EN	; -- main entry point for IBDF EF CLINIC GROUP LT
MESS	; -- Message prior to editing a group
DELQ
JUMP	; -- Jump action to display a specific clinic group on the screen.
DP1	; -- actual deletion
EDIT	; -- Edit a selected Clinic Group
REP1
EXIT	; -- exit code

External References

Name	Field # of Occurrence
^DIC	ADD1+4, JUMP+2, JMP
^DIE	EDIT+8, ADD1+5
^DIK	DP1+1
^DIR	DEL+9
INIT^IBDFCG	REP1
CLIN^IBDFCG1	ARRAY+2
CLIN1^IBDFCG1	ARRAY+4
DIV^IBDFCG1	ARRAY+2
DIV1^IBDFCG1	ARRAY+4
INIT^IBDFPE	REP
EN^VALM	EN+1
$$SETSTR^VALM1	INIT+10, SETG1+4, SETG1+6, GROUPS+3, GROUPS+6, GROUPS+7
FULL^VALM1	EDIT+4, DEL+4, ADD1+2, JUMP+1
PAUSE^VALM1	DEL+6
CNTRL^VALM10	GROUPS+5, GROUPS+6, GROUPS+7
KILL^VALM10	INIT+4
EN^VALM2	EDIT+3, DEL+3
DISP^XQORM1	HELP+1

Interaction Calls

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
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: EDIT+8 ADD1+5
Routine Call	DIC Line Location: ADD1+4 JUMP+2 JMP
Routine Call	DIR Line Location: DEL+9

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBD(357.09 - [#357.09]	DEL+6
^IBD(357.99 - [#357.99]	INIT+6, EDIT+7, DEL+7, DEL+8, DEL+9, JUMP1+2, JSEL+1
^TMP("CGIDX"	INIT+4!, TMP+1, EDIT+5, DEL+5, JSEL+1, NUL+1
^TMP("IBDFCG"	INIT+4!, INIT+12, TMP, NUL+1
^TMP("IBMF"	INIT+4!, INIT+9, SETG1+3, SETG1+4, SETG1+5, SETG1+6, GROUPS+5, GROUPS+6, GROUPS+7, EXIT+2!

Label References

Name	Line Occurrences
ADD1	ADD1+5
ARRAY	INIT+6
DP1	DEL+10
GROUPS	INIT+8
INIT	DELQ
JMP	JUMP+2, JUMP1+3
JSEL	JUMP+2
JUMP	JUMP1
JUMP1	JUMP+2
MESS	EDIT+6, ADD1+3
NUL	INIT+12
REP	EDIT+3, DEL+3
REP1	EDIT+9, ADD1+4
SETG1	INIT+9
TMP	INIT+10, SETG1+7, GROUPS+5, GROUPS+6, GROUPS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EDIT+5, EDIT+7, EDIT+8!, DEL+5, DEL+6, DEL+7, DEL+8, DEL+9, ADD1+4, ADD1+5*!
DIC	ADD1+4!, JUMP+2!, JMP*!
DIC("A"	ADD1+4, JMP
DIC("DR"	ADD1+4*
DIC(0	ADD1+4, JUMP+2, JMP*
DIE	EDIT+8!, ADD1+5!
>> DIK	DP1+1*
DIR	DEL+1~, DEL+9!
DIR("A"	DEL+8*
DIR("B"	DEL+8*
DIR(0	DEL+8*
DIRUT	DEL+1~
DLAYGO	ADD1+1~, ADD1+4*
DR	EDIT+8!, ADD1+5!
DUOUT	DEL+1~
IBDCG	INIT+1~, INIT+8*, INIT+9, SETG1+3, SETG1+4, SETG1+5, SETG1+6, GROUPS+2, GROUPS+5, GROUPS+6 , GROUPS+7, TMP+1
IBDCL	INIT+1~, ARRAY+2, ARRAY+3
IBDCLN	INIT+4!, EXIT+1!
IBDCLN1	INIT+2!, EXIT+1!
IBDCLN1(	INIT+8, INIT+10, ARRAY+1*
IBDCNT	INIT+1~, INIT+3, INIT+10, SETG1+1, GROUPS+1, GROUPS+2, TMP
IBDCNT1	INIT+1~, INIT+3, INIT+8, GROUPS+3, TMP, TMP+1
IBDDV	INIT+1~, ARRAY+2, ARRAY+3
IBDFCAT	JUMP1+1~, JUMP1+2*, JUMP1+3, JUMP1+4
IBDFCFLG	INIT+1~, ARRAY+3*, ARRAY+4
IBDFCG	INIT+2!, INIT+7*, EXIT+1!
IBDFCG(	GROUPS+2*, JUMP1+3, JUMP1+4
IBDFCGNM	INIT+1~, INIT+5, INIT+6, INIT+7, INIT+8, INIT+10, ARRAY+1, GROUPS+2, GROUPS+3
IBDFCIEN	INIT+1~, ARRAY+3*
IBDFCL	INIT+1~
IBDFCN	INIT+1~, INIT+8*
IBDFCNUM	INIT+1~
IBDFDFLG	INIT+1~, ARRAY+3*, ARRAY+4
IBDFDIEN	INIT+1~, ARRAY+3*
IBDFGN	INIT+1~, INIT+5, INIT+6
IBDFNODE	INIT+1~
IBDFVAL	INIT+1~, SETG1+3, SETG1+4, SETG1+5, SETG1+6
IBDFX	INIT+1~, INIT+9, ARRAY+3, ARRAY+4, SETG1+3, SETG1+4, SETG1+5, SETG1+6, GROUPS+4, GROUPS+5 , GROUPS+6, GROUPS+7
IBDIFN	INIT+1~, INIT+6*, ARRAY+1
IBDVAL	INIT+1~, GROUPS+6, GROUPS+7
IBDVAL1	INIT+1~
IBDVALM	INIT+1~, EDIT+1~, EDIT+3, EDIT+5, DEL+1~, DEL+3, DEL+5, DP1+2, JSEL+1*
IBFASTXT	INIT+1~, INIT+3*
>> IOINHI	GROUPS+5, GROUPS+6, GROUPS+7
>> IOINORM	GROUPS+5, GROUPS+6, GROUPS+7
>> VALMBCK	EDIT+2, EDIT+4, DEL+2, DEL+4, DELQ+1, REP, REP1, JMP+1, JUMP1+4*
>> VALMBG	JMP+1, JUMP1+4
>> VALMCNT	INIT+3, INIT+10, SETG1+1, GROUPS+1, GROUPS+5, GROUPS+6, GROUPS+7, TMP, TMP+1
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
VALMY	EDIT+1~, DEL+1~
VALMY(	EDIT+5, DEL+5
VALMY(0	EDIT+3, DEL+3
>> X	INIT+10, SETG1+2, SETG1+4, SETG1+6, GROUPS+3, GROUPS+6, GROUPS+7, TMP, JUMP+2, JMP+1 , JSEL+1, HELP+1
>> XQORNOD(0	EDIT+3, DEL+3, JUMP+2
>> Y	DEL+9, ADD1+4, JUMP+2*, JUMP1, JUMP1+2

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFCG

Call Graph Total: 12

Caller Graph Total: 1