Routine: AMQQMGR

Package	Total	Call Graph
PCC Medical Query	7	^AMQQMGR1 ^AMQQMGR2 (GET,LIST,TOP)^AMQQMGR4 ^AMQQMGR5 ^AMQQMGR6 IMM^AMQQMGR9 ^AMQQNTEG
VA Fileman	5	^DIC YN^DICN ^DIE (,EN)^DIK ^DIR
Kernel	2	^%ZIS ^%ZISC

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	AMQQMGR+4, M1+1
^%ZISC	M10+2
^AMQQMGR1	M3
^AMQQMGR2	M6
GET^AMQQMGR4	M51+9
LIST^AMQQMGR4	M51+10
TOP^AMQQMGR4	M51+8
^AMQQMGR5	M2
^AMQQMGR6	M5
IMM^AMQQMGR9	M11+1
^AMQQNTEG	M4
^DIC	MENU+5, ISET+5, TERMS+13, TERMS+21, M81+8
YN^DICN	ASKFAC+3, INIT+4
^DIE	ASKFAC+12, ASKFAC+18, SETM7+4, SETM7+11
^DIK	M81+21
EN^DIK	ISET+14
^DIR	ASK+5, FAC+1, M51+4, TERMS+4, TERMS+32, M81+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"DUZ(2) MUST BE SET TO THE FACILITY INDICATED IN THE QMAN SITE PARAMETERS FILE!" Line Location: MENU+7
Function Call: WRITE	Prompt: !! Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter a code from the list or type '??' for more information." Line Location: ASK+10
Function Call: WRITE	Prompt: ?15,"*** SECURITY KEY ASSIGNMENT CRITERIA ***",!! Line Location: M1+5
Function Call: WRITE	Prompt: "Q-MAN DEMOGRAPHIC DATA ACCESS Key = AMQQZMENU Assign to all Q-Man users",! Line Location: M1+6
Function Call: WRITE	Prompt: "Q-MAN CLINICAL DATA ACCESS Key = AMQQZCLIN Assign to health professionals only",! Line Location: M1+7
Function Call: WRITE	Prompt: "Q-MAN PROGRAMMER ACCESS Key = AMQQZPROG Assign to PCC developers only",! Line Location: M1+8
Function Call: WRITE	Prompt: "Q-MAN MANAGERS UTILITIES Key = AMQQZMGR Only the site manager should hold it" Line Location: M1+9
Function Call: WRITE	Prompt: "PROMPT FOR WHO REPORT IS FOR Key = AMQQZRPT Assign to users running reports",!,"for others" Line Location: M1+10
Function Call: READ	Prompt: "<Press the ENTER key to go on>" Formatting: ! Timeout: DTIME Variable: X Line Location: M1+14
Function Call: WRITE	Prompt: @IOF Line Location: M10+0
Function Call: WRITE	Prompt: !!,?10,"*** ",$P(X,U,2)," ***",! Line Location: KEY+1
Function Call: WRITE	Prompt: ! Line Location: KEY+3
Function Call: WRITE	Prompt: $S($D(@AMQQ200(3)@(%,0)):$P(^(0),U),1:(%_" ??")) Line Location: KEY+3
Function Call: WRITE	Prompt: IOF Line Location: WAIT+2
Function Call: READ	Prompt: "<>" Timeout: DTIME Variable: Z Line Location: WAIT+3
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+3
Function Call: WRITE	Prompt: @IOF Line Location: WAIT+4
Function Call: WRITE	Prompt: @IOF,!!,?20,"*** SECONDARY FACILITIES ***",!! Line Location: M7+0
Function Call: WRITE	Prompt: !,"Normally, when the user requests patient reports, s/he will only see the chart" Line Location: M7+1
Function Call: WRITE	Prompt: !,"number at this facility. The user may request other chart numbers provided" Line Location: M7+2
Function Call: WRITE	Prompt: !,"that you enter the other local facilities now. You may enter up to three",!,"facilities, but do not enter this one!",! Line Location: M7+3
Function Call: WRITE	Prompt: !,"OTHER FACILITIES' CHART NUMBERS NOW DISPLAYED =>",! Line Location: M7+4
Function Call: WRITE	Prompt: !,$P(^DIC(4,$P(^(0),U,%),0),U) Line Location: M7+5
Function Call: WRITE	Prompt: ! Line Location: ASKFAC+7
Function Call: WRITE	Prompt: !!,"Okay, the entered local facility or facilities' chart numbers will now appear" Line Location: SETM7+13
Function Call: WRITE	Prompt: !,"on all outputs" Line Location: SETM7+14
Function Call: WRITE	Prompt: !,*7,"Enter a facility other than your local facility.",! Line Location: FAC+2
Function Call: WRITE	Prompt: @IOF,!,?15,"*** LAB RESULTS FOR Q-MAN ***",!! Line Location: VER+0
Function Call: WRITE	Prompt: ! Line Location: M51+0
Function Call: WRITE	Prompt: !!,"Select a code from the list or type '??' for more info",!! Line Location: M51+6
Function Call: READ	Prompt: "<>" Formatting: !! Timeout: DTIME Variable: X Line Location: M51+10
Function Call: WRITE	Prompt: !!,"KERNEL VARIABLES NOT SET!!,",!! Line Location: INIT+1
Function Call: WRITE	Prompt: !!,"Is the site where Q-Man is being installed ",$P(^DIC(4,DUZ(2),0),U) Line Location: INIT+2
Function Call: WRITE	Prompt: !!,"Well then, you must log in again, and this time enter the correct site!",!!,*7 Line Location: ISET+0
Function Call: WRITE	Prompt: ! Line Location: TERMS+3
Function Call: WRITE	Prompt: !!,"Entry already exists.",! Line Location: TERMS+7
Function Call: WRITE	Prompt: ! Line Location: TERMS+12
Function Call: WRITE	Prompt: ! Line Location: TERMS+20
Function Call: WRITE	Prompt: !,"IEN: ",IEN," will be created patterned after" Line Location: TERMS+25
Function Call: WRITE	Prompt: !,"TERM: ",$P(^AMQQ(5,TERM,0),U)," and" Line Location: TERMS+26
Function Call: WRITE	Prompt: !,"LINK: ",$P(^AMQQ(1,LINK,0),U),"." Line Location: TERMS+27
Function Call: WRITE	Prompt: ! Line Location: TERMS+31
Function Call: WRITE	Prompt: @IOF Line Location: M81+1
Function Call: WRITE	Prompt: !?10,"Qman Search Template Deletion Utility" Line Location: M81+2
Function Call: WRITE	Prompt: !!?10,"Select a Search Template to Delete.",! Line Location: M81+3
Function Call: WRITE	Prompt: ! Line Location: M81+7
Function Call: WRITE	Prompt: ! Line Location: M81+15
Routine Call	DIE Line Location: ASKFAC+12 ASKFAC+18 SETM7+4 SETM7+11
Routine Call	DIC Line Location: MENU+5 ISET+5 TERMS+13 TERMS+21 M81+8
Routine Call	DIR Line Location: ASK+5 FAC+1 M51+4 TERMS+4 TERMS+32 M81+16
Routine Call	%ZIS Line Location: AMQQMGR+4 M1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(1 - [#9009071]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AMQQ(8 - [#9009078]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMQQ(1 - [#9009071]	TERMS+27, T1+1*
^AMQQ(5 - [#9009075]	TERMS+7, TERMS+26, T1*
^AMQQ(8 - [#9009078]	AMQQMGR+5, MENU+1, M7+4, M7+5, ASKFAC+8, ISET+10*
^DD(9009078	ISET+8
^DIBT(	M81+11
^DIC(4 - [#4]	M7+5, INIT+2
^XUSEC(	KEY+3

Label References

Name	Line Occurrences
@(	ASK+11
ASK	ASK+10
ASKFAC	ASKFAC+4
CHK	ASK+7, FAC+4
EXIT	ASK+8, ASK+9
FAC	ASKFAC+21, FAC+2
INIT	MENU+1
ISET	INIT+5
KEY	M1+13
M10	M1+13
M5	M51+8, M51+9, M51+10, M51+11
M51	M51+6
M81	M8+2
MENU	ASK+12
SETM7	ASKFAC+22
T1	XXX
TERMS	TERMS+7
WAIT	KEY+3

Naked Globals

Name	Field # of Occurrence
^(0	KEY+3, M7+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	AMQQMGR+6, EXIT!, KEY+3, WAIT+3, M7+5, ASKFAC+2, ASKFAC+4, ASKFAC+5, SETM7, SETM7+3 , SETM7+6, SETM7+10, INIT+3, INIT+6!
%Y	INIT+5, INIT+6!, ISET
>> AMQQ200(	AMQQMGR+6*
>> AMQQ200(3	KEY+3
>> AMQQDA	M81+10*, M81+19
AMQQLSSX	EXIT!
AMQQMGRF	EXIT!, ASKFAC+20, ASKFAC+23, SETM7, SETM7+16!, FAC+7
AMQQMGRL	EXIT!, M1+11, M10+1!, KEY, KEY+3, WAIT, WAIT+1
AMQQMGRN	EXIT!, ASKFAC+21, ASKFAC+22, SETM7+6, SETM7+16!, FAC+6, FAC+7
AMQQMGRS	EXIT!
AMQQQUIT	ASK+8, ASK+12, EXIT!, CHK, WAIT+3, FAC+5!, M8+1!, M8+2, M8+3!, M81+9*
AMQQSTP	ASKFAC+5*, ASKFAC+6!
DA	ASKFAC+9, ASKFAC+13!, ASKFAC+15, ASKFAC+19!, SETM7+1, SETM7+5!, SETM7+8, SETM7+12!, ISET+13, M81+19 , M81+22!
DA(1	ASKFAC+16, SETM7+9
DIC	MENU+2, MENU+6!, SETM7+16!, ISET+2, TERMS+9, TERMS+14!, TERMS+17, TERMS+22!, M81+4*
DIC("A"	TERMS+11, TERMS+19, M81+6*
DIC(0	MENU+3, ISET+3, TERMS+10, TERMS+18, M81+5*
DIE	ASKFAC+10, ASKFAC+13!, ASKFAC+14, ASKFAC+19!, SETM7+2, SETM7+5!, SETM7+7, SETM7+12!
DIK	ISET+11, M81+20, M81+22!
DIK(1	ISET+12*
DIR	ASK+6!, M51+5!, TERMS+5!, TERMS+33!, M81+17!
DIR("?"	ASK+4*
DIR("??"	ASK+2, M51+3
DIR("A"	ASK+3, M51+2, TERMS+2, TERMS+29, M81+13*
DIR("B"	TERMS+30, M81+14
DIR(0	ASK, FAC, M51+1, TERMS+1, TERMS+28, M81+12
DIRUT	CHK!, M1+14!
>> DLAYGO	ISET+4*
DR	ASKFAC+11, ASKFAC+13!, ASKFAC+17, ASKFAC+19!, SETM7+3, SETM7+5!, SETM7+10, SETM7+12!
DTIME	M1+14, WAIT+3, M51+10
DTOUT	CHK!, M1+14!, INIT+6!
DUOUT	CHK!, M1+14!, INIT+6!
DUZ(2	AMQQMGR+5, MENU+4, M7+4, M7+5, ASKFAC+8, ASKFAC+9, SETM7+1, FAC+2, INIT+1, INIT+2 , ISET+1, ISET+13
>> IEN	TERMS+8, TERMS+25, T1, T1+1, XXX
IO	M1+3
IOF	M1+2, M1+4, M10, WAIT+2, WAIT+3, WAIT+4, M7, VER, M81+1
>> IOP	AMQQMGR+3*
IOSL	WAIT
IOST	M1+4, M1+14, WAIT+2
>> LINK	TERMS+24, TERMS+27, T1+1, XXX
>> POP	M1+2
>> TERM	TERMS+16, TERMS+26, T1, XXX
U	AMQQMGR+5, M1+13, KEY+1, KEY+2, KEY+3, M7+4, M7+5, ASKFAC+8, SETM7+3, FAC+3 , FAC+7, INIT+2, ISET+8, TERMS+26, TERMS+27, M81+11
X	AMQQMGR+5, AMQQMGR+6, MENU+4, EXIT!, M1+13, M1+14, KEY+1, KEY+2, KEY+3, ASKFAC+21 , ASKFAC+22, FAC+3, M51+10, ISET+1, ISET+7, ISET+9, ISET+10, M81+11*, M81+13
Y	MENU+7, ASK+9, ASK+10, ASK+11, EXIT!, CHK, FAC+2, FAC+7, M51+6, M51+7 , M51+8, M51+9, M51+10, ISET+6, ISET+10, TERMS+6, TERMS+7, TERMS+8, TERMS+15, TERMS+16 , TERMS+23, TERMS+24, TERMS+34, M81+9, M81+10, M81+11, M81+18
>> Z	M1+12, M1+13, KEY+3, WAIT+3

Customize PDF page

Package: PCC Medical Query

Routine: AMQQMGR

Information

Source Information

Call Graph

Call Graph Total: 14

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
M51
M5
M4
M7
M6
M1	;
M3
M2
M8	;EP;TO DELETE A SEARCH TEMPLATE
TERMS	;EP;PROGRAMMER ENTRY POINT TO CREATE NEW METADICTIONARY ENTRIES
ASKFAC
XXX
M81	;
INIT	;
ASK
FAC
VER
ISET
CHK
T1
WAIT
MENU	;
M11	;EP;TO UPDATE IMMUNIZATIONS ENTRIES IN THE QMAN DICTIONARY OF TERMS
M10
EXIT
SETM7
KEY