Routine: AMQQCMP0

Package	Total	Call Graph
VA Fileman	6	^DIC WAIT^DICD YN^DICN ^DIE ^DIK ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
MailMan	1	^XMD
Patient Care Component Reports	1	(BD,ORDER)^APCLVL

Package	Total	Caller Graph
PCC Medical Query	2	AMQQCMPL AMQQCMPP

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	COSET+14
^%ZISC	ZT+7
^%ZTLOAD	ZT+6
BD^APCLVL	DIBT+34
ORDER^APCLVL	DIBT+18, DIBT+26
^DIC	COH1+6, COVX+8
WAIT^DICD	COSET+15
YN^DICN	COVER+3, BACK+2
^DIE	COSET+5, COVX+14
^DIK	COVX+2
^DIR	DIBT+14, DIBT+38, HELP+4
^XMD	MAIL+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: COH1+0
Function Call: WRITE	Prompt: !,"Cohort not saved...",!! Line Location: COH1+8
Function Call: WRITE	Prompt: !!,"Next, you will be asked about creating your template in background..." Line Location: COSET+9
Function Call: WRITE	Prompt: !! Line Location: COSET+15
Function Call: WRITE	Prompt: !,*7,"You cannot save results in a search template currently in use by your search!",!,"Please select a different search template." Line Location: CHECK+2
Function Call: WRITE	Prompt: !!,"The "_$P(Y,U,2)_" cohort already exists. Want to overwrite" Line Location: COVER+1
Function Call: WRITE	Prompt: !!,"Whoops...I just realized you did not create this template, and therefore you",! Line Location: COVER+9
Function Call: WRITE	Prompt: "are not allowed to overwrite it. (You wouldn't want to destroy someone else's",! Line Location: COVER+10
Function Call: WRITE	Prompt: "data, would you???) Try again with a new template name.",!,*7 Line Location: COVER+11
Function Call: WRITE	Prompt: !!,"Fileman users please note =>" Line Location: FILE+3
Function Call: WRITE	Prompt: !,"This template will be attached to IHS' ",$S(AMQQFILE=9000001:"PATIENT file (#9000001)",AMQQFILE=9000010:"VISIT file (#9000010)",1:"PROVIDER file (#6)"),!! Line Location: FILE+4
Function Call: WRITE	Prompt: "=> This template can only be used within File Manager.",! Line Location: FILE+5
Function Call: WRITE	Prompt: !!!,"Search template completed...",*7 Line Location: DIBT+0
Function Call: WRITE	Prompt: !!,"This query generates ",AMQQTOT," ""hits""",! Line Location: DIBT+1
Function Call: WRITE	Prompt: "Time required to create search template: ",X,!! Line Location: DIBT+6
Function Call: WRITE	Prompt: !!,"Want to run this task in background" Line Location: BACK+0
Function Call: WRITE	Prompt: !!,?5,"ANSWER 'YES' or 'NO'",! Line Location: BACK+7
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Search template being generated in background",1:"Background job cancelled due to technical problems"),!!! Line Location: ZT+8
Function Call: WRITE	Prompt: !!,"Answer 'YES' to run in background." Line Location: TASKHELP+1
Function Call: WRITE	Prompt: !!,"To run in background means to pass the template creation job off to Taskman." Line Location: TASKHELP+2
Function Call: WRITE	Prompt: !,"Your terminal will be released so additional RPMS work may be performed while" Line Location: TASKHELP+3
Function Call: WRITE	Prompt: !,"the template is being created. When finished, Taskman will send you a Mailman" Line Location: TASKHELP+4
Function Call: WRITE	Prompt: !,"message indicating that the job is ready. Then, you may use the template in" Line Location: TASKHELP+5
Function Call: WRITE	Prompt: !,"future Qman searches, PGEN, VGEN and other reports that can utilize templates." Line Location: TASKHELP+6
Function Call: WRITE	Prompt: ! Line Location: TASKHELP+7
Function Call: WRITE	Prompt: !,"Answer 'NO', to create the search template in foreground." Line Location: TASKHELP+8
Function Call: WRITE	Prompt: !!,"While the template is being created, data will be displayed to your screen." Line Location: TASKHELP+9
Function Call: WRITE	Prompt: !,"When the job has finished, you will have the opportunity to go to PGEN or VGEN." Line Location: TASKHELP+10
Function Call: WRITE	Prompt: !,"Remember ... some templates may take a very long time to finish." Line Location: TASKHELP+11
Function Call: WRITE	Prompt: ! Line Location: TASKHELP+12
Routine Call	DIE Line Location: COSET+5 COVX+14
Routine Call	DIC Line Location: COH1+6 COVX+8
Routine Call	DIR Line Location: DIBT+14 DIBT+38 HELP+4
Routine Call	%ZIS Line Location: COSET+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	COVER+8, COVX+18, MAIL+4
^UTILITY(	TASK+1!

Label References

Name	Line Occurrences
BACK	COSET+10, BACK+8
CHECK	COH1+9
COH1	COH1+9
COHORT	RUN
COVER	COH1+9
COVX	COVER+8
DIBT	COSET+17
ELT	DIBT+5
FILE	COHORT+1
HELP	DIBT+20, DIBT+28, DIBT+42, TASKHELP+13
MAIL	TASK+3
TASKHELP	COSET+9, BACK+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, COVER+2, ELT+2, ELT+3, ELT+4, ELT+5, ELT+6, BACK+1, BACK+3, ZT+5* , TASK+1*
%Y	EXIT!, COVER+4, COVER+6, COVER+7, BACK+3, BACK+4*, BACK+5, BACK+6, BACK+8
AMQQBACK	EXIT!, COSET+8!, COSET+11, ZT*
>> AMQQCCLS	FILE, FILE+1
AMQQCHRT	COH1+8!
AMQQCNT	CHECK+1~, CHECK+2*
AMQQDIBS	COSET!, COVER*, COVX+1, COVX+6, COVX+7, COVX+9!
AMQQDIBT	COSET+1*, COSET+2, DIBT+21, DIBT+29, DIBT+43, DIBT+49!, MAIL+4
AMQQFILE	EXIT!, COHORT!, COHORT+2, COSET+4, FILE, FILE+1, FILE+2*, FILE+4, FILE+5, DIBT+8 , DIBT+34
AMQQH1	COSET+7*, DIBT+3, DIBT+49!
AMQQH2	DIBT+2*, DIBT+4, DIBT+49!
>> AMQQIOP	COSET+13*
AMQQMAIL	MAIL+7!
AMQQMAIL(1	MAIL+4*
>> AMQQQUIT	COHORT+2, COH1+7, COH1+9, COSET+12, COVER+6, BACK+5*
AMQQSAVY	COVX+10*, COVX+16, COVX+17!
>> AMQQTOT	DIBT+1
>> AMQV(	CHECK+2
>> AMQV(0	COSET+16
>> AMQV(1	TASK
>> APCLPCNT	DIBT+22, DIBT+30, DIBT+44*
>> APCLPTCT	DIBT+23, DIBT+31, DIBT+45*
>> APCLPTVS	DIBT+24, DIBT+32, DIBT+46*
>> APCLSEAT	DIBT+21, DIBT+29, DIBT+43*
>> APCLTYPE	DIBT+25, DIBT+33, DIBT+47*
DA	COSET+2, COSET+6!, COVX+1, COVX+13*, COVX+15!
DIADD	COVX+5*, COVX+9!
DIC	COH1+2, COSET+6!, COVX+3, COVX+9!
DIC("A"	COH1+1*
DIC("S"	COH1+5*
DIC(0	COH1+4, COVX+4
DIE	COSET+3, COSET+6!, COVX+12, COVX+15!
>> DIK	COVX*, COVX+3
>> DINUM	COVX+6*
DIR	DIBT+9!, DIBT+15!, DIBT+35!, DIBT+39!, HELP+1!
DIR("?"	DIBT+13*
DIR("A"	DIBT+11, DIBT+37, HELP+3*
DIR("B"	DIBT+12*
DIR(0	DIBT+10, DIBT+36, HELP+2*
>> DIRUT	DIBT+16*
>> DLAYGO	COH1+3*
DR	COSET+4, COSET+6!, COVX+11, COVX+15!
DT	COSET+4
DTIME	DIBT+7
DTOUT	COVER+4, COVER+5!, BACK+4!
>> DUOUT	DIBT+16
DUZ	COSET+4, COVER+8, MAIL+5
DUZ(0	COSET+4
I	EXIT!, ELT+3, ZT+5, TASK+1*
>> IOP	COSET+13*
IOST	COSET+15
K	EXIT!, ELT+3*
T	EXIT!, ELT+3*
U	COH1+7, COH1+9, COVER+1, COVER+4, COVER+6, COVER+8, COVX+7, MAIL+4, ELT+3, BACK+4 , BACK+5, TASK+1
X	COH1+7, COVX+7, DIBT+6, DIBT+7, DIBT+9!, ELT+1, ELT+3, ELT+4, ELT+5, ELT+6*
X1	EXIT!, DIBT+3*, ELT+1
X2	EXIT!, DIBT+4*, ELT+1
>> XMDUZ	MAIL+1*
>> XMSUB	MAIL+3*
>> XMTEXT	MAIL+2*
>> XMY(	MAIL+5*
XY	EXIT!
Y	COH1+7, COH1+8, COH1+9, COSET+1, CHECK+2, COVER, COVER+1, COVER+7, COVER+8, COVER+12* , COVX+10, COVX+13, COVX+16, COVX+18, DIBT+9!, DIBT+17, DIBT+18, DIBT+26, DIBT+34, DIBT+40 , ELT+3*
>> ZTDESC	ZT+4*
>> ZTDTH	ZT+3*
>> ZTIO	ZT+2*
>> ZTQUEUED	DIBT+7, TASK+2
>> ZTREQ	TASK+2*
>> ZTRTN	ZT+1*
>> ZTSAVE(	ZT+5*
>> ZTSK	ZT+8

Customize PDF page

Package: PCC Medical Query

Routine: AMQQCMP0

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
COHORT
COSET
RUN
HELP	;PGEN/VGEN HELP
COVER
BACK
TASKHELP	;
COVX
TASK
EXIT
FILE
DIBT
ZT
MAIL	;SEND MAIL MESSAGES TO USERS RE:TEMPLATES
COH1
CHECK	;Check to see if user storing results in a template used in this search
ELT	; ENTRY POINT FROM AMQQCMPP