Routine: ACMRGA02

Information

ACMRGA02 ; IHS/TUCSON/TMJ - CREATES PRE-DIABETES REGISTER AT RUN TIME ; [ 09/19/05 1:18 PM ]

Source Information

Source file <ACMRGA02.m>

Call Graph

Call Graph Total: 2

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

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Case Management System	2	ACMADDM2 ACMADDP

Entry Points

Name	Comments	DBIA/ICR reference
GDIAG
SETE0
SETE1
SETC0
SETC1
DXCRIT	;;
SETD	;EP;ADDS DIAGNOSIS TO NEW REGISTER
SETE	;EP;ADDS ELEMENTS TO NEW REGISTER
SETR1
SETR0
SETC	;EP;ADDS COMPLICATIONS TO NEW REGISTER
SETDC	;EP;ADDS DIAGNOSTIC CRITERIA TO NEW REGISTER
ELEM	;;
REG	;EP;CHECKS AND CREATES REGISTER
SETR	;EP;ADDS RISK FACTORS TO NEW REGISTER
RISK	;;
COMP	;;
SETD1
SETD0
ADDS	;ADDS ELEMENTS,DIAG,COMPL, DX CRITERIA, RISK FACTORS ETC TO REGISTER
NAME	;;
DIAG	;;
SETDC1
SETDC0

External References

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

Interaction Calls

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
Function Call: WRITE	Prompt: !,"adding Risk Factors...." Line Location: SETR+1
Function Call: WRITE	Prompt: "." Line Location: SETR0+0
Function Call: WRITE	Prompt: !,"adding Diagnostic Criteria...." Line Location: SETDC+1
Function Call: WRITE	Prompt: "." Line Location: SETDC0+0
Routine Call	DIE Line Location: REG+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls
^ACM(42.1 - [#9002242.1]	Classic Fileman Calls
^ACM(44.1 - [#9002244.1]	Classic Fileman Calls
^ACM(45.1 - [#9002245.1]	Classic Fileman Calls
^ACM(51.1 - [#9002251.1]	Classic Fileman Calls

Global Variables Directly Accessed

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(45.1 - [#9002245.1]	SETR0, SETR1+2*, SETR1+3
^ACM(51.1 - [#9002251.1]	SETDC0, SETDC1+2*, SETDC1+3
^ACM(56 - [#9002256]	SETE0, SETE1
^DD(9002241.1	REG+5

Label References

Name	Line Occurrences
SETC	ADDS+1
SETC0	SETC+2
SETC1	SETC0
SETD	ADDS+1
SETD0	SETD+2
SETD1	SETD0
SETDC	ADDS+1
SETDC0	SETDC+2
SETDC1	SETDC0
SETE	ADDS+1
SETE0	SETE+2
SETE1	SETE+2
SETR	ADDS+1
SETR0	SETR+2
SETR1	SETR0

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACMCX	ADDS+2!, SETC+2*, SETC0, SETC0+1
ACMDC	ADDS+2!, SETDC+2*, SETDC0, SETDC0+1
ACMDX	ADDS+2!, SETD+2*, SETD0, SETD0+1
ACME	SETE+1!, SETD+1!, SETC+1!, SETR+1!, SETDC+1!*
ACME(	SETE+1, SETE+2, SETD+1, SETD+2, SETC+1, SETC+2, SETR+1, SETR+2, SETDC+1*, SETDC+2
ACME("SET"	GDIAG*
ACMEX	ADDS+2!, SETE+2*, SETE0, SETE1
>> ACMF	REG+4*
>> ACMF(	REG+4, REG+5, REG+6
ACMRF	ADDS+2!, SETR+2*, SETR0, SETR0+1
>> ACMRG	REG+1, REG+2, REG+3, REG+8, SETE1, SETE1+1, SETE1+2, SETD1, SETD1+3, SETC1 , SETC1+3, SETR1, SETR1+3, SETDC1, SETDC1+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, SETR0, SETR0+1, SETR1 , SETR1+1, SETR1+2, SETR1+3, SETDC0, SETDC0+1, SETDC1, SETDC1+1, SETDC1+2, SETDC1+3
ACXE	ADDS+2!, GDIAG
ACZ	ADDS+2!
D	REG+3!
D0	SETR0+1!, SETDC0+1!
DA	REG+3!, REG+8!, SETE1
DA(1	SETE1, SETD1, SETC1, SETR1, SETDC1*
DD	REG+3!, SETE1+1!, SETE1+3!, SETD0+1!, SETD1+1!, SETD1+4!, SETC0+1!, SETC1+1!, SETC1+4!, SETR0+1! , SETR1+1!, SETR1+4!, SETDC0+1!, SETDC1+1!, SETDC1+4!
DIC	REG+3!, REG+8!, SETE1+1!, SETE1+3!, SETD0+1!, SETD1+1!, SETD1+4!, SETC0+1!, SETC1+1!, SETC1+4! , SETR0+1!, SETR1+1!, SETR1+4!, SETDC0+1!, SETDC1+1!, SETDC1+4!
DIC(0	REG+3, SETE1+1, SETD0+1, SETD1+1, SETC0+1, SETC1+1, SETR0+1, SETR1+1, SETDC0+1, SETDC1+1
DIE	REG+8!, SETE1+1, SETD0+1, SETD1+1, SETC0+1, SETC1+1, SETR0+1, SETR1+1, SETDC0+1, SETDC1+1
DINUM	REG+3!, SETE1*
DO	SETE1+3!, SETD0+1!, SETD1+4!, SETC0+1!, SETC1+4!, SETR1+4!, SETDC1+4!
DR	REG+3!, REG+6, REG+7, REG+8!, SETE1+3!, SETD1+4!, SETC1+4!, SETR1+4!, SETDC1+4!
>> I	REG+4, SETE+1, SETD+1, SETC+1, GDIAG, SETR+1, SETDC+1*
U	REG+5, REG+6, REG+8
>> X	REG+3, SETE1, SETD0+1, SETD1, SETC0+1, SETC1, SETR0+1, SETR1, SETDC0+1, SETDC1
>> Y	REG+3, SETD0+1, SETC0+1, SETR0+1, SETDC0+1

Name	Field # of Occurrence
$T(COMP+I	SETC+1
$T(DIAG+I	SETD+1, GDIAG
$T(DXCRIT+I	SETDC+1
$T(ELEM+I	SETE+1
$T(NAME+1	REG+1
$T(NAME+I	REG+4
$T(RISK+I	SETR+1

Customize PDF page

Package: Case Management System

Routine: ACMRGA02

Call Graph Total: 2

Caller Graph Total: 2