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

Package: Quality Assurance

Routine: AQAOCOD


Information

AQAOCOD ; IHS/ORDC/LJF - USER INTERFACE TO SELECT ICD CODES ;

Source Information

Source file <AQAOCOD.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Quality Assurance 3 (EOJ,INIT,LOOK,SETDIR)^AQAOCOD0  ^AQAOCOD2  DISPLAY2^AQAOCOD3  
VA Fileman 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Quality Assurance 2 AQAOCOD0  AQAOPC2  

Entry Points

Name Comments DBIA/ICR reference
A
RANGES ;ENTRY POINT - DISPLAY TABLE OF ALL RANGES
BEGIN
ASK1 ;
SHOW ;ENTRY POINT - ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
PROCESS ;EVALUATE USER RESPONSE
TAX ;PLACE CODES FROM SELECTED TAXONOMY IN AQAOTBL
CHECK ;ASKS USER IF SATISFIED WITH ENTERED RANGES
A1
X3
X2
X
X1
DISPLAY ;ENTRY POINT SHOW CODES IN RANGE SELECTED

External References

Name Field # of Occurrence
EOJ^AQAOCOD0 X
INIT^AQAOCOD0 AQAOCOD+11
LOOK^AQAOCOD0 PROCESS+6, PROCESS+13, PROCESS+14, PROCESS+15
SETDIR^AQAOCOD0 ASK1+4
^AQAOCOD2 BEGIN+4
DISPLAY2^AQAOCOD3 DISPLAY+1
^DIC TAX+2, TAX+3
^DIR ASK1+4, CHECK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7," You have selected ALL ",AQAOTL," for this report!"
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: *7," ?? No taxonomies for procedures"
  • Line Location: PROCESS+3
Function Call: WRITE
  • Prompt: *7," ?? Not allowed"
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: *7," ?? No previous codes entered!"
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: PROCESS+9
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: PROCESS+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !!,"ICD codes in this range =>",!!
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: $P(AQAO("LOW")," ")
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: $P(AQAO("LOW")," ")
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !,$P(AQAO," "),?9,$P(^ICD9(DFN,0),U,3)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !!,"ICD Code Range(s) Selected So Far =>",!
  • Line Location: RANGES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGES+3
Function Call: READ
  • Timeout: 300
  • Variable: AQAO("N")
  • Line Location: A+0
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !
  • Line Location: X3+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+2
Routine Call
  • DIC
  • Line Location:
    • TAX+2
    • TAX+3
Routine Call
  • DIR
  • Line Location:
    • ASK1+4
    • CHECK+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] TAX+5
^ICD9 - [#80] DISPLAY+2, DISPLAY+3
^ICD9("BA" DISPLAY+2, DISPLAY+3

Label References

Name Line Occurrences
@( BEGIN+3
A A
A1 A1
ASK1 BEGIN, ASK1+9
BEGIN BEGIN+4
CHECK BEGIN+3
DISPLAY A+1
PROCESS ASK1+6
RANGES ASK1+8, SHOW+1, A+2
TAX PROCESS+5
X BEGIN+1, BEGIN+2
X1 ASK1+5, ASK1+7
X2 PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10
X3 TAX+4

Naked Globals

Name Field # of Occurrence
^( DISPLAY+3, TAX+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AQAO DISPLAY+3*, RANGES+2*, A+1*
>> AQAO("BANG" RANGES+3, A+2*!
>> AQAO("CODE" TAX+5*
>> AQAO("ENTER" BEGIN+4
>> AQAO("HI" ASK1+1!, DISPLAY+3, A+1*
>> AQAO("LOW" ASK1+1!, DISPLAY+2, DISPLAY+3, A+1*
>> AQAO("MODIFY" BEGIN+4
>> AQAO("N" A*, A+1
>> AQAO("NO DISP LAY" , ASK1+8, ASK1+9*, PROCESS+2*, PROCESS+3*, PROCESS+4*, PROCESS+8*, PROCESS+9*, PROCESS+10*
>> AQAO("NUM" RANGES+2*, A
>> AQAO("S" TAX+1*, TAX+2, TAX+3
>> AQAOA ASK1+1*, PROCESS+8*, PROCESS+9*, PROCESS+10*, PROCESS+13, PROCESS+15
>> AQAOCT DISPLAY+3*
>> AQAOI A+1*
>> AQAOICD PROCESS+3, DISPLAY+1
>> AQAONE PROCESS+1*, PROCESS+6*, PROCESS+14*
AQAOR DISPLAY+3, A1*, A1+1*, A1+2!
>> AQAOSAV("X" PROCESS+12*, PROCESS+13, PROCESS+14, PROCESS+15*
>> AQAOSTP BEGIN+2*, BEGIN+4*
>> AQAOSUB PROCESS+1*, PROCESS+11*
>> AQAOTBL BEGIN+3, BEGIN+4, ASK1+4, ASK1+8, PROCESS+7
>> AQAOTBL( RANGES+2, A+1, TAX+5*
>> AQAOTBL("ALL" BEGIN+1, ASK1+7, PROCESS+2*
>> AQAOTL ASK1+4, PROCESS+2
>> AQAOTYP PROCESS+6*, PROCESS+13*, PROCESS+14*, PROCESS+15*
>> AQAOX TAX+1
>> DFN DISPLAY+2*, DISPLAY+3*
DIC TAX+2*!, TAX+3*!
DIC("A" TAX+1*
DIC("S" TAX+2*, TAX+3*
DIC(0 TAX+2*, TAX+3*
DIR ASK1+4!, CHECK+2!
DIR("A" ASK1+4*, CHECK+1*
DIR("B" CHECK+1*
DIR(0 CHECK+1*
DTIME A1, A1+1
IOSL DISPLAY+3
U DISPLAY+2, DISPLAY+3, A1+1
>> X PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11
, PROCESS+12, PROCESS+13*, PROCESS+14*, PROCESS+15*, TAX+2*, TAX+3*
>> Y BEGIN+2, BEGIN+3, ASK1+5, TAX+4, TAX+5
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