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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LEXINF4

Package: Lexicon Utility

Routine: LEXINF4


Information

LEXINF4 ;ISL/KER - Information - Lookup ;05/23/2017

Source Information

Source file <LEXINF4.m>

Entry Points

Name Comments DBIA/ICR reference
TERM(X) ; Get Term
;
; Input
;
; X Date, optional, default is TODAY
;
; Output
;
; $$TERM 2 piece "^" delimited string
; 1 Pointer to Expression file #757.01
; 2 Expression
;
CODE(X) ; Get Code
;
; Input
;
; None
;
; Output
;
; $$CODE 6 piece "^" delimited string
; 1 Code
; 2 Coding System
; 3 Expression
; 4 Pointer to CODES file 757.02
; 5 Pointer to CODING SYSTEM file 757.03
; 6 Pointer to EXPRESSIONS file 757.01
;
CODEP(X) ; Code Preprocessing
CODEH ; Code Help
CODELK(X) ; Lookup Code
CODEASK(X) ; Ask for Selection
CODEO(X,LEX) ; One Code Found
CODEM(X) ; Multiple Codes Found
CODEMW ; Write Multiple
CODEMS(X) ; Select from Multiple Entries
CODEMSH ; Select from Multiple Entries Help
CODEMQ ; Quit Multiple
OUT(X) ; Output Selection
CONT(X,Y) ; Ask to Continue
COH ; Continue Help
DICW(X) ; DIC Write
DICS(X) ; DIC Screen
PREOK(X) ; Preferred Term OK
SABOK(X) ; Source OK
TM(X,Y) ; Trim Character Y - Default " "

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Enter a full or partial code from one of the following"
  • Line Location: CODEH+1
Function Call: WRITE
  • Prompt: !,?5,"coding systems:",!
  • Line Location: CODEH+2
Function Call: WRITE
  • Prompt: !,?10,"ICD ICD-9-CM 10D ICD-10-CM"
  • Line Location: CODEH+3
Function Call: WRITE
  • Prompt: !,?10,"ICP ICD-9 Proc 10P ICD-10-PCS"
  • Line Location: CODEH+4
Function Call: WRITE
  • Prompt: !,?10,"CPT CPT-4 CPC HCPCS"
  • Line Location: CODEH+5
Function Call: WRITE
  • Prompt: !,?10,"DS4 DSM-IV SCC TITLE 38"
  • Line Location: CODEH+6
Function Call: WRITE
  • Prompt: !,?10,"SCT SNOMED CT BIR BI-RADS"
  • Line Location: CODEH+7
Function Call: WRITE
  • Prompt: " ",$P(X,"^",2)," code ",$P(X,"^",1),!
  • Line Location: CODEASK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CODEO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CODEM+3
Function Call: WRITE
  • Prompt: !," ",LEXX," matches found"
  • Condition for execution: +LEXX>1
  • Line Location: CODEM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CODEM+9
Function Call: WRITE
  • Prompt: !,LEXT
  • Line Location: CODEMW+3
Function Call: WRITE
  • Prompt: !,$G(LEXHLP)
  • Line Location: CODEMSH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+13
Function Call: WRITE
  • Prompt: !," Enter To"
  • Line Location: COH+2
Function Call: WRITE
  • Prompt: !," 'Yes' continue searching for """,LEXX,"""."
  • Line Location: COH+3
Function Call: WRITE
  • Prompt: !," 'No' refine the search (further specify)"
  • Line Location: COH+4
Function Call: WRITE
  • Prompt: !," '^' discontinue the search and exit"
  • Line Location: COH+5
Function Call: WRITE
  • Prompt: !," Enter To"
  • Line Location: COH+7
Function Call: WRITE
  • Prompt: !," 'Yes' continue the search"
  • Line Location: COH+8
Function Call: WRITE
  • Prompt: !," 'No' refine the search (further specify)"
  • Line Location: COH+9
Function Call: WRITE
  • Prompt: !," '^' discontinue the search and exit"
  • Line Location: COH+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.02 - [#757.02] FIND^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call