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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ^DIC  UPDATE^DIE  ^DIK  ^DIR  ^DIWP  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$IMPDATE,$$MAX)^LEXU  
DRG Grouper 1 ($$CODEC,$$ICDDX,$$SINFO)^ICDEX  
Kernel 1 $$UP^XLFSTR  
Lab Service 1 $$SEL^LRAPICD2  

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
Lab Service 1 LRAPX  

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

External References

Name Field # of Occurrence
^DIC ICD9+9
UPDATE^DIE DXSAV+12, DXSAV+24
^DIK DXSAV+7, DXSAV+18
^DIR QUESTION+4, SRCHSTR+7
^DIWP FORMWRIT+5
$$CODEC^ICDEX GETDX+6, GETDX+9
$$ICDDX^ICDEX DIAG10+7, DIAG9+7, DXDSP+6
$$SINFO^ICDEX DXDSP+5
$$DIAGSRCH^LEX10CS LEXICD10+24
$$FREQ^LEXU LEXICD10+8
$$IMPDATE^LEXU ICDSYSDG+3
$$MAX^LEXU LEXICD10+9
$$SEL^LRAPICD2 LEXICD10+29
$$UP^XLFSTR SRCHSTR+14

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
Routine Call
  • DIC
  • Line Location:
    • ICD9+9
Routine Call
  • DIE
  • Line Location:
    • DXSAV+12
    • DXSAV+24
Routine Call
  • DIR
  • Line Location:
    • QUESTION+4
    • SRCHSTR+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] GETDX+5, GETDX+7, GETDX+8, DXSAV+5, DXSAV+16
