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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMQQTX0

Package: PCC Medical Query

Routine: AMQQTX0


Information

AMQQTX0 ; IHS/CMI/THL - SAVE OR RESTORE A TAXONOMY GROUP ;

Source Information

Source file <AMQQTX0.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^DIC  YN^DICN  ^DIE  (,IX)^DIK  
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDEX  
Kernel 1 $$STRIP^XLFSTR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
PCC Medical Query 4 AMQQGTX  AMQQGTX0  AMQQTX  AMQQTXG  

Entry Points

Name Comments DBIA/ICR reference
RESTORE ; ENTRY POINT FROM AMQQTX SUBROUTINES
RNAME
NAME
SHOW
RES2
OEXIT
RES1
REST ;EP;TO RESTORE VALUES FROM A TAXONOMY
STUFF
EXIT
ST1
SYS(C,G) ;EP GET SYSTEM FOR THIS CODE IF ICD9, ICD0
OWRITE
RSTUFF

External References

Name Field # of Occurrence
^DIC RNAME+8, OWRITE+17, RESTORE+10
YN^DICN NAME+6, OWRITE+1
^DIE RNAME+17
^DIK OWRITE+7
IX^DIK ST1+2
$$ICDDX^ICDEX SYS+4
$$ICDOP^ICDEX SYS+5
$$STRIP^XLFSTR SYS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Want to save this ",AMQQTNAR," group for future use"
  • Line Location: NAME+4
Function Call: WRITE
  • Prompt: !!,"This group will be saved as a taxonomy for future use when entered as a value",!,"using the ""[Name of Group"" syntax."
  • Line Location: NAME+9
Function Call: READ
  • Prompt: "Group name: "
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: RNAME+0
Function Call: WRITE
  • Prompt: !!,"The (ST) is Q-Man's designation for a ""Standard Taxonomy"".",!,"You may not create a standard taxonomy. Please select another name.",!,*7
  • Line Location: RNAME+3
Function Call: WRITE
  • Prompt: !!,X," already exists and cannot be overwritten except by its creator",!!,*7
  • Line Location: RNAME+11
Function Call: WRITE
  • Prompt: !!,X," is READ ONLY and cannot be overwritten",!!,*7
  • Line Location: RNAME+12
Function Call: WRITE
  • Prompt: !!,X," already exists. Want to overwrite"
  • Line Location: OWRITE+1
Function Call: WRITE
  • Prompt: "]"
  • Line Location: RESTORE+13
Function Call: WRITE
  • Prompt: !!,"Members of ",X," Taxonomy =>",!
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+6
Function Call: WRITE
  • Prompt: !,"OK"
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: $P(Z,U,1)
  • Line Location: SHOW+11
Routine Call
  • DIE
  • Line Location:
    • RNAME+17
