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

Package: PCC Medical Query

Routine: AMQQATAL


Information

AMQQATAL ; IHS/CMI/THL - SETS TEMP METADICTIONARY ENTRY FOR LAB TESTS ;

Source Information

Source file <AMQQATAL.m>

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
PCC Medical Query 5 AMQQATA  AMQQDO  AMQQN2  AMQQQ0  AMQQSQA0  

Entry Points

Name Comments DBIA/ICR reference
STG ;
OK
SETLAB ; ENTRY POINT
SELEXIT
EN1 ; ENTRY POINT FROM AMQQSQA0
OKATTRIB(AMQQATN) ;EP;
EXIT
STG1 ;
MSG
LINE
SEL ;
SELR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"The following tests will be included in the query =>",!
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !,?2
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: J,") "
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: %
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: $P(^LAB(60,X\1,0),U)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: " ",$P(%,U,2)," - ",$P(%,U,3)," ",$P(%,U,7)
  • Condition for execution: $P(%,U,2)
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: " [critical: <",$P(%,U,4)," and >",$P(%,U,5),"]"
  • Line Location: LINE+7
Function Call: READ
  • Timeout: DTIME
  • Line Location: SELR+0
Function Call: WRITE
  • Prompt: !,"Enter a number from 1 to ",N," or string numbers together with commas; e.g. 1,",N
  • Line Location: SELR+1
