Routine: AMQQTX0

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE (,IX)^DIK
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
Kernel	1	$$STRIP^XLFSTR

Package	Total	Caller Graph
PCC Medical Query	4	AMQQGTX AMQQGTX0 AMQQTX AMQQTXG

Entry Points

External References

Name	Field # of Occurrence
^DIC	RNAME+8, OWRITE+17, RESTORE+10
YN^DICN	NAME+6, OWRITE+1
^DIE	RNAME+17
^DIK	OWRITE+7
IX^DIK	ST1+2
$$ICDDX^ICDEX	SYS+4
$$ICDOP^ICDEX	SYS+5
$$STRIP^XLFSTR	SYS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Want to save this ",AMQQTNAR," group for future use" Line Location: NAME+4
Function Call: WRITE	Prompt: !!,"This group will be saved as a taxonomy for future use when entered as a value",!,"using the ""[Name of Group"" syntax." Line Location: NAME+9
Function Call: READ	Prompt: "Group name: " Formatting: ! Timeout: DTIME Variable: X Line Location: RNAME+0
Function Call: WRITE	Prompt: !!,"The (ST) is Q-Man's designation for a ""Standard Taxonomy"".",!,"You may not create a standard taxonomy. Please select another name.",!,*7 Line Location: RNAME+3
Function Call: WRITE	Prompt: !!,X," already exists and cannot be overwritten except by its creator",!!,*7 Line Location: RNAME+11
Function Call: WRITE	Prompt: !!,X," is READ ONLY and cannot be overwritten",!!,*7 Line Location: RNAME+12
Function Call: WRITE	Prompt: !!,X," already exists. Want to overwrite" Line Location: OWRITE+1
Function Call: WRITE	Prompt: "]" Line Location: RESTORE+13
Function Call: WRITE	Prompt: !!,"Members of ",X," Taxonomy =>",! Line Location: SHOW+1
Function Call: WRITE	Prompt: "." Line Location: SHOW+4
Function Call: WRITE	Prompt: ! Line Location: SHOW+6
Function Call: WRITE	Prompt: !,"OK" Line Location: SHOW+10
Function Call: WRITE	Prompt: $P(Z,U,1) Line Location: SHOW+11
Routine Call	DIE Line Location: RNAME+17
Routine Call	DIC Line Location: RNAME+8 OWRITE+17 RESTORE+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(1 - [#9009071]	REST+5
^ATXAX - [#9002226]	RNAME+11, RNAME+12, STUFF+1, RSTUFF+1, ST1+1*, REST+2, REST+7, RES1+1
^UTILITY("AMQQ TAX"	NAME+2, STUFF+1, REST+7, RES2+4, RES2+7*

Label References

Name	Line Occurrences
$$SYS	RSTUFF+1
EXIT	NAME, NAME+3, NAME+10, NAME+11
NAME	NAME+9
OEXIT	RNAME+18, OWRITE+3, OWRITE+4
OWRITE	RNAME+13
RES1	REST+6
RES2	RES1+1
RNAME	NAME+12, RNAME+3, RNAME+10, RNAME+11, RNAME+12, RNAME+13
RSTUFF	RNAME+18
SHOW	REST+7, RES2+4
ST1	STUFF+2
STUFF	RNAME+19

Naked Globals

Name	Field # of Occurrence
^(	RES1+1, RES2+7
^(0	REST+2
^(1	REST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NAME+1, NAME+2, NAME+3, NAME+5, NAME+9, EXIT!, OWRITE+1, SHOW+2~, SHOW+9, SHOW+10 , RES1, RES1+1*, RES2, RES2+1, RES2+2, RES2+3, RES2+6
%Y	NAME+7, NAME+10, NAME+11, EXIT!, RNAME+13, OWRITE+2, OWRITE+3, OWRITE+4, OWRITE+18*
A	EXIT!, RES1+1*, RES1+2!, RES2+1, RES2+2, RES2+7
AMQQB	RESTORE+3*, RESTORE+4, RESTORE+13, REST+3!
>> AMQQDF	RESTORE+8, RESTORE+13, REST+7, REST+9, RES2+4
>> AMQQECHO	RESTORE+8
>> AMQQHILO	RSTUFF+1, RES2+1
>> AMQQLINK	RNAME+17, REST+4, REST+5
>> AMQQNECO	RESTORE+8
>> AMQQQUIT	NAME+10, RNAME+1, RNAME+13, RNAME+20, OWRITE+3
AMQQSHNO	REST+3!, REST+9!, SHOW+1, SHOW+7, SHOW+8
>> AMQQSHOW	SHOW
>> AMQQTAXN	REST+2*
>> AMQQTAXT	RNAME+17, RNAME+18, REST+3, REST+6, SHOW+5
>> AMQQTDFN	RNAME+14*
>> AMQQTGBL	RSTUFF+1, RES2+3, RES2+7
>> AMQQTGFG	REST+10*
AMQQTGIT	RESTORE+1~, REST+3, REST+4, REST+5*, SHOW+5
AMQQTGNA	OWRITE*, OWRITE+13, OEXIT!
AMQQTGNO	EXIT!, RNAME+14, RNAME+16, OWRITE, OWRITE+12, STUFF+1, RSTUFF+1, ST1+1, ST1+2, RESTORE+1~ , REST+7, SHOW+3, SHOW+5, RES1+2!, RES2, RES2+2*
AMQQTJMP	REST+8!, SHOW+4, SHOW+8, SHOW+10*
>> AMQQTLOK	RNAME+17
>> AMQQTNAR	NAME+4
>> AMQQURGN	NAME+2, STUFF+1, REST+7, RES2+4, RES2+7
>> AMQQXX	NAME, RESTORE+9, REST+7, RES2+4
ATXFLG	EXIT!, RNAME+4, OWRITE+9
B	EXIT!, RES1+2!, RES2+3, RES2+4, RES2+7
C	SYS~, SYS+2*, SYS+4, SYS+5
DA	RNAME+16, OWRITE+5, OWRITE+8!, ST1+2*, ST1+3!
DIADD	OWRITE+14*, OEXIT!
DIC	RNAME+5, RNAME+9!, OWRITE+10, OEXIT!, RESTORE+6*, RESTORE+11!
DIC("DR"	OWRITE+15*
DIC("S"	RESTORE+5*
DIC(0	RNAME+6, OWRITE+11, RESTORE+7, RESTORE+8, RESTORE+9*
>> DIE	RNAME+15*
DIK	OWRITE+6, OWRITE+8!, ST1+2, ST1+3!
>> DINUM	OWRITE+12*
DLAYGO	RNAME+7, RNAME+9!, OWRITE+16, OEXIT!
>> DR	RNAME+17*
DT	RNAME+17, SYS+4, SYS+5
DTIME	RNAME, SHOW+9
DTOUT	NAME+7, NAME+8!, RNAME+20!, OWRITE+2!
DUZ	RNAME+11, RNAME+17
G	SYS~, SYS+1, SYS+4, SYS+5
I	EXIT!, STUFF+1, RSTUFF+1, ST1*, ST1+1, ST1+4!
IOSL	SHOW+8
N	EXIT!, RES1+2!, RES2+6, RES2+7
>> S	RSTUFF+1*
T	EXIT!, SYS+3~, SYS+4, SYS+5, REST+9!
U	NAME+7, NAME+10, RNAME, RNAME+1, RNAME+11, RNAME+12, RNAME+13, RNAME+17, OWRITE, OWRITE+2 , OWRITE+3, RSTUFF+1, ST1+1, SYS+4, SYS+5, REST+2, SHOW+10, SHOW+11
X	NAME+1, NAME+2, EXIT!, RNAME, RNAME+1, RNAME+2, RNAME+3, RNAME+11, RNAME+12, OWRITE+1 , OWRITE+13, STUFF, STUFF+1, RSTUFF, RSTUFF+1, ST1+4!, RESTORE+2, RESTORE+3, RESTORE+4, SHOW+1 , SHOW+2~, SHOW+5*
Y	RNAME+10, RNAME+11, RNAME+12, RNAME+13, RNAME+14, OWRITE, OWRITE+5, RSTUFF+1*, ST1+4!, RESTORE+12 , RESTORE+13, REST+1, REST+2, REST+7, RES1+1
Z	EXIT!, ST1+4!, REST+9!, SHOW+2~, SHOW+3, SHOW+5, SHOW+11
>> ZTQUEUED	REST+9

Customize PDF page

Package: PCC Medical Query

Routine: AMQQTX0

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
RESTORE	; ENTRY POINT FROM AMQQTX SUBROUTINES
RNAME
NAME
SHOW
RES2
OEXIT
RES1
REST	;EP;TO RESTORE VALUES FROM A TAXONOMY
STUFF
EXIT
ST1
SYS(C,G)	;EP GET SYSTEM FOR THIS CODE IF ICD9, ICD0
OWRITE
RSTUFF