Routine: ACMADDP

Package	Total	Call Graph
Case Management System	3	(CCOMP,CDIAG,CDXCR,CRISK)^ACMADDM2 RGTPX^ACMGTP (REG,SETC,SETD,SETDC,SETE,SETR)^ACMRGA02
VA Fileman	2	^DIE ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
END	;CLEANUP
ADDR	;ADDS IHS PRE-DIABETES REGISTER
CHGN	;RENAME REGISTER
CHGC
CHGD
CHGE
INFORM	;Install Information Text
CHGRF
CHGR	;CHANGES EXISTING REGISTER AND ADDS ELEMENTS,DIAG,COMP,RISK,DXCRIT
CHGDC

External References

Name	Field # of Occurrence
CCOMP^ACMADDM2	CHGR+23
CDIAG^ACMADDM2	CHGR+22
CDXCR^ACMADDM2	CHGR+25
CRISK^ACMADDM2	CHGR+24
RGTPX^ACMGTP	CHGR+6
REG^ACMRGA02	ADDR+4
SETC^ACMRGA02	CHGC+1
SETD^ACMRGA02	CHGD+1
SETDC^ACMRGA02	CHGDC+1
SETE^ACMRGA02	CHGE+1
SETR^ACMRGA02	CHGRF+1
^DIE	CHGN+1, CHGN+2, CHGN+4
^DIR	ACMADDP+27, ADDR+3, CHGR+15, CHGE+1, CHGD+1, CHGC+1, CHGRF+1, CHGDC+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You already have a register called 'IHS PRE-DIABETES'",!,"This option cannot be run!" Line Location: ACMADDP+12
Function Call: WRITE	Prompt: ! Line Location: ACMADDP+26
Function Call: WRITE	Prompt: ! Line Location: ADDR+2
Function Call: WRITE	Prompt: !!!," Converting existing register to IHS National Pre-Diabetes Register",! Line Location: CHGR+2
Function Call: WRITE	Prompt: !,"This option will quide you through the following:" Line Location: CHGR+3
Function Call: WRITE	Prompt: !," 1 = Renaming your local register to the IHS National Pre-Diabetes Register" Line Location: CHGR+4
Function Call: WRITE	Prompt: !," 2 = Adding elements, diagnoses, complications, Diagnostic Criteria, and Risk Factors included",!," in the IHS standard to your converted register." Line Location: CHGR+5
Function Call: WRITE	Prompt: !!,"Enter the name of your existing local register you want converted: ",! Line Location: CHGR+6
Function Call: WRITE	Prompt: !,"No Register Selected" Line Location: CHGR+8
Function Call: WRITE	Prompt: ACMRGNA Line Location: CHGR+12
Function Call: WRITE	Prompt: ! Line Location: CHGR+14
Function Call: WRITE	Prompt: !,"Finished.." Line Location: CHGR+26
Function Call: WRITE	Prompt: "." Line Location: CHGN+2
Function Call: WRITE	Prompt: "." Line Location: CHGN+4
Function Call: WRITE	Prompt: !,"The register has been renamed to IHS PRE-DIABETES.." Line Location: CHGN+5
Function Call: WRITE	Prompt: ! Line Location: CHGE+1
Function Call: WRITE	Prompt: ! Line Location: CHGD+1
Function Call: WRITE	Prompt: ! Line Location: CHGC+1
Function Call: WRITE	Prompt: ! Line Location: CHGRF+1
Function Call: WRITE	Prompt: ! Line Location: CHGDC+1
Function Call: WRITE	Prompt: !!,"You must first re-name your existing Register called IHS PRE-DIABETES to",! Line Location: INFORM+2
Function Call: WRITE	Prompt: "OLD IHS PRE-DIABETES and then run the Install and convert the OLD Register",! Line Location: INFORM+3
Function Call: WRITE	Prompt: "to the new Register. Be sure to add any new Users to the new Register.",! Line Location: INFORM+4
Routine Call	DIE Line Location: CHGN+1 CHGN+2 CHGN+4
Routine Call	DIR Line Location: ACMADDP+27 ADDR+3 CHGR+15 CHGE+1 CHGD+1 CHGC+1 CHGRF+1 CHGDC+1

FileNo	Call Tags
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	CHGN+4
^ACM(41.1 - [#9002241.1]	ACMADDP+12, CHGR+11, CHGN+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACMGREF	CHGN+2*
>> ACMI	CHGN+2*
>> ACMQ	ACMADDP+27, ACMADDP+28, ACMADDP+29, ADDR+4, CHGR+16, CHGR+18, CHGR+19, CHGR+20, CHGR+21, CHGR+22 , CHGR+23, CHGR+24, CHGR+25, CHGE+1, CHGD+1, CHGC+1, CHGRF+1, CHGDC+1*
ACMRG	CHGR+7*, CHGR+8, CHGR+11, CHGN+1, CHGN+4, END+1!
ACMRGNA	CHGR+11, CHGR+12, CHGR+13, CHGN+1, CHGN+2, CHGN+3*, END+1!
>> ACMX	CHGN+4*
DA	CHGR+7, CHGN+1!, CHGN+2, CHGN+3!, CHGN+4*, END+1!
DIC	CHGN+3!, END+1!
DIC(0	CHGR+6*
DIE	CHGN+1, CHGN+2, CHGN+3!, CHGN+4*, END+1!
DIR	ACMADDP+27!, ADDR+3!, CHGR+15!, CHGE+1!, CHGD+1!, CHGC+1!, CHGRF+1!, CHGDC+1!, END+1!
DIR("A"	ACMADDP+13, ACMADDP+14, ACMADDP+15, ACMADDP+16, ACMADDP+17, ACMADDP+18, ACMADDP+19, ACMADDP+20, ACMADDP+21, ACMADDP+22 , ACMADDP+23, ACMADDP+24, ACMADDP+25, ADDR+1, CHGR+13, CHGE, CHGD, CHGC, CHGRF, CHGDC
DIR("B"	ACMADDP+25, ADDR+1, CHGR+13, CHGE, CHGD, CHGC, CHGRF, CHGDC
DIR(0	ACMADDP+25, ADDR+1, CHGR+13, CHGE, CHGD, CHGC, CHGRF, CHGDC
DR	CHGN+1!, CHGN+2, CHGN+4*, END+1!
IOF	ACMADDP+11, CHGR+1
U	CHGR+11, CHGN+1
>> Y	ACMADDP+28, ADDR+4, CHGR+16, CHGE+1, CHGD+1, CHGC+1, CHGRF+1, CHGDC+1

Customize PDF page

Package: Case Management System

Routine: ACMADDP

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
ADDR	ACMADDP+28
CHGC	CHGR+19
CHGD	CHGR+18
CHGDC	CHGR+21
CHGE	CHGR+17
CHGN	CHGR+16
CHGR	ACMADDP+29
CHGRF	CHGR+20
END	ACMADDP+29, CHGR+26
INFORM	ACMADDP+12