^UTILITY($J FORMWRIT+3!, FORMWRIT+8, FORMWRIT+9!

Label References

Name Line Occurrences
$$DIAG10 DEMO+21
$$ICD9 DIAG9+2
$$ICDSYSDG DEMO+11
$$LEXICD10 DIAG10+8
$$QUESTION DEMO+39, LEXICD10+9
$$SRCHSTR DIAG10+3
CODEINFO DEMO+23
DEMO EN+8
DXDSP DEMO+23, DEMO+39, INPHLP+5
DXSAV EN+9
FORMWRIT LEXICD10+11, LEXICD10+12
GETDX EN+7
INPHLP2 INPHLP+7
INPHLP3 INPHLP+6
SETPARAM DEMO+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!, QUESTION+2*, QUESTION+3
CDE GETDX+1~, GETDX+8*, GETDX+9
CDE9 DIAG9+1~, DIAG9+5*, DIAG9+6, DIAG9+7
CFL EN+1~, EN+6*, EN+9, DEMO+23*, DEMO+39*, DIAG10+7*, DIAG9+7*
CSYS DEMO+4~, DEMO+11*, DEMO+21
DA DXSAV+1~, DXSAV+7*, DXSAV+18*
DA(1 DXSAV+7*, DXSAV+18*
DA(2 DXSAV+18*
DEFLV DEMO+6~, DEMO+12*, DEMO+21, DEMO+23*, DEMO+38, DEMO+39*
DIC ICD9+1~, ICD9+3*, EXIT+1!
DIC("A" ICD9+4*
DIC("B" ICD9+5*
DIC("S" ICD9+8*
DIC(0 ICD9+3*
DIK DXSAV+1~, DXSAV+7*, DXSAV+18*
DIR EXIT+1!, QUESTION+1~, SRCHSTR+1~
DIR("?" SRCHSTR+3*
DIR("??" SRCHSTR+4*
DIR("A" QUESTION+3*, SRCHSTR+2*
DIR("B" QUESTION+3*, SRCHSTR+5*
DIR(0 QUESTION+3*, SRCHSTR+6*
DIROUT LEXICD10+15~, EXIT+1!
DIRUT EXIT+1!
DIWL FORMWRIT+1~, FORMWRIT+4*
DIWR FORMWRIT+1~, FORMWRIT+4*
DT DEMO+9, ICDSYSDG+2
DTIME PRESSKEY+2
DTOUT LEXICD10+15~, ICD9+11, EXIT+1!, SRCHSTR+8
DUOUT LEXICD10+15~, ICD9+11, EXIT+1!, SRCHSTR+9
DX GETDX+1~, GETDX+3*, GETDX+5*, GETDX+6, GETDX+7*, GETDX+8, DXSAV+1~, DXSAV+2*, DXSAV+3*, DXSAV+4*
, DXSAV+5*, DXSAV+6, DXSAV+7, DXSAV+8*, DXSAV+10, DXSAV+11, DXSAV+13*, DXSAV+16*, DXSAV+17, DXSAV+18
, DXSAV+20*, DXSAV+22, DXSAV+23
DXC GETDX+1~, GETDX+6*, GETDX+9*, DXSAV+1~
DXS DXDSP+1~, DXDSP+2*, DXDSP+3*, DXDSP+6, INPHLP+1~
KEY ICD9+1~
LRACDS ICD9+1~, ICD9+6*
LRADATE LEXICD10~, LEXICD10+3*, LEXICD10+4, LEXICD10+24
LRADFLT DIAG10~, DIAG10+3, DIAG10+7*, DIAG9~, DIAG9+2, DIAG9+7*, QUESTION~, QUESTION+2, SRCHSTR~, SRCHSTR+5
, SRCHSTR+13
LRADT DEMO+7~, DEMO+9*, DEMO+11, DEMO+21, DIAG10~, DIAG10+7, DIAG10+8, DIAG9~, DIAG9+2, DIAG9+7
, DXDSP+5, DXDSP+6
LRADX INPHLP+2, GETDX+2!
LRADX( DEMO+23*, DEMO+39!, DIAG10+6, DIAG9+6, DXDSP+3, GETDX+6*, GETDX+9*, DXSAV+3
LRADX("" DEMO+12, DEMO+39
LRAEXIT LEXICD10+15~, LEXICD10+18*, LEXICD10+21, LEXICD10+27*, LEXICD10+32*, LEXICD10+36*, LEXICD10+38*
LRAHLP1 SRCHSTR~, SRCHSTR+3
LRAHLP2 SRCHSTR~, SRCHSTR+4
LRAICDD ICDSYSDG~, ICDSYSDG+2*, ICDSYSDG+4
LRAICDNT LEXICD10+15~
LRAICDT ICD9~
LRAICDY LEXICD10+22!, LEXICD10+24*, LEXICD10+25*, LEXICD10+27, LEXICD10+29
LRAICDY(" " LEXICD10+25
LRAIMPDT ICDSYSDG+1~, ICDSYSDG+3*, ICDSYSDG+4
LRAINP DIAG10+1~, DIAG10+2, DIAG10+3*, DIAG10+4, DIAG10+5, DIAG10+6, DIAG10+7, DIAG10+8, DIAG9+1~
LRAKEY PRESSKEY+1~, PRESSKEY+2*
LRALEVEL LEXICD10+16~, LEXICD10+19*, LEXICD10+24, LEXICD10+32, LEXICD10+34*, LEXICD10+42*, LEXICD10+45
LRALI1 FORMWRIT+1~, FORMWRIT+8*
LRALVTXT LEXICD10+1~
LRALVTXT( LEXICD10+19*, LEXICD10+24, LEXICD10+45*
LRAMODE FORMWRIT~, FORMWRIT+3, FORMWRIT+7
LRANUMB LEXICD10+7~, LEXICD10+8*, LEXICD10+9, LEXICD10+11
LRAPAR LEXICD10~, SETPARAM~
LRAPAR("DELETE" SETPARAM+16*
LRAPAR("ENTER MORE" , SETPARAM+17*,  MORE2" , SETPARAM+18*
LRAPAR("EXCEE DS MESSAGE1" , LEXICD10+11, SETPARAM+12*, DS MESSAGE2" , LEXICD10+11, SETPARAM+13*, DS MESSAGE3" , LEXICD10+11, SETPARAM+14*
LRAPAR("EXITING" SETPARAM+7*
LRAPAR("HELP ?" , SETPARAM+3*, ??" , SETPARAM+4*
LRAPAR("NO CH ANGES" , SETPARAM+15*
LRAPAR("NO DA TA FOUND 2" , SETPARAM+6*, TA FOUND" , SETPARAM+5*, TA SELECTED" , SETPARAM+9*
LRAPAR("SEARCH_PROMPT" SETPARAM+2*
LRAPAR("TRY A NOTHER" , SETPARAM+10*
LRAPAR("TRY L ATER" , SETPARAM+8*
LRAPAR("WISH CONTINUE" , SETPARAM+11*
LRAPRMT ICD9~, ICD9+4, SRCHSTR~, SRCHSTR+2
LRAPROM QUESTION~, QUESTION+3
LRASRCH ICD9~, ICD9+5
LRATXT LEXICD10~, LEXICD10+5*, LEXICD10+6, LEXICD10+8, LEXICD10+11, LEXICD10+19
LRAXX LEXICD10+16~, LEXICD10+27*, LEXICD10+29*, LEXICD10+32, LEXICD10+34, LEXICD10+36, LEXICD10+38, LEXICD10+45
LRAXX2 CODEINFO~, CODEINFO+1
LRCS DXDSP+5*, DXDSP+6, INPHLP+1~
LRDFN EN+1~, EN+3*, EN+4, GETDX+5, GETDX+7, GETDX+8, DXSAV+5, DXSAV+7, DXSAV+11, DXSAV+16
, DXSAV+18, DXSAV+23
LRDXS DXSAV+1~, DXSAV+9!, DXSAV+21!
LRDXS( DXSAV+11*, DXSAV+23*
LRDXV EN~, EN+2, EN+3
LRETV DEMO+2~, DEMO+16*, DEMO+21*, DEMO+23, DEMO+25, DEMO+27, DEMO+29, DEMO+31, DEMO+33, DEMO+35
, DEMO+37, DIAG9+1~, DIAG9+2*, DIAG9+3, DIAG9+4, DIAG9+5, DIAG9+8, LEXICD10+16~, LEXICD10+17*, LEXICD10+32*
, LEXICD10+36*, LEXICD10+38*, LEXICD10+46
LRFL DXSAV+1~, DXSAV+19*, DXSAV+23
LRI EN+1~, EN+3*, EN+5, GETDX+7, GETDX+8, DXSAV+16, DXSAV+18, DXSAV+23
>> LRICDT DEMO+9
LRIEN DXSAV+1~, DXSAV+9!, DXSAV+21!
LRIEN(1 DXSAV+10*
LRIEN(3 DXSAV+22*
LROUT DEMO+5~, DEMO+16*, DIAG9~, DIAG9+2, ICD9~, ICD9+10*
LRSS EN+1~, EN+3*, EN+5, SETPARAM+2, GETDX+4, GETDX+7, GETDX+8, DXSAV+4, DXSAV+16, DXSAV+18
, DXSAV+19, DXSAV+22
PARAM DEMO+3~, DEMO+13, DEMO+21, DIAG10~, DIAG10+8, DIAG9~
PARAM("DELETE" DEMO+39
PARAM("ENTER MORE" , DIAG10+4, MORE2" , DIAG10+4
PARAM("HELP ? " , DIAG10+3, ?" , DIAG10+3
PARAM("NO DAT A FOUND 2" , DEMO+25, A FOUND" , DEMO+25
PARAM("SEARCH_PROMPT" DIAG10+3, DIAG9+2
PARAM("WISH C ONTINUE" , LEXICD10+9
QUIT DEMO+1~, DEMO+15*, DEMO+29*, DEMO+31*, DEMO+33*, DEMO+35*
TMPDX DXSAV+1~
TMPDX( DXSAV+3*, DXSAV+6!, DXSAV+7, DXSAV+8, DXSAV+17!, DXSAV+18, DXSAV+20
U DIAG10+2, DIAG10+4, DIAG10+6, DIAG10+7, DIAG10+8, DIAG9+5, DIAG9+6, DIAG9+7, ICD9+11, SRCHSTR+14
X EN+10!, ICD9+1~, ICD9+12, EXIT+1!, INPHLP+6, INPHLP+7, SRCHSTR+10, FORMWRIT~, FORMWRIT+5
XX DIAG10+1~, DIAG10+6, DIAG10+7*, DIAG9+6, DIAG9+7*
Y EN+10!, ICD9+1~, ICD9+10, ICD9+11, EXIT+1!, QUESTION+5, QUESTION+6, QUESTION+7, SRCHSTR+11, SRCHSTR+12
, SRCHSTR+13, SRCHSTR+14
Y(0 ICD9+11
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 |  Local Variables  | All