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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMQQDO

Package: PCC Medical Query

Routine: AMQQDO


Information

AMQQDO ; IHS/CMI/THL - GENERATE OUTPUT ; 09 Mar 2010 3:19 PM [ 03/28/2013 4:35 PM ]

Source Information

Source file <AMQQDO.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
PCC Medical Query 3 APT^AMQQAPT  SETLAB^AMQQATAL  ^AMQQDOH  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCC Medical Query 1 AMQQDOH  

Entry Points

Name Comments DBIA/ICR reference
LABCONV ;EP;CONVERT FOR TEMP LAB GLOBAL
DH
FORMAT
CHKVA(C) ; RETURN C+3 IF VA, ELSE C
DD
SUOUT ; Output transform for CHART SERVICE UNIT attribute; prints chart #s/su
QUAL(Z) ;
M1 ;
EXP ; ENTRY POINT FROM METADICTIONARY
DV
EXIT
FOR1
DISPLAY
MULT ; ENTRY POINT FROM AMQQCMPS
DIS

External References

Name Field # of Occurrence
APT^AMQQAPT DIS+5
SETLAB^AMQQATAL LABCONV+10
^AMQQDOH DISPLAY+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: AMQQDO+13
Function Call: WRITE
  • Prompt: !,"BAD POINTER FOR PATIENT NUMBER ",AMQP(AMQQOV)
  • Line Location: M1+12
Function Call: WRITE
  • Prompt: ?17,$P(^AUPNPAT(AMQP(AMQQOV),41,DUZ(2),0),U,2)
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: $S($P(^AUPNPAT(AMQP(AMQQOV),41,DUZ(2),0),U,2)]"":$P(^(0),U,2),1:"NO HRN"),U
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: "NO HRN",U
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: ?J,$$QUAL(AMQQVMDA)
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !,AMQP(1),?9,Y
  • Line Location: DV+2
Function Call: WRITE
  • Prompt: !,AMQP(1),U,Y,U
  • Line Location: DV+3
Function Call: WRITE
  • Prompt: !,AMQP(3)
  • Line Location: DD+0
Function Call: WRITE
  • Prompt: !,AMQP(3),U
  • Line Location: DD+1
Function Call: WRITE
  • Prompt: !,$E(%,1,18),?19,$E(Y,1,4)
  • Line Location: DH+2
Function Call: WRITE
  • Prompt: !,$E(%,1,18),U,$E(Y,1,4),U
  • Line Location: DH+3
Function Call: WRITE
  • Prompt: ?J,$E(X,1,Z)
  • Line Location: FOR1+0
Function Call: WRITE
  • Prompt: $E(X,1,Z),U
  • Line Location: FOR1+1
Function Call: WRITE
  • Prompt: " days"
  • Line Location: FOR1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMQQ(1 - [#9009071] M1+1, DIS+2, FORMAT+8, FORMAT+13, FORMAT+14, LABCONV+2, LABCONV+4
^AUPNPAT - [#9000001] DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+17, SUOUT+4, SUOUT+7
^AUPNVHF - [#9000010.23] FORMAT+16
^AUPNVLAB - [#9000010.09] M1+4, EXP+10, EXP+15
^AUPNVMSR - [#9000010.01] QUAL+4, QUAL+5
^AUPNVSIT - [#9000010] DV
^AUTTLOC - [#9999999.06] AMQQDO+14, SUOUT+6, SUOUT+7
^DD("DD" DV+1
^DIBT( AMQQDO+12*, AMQQDO+13*, DISPLAY+3*
^DPT - [#2] M1+12, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11
^GMRD(120.52 - [#120.52] QUAL+5
^LAB(60 - [#60] EXP+4
^LAB(61 - [#61] EXP+16
^TMP( DIS+3, DIS+4
^UTILITY("AMQQ TAX" SUOUT+7
^UTILITY("AMQQ" AMQQDO+15, EXIT!, MULT+1, MULT+2!, M1+1, M1+6, M1+8, DIS+1, DV+5, DD+3
, FORMAT+1, EXP+7

Label References

Name Line Occurrences
$$CHKVA DIS, DV+4
$$QUAL DIS+2
@( DISPLAY+1
DD DISPLAY+5
DH DISPLAY+6
DIS DH+4
DISPLAY AMQQDO+16, M1+13
DV DISPLAY+7
EXIT AMQQDO+15
FOR1 FORMAT+12
FORMAT DIS+1, DV+5, DD+3
LABCONV FORMAT+7
M1 MULT+1
MULT AMQQDO+15

Naked Globals

Name Field # of Occurrence
^( MULT+1, M1+6
^("*" SUOUT+7
^(0 AMQQDO+14, DISPLAY+16
^(1 FORMAT+13, FORMAT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!, MULT+1*, M1+1, M1+2, M1+3, M1+4, M1+10, DISPLAY+9*, DISPLAY+10*, DISPLAY+11*
, DISPLAY+12*, DISPLAY+13, DIS+2, DH*, DH+2, DH+3, FORMAT+1*, FORMAT+3, FORMAT+5, FORMAT+6
, FORMAT+8, FORMAT+11, FORMAT+13, FORMAT+14, FOR1+2, LABCONV+1, LABCONV+2, LABCONV+3*, LABCONV+4, LABCONV+7
, LABCONV+9~, EXP+1~, EXP+7*, EXP+8, EXP+11*, EXP+12*, EXP+13, EXP+15*, EXP+16, SUOUT+1~
, SUOUT+3*, SUOUT+4*, SUOUT+6, SUOUT+7
%A SUOUT+5~, SUOUT+6*, SUOUT+7
A EXIT!, M1+7*, M1+9, M1+10, FORMAT+3*, FORMAT+4*, FORMAT+8, FORMAT+13, FORMAT+14, QUAL+2~
, QUAL+3*, QUAL+5*, QUAL+6, LABCONV+9~
>> AMQP( AMQQDO+12, AMQQDO+13, MULT+1, M1+10*, M1+12, DISPLAY+3, DISPLAY+4, DISPLAY+8, DISPLAY+14, DISPLAY+15
, DISPLAY+16, DISPLAY+17, DIS+1, DIS+5, DV+5, DD+3, FORMAT
>> AMQP(0 M1+12, DISPLAY+9, DISPLAY+10, DISPLAY+11, SUOUT+4, SUOUT+7
>> AMQP(1 DV, DV+2, DV+3
>> AMQP(3 DD, DD+1
>> AMQP(4101 SUOUT+7
>> AMQP(5 DH, DH+1
>> AMQQ(423 FORMAT+17, FORMAT+19, FORMAT+20
>> AMQQ200(16 DH
>> AMQQ200(6 DH+1
AMQQATN LABCONV+5~, LABCONV+7*
AMQQATNM LABCONV+5~, LABCONV+8*
>> AMQQBACK AMQQDO+12
>> AMQQCCLS AMQQDO+11, DISPLAY+5, DISPLAY+6, DISPLAY+7
AMQQDA M1+2~*, M1+3~*, FORMAT+14, FORMAT+16
>> AMQQDIBT AMQQDO+12, AMQQDO+13, DISPLAY+3
>> AMQQDLIM DISPLAY+4, DISPLAY+9, DISPLAY+10, DISPLAY+13, DISPLAY+15, DISPLAY+17, DIS+3, DV+2, DD, DH+2
, FOR1
>> AMQQDVQU DIS+2
>> AMQQEDT DIS+4*, DIS+5
>> AMQQEN3 AMQQDO+13
>> AMQQHOLD MULT+1*, EXP+7
>> AMQQJOB DIS+3, DIS+4
>> AMQQLABB AMQQDO+14*
AMQQLDFN EXIT!, M1+4*, EXP+2
>> AMQQMUFV M1+5, M1+6
>> AMQQMULL AMQQDO+15, MULT+1, MULT+2, M1+1, M1+8, EXP+7
>> AMQQMUNV M1+5
>> AMQQND AMQQDO+13
AMQQOV AMQQDO+11*, AMQQDO+12, AMQQDO+13, EXIT!, MULT+1, M1+12, DISPLAY+3, DISPLAY+4, DISPLAY+8, DISPLAY+14
, DISPLAY+15, DISPLAY+16, DISPLAY+17, DIS+5
>> AMQQRMFL DISPLAY+1
>> AMQQSUPF DISPLAY+12
AMQQSVAR EXIT!
>> AMQQTOT DISPLAY*, DISPLAY+2, DISPLAY+4, DISPLAY+8*
>> AMQQTOTF( FORMAT+12!
AMQQVMDA M1+1~*, DIS+2
AMQQXX LABCONV+5~, LABCONV+6*
>> AMQQYY(0 M1+11
AMQQZ FORMAT+15~, FORMAT+16*, FORMAT+17, FORMAT+21, FORMAT+23*, FORMAT+24
>> AMQT(999 M1+2, M1+3, M1+4
>> AMQV( M1+2, M1+3, M1+4
>> AMQV("OPTION" DISPLAY+2
B QUAL+2~, QUAL+4*, QUAL+5
C QUAL+2~, QUAL+5*, CHKVA~, CHKVA+1
COND FORMAT+18~, FORMAT+19*, FORMAT+21
DT DIS+5
DUZ("AG" CHKVA+1
DUZ(2 AMQQDO+14, DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+17, SUOUT+7
I EXIT!, DIS+1*, DV+5*, DD+3*, FORMAT, FORMAT+1, FORMAT+12, LABCONV+9~
IOSL DISPLAY+4
IOST DISPLAY+2, DISPLAY+4
J EXIT!, DIS*, DIS+2*, DV+4*, DD+2*, FOR1, FOR1+3*, LABCONV+9~, EXP+1~, EXP+2*
, EXP+3, EXP+4
SITE EXP+1~, EXP+14*, EXP+16*, EXP+17
T FORMAT+18~, FORMAT+21*, FORMAT+22
U AMQQDO+14, M1+1, M1+2, M1+3, M1+4, M1+7, M1+10, DISPLAY+8, DISPLAY+9, DISPLAY+13
, DISPLAY+15, DISPLAY+16, DISPLAY+17, DIS+2, DV+3, DD+1, DH, DH+1, DH+3, FORMAT+3
, FORMAT+5, FORMAT+6, FORMAT+9, FORMAT+11, FORMAT+16, FORMAT+19, FORMAT+20, FOR1+1, FOR1+2, QUAL+5
, LABCONV+3, EXP+4, EXP+8, EXP+10, EXP+11, EXP+15, EXP+16, SUOUT+6, SUOUT+7
VALUE FORMAT+18~, FORMAT+20*, FORMAT+21
VLAB EXP+1~, EXP+9*, EXP+15
W EXIT!
X EXIT!, M1+6*, M1+10, FORMAT*, FORMAT+5*, FORMAT+6*, FORMAT+10*, FORMAT+13, FORMAT+14, FORMAT+24*
, FOR1, FOR1+1, EXP+17*, SUOUT+2*, SUOUT+7*
Y EXIT!, M1+6*, M1+7, M1+8, DV*, DV+2, DV+3, DH+1*, DH+2, DH+3
, FORMAT+2*, FORMAT+12*, FORMAT+13, FORMAT+14, EXP+1~, EXP+4*, EXP+5*, EXP+6*, EXP+17
Z EXIT!, M1+5*, M1+6, FORMAT+8*, FORMAT+9*, FORMAT+11*, FORMAT+24, FOR1, FOR1+1, FOR1+3
, QUAL~, QUAL+1, QUAL+4, QUAL+5, EXP+1~, EXP+8*, EXP+9, EXP+10*, EXP+13*, EXP+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All