Routine: ACMRGA01

Package	Total	Call Graph
VA Fileman	2	FILE^DICN ^DIE

Package	Total	Caller Graph
Case Management System	2	ACMADDM ACMADDM1

Entry Points

Name	Comments	DBIA/ICR reference
SETD	;EP;ADDS DIAGNOSIS TO NEW REGISTER
SETE	;EP;ADDS ELEMENTS TO NEW REGISTER
GDIAG
ADDS	;ADDS ELEMENTS,DIAG,COMPL ETC TO REGISTER
NAME	;;
SETC	;EP;ADDS COMPLICATIONS TO NEW REGISTER
COMP	;;
ELEM	;;
SETC1
DIAG	;;
SETD1
SETD0
SETE0
SETE1
SETC0
REG	;EP;CHECKS AND CREATES REGISTER

Name	Field # of Occurrence
FILE^DICN	REG+3, SETE1+3, SETD0+1, SETD1+4, SETC0+1, SETC1+4
^DIE	REG+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ACMRG Line Location: REG+1
Function Call: WRITE	Prompt: !!,"Register: ",ACMRG," already exists...quiting",!! Line Location: REG+1
Function Call: WRITE	Prompt: !!,"Register: ",ACMRG," is being added...",!! Line Location: REG+2
Function Call: WRITE	Prompt: "...FINISHED...",!! Line Location: ADDS+1
Function Call: WRITE	Prompt: !,"adding elements..." Line Location: SETE+2
Function Call: WRITE	Prompt: "." Line Location: SETE0+0
Function Call: WRITE	Prompt: !,"adding diagnosis...." Line Location: SETD+1
Function Call: WRITE	Prompt: "." Line Location: SETD0+0
Function Call: WRITE	Prompt: !,"adding complications....." Line Location: SETC+1
Function Call: WRITE	Prompt: "." Line Location: SETC0+0
Routine Call	DIE Line Location: REG+8

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41.1 - [#9002241.1]	REG+1, REG+8, SETE1+2
^ACM(42.1 - [#9002242.1]	SETC0, SETC1+2*, SETC1+3
^ACM(44.1 - [#9002244.1]	SETD0, SETD1+2*, SETD1+3
^ACM(56 - [#9002256]	SETE0, SETE1
^DD(9002241.1	REG+5

Name	Field # of Occurrence
ACMCX	ADDS+2!, SETC+2*, SETC0, SETC0+1
ACMDX	ADDS+2!, SETD+2*, SETD0, SETD0+1
ACME	SETE+1!, SETD+1!, SETC+1!*
ACME(	SETE+1, SETE+2, SETD+1, SETD+2, SETC+1*, SETC+2
ACME("SET"	GDIAG*
ACMEX	ADDS+2!, SETE+2*, SETE0, SETE1
>> ACMF	REG+4*
>> ACMF(	REG+4, REG+5, REG+6
>> ACMRG	REG+1, REG+2, REG+3, REG+8, SETE1, SETE1+1, SETE1+2, SETD1, SETD1+3, SETC1 , SETC1+3
ACMX	REG+5, REG+6, ADDS+2!, GDIAG*
ACMY	REG+5, REG+6, SETE+2!, SETE0, SETE1, SETD0, SETD0+1, SETD1, SETD1+1, SETD1+2 , SETD1+3, SETC0, SETC0+1, SETC1, SETC1+1, SETC1+2, SETC1+3
ACXE	ADDS+2!, GDIAG
ACZ	ADDS+2!
D	REG+3!
DA	REG+3!, REG+8!, SETE1
DA(1	SETE1, SETD1, SETC1*
DD	REG+3!, SETE1+1!, SETE1+3!, SETD0+1!, SETD1+1!, SETD1+4!, SETC0+1!, SETC1+1!, SETC1+4!
DIC	REG+3!, REG+8!, SETE1+1!, SETE1+3!, SETD0+1!, SETD1+1!, SETD1+4!, SETC0+1!, SETC1+1!, SETC1+4!
DIC(0	REG+3, SETE1+1, SETD0+1, SETD1+1, SETC0+1, SETC1+1
DIE	REG+8!, SETE1+1, SETD0+1, SETD1+1, SETC0+1, SETC1+1
DINUM	REG+3!, SETE1*
DO	SETE1+3!, SETD0+1!, SETD1+4!, SETC0+1!, SETC1+4!
DR	REG+3!, REG+6, REG+7, REG+8!, SETE1+3!, SETD1+4!, SETC1+4!
>> I	REG+4, SETE+1, SETD+1, SETC+1, GDIAG*
U	REG+5, REG+6, REG+8
>> X	REG+3, SETE1, SETD0+1, SETD1, SETC0+1, SETC1
>> Y	REG+3, SETD0+1, SETC0+1