Function Call: WRITE
  • Prompt: !!,"ATTRIBUTE CANCELLED...",!!,*7
  • Line Location: SELR+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMQQ(1 - [#9009071] SETLAB+27*, SETLAB+28, SETLAB+30*, SETLAB+31*, SETLAB+33, SETLAB+36*, SETLAB+37, SETLAB+40*, SETLAB+41*, SETLAB+42*
, SETLAB+43*, SETLAB+44*
^AMQQ(5 - [#9009075] SETLAB+2, OKATTRIB+1, OK+4, OK+6
^AUPNVLAB("B" OK+1, OK+4, OK+7
^LAB(60 - [#60] OK+8, LINE+3, LINE+6, STG1+2, STG1+3
^LAB(61 - [#61] SETLAB+13, OKATTRIB+11

Label References

Name Line Occurrences
EXIT SETLAB+15
LINE MSG+3, MSG+8, SEL+2, SEL+6, SEL+8
MSG SETLAB+16
OK SETLAB+14, OKATTRIB+13
SEL MSG+2
SELEXIT SEL+1, SEL+2, SEL+6, SELR+2
SELR SELR+1, SELR+4
SETLAB EN1+2
STG SETLAB+32
STG1 STG+1

Naked Globals

Name Field # of Occurrence
^(1 SETLAB+42*, SETLAB+43*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SETLAB+1~, SETLAB+2*, SETLAB+3, SETLAB+4, SETLAB+5, SETLAB+6, SETLAB+7, SETLAB+8, SETLAB+9, SETLAB+10
, SETLAB+19*, SETLAB+20, SETLAB+21*, SETLAB+22*, SETLAB+23*, SETLAB+24*, SETLAB+25*, SETLAB+26*, SETLAB+27, SETLAB+28*
, SETLAB+29*, SETLAB+30, SETLAB+33*, SETLAB+34*, SETLAB+35*, SETLAB+36, SETLAB+37*, SETLAB+38*, SETLAB+39*, SETLAB+40
, EXIT!, EN1+1~, OKATTRIB+1*, OKATTRIB+2, OKATTRIB+3, OKATTRIB+4, OKATTRIB+5, OKATTRIB+6, OKATTRIB+7, OKATTRIB+8
, OK~, OK+4*, OK+6*, MSG+4*, MSG+5*, LINE+2*, LINE+5, LINE+6*, LINE+7, STG+3*
, STG+4, STG+5*, STG1+1~, STG1+2*, STG1+3, STG1+5*
A SETLAB+1~, EXIT!, STG+4, STG+5*, STG+9*, STG+10*
AMQQ EN1+1~
AMQQATN SETLAB+2, SETLAB+11, EN1+1*, OKATTRIB~, OKATTRIB+1, OKATTRIB+9
AMQQATNM SETLAB+22, SETLAB+24, SETLAB+44, EN1+1~*
AMQQLCOF MSG+2, LINE+1, SELEXIT!
AMQQLCOF( SEL+8*, SELR+6
AMQQLDFN SETLAB+5*, SETLAB+25, SETLAB+26, SETLAB+29, EXIT!, OKATTRIB+3*, OKATTRIB+13, OK+1, OK+4, OK+5
, MSG+3, SEL+1, SEL+2, STG+1, STG1+2, STG1+3
AMQQLDFN( OK+2*, OK+4*, OK+8*, MSG+5, MSG+8, SEL+5, SEL+6, SEL+8, SELR+6!, STG+6
AMQQLDFN(0 MSG+4, STG+3
>> AMQQLENO OK+1*, OK+2
>> AMQQLFDN(0 SEL+6
AMQQLHDL SETLAB+8*, SETLAB+42, EXIT!, OKATTRIB+6*
AMQQLHED SETLAB+7*, SETLAB+42, SETLAB+43, EXIT!, OKATTRIB+5*
AMQQLI OK~, OK+7*, MSG+7*, MSG+8*, MSG+9!
AMQQLINK SETLAB+11*, SETLAB+18*, SETLAB+27, SETLAB+30, SETLAB+31, SETLAB+36, SETLAB+40, SETLAB+41, SETLAB+42, SETLAB+43
, SETLAB+44, EN1+1~, OKATTRIB+9*, OK+4, OK+6
AMQQLNNA SETLAB+20*, SETLAB+35, SETLAB+39, EXIT!
AMQQLOUT SETLAB+10*, SETLAB+42, EXIT!, OKATTRIB+8*
AMQQLSIT SETLAB+6*, SETLAB+13*, EXIT!, OKATTRIB+4*, OKATTRIB+11*, OK+1, OK+2, OK+3, OK+4, LINE+2
, LINE+4, SEL+2, STG1+6
AMQQLTYP SETLAB+4*, SETLAB+19, SETLAB+23, EXIT!, OKATTRIB+2*
AMQQLUNT SETLAB+9*, SETLAB+42, EXIT!, OKATTRIB+7*
AMQQLX OK~, OK+5*, OK+6*, OK+7
AMQQNOL SETLAB+12*, SETLAB+15, SETLAB+17, OKATTRIB+10*, OKATTRIB+12*, OKATTRIB+14, OK+1!, OK+4!, OK+7!, SELR+2*
>> AMQQXX SETLAB+15, MSG
B EXIT!, STG+7*, STG+8*, STG+9, STG+10
DTIME SELR
I EXIT!, SEL+4*, SEL+5*, SELR+4*, SELR+5*, SELR+6*
J EXIT!, LINE+1, SEL+3*, SEL+8*
N EXIT!, SEL+3*, SEL+5*, SEL+6, SELR+1, SELR+4, SELR+6*, STG1+1~*, STG1+4*, STG1+5
, STG1+6
U SETLAB+4, SETLAB+5, SETLAB+6, SETLAB+7, SETLAB+8, SETLAB+9, SETLAB+10, SETLAB+22, SETLAB+23, SETLAB+24
, SETLAB+25, SETLAB+26, SETLAB+42, SETLAB+43, EN1+1, OKATTRIB+2, OKATTRIB+3, OKATTRIB+4, OKATTRIB+5, OKATTRIB+6
, OKATTRIB+7, OKATTRIB+8, OK+5, OK+6, OK+7, LINE+3, LINE+7, SELR, SELR+3, SELR+4
, SELR+6
X SETLAB+1~, SETLAB+34, SETLAB+38, EXIT!, EN1+1~, OK~, OK+7*, OK+8, MSG+3*, MSG+8*
, LINE+2, LINE+3, LINE+5, LINE+6, SEL+2*, SEL+6*, SEL+7*, SEL+8*, SELR*, SELR+1
, SELR+2, SELR+4, STG+1*, STG+2*, STG+4*, STG1+6*
Y SETLAB+1~, EXIT!, EN1+1~, OK~, OK+8*, LINE+4*, LINE+5*, LINE+6, SELR+4*, STG+5*
, STG+6
Z EXIT!, SELR+3*, SELR+4*, SELR+6, STG+6*, STG+7
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All