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: AMQQTXC

Package: PCC Medical Query

Routine: AMQQTXC


Information

AMQQTXC ; IHS/CMI/THL - CODE RANGE TAXONOMY ; 17 Mar 2014 2:25 PM

Source Information

Source file <AMQQTXC.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
PCC Medical Query 2 ^AMQQTXC1  ICDCS^AMQQTXG  
VA Fileman 2 ^DIC  YN^DICN  
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDEX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PCC Medical Query 1 AMQQTXG1  

Entry Points

Name Comments DBIA/ICR reference
A
RANGES ; ENTRY POINT FROM AMQQTXG1 ; DISPLAY TABLE OF ALL RANGES
AA
A11
SHOW ; ENTRY POINT FROM AMQQTXG1 ; ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
ASK2 ;ASKS USER IF WANTS TO DISPLAY/PRINT RESULTS TO THIS POINT
A1
EXIT
L1
DISPLAY ;SHOW CODES IN RANGE SELECTED

External References

Name Field # of Occurrence
^AMQQTXC1 AMQQTXC+17, AMQQTXC+18
ICDCS^AMQQTXG AMQQTXC+5
^DIC AMQQTXC+13
YN^DICN ASK2+4
$$ICDDX^ICDEX DISPLAY+6, DISPLAY+12, DISPLAY+15
$$ICDOP^ICDEX DISPLAY+6, DISPLAY+13, DISPLAY+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You must indicate the coding system (ICD9 or ICD10).",!
  • Line Location: AMQQTXC+5
Function Call: WRITE
  • Prompt: !,*7,"Low and high codes of range must both start either with a letter or a number.",!
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !,*7,"Low code is higher than high code.",!
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !!,"Codes in this range =>",!!
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: $P(AMQQ("LOW")," ")
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: ?9,$S(AMQQTGBL="^ICPT":$P(@AMQQTGBL@(AMQQDFN,0),U,2),AMQQTGBL="^ICD9":$P($$ICDDX^ICDEX(AMQQDFN),U,4),1:$P($$ICDOP^ICDEX(AMQQDFN,"","","I"),U,5))
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: DISPLAY+14
Function Call: READ
  • Prompt: "Press return to continue"
  • Formatting: !!
  • Timeout: DTIME
  • Variable: AMQQR
  • Line Location: DISPLAY+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+19
Function Call: READ
  • Prompt: "<>"
  • Formatting: !
  • Timeout: DTIME
  • Variable: AMQQR
  • Line Location: A11+1
Function Call: WRITE
  • Prompt: !,"OK"
  • Line Location: A11+2
Function Call: WRITE
  • Prompt: " Enter ""^"" to stop display, return to continue"
  • Line Location: A11+3
Function Call: WRITE
  • Prompt: !!,"Code Range(s) Selected So Far =>",!
  • Line Location: RANGES+3
Function Call: WRITE
  • Prompt: $P(^ICDS($P(@AMQQHILO@(AMQQ),U,3),0),U,1)
  • Condition for execution: $P(@AMQQHILO@(AMQQ),U,3)
  • Line Location: RANGES+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGES+6
Function Call: WRITE
  • Prompt: !,"Enter an Item Number from the table above to display code(s): "
  • Line Location: A+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !!,"Enter a number between 1 and ",AMQQ("NUM"),!
  • Line Location: A+2
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !!,"A code range has yet to be selected. A display cannot be generated.",!
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"Do you want to display the codes from a range you have already selected"
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: !!,"A table of ranges you have selected is displayed above. You may ask for the",!,"codes in one of the ranges to be displayed.",!
  • Line Location: ASK2+7
Routine Call
  • DIC
  • Line Location:
    • AMQQTXC+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICDS - [#80.4] RANGES+5
^UTILITY("AMQQ TAX" DISPLAY+14*, A1+1*, A1+2!

Label References

Name Line Occurrences
A A+2, A+5
A1 DISPLAY+10, DISPLAY+15
A11 A11+3
AA SHOW+2
ASK2 ASK2+7
DISPLAY AMQQTXC+18, AA+1
L1 AMQQTXC+18
RANGES SHOW+1, AA+3
SHOW ASK2+5

Naked Globals

Name Field # of Occurrence
^( DISPLAY+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!, ASK2+3*, ASK2+5, ASK2+6, ASK2+7
>> AMQQ DISPLAY+7*, DISPLAY+9, DISPLAY+11*, DISPLAY+15, RANGES+4*, RANGES+5*, AA+1*
>> AMQQ("BANG" RANGES+6, AA+2*, AA+4!
>> AMQQ("HI" AMQQTXC+17*, AMQQTXC+18*, L1, L1+2, DISPLAY+11, AA+1*
>> AMQQ("LOW" AMQQTXC+16*, AMQQTXC+17, L1, L1+2, DISPLAY+4, DISPLAY+5, DISPLAY+7, AA+1*
>> AMQQ("N" AA*, AA+1
>> AMQQ("NO DISP LAY" , AMQQTXC+5*, AMQQTXC+15*, AMQQTXC+18, L1+1*, L1+2*
>> AMQQ("NUM" RANGES+4*, RANGES+5*, SHOW+2, A+2, A+4
>> AMQQA AMQQTXC+5*, AMQQTXC+15*
>> AMQQCNT DISPLAY+8*, A1*, A1+3, A11*
>> AMQQDFN DISPLAY+5*, DISPLAY+6, DISPLAY+9*, DISPLAY+11*, DISPLAY+12, DISPLAY+13, DISPLAY+14, DISPLAY+15, A1+1, A1+2
>> AMQQHILO RANGES+5, AA+1, ASK2+1
>> AMQQI AA+1*
AMQQISYS AMQQTXC+5!, AMQQTXC+12, DISPLAY+12, DISPLAY+13
>> AMQQNECO AMQQTXC+9, RANGES+3
>> AMQQONE AMQQTXC+17
>> AMQQQUIT AMQQTXC+18, DISPLAY+15
>> AMQQR DISPLAY+17*, DISPLAY+18, A11+1*, A11+2, A11+3
>> AMQQSQNM AMQQTXC+10
>> AMQQTGBL AMQQTXC+5, AMQQTXC+7, AMQQTXC+11, AMQQTXC+12, AMQQTXC+16, AMQQTXC+18, DISPLAY+5, DISPLAY+6, DISPLAY+9, DISPLAY+11
, DISPLAY+12, DISPLAY+13, DISPLAY+15
AMQQTJMP DISPLAY+14, DISPLAY+16!, A11+2*
>> AMQQTXEX A1+1
>> AMQQTYP AMQQTXC+16, AMQQTXC+17, AMQQTXC+18
>> AMQQURGN DISPLAY+14, A1+1, A1+2
AMQQXSAV AMQQTXC+3!, AMQQTXC+5*!, AMQQTXC+6, EXIT!
>> AMQQXX AMQQTXC+9, RANGES+1
DIC AMQQTXC+7*, AMQQTXC+14!
DIC("S" AMQQTXC+10*, AMQQTXC+11*
DIC(0 AMQQTXC+8*, AMQQTXC+9*
DR AMQQTXC+14!
DTIME DISPLAY+17, A11+1, A+1
>> DUOUT AMQQTXC+15
>> ICDSYS AMQQTXC+12*
IOF DISPLAY+1, RANGES+2
IOSL DISPLAY+8, A11
U AMQQTXC+5, AMQQTXC+16, AMQQTXC+18, DISPLAY+6, DISPLAY+12, DISPLAY+13, DISPLAY+15, DISPLAY+17, DISPLAY+18, A11+1
, A11+2, RANGES+5, A+1, A+3
>> X AMQQTXC+5*, AMQQTXC+6*, AMQQTXC+15, SHOW+2*, A+1*, A+2, A+3, A+4, AA
>> Y AMQQTXC+5*, AMQQTXC+15, AMQQTXC+16, AMQQTXC+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All