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

Package: DRG Grouper

Routine: ICDEXA3


Information

ICDEXA3 ;SLC/KER - ICD Extractor - APIs/Utilities (cont) ;12/19/2014

Source Information

Source file <ICDEXA3.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 2 ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  
DRG Grouper 1 ($$CODEABA,$$CODEBA,$$DTBR,$$IMP,$$ROOT,$$SYS)^ICDEX  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DRG Grouper 1 ICDEX  

Entry Points

Name Comments DBIA/ICR reference
OBA(FILE,CODE,SYS,REV) ; Replace $Order for "ABA" and "BA" indexes
OD(FILE,WORD,SYS,REV) ; Replace $Order on "D" Index
;
; Input:
;
; FILE File Number
; WORD Word, can be null or a 2 piece string
; containing Word and IEN where the word
; is stored
; SYS Coding System (internal)
; Acceptable values can be found on the ASYS
; Index and includes:
;
; File 80
; 1 ICD-9-CM
; 30 ICD-10-CM
;
; File 80.1
; 2 ICD-9 Proc
; 31 ICD-10-PCS
;
; REV Reverse $Order if set to 1
;
; Output:
;
; 2 Piece "^" delimited string
;
; 1 WORD Next or Previous word in D Index
; 2 IEN Internal Entry Number where WORD is found
;
; Retire IA 5388, 5404
;
DLM(FILE,IEN,FIELD,CDT) ; Date Last Modified
CS(FILE,FMT,CDT) ; Select Coding System (lookup)
CSH ; Select Coding System Help
FI(X) ; Select ICD File
FIH ; File Help
DP(X) ; Select Diagnosis or Procedure
DPH ; File Help
FIT(FILE,FMT) ; File Input Transform
TRIM(X,Y) ; Trim Character

External References

Name Field # of Occurrence
^DIR CS+58, FI+24, DP+24
$$CODEABA^ICDEX OBA+46
$$CODEBA^ICDEX OBA+61
$$DTBR^ICDEX DLM+52
$$IMP^ICDEX CS+29, DP+11
$$ROOT^ICDEX OBA+32, OD+35, DLM+46, CS+32
$$SYS^ICDEX OBA+31, OD+34
$$DT^XLFDT DLM+51, DP+11
$$FMTE^XLFDT DLM+70
$$UP^XLFSTR OBA+29, OD+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"This response must be a number from 1 to 2."
  • Line Location: FIH+1
Function Call: WRITE
  • Prompt: !,?5,"This response must be a number from 1 to 2."
  • Line Location: DPH+1
Routine Call
  • DIR
  • Line Location:
    • CS+58
    • FI+24
    • DP+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICDS - [#80.4] CS+36, CS+37, CS+45, CS+46, DP+13
^ICDS("F" CS+35, CS+44, DP+12

Label References

Name Line Occurrences
$$FI CS+30
$$FIT CS+30, FI+15, FI+25
$$TRIM FI+16, DP+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CDT DLM~, DLM+51, CS~, CS+29
CODE OBA~, OBA+29
DIR CS+27~, FI+14~, DP+10~
DIR("?" CS+57*, FI+23*, DP+23*
DIR("??" CS+57*, FI+23*, DP+23*
DIR("A" CS+51*, CS+52*, CS+56*, CS+57*, FI+16*, FI+17*, FI+18*, FI+19*, FI+20*, FI+21*
, DP+15*, DP+16*, DP+17*, DP+18*, DP+19*, DP+20*, DP+21*
DIR("PRE" CS+57*, FI+23*, DP+23*
DIR(0 CS+50*, FI+22*, DP+22*
DIROUT CS+27~, CS+58, FI+14~, FI+24, DP+10~, DP+24
DIRUT CS+27~, FI+14~, DP+10~
DTOUT CS+27~, CS+58, FI+14~, FI+24, DP+10~, DP+24
DUOUT CS+27~, CS+58, FI+14~, FI+24, DP+10~, DP+24
FIELD DLM~, DLM+50
FILE OBA~, OBA+30, OD~, OD+33, DLM~, DLM+45, CS~, CS+30, FIT~, FIT+1
FMT CS~, CS+49, FIT~, FIT+1
ICCD DP+10~
ICD0 DLM+43~, DLM+55~, DLM+62*, DLM+63, DLM+74*, DLM+75, CS+27~, FI+15*, DP+11*
ICD1 OBA+36~, OBA+37*, OBA+39, OBA+42~, OBA+43*, OBA+45, OBA+51~, OBA+52*, OBA+54, OBA+57~
, OBA+58*, OBA+60, CS+27~, CS+54~*, CS+55, FI+14~, DP+10~
ICD2 OBA+36~, OBA+38*, OBA+39, OBA+42~, OBA+44*, OBA+45, OBA+51~, OBA+53*, OBA+54, OBA+57~
, OBA+59*, OBA+60, CS+27~, CS+54~*, CS+55, FI+14~, DP+10~
ICDA DLM+43~, DLM+55~, DLM+56!, DLM+64!, CS+27~, CS+33!, FI+14~, DP+10~
ICDA( DLM+63*, CS+42*, CS+47*, CS+53, CS+54, CS+58
ICDA(" " DLM+64, CS+49
ICDA(0 CS+33*, CS+42*, CS+43, CS+47*, CS+48
ICDA(1 CS+48, CS+50
ICDAA CS+35~
ICDAA( CS+38*, CS+40, CS+41
ICDAA(" " CS+39
ICDC OBA+28~, OBA+29*, OBA+37, OBA+40*, OBA+43, OBA+52, OBA+55*, OBA+58, DLM+43~, DLM+47*
, DLM+48, DLM+52, CS+27~, CS+35*, CS+42*, CS+44*, CS+47*, CS+53*, CS+56*, CS+57*
, FI+14~, DP+10~
ICDCS DP+10~, DP+11*
ICDD OBA+28~, OBA+32*, OBA+35, OBA+40, OBA+41, OBA+50, OBA+55, OBA+56, OD+31~, OD+35*
, OD+38, OD+44, OD+58, OD+64, DLM+43~, DLM+51*, DLM+52*, DLM+53, DLM+60, DLM+69
, DLM+70, CS+27~, CS+29*, CS+34, CS+37, CS+43, DP+11*, DP+14
ICDDIR CS+27~, CS+30*, FI+16*, FI+17!, DP+15*, DP+17!
ICDE DLM+43~, DLM+55~, DLM+60*, DLM+61, DLM+69*, DLM+70, DLM+71, CS+27~, CS+35~, CS+36*
, CS+38, CS+39*, CS+40, CS+41, CS+42, CS+45*, CS+47, FI+14~, DP+10~
ICDF OBA+28~, OBA+30*, OBA+32, OD+31~, OD+33*, OD+35, DLM+43~, DLM+45*, DLM+46, DLM+57
, DLM+65, DLM+66, CS+28~, CS+30*, CS+31, CS+32, CS+35, CS+44, CS+51, FI+14~
, DP+10~, FIT+1~*, FIT+2, FIT+3, FIT+4
ICDG OBA+28~, OD+31~
ICDH DLM+43~, DLM+55~, DLM+61*, DLM+62, DLM+71*, DLM+72, DLM+74
ICDI OBA+28~, OBA+34~, OBA+46*, OBA+47, OBA+49~, OBA+61*, OBA+62, OD+31~, OD+37~, OD+57~
, DLM+43~, DLM+44*, DLM+47, DLM+49, DLM+60, DLM+61, DLM+62, DLM+68, DLM+69, DLM+71
, DLM+74, CS+28~, CS+35~*, CS+36, CS+37, CS+38, CS+40*, CS+41, CS+42, CS+44*
, CS+45, CS+46, CS+47, CS+53*, CS+54, FI+14~, DP+10~, DP+12*, DP+13
ICDID OBA+28~
ICDIMP CS+28~, CS+29*, DP+10~, DP+11*
ICDL DLM+43~, DLM+50*, DLM+54, DLM+55~, DLM+64*, DLM+65, DLM+66, DLM+67, DLM+68, DLM+75*
, DLM+76
ICDM CS+28~, CS+49*, CS+50, CS+52, CSH+1, CSH+2, FI+14~, DP+10~
ICDN OBA+28~, OBA+34~, OBA+39*, OBA+45*, OBA+46, OBA+47, OBA+49~, OBA+54*, OBA+60*, OBA+61
, OBA+62, OD+31~, OD+37~, OD+41*, OD+42, OD+43, OD+48*, OD+49, OD+50, OD+51
, OD+53*, OD+54, OD+55, OD+57~, OD+61*, OD+62, OD+63, OD+68*, OD+69, OD+70
, OD+71, OD+73*, OD+74, OD+75, DLM+43~, DLM+55~, DLM+59*, DLM+60, DLM+61, DLM+62
, DLM+65*, DLM+66*, DLM+67, DLM+68, DLM+69, DLM+71, DLM+74
ICDNI OD+37~, OD+39*, OD+40, OD+41*, OD+42*, OD+43, OD+46*, OD+47, OD+50*, OD+51
, OD+52*, OD+54*, OD+55, OD+57~, OD+59*, OD+60, OD+61*, OD+62*, OD+63, OD+66*
, OD+67, OD+70*, OD+71, OD+72*, OD+74*, OD+75
ICDNS DLM+43~, DLM+55~, DLM+56*, DLM+57*, DLM+58, DLM+59
ICDO OBA+28~, OBA+33, OBA+47*, OBA+48, OBA+62*, OD+31~, OD+36, OD+40*, OD+43*, OD+47*
, OD+49*, OD+51*, OD+55*, OD+56, OD+60*, OD+63*, OD+67*, OD+69*, OD+71*, OD+75*
, DLM+43~, DLM+54, DLM+56*, DLM+64*, DLM+73*, DLM+76*, DLM+77, CS+28~, FI+15*, FI+25*
, FI+26, DP+25, FIT+1~, FIT+2*, FIT+3*, FIT+4*, FIT+5*, FIT+6
ICDP DLM+43~, DLM+55~, DLM+58*, DLM+59
ICDR OBA+28~, OBA+32*, OBA+37, OBA+38, OBA+43, OBA+44, OBA+46, OBA+52, OBA+53, OBA+58
, OBA+59, OBA+61, OD+31~, OD+35*, OD+39, OD+41, OD+42, OD+46, OD+48, OD+50
, OD+53, OD+54, OD+59, OD+61, OD+62, OD+66, OD+68, OD+70, OD+73, OD+74
, DLM+43~, DLM+46*, DLM+47, DLM+49, DLM+60, DLM+61, DLM+62, DLM+68, DLM+69, DLM+71
, DLM+74, CS+28~, CS+32*, FI+14~, DP+10~
ICDS OBA+28~, OBA+29*, OBA+31*, OBA+33, OBA+37, OBA+38, OBA+43, OBA+44, OBA+46, OBA+48
, OD+31~, OD+33*, OD+34*, OD+36, OD+39, OD+41, OD+42, OD+46, OD+48, OD+50
, OD+53, OD+54, OD+56, OD+59, OD+61, OD+62, OD+66, OD+68, OD+70, OD+73
, OD+74, CS+35~, CS+41*, CS+42, DP+13~*, DP+14
ICDSD DP+13~*, DP+14
ICDT CS+28~, CS+54~, CS+55*, CS+56, FI+14~, DP+10~, FIT+1~*, FIT+2, FIT+5
ICDTMP CS+28~, CS+37*, CS+38, CS+46*
ICDTY DP+10~, DP+11*, DP+14*, DP+15*, DP+19, DP+20
ICDU OBA+28~, OBA+29*, OBA+38, OBA+44, OBA+53, OBA+59
ICDV CS+28~
ICDW OD+31~, OD+32*, OD+39, OD+40, OD+41, OD+45, OD+46, OD+47, OD+48, OD+52*
, OD+53, OD+59, OD+60, OD+61, OD+65, OD+66, OD+67, OD+68, OD+72*, OD+73
ICDWI OD+31~, OD+32*, OD+39, OD+46, OD+52*, OD+54, OD+59, OD+66, OD+72*, OD+74
ICDX OBA+28~, OBA+34~*, OBA+37, OBA+38, OBA+43, OBA+44, OBA+49~*, OBA+52, OBA+53, OBA+58
, OBA+59, OD+31~, OD+37~*, OD+39, OD+41, OD+42, OD+46, OD+48, OD+50, OD+53
, OD+54, OD+57~*, OD+59, OD+61, OD+62, OD+66, OD+68, OD+70, OD+73, OD+74
, CS+28~, CS+49*, CS+55
IEN DLM~, DLM+44
REV OBA~, OBA+32, OD~, OD+35
SYS OBA~, OBA+29, OD~, OD+33
WORD OD~, OD+32
X CS+28~, FI~, FI+15*, FI+24, FI+25*, FI+26*, FI+27, DP~, DP+11, DP+24
, DP+25*, DP+26, TRIM~, TRIM+1*, TRIM+2*, TRIM+3*, TRIM+4
Y CS+28~, CS+58, FI+14~, FI+25, DP+10~, TRIM~, TRIM+1*, TRIM+2, TRIM+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All