Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMQQMGR1

Package: PCC Medical Query

Routine: AMQQMGR1


Information

AMQQMGR1 ;IHS/CMI/THL - CHECKS AND SETS THE 'AQ' XREF ;

Source Information

Source file <AMQQMGR1.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 1

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVIMM - [#9000010.11] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
EXIT START+1
NEW START+1
QXR PAT+2

Naked Globals

Name Field # of Occurrence
^( PAT+2, VMSR+2

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All