Routine: ACMGTP

Package	Total	Call Graph
Case Management System	5	^ACMCTRL (NAMEREX,SECMSG)^ACMGTP1 ^ACMHELP DECEASED^ACMLPAT HEAD^ACMMENU
VA Fileman	5	^DIC WAIT^DICD FILE^DICN ^DIE ^DIR
Kernel	1	^%ZTLOAD

Package	Total	Caller Graph
Case Management System	5	ACMADDM ACMADDP ACMDELPT ACMDELRG ACMTRANS
Diabetes Registry	2	BDMFUTIL BDMVRL6
PCC Medical Query	1	AMQQREG

Entry Points

External References

Name	Field # of Occurrence
^%ZTLOAD	DECEASED+11
^ACMCTRL	RGTP1+12
NAMEREX^ACMGTP1	NAMEREX+1
SECMSG^ACMGTP1	SECMSG+1
^ACMHELP	SLCT1+5
DECEASED^ACMLPAT	DEC1+7
HEAD^ACMMENU	RGTP+1, SELECT, USER
^DIC	DIC
WAIT^DICD	LOOP+1, ALL
FILE^DICN	SET+5
^DIE	DIE
^DIR	SLCT1+2, SLCT1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?80-$L(ACMX)\2,ACMX,! Line Location: RGTPX+2
Function Call: WRITE	Prompt: !! Line Location: SELECT+1
Function Call: WRITE	Prompt: ?37,"<**" Line Location: SELECT+9
Function Call: WRITE	Prompt: ?37,"<==" Line Location: SELECT+10
Function Call: WRITE	Prompt: ?68,"<**" Line Location: SELECT+16
Function Call: WRITE	Prompt: ?68,"<==" Line Location: SELECT+17
Function Call: WRITE	Prompt: !?10 Line Location: SELECT+19
Function Call: WRITE	Prompt: ?45 Line Location: SELECT+20
Function Call: WRITE	Prompt: $J(ACMU1,3)_")"," All data types" Line Location: SELECT+21
Function Call: WRITE	Prompt: !!,?12,"<** Indicates automatic selection of Register Component" Line Location: SELECT+22
Function Call: WRITE	Prompt: !! Line Location: SLCT1+1
Function Call: WRITE	Prompt: !!?10,"'<==' indicates option already selected for this register.",!?10,"To select several data types separate them with commas.",!?10,"For example: ==> 1,3,7,9" Line Location: SLCT1+6
Function Call: WRITE	Prompt: ! Line Location: SLCT1+10
Function Call: WRITE	Prompt: ! Line Location: LOOP+1
Function Call: WRITE	Prompt: ! Line Location: LOOP+1
Function Call: WRITE	Prompt: ! Line Location: ALL+0
Function Call: WRITE	Prompt: ! Line Location: ALL+0
Function Call: WRITE	Prompt: !?80-$L(ACMX)\2,ACMX,!! Line Location: USER+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),?20,"You are NOT the Creator of this Register",!,?19,"Therefore, you cannot Add Users!",!! Line Location: USER+7
Function Call: WRITE	Prompt: !,"Contact the Register Developer- "_ACMRDEV_" -for more information.",!! Line Location: USER+8
Function Call: WRITE	Prompt: !!!,$C(7),$C(7),?5,"You are NOT the Creator of this Register; therefore, you cannot Add Users!",!! Line Location: USER+9
Function Call: WRITE	Prompt: ! Line Location: USER+12
Function Call: WRITE	Prompt: !?14 Condition for execution: ACMU1#2=1 Line Location: USR1+2
Function Call: WRITE	Prompt: ?45 Condition for execution: ACMU1#2=0 Line Location: USR1+2
Function Call: WRITE	Prompt: ACMY Line Location: USR1+2
Function Call: WRITE	Prompt: ! Line Location: DIC+0
Function Call: WRITE	Prompt: !!,"Register being checked to update status of deceased patients." Line Location: DECEASED+5
Routine Call	DIE Line Location: DIE
Routine Call	DIC Line Location: DIC
Routine Call	DIR Line Location: SLCT1+2 SLCT1+11

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	DECEASED+4, DEC1+4, DEC1+5
^ACM(41.1 - [#9002241.1]	RGTPX+9, RGTPA, RGTP1+8, RGTP2, RGTP2+2, RGTP2+3, RGTP2+5, SELECT+10, SELECT+17, SET+4* , USER+5, USER+7, USER+8, USER+10
^ACM(56 - [#9002256]	SELECT+4
^DPT - [#2]	DEC1+6
^VA(200 - [#200]	USER+6, USR1, USR1+1

Label References

Name	Line Occurrences
ALL	SLCT1+15
DECEASED	RGTP1+9
DIC	RGTP1+6
DIE	RGTP2+4, SET+6
EN	RGTP2+7
EXIT	RGTPX+11
NAMEREX	RGTP2+6
RGTP	EN+1
RGTP1	RGTPX+11
RGTPA	RGTPX+9
SECMSG	RGTP2+2
SELECT	SLCT
SET	LOOP+2, ALL+1
SLCT	RGTP2+8
USER	RGTP2
USR1	USER+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACM	EXIT!, SELECT+6*, SELECT+7, SELECT+11
>> ACMCNT	LOOP*, LOOP+2
ACMDA	DEC1+2~, DEC1+3, DEC1+4, DEC1+5, DEC1+7
>> ACMDELRG	RGTP1+11
>> ACMEP	RGTP1+12*
>> ACMES	RGTP1+12*
ACMI	EXIT!, RGTPX+10!
ACMJ	EXIT!, RGTPX+9*, RGTPX+10!
>> ACMLI	LOOP+2*
ACMNEWN	EXIT!, RGTP2+5*, RGTP2+6
ACMOLDN	EXIT!, RGTP2+3*, RGTP2+6
>> ACMPP	RGTP1+12*
ACMQK	EXIT!, SLCT1+4, SLCT1+5, SLCT1+8, SLCT1+13, SLCT1+14, SLCT1+15, LOOP, LOOP+2, SET , SET+2, ALL+1*
>> ACMQK1	LOOP*, LOOP+2
ACMQKI	EXIT!
ACMQUIT	EXIT!, EXIT+1!, RGTP1+7, RGTP2+1, RGTP2+2, RGTP2+7!, RGTP2+8, SLCT, SLCT+1!, SLCT1+3* , SLCT1+12, USER+8
>> ACMRDEV	USER+5, USER+6, USER+8
ACMRG	EXIT+2!, RGTPX+10!, RGTPA, RGTP1+7!, RGTP1+8, RGTP2, RGTP2+2, RGTP2+3, RGTP2+5, SELECT+10 , SELECT+17, SET+2, SET+3, SET+4, USER+5, USER+7, USER+8, USER+10
ACMRGCUS	EXIT!, RGTPX+3!, RGTPX+5!, RGTPX+6, RGTP1+1*, RGTP2+8
ACMRGDA	DECEASED~, DECEASED+3, DECEASED+4, DEC1+1, DEC1+4
ACMRGMGR	EXIT!, RGTPX+3!, RGTPX+4, RGTPX+5!, RGTP1+3*, RGTP2
ACMRGNA	EXIT+2!, RGTP1+7!, RGTP1+8*
ACMRGTP	EXIT+2, RGTPX+3, RGTPX+4!, RGTPX+5!, RGTPX+6!, RGTPA+1, RGTPA+2, RGTPA+3, RGTP1+2, RGTP1+5 , RGTP1+11*, RGTP1+12, RGTP2
ACMRGUSR	EXIT!, RGTPX+3!, RGTPX+4!, RGTPX+5, RGTPX+6!, RGTP1*, RGTP2, RGTP2+1, RGTP2+7
ACMRGX	RGTPX+8, RGTPX+9, RGTPX+10!, RGTPA
ACMRGX(3	RGTPX+7*, RGTPA+1
ACMRGX(4	RGTPX+7*, RGTPA+2
ACMRGX(5	RGTPX+7*, RGTPA+3
>> ACMTRN	RGTP1+10, RGTP1+12
ACMU1	EXIT!, SELECT+2, SELECT+4, SELECT+5, SELECT+7, SELECT+8, SELECT+9, SELECT+11, SELECT+13, SELECT+14 , SELECT+15, SELECT+16, SELECT+18, SELECT+19, SELECT+21, SLCT1+9, SLCT1+15, SET, ALL+1, USER+10* , USER+11!, USR1+2
ACMU11	EXIT!, SELECT+5*, SELECT+6, SELECT+11
ACMX	EXIT!, RGTPX+1, RGTPX+2, SELECT+2, SELECT+4, USER+1, USER+2, USER+3, USER+10, USER+11! , USR1, USR1+1
ACMX(	SELECT+4*, SELECT+8, SELECT+9, SELECT+15, SELECT+16
ACMY	EXIT!, SELECT+4, SELECT+7, SELECT+10, SELECT+14, SELECT+17, USER+11!, USR1+1, USR1+2
ACMZ	EXIT+1!
ACMZ(	SELECT+4*, SELECT+7, SELECT+13, SELECT+14, SET+2
ACMZZDIC	RGTP1+5*, RGTP1+6!
DA	RGTP1+8, SET+2, DIE!
DA(1	SET+2*
DD	SET+3!, SET+5!, DIC!
DFN	DEC1+2~, DEC1+5*, DEC1+6, DEC1+7
DIC	RGTP1+4, SET+3!, SET+5!, DIC!, DIE!
DIC("A"	RGTP1+4*
DIC("S"	RGTP1+5*
DIC(0	RGTP1, RGTP1+1, RGTP1+2, RGTP1+3, SET+3*
DIE	RGTP1+4, SET+3, DIE!
>> DINUM	SET+2*
DIR	SLCT1+2!, SLCT1+11!
DIR("?"	SLCT1, SLCT1+9
DIR("A"	SLCT1, SLCT1+9
DIR(0	SLCT1, SLCT1+9
DLAYGO	RGTP1+3*, DIC!
DO	SET+5!
DR	RGTP2, SLCT1+7!, SLCT1+8, SET+5!, SET+6, DIC!
DUZ	RGTP1, RGTP1+1, RGTP1+3, RGTP2+2, USER+7, USER+8
U	RGTP1+7, RGTP1+8, RGTP2+2, RGTP2+3, RGTP2+5, SELECT+4, SLCT1+3, SLCT1+12, USER+5, USER+6 , USER+7, USER+8, USR1+1, DEC1+5
>> X	RGTP1+7, SLCT1+3, SLCT1+12, SET+2*
>> XQUIT	RGTP1+7*
>> Y	RGTP1+7, RGTP1+8, RGTP1+9, SLCT1+4, SLCT1+13
>> ZTDESC	DECEASED+10*
>> ZTDTH	DECEASED+8*
>> ZTIO	DECEASED+9*
>> ZTRTN	DECEASED+6*
>> ZTSAVE("ACM*"	DECEASED+7*

Customize PDF page

Package: Case Management System

Routine: ACMGTP

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SECMSG	;
RGTP	;EP;TO SELECT AND CREATE A REGISTER
ALL
EN	;PEP - SELECT AND CREATE A REGISTER
SLCT
DIE
RGTPA
DECEASED(ACMRGDA)	;PEP;PUBLISHED ENTRY POINT TO CHECK REGISTER PATIENTS FOR ;IHS/CIM/THL PATCH 5
DEC1	;PEP;TO CHECK FOR DECEASED PATIENTS
DIC
RGTPX	;EP;SELECT/CREATE REG W/O HEADER
SET
EXIT
LOOP
USR1
RGTP2
SLCT1
RGTP1
NAMEREX	;
SELECT
USER