Routine: ACMOPTDM

Information

ACMOPTDM ; IHS/TUCSON/TMJ - CREATES OPTION FOR DIABETES REG INSTALL ;

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR

Name	Comments	DBIA/ICR reference
ACMOPT	;;
ADDMENU	;ADDS IHS DIABETES REGISTER OPTION TO ACMMENU MENU
END
ADDOPT	;ADDS IHS DIABETES REGISTER OPTION
ACMMENU	;;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You MUST log in as an user before running this routine..." Line Location: ACMOPTDM+6
Function Call: WRITE	Prompt: !,"You do not have an option called 'ACM MANAGER UTILITIES'",!,"This option cannot be installed!" Line Location: ACMOPTDM+7
Function Call: WRITE	Prompt: !,"You already have an option called 'ACM INSTALL IHS DIABETES REGISTER'",!,"This option cannot be installed!" Line Location: ACMOPTDM+8
Function Call: WRITE	Prompt: ! Line Location: ACMOPTDM+19
Function Call: WRITE	Prompt: !!,"Option: ",ACMRG," is being added...",!! Line Location: ADDOPT+2
Function Call: WRITE	Prompt: !!,"Option is being added to ",ACMRG,"...",!! Line Location: ADDMENU+2
Function Call: WRITE	Prompt: !!,"Finished...",!! Line Location: ADDMENU+5
Routine Call	DIE Line Location: ADDOPT+8
Routine Call	DIC Line Location: ADDMENU+3
Routine Call	DIR Line Location: ACMOPTDM+19

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41.1 - [#9002241.1]	ADDOPT+8*
^DD(19	ADDOPT+5
^DIC(19 - [#19]	ACMOPTDM+7, ACMOPTDM+8

Name	Line Occurrences
ADDOPT	ACMOPTDM+19

Name	Field # of Occurrence
ACMF	ACMOPTDM+20!, ADDOPT+4*, END!
ACMF(	ADDOPT+4, ADDOPT+5, ADDOPT+6
ACMM	ACMOPTDM+20!, ADDMENU+1*, ADDMENU+4, END!
ACMQ	END!
ACMRG	ACMOPTDM+20!, ADDOPT+1, ADDOPT+2, ADDOPT+3, ADDOPT+8, ADDMENU+1, ADDMENU+2, ADDMENU+3, ADDMENU+4, END!
ACMX	ACMOPTDM+20!, ADDOPT+5, ADDOPT+6, END!
ACMY	ACMOPTDM+20!, ADDOPT+5, ADDOPT+6, END!
DA	ADDOPT+3!, ADDOPT+8*!, ADDMENU+3!, ADDMENU+4!
DA(1	ADDMENU+4*
DD	ADDOPT+3!, ADDMENU+3!, ADDMENU+4!
DIC	ADDOPT+3!, ADDOPT+8!, ADDMENU+3!, ADDMENU+4*!
DIC(0	ADDOPT+3, ADDMENU+3, ADDMENU+4*
DIE	ADDOPT+8*!
DIR	ACMOPTDM+19!
DIR("A"	ACMOPTDM+9, ACMOPTDM+10, ACMOPTDM+11, ACMOPTDM+12, ACMOPTDM+13, ACMOPTDM+14, ACMOPTDM+15, ACMOPTDM+16, ACMOPTDM+17, ACMOPTDM+18
DIR("B"	ACMOPTDM+18*
DIR(0	ACMOPTDM+18*
DO	ADDMENU+4!
DR	ADDOPT+6, ADDOPT+7, ADDOPT+8!
DUZ	ACMOPTDM+6
>> I	ADDOPT+4*
IOF	ACMOPTDM+5
U	ADDOPT+5, ADDOPT+6, ADDOPT+8
>> X	ADDOPT+3, ADDMENU+3, ADDMENU+4*
>> Y	ACMOPTDM+19, ADDOPT+3, ADDMENU+3