Routine: AMQQ

Information

AMQQ ; IHS/CMI/THL - QUERY UTILITY ENTRY ROUTINE ;

Source file <AMQQ.m>

Package	Total	Call Graph
PCC Medical Query	12	^AMQQ1 ^AMQQAT ^AMQQATL ^AMQQATR ^AMQQATS ^AMQQCMPL ^AMQQDFN (EXIT,EXIT1)^AMQQKILL ^AMQQOPT VIEW^AMQQOPT1 (,EN)^AMQQQ ^AMQQQE
Kernel	2	^%ZIS $$VERSION^%ZOSV

Package	Total	Caller Graph
PCC Medical Query	5	AMQQ1 AMQQAT1 AMQQATA AMQQCMPL AMQQQE
Patient Care Component Reports	1	APCLVL

Name	Comments	DBIA/ICR reference
ERR	; The following line contains vendor specific $Z for DSM and MSM - an ; an exemption to SAC 6.1.2.3 has been granted for version 2 only per ; memo dated 5/5/93 from J. MacArthur - This needs to be changed in ; the next release. BRJ/IHS 6/7/93
INDER	; Special Entry Point For Call From Above Execute
SEARCH	; ENTRY POINT FROM AMQQQE
SET
EN2	; PROGRAMMER ENTRY POINT FOR NATL LANGUAGE INTERFACE ; USED BY PHARMACY PKG AND OTHERS. SET AUPNPAT = PT DFN
FAST	; ENTRY POINT FOR FAST FACTS
EN1	; PROGRAMMER ENTRY POINT ; SCRIPT INTERFACE
INIT
EN3	; PROGRAMMER ENTRY POINT FOR SEARCH TEMPLATE SUBSTITUTION. INPUT AMQQEN3 CONTAINS THE DIBT ENTRY NUMBER AND OUTPUT RETURNS THE TOTAL NUMBER OF ENTRIES IN THE NEW TEMPLATE ; IF AMQQND=0, HITS NOT DISPLAYED, AMQQND=1 DOTS WILL BE DISPLAYED FOR EACH HIT
EMSG
AGAIN
EN	;EP; PRIMARY ENTRY POINT FOR QMAN FROM THE KERNEL MENU SYSTEM
START
AT
ERROR
VAR
OLDTRAP
RUN
LIST	; ENTRY POINT FROM AMQQAT1
EXIT	; ENTRY POINT FROM AMQQCMPL
TRAP	;TRAP
VAREN	; ENTRY POINT TO SET VARIABLES
SAVE
LOOP
VIEW

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+4
Function Call: WRITE	Prompt: @IOF Line Location: SEARCH+1
Function Call: WRITE	Prompt: ?20,"*** SEARCH CRITERIA ***",!!! Line Location: SEARCH+1
Function Call: WRITE	Prompt: !!!,"Sorry...the subject of your search must be a patient.",!!!,*7 Line Location: RUN+2
Function Call: WRITE	Prompt: !! Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST+3
Function Call: WRITE	Prompt: !! Line Location: LIST+4
Function Call: WRITE	Prompt: !!,"QMAN Session terminated...",!! Line Location: ERROR+0
Function Call: WRITE	Prompt: !!,"WHOOPS!!!!!!!!!!!!!" Line Location: EMSG+0
Function Call: WRITE	Prompt: !,"Something just happened which caused me to come to a grinding halt." Line Location: EMSG+1
Function Call: WRITE	Prompt: !,"Try to enter the ATTRIBUTE again, but if this problem persists you must" Line Location: EMSG+2
Function Call: WRITE	Prompt: !,"take a different approach.",!!!,*7 Line Location: EMSG+3
Function Call: WRITE	Prompt: !!,"Session terminated...",!! Line Location: ERR+4
Function Call: WRITE	Prompt: !!,"ERROR DETECTED...Try again...If problem persists try a different approach",!!,*7 Line Location: ERR+5
Routine Call	%ZIS Line Location: VAR+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	VAR+5
^%ZOSF("BRK"	TRAP+4
^%ZOSF("NBRK"	EXIT+3
^%ZOSF("TRAP"	AT+4, AT+5, TRAP+5, TRAP+8, TRAP+9, OLDTRAP+5
^AMQQ(8 - [#9009078]	VAR+1
^DD("OS" - [#.7]	TRAP+2, TRAP+3, OLDTRAP+1, OLDTRAP+2, OLDTRAP+3
^DIBT(	EN3+3
^DPT - [#2]	EN2+6
^UTILITY("AMQQ"	LIST+3

Name	Line Occurrences
@(	LOOP
AGAIN	LOOP+1
AT	AT+1, AT+6, AT+9, AT+11, AT+12, SET+7, ERROR+3
EMSG	ERROR+1
EN	EN3+4
EXIT	AGAIN+1, ERROR, ERROR+4, ERR+4, ERR+7, INDER+8, EN2+10
LIST	AT+1, AT+9, AT+11, AT+12, SET+3
LOOP	AGAIN, ERR+7, EN2+9
SEARCH	INDER+7
SET	AT+10
START	EN+2
TRAP	START, LOOP, INDER+5, EN2+7
VAR	START, INDER+6, EN2+8

Name	Field # of Occurrence
%	TRAP+3, OLDTRAP+2, OLDTRAP+3, OLDTRAP+4, VAR+2, LIST+3, EN1+6, EN1+7, EN1+8, EN1+9* , EN1+10, INDER+1, INDER+2, EN3+3!
>> AMQQ200(	VAR+2*
AMQQADAM	AMQQ+4~, AMQQ+5*, TRAP+4, TRAP+5, OLDTRAP+5
>> AMQQAGIN	LOOP+1*
AMQQANYF	AT+9!
>> AMQQCCLS	RUN+2
>> AMQQEN3	AGAIN, LOOP, RUN+2, EN3+2, EN3+3*
>> AMQQEN31	AGAIN*
AMQQETRP	EXIT+1!, TRAP+7*
>> AMQQFAIL	EN1+2, EN1+3
AMQQFEN2	EN2+4*, EN2+11!
>> AMQQMULT	AT+11
AMQQND	EN3+5!
AMQQNOET	AT+4, AT+5, TRAP+1!, TRAP+2, TRAP+3, TRAP+4, TRAP+5, TRAP+6, OLDTRAP!, OLDTRAP+1 , OLDTRAP+4, OLDTRAP+5, ERROR
AMQQNULL	SET+5, SET+6!
>> AMQQNV	VAR+4, VAR+5, VAR+7
>> AMQQONE	AT+11
>> AMQQOPT	AGAIN, AGAIN+1, LOOP, SEARCH+1, ERR+7, EN2+5
>> AMQQQ	AT+2, AT+7, AT+8
AMQQQUIT	AGAIN+1, LOOP, LOOP+1!, RUN!, AT+2, AT+3!, AT+8!, ERROR, ERR+4
>> AMQQRV	VAR+4, VAR+5, VAR+6, VAR+7*
>> AMQQSAUT	EN2+6*
AMQQSCPF	AT+6!
AMQQSVFL	AT+12!
AMQQTXMT	AT+10!
>> AMQQUATN	INIT, AT+2, AT+7, SET+4
>> AMQQUNBC	INIT+1, SET+5
>> AMQQUQQN	INIT+1*
>> AMQQURGN	INIT+1*
>> AMQQUSQL	INIT*
>> AMQQUSQN	INIT+1*
>> AMQQVER	VAR*
AMQQXSQF	AT+1!
>> AMQQXV	VAR+7*
AMQQXX	EXIT+4, SEARCH+1, RUN!, RUN+1, VAR+3, VAR+5, LIST+1, EN1+2, EN1+4
>> AMQQYY	EXIT+4, EN1+3, EN1+5, INDER+1, INDER+2
>> AMQQYY(0	INDER+3*
>> AUPNPAT	EN2+2, EN2+6
DUZ(2	VAR+1
IOF	EXIT+4, SEARCH+1
>> IOP	VAR+3*
IOST(0	VAR+5
U	INIT+1*, TRAP+3, OLDTRAP+3, VAR+1, VAR+5, EN2+6, EN3+3
>> X	AT+4, AT+5, TRAP+8, TRAP+9, VAR, VAR+1, VAR+2, VAR+5, EN1+4, EN1+7 , INDER+2*
>> Y	EN1+5, EN1+8, INDER+2