Routine Call
  • DIC
  • Line Location:
    • RNAME+8
    • OWRITE+17
    • RESTORE+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ATXAX - [#9002226] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMQQ(1 - [#9009071] REST+5
^ATXAX - [#9002226] RNAME+11, RNAME+12, STUFF+1*, RSTUFF+1*, ST1+1*, REST+2, REST+7, RES1+1
^UTILITY("AMQQ TAX" NAME+2, STUFF+1, REST+7*, RES2+4*, RES2+7*

Label References

Name Line Occurrences
$$SYS RSTUFF+1
EXIT NAME, NAME+3, NAME+10, NAME+11
NAME NAME+9
OEXIT RNAME+18, OWRITE+3, OWRITE+4
OWRITE RNAME+13
RES1 REST+6
RES2 RES1+1
RNAME NAME+12, RNAME+3, RNAME+10, RNAME+11, RNAME+12, RNAME+13
RSTUFF RNAME+18
SHOW REST+7, RES2+4
ST1 STUFF+2
STUFF RNAME+19

Naked Globals

Name Field # of Occurrence
^( RES1+1, RES2+7
^(0 REST+2
^(1 REST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NAME+1*, NAME+2*, NAME+3, NAME+5*, NAME+9, EXIT!, OWRITE+1*, SHOW+2~, SHOW+9*, SHOW+10
, RES1*, RES1+1*, RES2, RES2+1, RES2+2, RES2+3, RES2+6
%Y NAME+7*, NAME+10, NAME+11, EXIT!, RNAME+13, OWRITE+2*, OWRITE+3, OWRITE+4, OWRITE+18*
A EXIT!, RES1+1*, RES1+2!, RES2+1, RES2+2, RES2+7
AMQQB RESTORE+3*, RESTORE+4, RESTORE+13, REST+3!
>> AMQQDF RESTORE+8, RESTORE+13, REST+7, REST+9, RES2+4
>> AMQQECHO RESTORE+8
>> AMQQHILO RSTUFF+1, RES2+1
>> AMQQLINK RNAME+17, REST+4, REST+5
>> AMQQNECO RESTORE+8
>> AMQQQUIT NAME+10*, RNAME+1*, RNAME+13, RNAME+20*, OWRITE+3*
AMQQSHNO REST+3!, REST+9!, SHOW+1*, SHOW+7*, SHOW+8
>> AMQQSHOW SHOW
>> AMQQTAXN REST+2*
>> AMQQTAXT RNAME+17, RNAME+18, REST+3, REST+6, SHOW+5
>> AMQQTDFN RNAME+14*
>> AMQQTGBL RSTUFF+1, RES2+3, RES2+7
>> AMQQTGFG REST+10*
AMQQTGIT RESTORE+1~, REST+3*, REST+4*, REST+5*, SHOW+5
AMQQTGNA OWRITE*, OWRITE+13, OEXIT!
AMQQTGNO EXIT!, RNAME+14*, RNAME+16, OWRITE*, OWRITE+12, STUFF+1, RSTUFF+1, ST1+1, ST1+2, RESTORE+1~
, REST+7*, SHOW+3, SHOW+5, RES1+2!, RES2*, RES2+2*
AMQQTJMP REST+8!, SHOW+4, SHOW+8, SHOW+10*
>> AMQQTLOK RNAME+17
>> AMQQTNAR NAME+4
>> AMQQURGN NAME+2, STUFF+1, REST+7, RES2+4, RES2+7
>> AMQQXX NAME, RESTORE+9, REST+7, RES2+4
ATXFLG EXIT!, RNAME+4*, OWRITE+9*
B EXIT!, RES1+2!, RES2+3*, RES2+4, RES2+7*
C SYS~, SYS+2*, SYS+4, SYS+5
DA RNAME+16*, OWRITE+5*, OWRITE+8!, ST1+2*, ST1+3!
DIADD OWRITE+14*, OEXIT!
DIC RNAME+5*, RNAME+9!, OWRITE+10*, OEXIT!, RESTORE+6*, RESTORE+11!
DIC("DR" OWRITE+15*
DIC("S" RESTORE+5*
DIC(0 RNAME+6*, OWRITE+11*, RESTORE+7*, RESTORE+8*, RESTORE+9*
>> DIE RNAME+15*
DIK OWRITE+6*, OWRITE+8!, ST1+2*, ST1+3!
>> DINUM OWRITE+12*
DLAYGO RNAME+7*, RNAME+9!, OWRITE+16*, OEXIT!
>> DR RNAME+17*
DT RNAME+17, SYS+4, SYS+5
DTIME RNAME, SHOW+9
DTOUT NAME+7, NAME+8!, RNAME+20!, OWRITE+2!
DUZ RNAME+11, RNAME+17
G SYS~, SYS+1, SYS+4, SYS+5
I EXIT!, STUFF+1*, RSTUFF+1*, ST1*, ST1+1, ST1+4!
IOSL SHOW+8
N EXIT!, RES1+2!, RES2+6*, RES2+7*
>> S RSTUFF+1*
T EXIT!, SYS+3~, SYS+4*, SYS+5*, REST+9!
U NAME+7, NAME+10, RNAME, RNAME+1, RNAME+11, RNAME+12, RNAME+13, RNAME+17, OWRITE, OWRITE+2
, OWRITE+3, RSTUFF+1, ST1+1, SYS+4, SYS+5, REST+2, SHOW+10, SHOW+11
X NAME+1*, NAME+2*, EXIT!, RNAME*, RNAME+1, RNAME+2, RNAME+3, RNAME+11, RNAME+12, OWRITE+1
, OWRITE+13*, STUFF*, STUFF+1*, RSTUFF*, RSTUFF+1*, ST1+4!, RESTORE+2*, RESTORE+3, RESTORE+4*, SHOW+1
, SHOW+2~, SHOW+5*
Y RNAME+10, RNAME+11, RNAME+12, RNAME+13, RNAME+14, OWRITE, OWRITE+5, RSTUFF+1*, ST1+4!, RESTORE+12
, RESTORE+13, REST+1, REST+2, REST+7, RES1+1
Z EXIT!, ST1+4!, REST+9!, SHOW+2~, SHOW+3*, SHOW+5*, SHOW+11
>> ZTQUEUED REST+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All