Routine: AMQQOPT

Package	Total	Call Graph
PCC Medical Query	2	(RMAN,VIEW)^AMQQOPT1 $$KEYCHECK^AMQQUTIL
VA Fileman	2	^DIP ^DIR
Kernel	1	EN^XQH

Package	Total	Caller Graph
PCC Medical Query	3	AMQQ AMQQCMPL AMQQQE1

Entry Points

External References

Name	Field # of Occurrence
RMAN^AMQQOPT1	RMAN
VIEW^AMQQOPT1	VIEW
$$KEYCHECK^AMQQUTIL	SEC+11, SEC+13, OUT1+5
^DIP	OUT1+6
^DIR	RUN+4, SEL1+5, OS+6
EN^XQH	OUT1+7, OS+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,?12,"*** WELCOME TO Q-MAN: THE PCC QUERY UTILITY ***" Line Location: HELLO+0
Function Call: WRITE	Prompt: !!!,X,! Line Location: WARN+2
Function Call: WRITE	Prompt: " WARNING...Q-Man produces confidential patient information. " Line Location: W1+0
Function Call: WRITE	Prompt: !," View only in private. Keep all printed reports in a secure area. ",! Line Location: W1+1
Function Call: WRITE	Prompt: " Ask your site manager for the current Q-Man Users Guide. ",!,X,!!! Line Location: W1+2
Function Call: WRITE	Prompt: !,"Query utility: IHS PCC SUITE Q-MAN Ver. ",AMQQVER Line Location: SEC+4
Function Call: WRITE	Prompt: !,"Current user: ",% Line Location: SEC+7
Function Call: WRITE	Prompt: !,"Chart numbers will be displayed for: ",$P(^DIC(4,DUZ(2),0),U) Line Location: SEC+8
Function Call: WRITE	Prompt: !,"Access to demographic data: PERMITTED" Line Location: SEC+9
Function Call: WRITE	Prompt: !,"Access to clinical data: " Line Location: SEC+10
Function Call: WRITE	Prompt: $S(%:"PERMITTED",1:"DENIED"),! Line Location: SEC+12
Function Call: WRITE	Prompt: "Programmer privileges: ",$S(%:"YES",1:"NO"),!!! Line Location: SEC+14
Function Call: WRITE	Prompt: !!,"USER NOT IDENTIFIED...SESSION ABORTED",!!,*7 Line Location: NOUSER+0
Function Call: WRITE	Prompt: !!,"LOCATION NOT IDENTIFIED...SESSION ABORTED",!!,*7 Line Location: NOSITE+0
Function Call: WRITE	Prompt: "Sorry...Programmer privileges are required for this option",!!,*7 Line Location: CHECK+1
Function Call: WRITE	Prompt: @IOF Line Location: CHECK+1
Function Call: WRITE	Prompt: @IOF,!!?25,"*** Q-MAN OPTIONS ***",!!! Line Location: SEL+0
Function Call: WRITE	Prompt: !! Line Location: OUT1+0
Function Call: WRITE	Prompt: "Sorry...Clinical privileges are required for this option",!!,*7 Line Location: OUT1+5
Function Call: WRITE	Prompt: @IOF,!!,?20,"*** Q-MAN OUTPUT OPTIONS ***",!! Line Location: OUTPUT+4
Function Call: WRITE	Prompt: " (Already selected...try again)",*7,! Line Location: OS+12
Routine Call	DIR Line Location: RUN+4 SEL1+5 OS+6

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, SEC+5, SEC+6, SEC+7, SEC+11, SEC+12, SEC+13, SEC+14, CHECK+1, OUT1+5*
>> AMQQ("AGIN"	OUTEXIT+1*
>> AMQQ200(3	SEC+5
>> AMQQADAM	ADAM
>> AMQQAGIN	ADAM+1
>> AMQQCPLF	OS+12
AMQQDLIM	SEL1+6!, OS+11*
AMQQDVQU	OUTPUT+1!
>> AMQQEN31	OUT+1
AMQQOPT	CHECK+1!, OUT1+1, OUT1+2, OUT1+3, OUT1+4
AMQQOPT("ASCII"	OUTPUT+2!
AMQQOPT("SPEC"	OUT+6, OUTPUT+3, RMAN+1
>> AMQQQUIT	RUN+2, RUN+6, NO1, SEL1+7, OUT+4, OUT+6, OS+8, OS+10*, RMAN, RMAN+1
AMQQRERF	RMAN!
>> AMQQVER	SEC+4
>> AMQV("OPTION"	OUT+1, OUT+2!, OUT+6, OUT+7, RMAN, RMAN+1
>> DIC(0	OUT1+7, OS+9
DIR	RUN+5!, SEL1+6!, OS+7!
DIR("?"	SEL1+3, OS+3
DIR("??"	SEL1+4, OS+2
DIR("A"	SEL1+1, OS+4
DIR("B"	SEL1+2, OS+5
DIR(0	RUN+3, SEL1, OS, OS+1
DIRUT	RUN+6!, SEL1+7!, OS+8!
DTOUT	RUN+6!, SEL1+7!, OUTEXIT!, OS+8!
DUOUT	RUN+6!, SEL1+7!, OS+8!
DUZ	SEC, SEC+1, SEC+5
DUZ(2	SEC+2, SEC+3, SEC+8
IOF	HELLO, CHECK+1, SEL, OUTPUT+4
POP	OUTEXIT!
U	SEC+5, SEC+8, OUT+7
X	EXIT!, WARN, WARN+1, WARN+2, W1+2, OUTEXIT!
>> XQH	OUT1+7, OS+9
Y	EXIT!, SEL1+7, OUT1+1, OUT1+2, OUT1+3, OUT1+4, OUT1+5, OUT1+6, OUT1+7, OUT+5 , OUT+7, OUTPUT+2, OUTPUT+3, OS+9, OS+10, OS+11, OS+12, RMAN

Customize PDF page

Package: PCC Medical Query

Routine: AMQQOPT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OUT1
NOUSER
VIEW
RUN
SEL1
NOSITE
OUTEXIT
NO1
WARN
EXIT
ADAM
W1
OUTPUT	; - EP - FROM AMQQQE1
SEC
RMAN
SEL
OS
HELLO
CHECK
OUT	; ENTRY POINT FROM AMQQCMPL

Name	Line Occurrences
@(	RMAN
CHECK	OUT1+3
EXIT	ADAM, ADAM+1, RUN+2, RUN+6
NO1	NOUSER
NOSITE	SEC+2, SEC+3
NOUSER	SEC, SEC+1
OS	OS+12, RMAN
OUTEXIT	OUT+4
OUTPUT	OUT+3, OS+9, RMAN
RMAN	OUTPUT+2, OUTPUT+3
SEC	RUN+1
SEL	ADAM, ADAM+1, RUN+7, OUT1+4, OUT1+5, OUT1+6, OUT1+7
SEL1	OUT1+3
VIEW	OUT1+4
WARN	RUN

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SEC+8
^DIC(9.2 - [#9.2]	OUT1+7