Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls