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

Package: Lab Service

Routine: LRAPICD


Information

LRAPICD ;ALB/JAM - Anatomic Pathology ICD-10 DIAGNOSIS CODE API ;6/15/12

Source Information

Source file <LRAPICD.m>

Entry Points

Name Comments DBIA/ICR reference
EN(LRDXV) ;
DEMO ;
DIAG10(LRADT,LRADFLT,PARAM) ;
DIAG9(LRADT,LRADFLT,LROUT,PARAM) ;
LEXICD10(LRATXT,LRADATE,LRAPAR) ; ICD-10 Search
ICD9(LRASRCH,LRAICDT,LROUT,LRAPRMT) ;
EXIT ;
DXDSP ;
INPHLP ;
INPHLP2 ;
INPHLP3 ;
QUESTION(LRADFLT,LRAPROM) ;
SRCHSTR(LRAPRMT,LRAHLP1,LRAHLP2,LRADFLT) ;
ICDSYSDG(LRAICDD) ;
SETPARAM(LRAPAR) ;
FORMWRIT(X,LRAMODE) ;
PRESSKEY ;
CODEINFO(LRAXX2) ; Write Output
GETDX ;Get DX and set in LRADX array
DXSAV ;Save diagnosis codes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMO+23
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMO+23
Function Call: WRITE
  • Prompt: !!,PARAM("NO DATA FOUND"),!,PARAM("NO DATA FOUND 2"),!
  • Line Location: DEMO+25
Function Call: WRITE
  • Prompt: " <NOTHING TO DELETE>"
  • Line Location: DEMO+38
Function Call: WRITE
  • Prompt: !!,PARAM("ENTER MORE")
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !,PARAM("ENTER MORE2")
  • Condition for execution: $L(PARAM("ENTER MORE2"))>0
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXICD10+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXICD10+13
Function Call: WRITE
  • Prompt: !,?4,DXS,?15,$P($$ICDDX^ICDEX(DXS,$G(LRADT),+LRCS,"E"),"^",4)
  • Line Location: DXDSP+6
Function Call: WRITE
  • Prompt: !?4,"Answer with ICD DIAGNOSIS"
  • Line Location: INPHLP+3
Function Call: WRITE
  • Prompt: !?5,"Choose from:"
  • Line Location: INPHLP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: INPHLP+5
Function Call: WRITE
  • Prompt: !," Enter code or ""text"" for more information."
  • Line Location: INPHLP+8
Function Call: WRITE
  • Prompt: !," Enter a ""free text"" term or part of a term such as ""femur fracture""."
  • Line Location: INPHLP2+1
Function Call: WRITE
  • Prompt: !!," or "
  • Line Location: INPHLP2+2
Function Call: WRITE
  • Prompt: !!," Enter a ""classification code"" (ICD/CPT etc) to find the single term"
  • Line Location: INPHLP2+3
Function Call: WRITE
  • Prompt: !," associated with the code."
  • Line Location: INPHLP2+4
Function Call: WRITE
  • Prompt: !!," or "
  • Line Location: INPHLP2+5
Function Call: WRITE
  • Prompt: !!," Enter a ""partial code"". Include the decimal when a search criterion"
  • Line Location: INPHLP2+6
Function Call: WRITE
  • Prompt: !," includes 3 characters or more for code searches."
  • Line Location: INPHLP2+7
Function Call: WRITE
  • Prompt: !," Number of Code Matches"
  • Line Location: INPHLP3+1
Function Call: WRITE
  • Prompt: !," ----------------------"
  • Line Location: INPHLP3+2
Function Call: WRITE
  • Prompt: !!," The ICD-10 Diagnosis Code search will show the user the number of matches"
  • Line Location: INPHLP3+3
Function Call: WRITE
  • Prompt: !," found, indicate if additional characters in ICD code exist, and the number"
  • Line Location: INPHLP3+4
Function Call: WRITE
  • Prompt: !," of codes within the category or subcategory that are available for selection."
  • Line Location: INPHLP3+5
Function Call: WRITE
  • Prompt: !," For example:"
  • Line Location: INPHLP3+6
Function Call: WRITE
  • Prompt: !!," 14 matches found"
  • Line Location: INPHLP3+7
Function Call: WRITE
  • Prompt: !!," M91. - Juvenile osteochondrosis of hip and pelvis (19)"
  • Line Location: INPHLP3+8
Function Call: WRITE
  • Prompt: !!," This indicates that 14 unique matches or matching groups have been found"
  • Line Location: INPHLP3+9
Function Call: WRITE
  • Prompt: !," and will be displayed."
  • Line Location: INPHLP3+10
Function Call: WRITE
  • Prompt: !!," M91. - the ""-"" indicates that there are additional characters that specify"
  • Line Location: INPHLP3+11
Function Call: WRITE
  • Prompt: !," unique ICD-10 codes available."
  • Line Location: INPHLP3+12
Function Call: WRITE
  • Prompt: !!," (19) Indicates that there are 19 additional ICD-10 codes in the M91 ""family"""
  • Line Location: INPHLP3+13
Function Call: WRITE
  • Prompt: !," that are possible selections."
  • Line Location: INPHLP3+14
Function Call: WRITE
  • Prompt: !,$G(^UTILITY($J,"W",1,LRALI1,0))
  • Line Location: FORMWRIT+8
Function Call: WRITE
  • Prompt: " ",$P(LRAXX2,";",2)
  • Line Location: CODEINFO+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call