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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMQQCMP0

Package: PCC Medical Query

Routine: AMQQCMP0


Information

AMQQCMP0 ;IHS/CMI/THL - MAKES SEARCH TEMPLATES ;

Source Information

Source file <AMQQCMP0.m>

Call Graph

Call Graph Total: 11

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
PCC Medical Query 2 AMQQCMPL  AMQQCMPP  

Entry Points

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

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