Routine: ACMADDM

Package	Total	Call Graph
Case Management System	3	(CCOMP,CDIAG)^ACMADDM1 RGTPX^ACMGTP (REG,SETC,SETD,SETE)^ACMRGA01
VA Fileman	3	^DIE ^DIK ^DIR

Package

Total

Call Graph

Case Management System

(CCOMP,CDIAG)^ACMADDM1 RGTPX^ACMGTP (REG,SETC,SETD,SETE)^ACMRGA01

VA Fileman

^DIE ^DIK ^DIR

Name	Comments	DBIA/ICR reference
XDX1
END	;CLEANUP
ADDR	;ADDS IHS DIABETES REGISTER
CHGN	;RENAME REGISTER
CHGC
CHGD
CHGE
CHGR	;CHANGES EXISTING REGISTER AND ADDS ELEMENTS,DIAG,COMP
XDX	;EP;TO ELIMINATE DUPLICATE DM DIAGNOSES.

External References

Name	Field # of Occurrence
CCOMP^ACMADDM1	CHGR+16
CDIAG^ACMADDM1	CHGR+15
RGTPX^ACMGTP	CHGR+6
REG^ACMRGA01	ADDR+4
SETC^ACMRGA01	CHGC+1
SETD^ACMRGA01	CHGD+1
SETE^ACMRGA01	CHGE+1
^DIE	CHGN+1, CHGN+2, CHGN+4, XDX1+13, XDX1+19
^DIK	XDX1+23
^DIR	ACMADDM+23, ADDR+3, CHGR+10, CHGE+1, CHGD+1, CHGC+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You already have a register called 'IHS DIABETES'",!,"This option cannot be run!" Line Location: ACMADDM+8
Function Call: WRITE	Prompt: ! Line Location: ACMADDM+22
Function Call: WRITE	Prompt: ! Line Location: ADDR+2
Function Call: WRITE	Prompt: !!!," Converting existing register to IHS National 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 Diabetes Register" Line Location: CHGR+4
Function Call: WRITE	Prompt: !," 2 = Adding elements, diagnoses, and complications 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: ! Line Location: CHGR+9
Function Call: WRITE	Prompt: !,"Finished.." Line Location: CHGR+17
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 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
Routine Call	DIE Line Location: CHGN+1 CHGN+2 CHGN+4 XDX1+13 XDX1+19
Routine Call	DIR Line Location: ACMADDM+23 ADDR+3 CHGR+10 CHGE+1 CHGD+1 CHGC+1

FileNo	Call Tags
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^ACM(44 - [#9002244]	Classic Fileman Calls
^ACM(44.1 - [#9002244.1]	Classic Fileman Calls
^ACM(44.3 - [#9002244.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	CHGN+4
^ACM(41.1 - [#9002241.1]	ACMADDM+8, CHGN+1
^ACM(44 - [#9002244]	XDX1+3, XDX1+16
^ACM(44.1 - [#9002244.1]	XDX1+2, XDX1+6
^ACM(44.3 - [#9002244.3]	XDX1+10

Name	Line Occurrences
ADDR	ACMADDM+24
CHGC	CHGR+14
CHGD	CHGR+13
CHGE	CHGR+12
CHGN	CHGR+11
CHGR	ACMADDM+25
END	ACMADDM+25, CHGR+17
XDX1	XDX+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACMGREF	CHGN+2*
>> ACMI	CHGN+2*
ACMPDA	XDX+1~, XDX1+1, XDX1+2, XDX1+3, XDX1+5, XDX1+6, XDX1+7, XDX1+8, XDX1+10, XDX1+14 , XDX1+16, XDX1+20, XDX1+21
ACMPRIM	XDX+1~, XDX1, XDX1+3, XDX1+4, XDX1+8, XDX1+11, XDX1+14, XDX1+17, XDX1+20
>> ACMQ	ACMADDM+23, ACMADDM+24, ACMADDM+25, ADDR+4, CHGR+7, CHGR+11, CHGR+13, CHGR+14, CHGR+15, CHGR+16 , CHGE+1, CHGD+1, CHGC+1
ACMRG	CHGR+7*, CHGN+1, CHGN+4, END+1!
ACMRGNA	CHGR+7, CHGR+8, CHGN+1, CHGN+2, CHGN+3*, END+1!
>> ACMX	CHGN+4*
ACMXX	XDX+1~, XDX+2*, XDX1+2, XDX1+6, XDX1+7, XDX1+14, XDX1+20, XDX1+24
DA	CHGN+1!, CHGN+2, CHGN+3!, CHGN+4, END+1!, XDX+1~, XDX1+9, XDX1+10, XDX1+14, XDX1+15 , XDX1+16, XDX1+20, XDX1+21, XDX1+24
DIC	CHGN+3!, END+1!
DIC(0	CHGR+6*
DIE	CHGN+1, CHGN+2, CHGN+3!, CHGN+4, END+1!, XDX+1~, XDX1+12, XDX1+18*
DIK	XDX+1~, XDX1+22*
DIR	ACMADDM+23!, ADDR+3!, CHGR+10!, CHGE+1!, CHGD+1!, CHGC+1!, END+1!
DIR("A"	ACMADDM+9, ACMADDM+10, ACMADDM+11, ACMADDM+12, ACMADDM+13, ACMADDM+14, ACMADDM+15, ACMADDM+16, ACMADDM+17, ACMADDM+18 , ACMADDM+19, ACMADDM+20, ACMADDM+21, ADDR+1, CHGR+8, CHGE, CHGD, CHGC
DIR("B"	ACMADDM+21, ADDR+1, CHGR+8, CHGE, CHGD, CHGC
DIR(0	ACMADDM+21, ADDR+1, CHGR+8, CHGE, CHGD, CHGC
DR	CHGN+1!, CHGN+2, CHGN+4, END+1!, XDX+1~, XDX1+11, XDX1+17*
IOF	ACMADDM+7, CHGR+1
U	CHGR+7, CHGN+1
X	XDX+1~
Y	ACMADDM+24, ADDR+4, CHGR+7, CHGR+11, CHGE+1, CHGD+1, CHGC+1, XDX+1~

Customize PDF page

Package: Case Management System

Routine: ACMADDM

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: