Routine: AMQQMGR5

Package	Total	Call Graph
VA Fileman	6	^DIC WAIT^DICD YN^DICN ^DIE ^DIK ^DIR

Package	Total	Caller Graph
PCC Medical Query	1	AMQQMGR

Entry Points

External References

Name	Field # of Occurrence
^DIC	ED+4
WAIT^DICD	CLEAR
YN^DICN	ED+10
^DIE	SECURE+3, CLEAR+7
^DIK	CLEAR+3, ED+16, SCREEN+6
^DIR	M2+9, M2+18, M2EX+2, OLD+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,?15,"*** IDENTIFY SECURE DEVICES FOR Q-MAN ***",!! Line Location: M2+0
Function Call: WRITE	Prompt: !!,"You may want to define a group of ""secure devices"" for Q-Man. If you choose" Line Location: M2+1
Function Call: WRITE	Prompt: !,"this option, Q-Man reports can only be displayed or printed on the devices you" Line Location: M2+2
Function Call: WRITE	Prompt: !,"specify. First tell me if the set is ""inclusionary"" (all devices on your list" Line Location: M2+3
Function Call: WRITE	Prompt: !,"are secure) or ""exclusionary"" (all devices are secure unless they appear on" Line Location: M2+4
Function Call: WRITE	Prompt: !,"your list). You may assign ""secure status"" to all devices or just the printers." Line Location: M2+5
Function Call: WRITE	Prompt: !,"Finally, I will ask you to enter the devices one at a time.",! Line Location: M2+6
Function Call: WRITE	Prompt: !! Line Location: M2+24
Function Call: WRITE	Prompt: !! Line Location: M2EX+8
Function Call: WRITE	Prompt: @IOF,!!,?20,"*** DEVICE MANAGEMENT ***",!!!,"Current status =>",!! Line Location: OLD+1
Function Call: WRITE	Prompt: !,"INCLUSIONARY PROTOCOL (All devices on the list are secure)",! Line Location: OLD+3
Function Call: WRITE	Prompt: !,"EXCLUSIONARY PROTOCOL (All devices on the list are NOT secure)",! Line Location: OLD+4
Function Call: WRITE	Prompt: !,"ALL DEVICES (terminals and printers) NEED SECURITY CLEARANCE",! Line Location: OLD+5
Function Call: WRITE	Prompt: !,"ONLY PRINTERS NEED SECURITY CLEARANCE",! Line Location: OLD+6
Function Call: WRITE	Prompt: !,"CURRENT LIST OF ",$S($P(%,U,10)="I":"",1:"NON-"),"SECURE DEVICES: ",! Line Location: OLD+7
Function Call: WRITE	Prompt: ?3,%,?20,$P(^%ZIS(2,^%ZIS(1,Y,"SUBTYPE"),0),U),?48,$P($G(^%ZIS(1,Y,1)),U) Line Location: OLD+9
Function Call: WRITE	Prompt: "." Line Location: CLEAR+3
Function Call: WRITE	Prompt: !!,"Sorry, there are no devices in the file to edit.",!!,*7 Line Location: EDIT+0
Function Call: WRITE	Prompt: !,?3,"This device is already in the file. Want to remove it" Line Location: ED+8
Function Call: WRITE	Prompt: !!,"DEVICE REMOVED FROM LIST" Line Location: ED+17
Function Call: WRITE	Prompt: ! Line Location: STOP+2
Function Call: READ	Prompt: "<>" Timeout: DTIME Variable: X Line Location: STOP+3
Function Call: WRITE	Prompt: $C(13),?79,$C(13) Line Location: STOP+3
Function Call: WRITE	Prompt: !!,"SORRY...This device must be a printer!",!!,*7 Line Location: SCREEN+2
Routine Call	DIE Line Location: SECURE+3 CLEAR+7
Routine Call	DIC Line Location: ED+4
Routine Call	DIR Line Location: M2+9 M2+18 M2EX+2 OLD+13

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	OLD+9, SCREEN+1
^%ZIS(2 - [#3.2]	OLD+9, SCREEN+1
^AMQQ(8 - [#9009078]	AMQQMGR5+3, OLD+2, OLD+9, CLEAR+3, EDIT, SCREEN
^DD(9009078	ED+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, OLD+2, OLD+3, OLD+5, OLD+7, OLD+9, ED+9*
%Y	EXIT!, ED+12, ED+18!
>> AMQQMGRS	M2+23, M2EX+7, SECURE
AMQQQUIT	M2+14!, M2+22!, M2EX+6!, CHK*
C	EXIT!
D	CLEAR+8!
D0	CLEAR+8!, ED+18!, SCREEN+7!
DA	SECURE+1, SECURE+4!, CLEAR+3, CLEAR+6, CLEAR+8!, ED+5!, ED+13, ED+18!, SCREEN+4*, SCREEN+7!
DA(1	CLEAR+1, CLEAR+2, CLEAR+3, ED, ED+2, ED+14, ED+15, SCREEN+3, SCREEN+5
DG	EXIT!
DI	CLEAR+8!, ED+18!, SCREEN+7!
DIC	SECURE+4!, CLEAR+8!, ED+2*, ED+5!, ED+18!, SCREEN+7!
DIC("P"	ED+1*
DIC(0	ED+3*
DIE	SECURE+2, SECURE+4!, CLEAR+5, CLEAR+8!
DIK	CLEAR+2, CLEAR+8!, ED+15, ED+18!, SCREEN+5*, SCREEN+7!
DIR	M2+10!, M2+19!, M2EX+3!, OLD+14!
DIR("A"	M2+8, M2+17, M2EX+1, OLD+11
DIR("B"	OLD+12*
DIR(0	M2+7, M2+16, M2EX, OLD+10
DIRDT	EXIT!
DIRUT	EXIT!, OLD+15!, CHK!
DISYS	EXIT!, ED+18!
DQ	CLEAR+8!, SCREEN+7!
DR	SECURE, SECURE+4!, CLEAR+4, CLEAR+8!
DTIME	STOP+3
DTOUT	EXIT!, OLD+15!, ED+6!, ED+11!, CHK!
DUOUT	EXIT!, OLD+15!, ED+6!, ED+11!, CHK!
DUZ(2	AMQQMGR5+3, SECURE+1, OLD+2, OLD+9, CLEAR+1, CLEAR+6, EDIT, ED, ED+14, SCREEN , SCREEN+3
IOF	M2, OLD+1
>> N	OLD+8, STOP+1, STOP+3*
U	AMQQMGR5+3, M2+12, M2+20, M2EX+4, OLD+3, OLD+5, OLD+7, OLD+9, ED+1, ED+6 , ED+7, SCREEN, SCREEN+1
X	EXIT!, OLD+9, ED+6, ED+18!, STOP~, STOP+3
Y	M2+11, M2+12, M2+15, M2+20, M2+23, M2EX+4, M2EX+7, OLD+9, OLD+15, OLD+16 , OLD+17, ED+6, ED+7, ED+13, ED+18!, CHK, SCREEN+1, SCREEN+4, SCREEN+8

Customize PDF page

Package: PCC Medical Query

Routine: AMQQMGR5

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

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	Line Occurrences
CHK	M2+13, M2+21, M2EX+5
CLEAR	OLD+16
ED	SECURE+5, ED+7, ED+12, ED+19
EDIT	OLD+17
EXIT	AMQQMGR5+3, OLD+15
M2	AMQQMGR5+4, M2+20, M2+22, M2EX+4, M2EX+6
M2EX	M2+15
OLD	AMQQMGR5+3
SCREEN	ED+7
SECURE	M2+25
STOP	OLD+9