Routine: AMQQMGR1

Package	Total	Call Graph
IHS Patient	3	VMSR04^AUPNCIX (AQ1,AQE1,AQR1,AQS1)^AUPNCIXL ^AUPNVDXP
VA Fileman	3	YN^DICN ENALL^DIK ^DIR
Kernel	1	^%ZTLOAD

Package	Total	Caller Graph
PCC Medical Query	1	AMQQMGR

Entry Points

Name	Comments	DBIA/ICR reference
MAILTASK
PAT	; re-indexing aq1 on Patient
VLAB	; re-index aq on v lab
VDXP	; Re-indexing AQ on V DIAGNOSTIC PROCEDURE RESULT
VMSR	; re-indexing aq on v measurement
VIMM	; re-indexing v immunization
KILL
QXR	; ENTRY POINT
START
JOB	;
VRAD	; re-index aq on v radiology
EXIT
VXAM	;re-index AQ on V exam
NEW
VSK	;re-index aq on v skin test

External References

Name	Field # of Occurrence
^%ZTLOAD	MAILTASK+4
VMSR04^AUPNCIX	VMSR+2
AQ1^AUPNCIXL	VLAB+3
AQE1^AUPNCIXL	VXAM+3, VXAM+6
AQR1^AUPNCIXL	VRAD+3
AQS1^AUPNCIXL	VSK+3
^AUPNVDXP	VDXP+3
YN^DICN	NEW+6
ENALL^DIK	VIMM+4
^DIR	START+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"RPMS SITE PARAMETER FILE NOT PRESENT...REQUEST CANCELLED" Line Location: START+0
Function Call: WRITE	Prompt: !!,"Q-Man indices are active!",!!! Line Location: START+2
Function Call: WRITE	Prompt: ?3,"V EXAM 'AQ' index is " Line Location: START+3
Function Call: WRITE	Prompt: "present",! Line Location: START+5
Function Call: WRITE	Prompt: ?3,"V NUTRITION RISK SCREENING 'AQ' index is " Line Location: START+6
Function Call: WRITE	Prompt: "present",! Line Location: START+8
Function Call: WRITE	Prompt: ?3,"The INDIAN BLOOD QUANTUM 'AQ1' index of the PATIENT file is " Line Location: START+9
Function Call: WRITE	Prompt: "present",! Line Location: START+11
Function Call: WRITE	Prompt: ?3,"V IMMUNIZATION 'AQ' index is " Line Location: START+12
Function Call: WRITE	Prompt: "present",! Line Location: START+14
Function Call: WRITE	Prompt: ?3,"V LAB 'AQ' index is " Line Location: START+15
Function Call: WRITE	Prompt: "present",! Line Location: START+17
Function Call: WRITE	Prompt: ?3,"V MEASUREMENT 'AQ' index is " Line Location: START+18
Function Call: WRITE	Prompt: "present",! Line Location: START+20
Function Call: WRITE	Prompt: ?3,"V SKIN TEST 'AQ' index is " Line Location: START+21
Function Call: WRITE	Prompt: "present",! Line Location: START+23
Function Call: WRITE	Prompt: !!! Line Location: START+24
Function Call: WRITE	Prompt: !!,"Q-Man indices have not been activated!",!! Line Location: NEW+0
Function Call: WRITE	Prompt: "I can create the Q-Man indices now. This will significantly improve the",! Line Location: NEW+1
Function Call: WRITE	Prompt: "performance of Q-Man and reduce stress on the CPU. However, the new indices",! Line Location: NEW+2
Function Call: WRITE	Prompt: "will increase the size of the PCC database by approximately 1%" Line Location: NEW+3
Function Call: WRITE	Prompt: !!,"Want me to create the indices?" Line Location: NEW+4
Function Call: WRITE	Prompt: !,"OK, I'll run the job in background. This job will take 1-72 hours to complete.",!! Line Location: NEW+9
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!! Line Location: MAILTASK+5
Routine Call	DIR Line Location: START+26

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PAT+2
^AUPNPAT("AQ1"	START+10, PAT+2*
^AUPNVDXP - [#9000010.21]	VDXP+3
^AUPNVDXP("AQ"	VDXP+1!
^AUPNVIMM("AQ"	START+13, VIMM+1!
^AUPNVLAB - [#9000010.09]	VLAB+3
^AUPNVLAB("AQ"	START+16, VLAB+1!
^AUPNVMSR - [#9000010.01]	VMSR+2
^AUPNVMSR("AQ"	START+19, VMSR+1!
^AUPNVNTS - [#9000010.49]	VXAM+6
^AUPNVNTS("AQ"	START+7, VXAM+4!
^AUPNVRAD - [#9000010.22]	VRAD+3
^AUPNVRAD("AQ"	VRAD+1!
^AUPNVSK - [#9000010.12]	VSK+3
^AUPNVSK("AQ"	START+22, VSK+1!
^AUPNVXAM - [#9000010.13]	VXAM+3
^AUPNVXAM("AQ"	START+4, VXAM+1!
^AUTTSITE(1	START, START+1, JOB+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW+5, NEW+7!, QXR+2~, QXR+3, QXR+5, QXR+6, QXR+7
%Y	EXIT!, NEW+8!
AMQQAQF	JOB+3!
AMQQQXR	PAT+2!, QXR+5, QXR+7
AMQQX	VDXP+2, VDXP+3, VXAM+2, VXAM+3, VXAM+5, VXAM+6, VSK+2, VSK+3, VRAD+2, VRAD+3 , VLAB+2, VLAB+3, KILL!
>> AUPNCIXF	VMSR+2*
>> AUPNCIXV	VMSR+2*
AUPNDXQF	VDXP+3*, KILL!
>> AUPNPAT("AQ1"	PAT+1!
DA	PAT+2, VMSR+2, VDXP+3, VXAM+3, VXAM+6, VSK+3, VRAD+3, VLAB+3, KILL!
DIE	KILL!
DIK	VIMM+2*, VIMM+5!, KILL!
DIK(1	VIMM+3*
DIR	START+27!, NEW+7!
DIR(0	START+25*
DIRUT	START+27!
DTOUT	START+27!, NEW+8!
DUOUT	START+27!, NEW+8!
G	JOB+1, JOB+2, JOB+3!
IOF	AMQQMGR1+3
U	START+1, NEW+8, JOB+1, JOB+2, JOB+4, PAT+2, VMSR+2, VDXP+3, VXAM+3, VXAM+6 , VSK+3, VRAD+3, VLAB+3
X	PAT+2, VMSR+2, VDXP+3, VXAM+3, VXAM+6, VSK+3, VRAD+3, VLAB+3, QXR+1, QXR+3 , QXR+4~
>> ZTDESC	MAILTASK+3*
>> ZTDTH	MAILTASK+1*
>> ZTIO	MAILTASK+2*
>> ZTRTN	MAILTASK*
>> ZTSK	MAILTASK+5

Customize PDF page

Package: PCC Medical Query

Routine: AMQQMGR1

Information

Source Information

Call Graph

Call Graph Total: 7

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: