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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMQQTXG1

Package: PCC Medical Query

Routine: AMQQTXG1


Information

AMQQTXG1 ; IHS/CMI/THL - LOOKUP FOR TAX ;

Source Information

Source file <AMQQTXG1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
PCC Medical Query 2 ^AMQQHEL1  (,RANGES,SHOW)^AMQQTXC  
VA Fileman 2 ^DIC  DQ^DICQ  

Entry Points

Name Comments DBIA/ICR reference
FC1
PHELP1 ; ENTRY POINT FROM AMQQTXG
PLOOKUP ; ENTRY POINT FROM AMQQTXG
RHELP ; ENTRY POINT FROM AMQQTXG
PLK1
FLIST1
FEXIT
FMORE
GHELP1 ; ENTRY POINT FROM AMQQTXG
GLOOKUP ; ENTRY POINT FROM AMQQTXG
REXIT
FINCN
FHELP ; ENTRY POINT FROM AMQQTXG
FC
PHELP ; ENTRY POINT FROM AMQQTXG
FLOOKUP ; ENTRY POINT FROM AMQQTXG
RL1
RHELP1 ; ENTRY POINT ROM AMQQTXG
RLOOKUP ; ENTRY POINT FROM AMQQTXG

External References

Name Field # of Occurrence
^AMQQHEL1 RHELP+5
^AMQQTXC RLOOKUP+7, RLOOKUP+10, RLOOKUP+11, RL1+2, RL1+3
RANGES^AMQQTXC REXIT
SHOW^AMQQTXC RHELP1+2
^DIC PLOOKUP+6
DQ^DICQ PHELP1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," (none found in database so not selected... if you still want to select this",!," value enter it with quotes about it"
  • Line Location: PLK1+3
Function Call: WRITE
  • Prompt: !!,"Enter the name of a ",AMQQATNM,"."
  • Line Location: PHELP+1
Function Call: WRITE
  • Prompt: !,"Enter ""??"" to see your selections or ""???"" to see choices.",!!
  • Line Location: PHELP+2
Function Call: WRITE
  • Prompt: " (",Z,")"
  • Line Location: GLOOKUP+2
Function Call: WRITE
  • Prompt: $E($P(Z,":",2),$L(X)+1,99)
  • Line Location: GLOOKUP+4
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: GLOOKUP+5
Function Call: WRITE
  • Prompt: !!,%,!
  • Line Location: GHELP1+2
Function Call: WRITE
  • Prompt: !?5,$P(X,";")
  • Line Location: GHELP1+3
Function Call: WRITE
  • Prompt: !!,"Enter the name of a ",AMQQATN
  • Line Location: FHELP+1
Function Call: WRITE
  • Prompt: !!,%,!
  • Line Location: FHELP+3
Function Call: WRITE
  • Prompt: ?5,%
  • Line Location: FHELP+7
Function Call: WRITE
  • Prompt: "<>"
  • Line Location: FLIST1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: FLIST1+1
Function Call: WRITE
  • Prompt: *13,?5,*13
  • Line Location: FLIST1+1
Function Call: WRITE
  • Prompt: " <= Not found in data base",*7
  • Line Location: FLOOKUP+3
Function Call: WRITE
  • Prompt: $E(Y,$L(X)+1,99)
  • Line Location: FLOOKUP+5
Function Call: WRITE
  • Prompt: !?5,N," ",Z
  • Line Location: FINCN+4
Function Call: WRITE
  • Prompt: !,"TYPE <CR> TO SEE MORE CHOICES, '^' TO STOP, OR"
  • Line Location: FC+0
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",N-1,": "
  • Line Location: FC1+0
Function Call: READ
  • Timeout: DTIME
  • Variable: Y
  • Line Location: FC1+1
Function Call: WRITE
  • Prompt: !,"Pick a number between 1 and ",N-1,". You can also enter a new name.",!
  • Line Location: FC1+4
Function Call: WRITE
  • Prompt: " (",X,")"
  • Line Location: FC1+5
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: FC1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RLOOKUP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: RLOOKUP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RL1+2
Function Call: WRITE
  • Prompt: !!,"A code range has yet to be selected. A display cannot be generated.",!
  • Line Location: RHELP1+1
Routine Call
  • DIC
  • Line Location:
    • PLOOKUP+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY("AMQQ LOOK" FLOOKUP+8*, FINCN+5*, FEXIT!, FC1+5
^UTILITY("AMQQ TAX" PLOOKUP+3, PHELP1+5, RLOOKUP+7*, RL1+3!

Label References

Name Line Occurrences
FC FINCN+3, FC1+4
FC1 FINCN+1, FC1+6
FEXIT FLOOKUP+1, FLOOKUP+3, FLOOKUP+4, FLOOKUP+5, FINCN+1, FINCN+3
FINCN FINCN+6
FLIST1 FHELP+7
FLOOKUP FINCN+3
FMORE FINCN+1
PLK1 PLOOKUP+8
REXIT RLOOKUP+6, RLOOKUP+7
RL1 RLOOKUP+6

Naked Globals

Name Field # of Occurrence
^( PLOOKUP+3, PHELP1+5, FLOOKUP+5, FC1+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PLOOKUP+3*, PLK1+2*, PLK1+3, PHELP1+5*, GLOOKUP+4*, GHELP1+1*, GHELP1+2, GHELP1+3*, FHELP+2*, FHELP+3
, FHELP+4*, FHELP+7*, FLOOKUP+3*, FLOOKUP+4*, FLOOKUP+5*
AMQQ REXIT+1!
AMQQ("NO DISP LAY" , RLOOKUP+3*
AMQQ("NOT TAX " , RLOOKUP+4*
AMQQA RLOOKUP+2*, RLOOKUP+11, REXIT, REXIT+1!, RL1+1*, RL1+2
>> AMQQATN FHELP+1
>> AMQQATNM PHELP+1
AMQQCNT REXIT+1!
AMQQDFN REXIT+1!
>> AMQQHILO REXIT, RHELP1+1
AMQQI REXIT+1!
>> AMQQLINK PLK1, RHELP+2, RHELP+3, RHELP+4
>> AMQQLMOR FMORE*
>> AMQQNDB PLK1+3
AMQQNDBC PLK1+4!
>> AMQQNECO PLOOKUP+4
>> AMQQONE RLOOKUP+2*, RLOOKUP+7*, RL1+3*
>> AMQQQUIT REXIT
AMQQR REXIT+1!
AMQQSAVE REXIT+1!
AMQQSAVE("X" RLOOKUP+1*, RLOOKUP+11, RL1+2
>> AMQQSQN PLOOKUP+3, PHELP1+5
>> AMQQSQSN PLOOKUP+3, PHELP1+5
>> AMQQSSET GLOOKUP+1, GLOOKUP+2, GLOOKUP+4, GHELP1+3
AMQQSTP REXIT+1!
AMQQSUB RLOOKUP+2*, REXIT+1!, RL1*
>> AMQQTAX PLOOKUP+3, PHELP1+5
>> AMQQTAXI PLOOKUP+8, PLK1+2, FHELP+1, FHELP+6, FLOOKUP+1, FLOOKUP+2
>> AMQQTAXT PLK1+1
>> AMQQTDIC PLOOKUP+8, PLK1+2, FHELP+6, FLOOKUP+2
>> AMQQTLOK PLOOKUP+1, PHELP1+1
>> AMQQTTX PLK1+1
AMQQTXEX RLOOKUP+6, REXIT+1!
AMQQTYP RLOOKUP+5*, RLOOKUP+11*, REXIT+1!, RL1+2*, RL1+3*
>> AMQQURGN RLOOKUP+7, RL1+3
AMQQX REXIT+1!
D PHELP1+3*, PHELP1+8!
DIC PLOOKUP+1*, PLOOKUP+5, PLOOKUP+7!, PHELP1+1*, PHELP1+6, PHELP1+8!
DIC("S" PLOOKUP+3*, PLOOKUP+5*, PHELP1+5*, PHELP1+6*
DIC(0 PLOOKUP+2*, PLOOKUP+4*, PHELP1+2*
DIR REXIT+1!
DTIME FLIST1+1, FC1+1
DTOUT PLOOKUP+7!
DUOUT PLOOKUP+7!
DZ PHELP1+4*, PHELP1+8!
>> I FHELP+7*
IOSL FHELP+7
N FLOOKUP+6*, FLOOKUP+8*, FINCN+1*, FINCN+2*, FINCN+3, FINCN+4, FINCN+5, FEXIT!, FC1, FC1+4
T FHELP+6*, FHELP+7, FLOOKUP+2*, FLOOKUP+3, FLOOKUP+4, FLOOKUP+5, FLOOKUP+8, FINCN, FEXIT!
U PLK1, FHELP+7, FC1+1, FC1+3
>> X PLOOKUP+8*, PLK1*, GLOOKUP+1, GLOOKUP+2, GLOOKUP+4, GLOOKUP+6*, GHELP1+3*, FHELP+5*, FHELP+7, FLIST1+1*
, FLOOKUP+3, FLOOKUP+4, FLOOKUP+5*, FLOOKUP+7, FLOOKUP+8, FINCN+1, FC1+5*, FC1+7*, RHELP+1*, RLOOKUP+1
, RLOOKUP+7, RLOOKUP+8*, RLOOKUP+11*, RL1+2*, RL1+3
>> Y PLOOKUP+8, PLK1, PLK1+3*, GLOOKUP+1*, GLOOKUP+2*, GLOOKUP+3*, GLOOKUP+4*, GLOOKUP+5, GLOOKUP+6, FLOOKUP+5*
, FINCN+1, FINCN+3, FC1+1*, FC1+2, FC1+3*, FC1+4, FC1+5, FC1+6, FC1+7, FC1+8*
, RLOOKUP+7, RL1+3
>> Z GLOOKUP+2*, GLOOKUP+4*, FLOOKUP+7*, FINCN*, FINCN+1, FINCN+4, FINCN+5, RHELP+2*, RHELP+3*, RHELP+4*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All