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

Package: Prosthetics

Routine: RMPOICD1


Information

RMPOICD1 ;ALB/MGD - ICD-10 DIAGNOSIS CODE LOOK UP; 12-06-11

Source Information

Source file <RMPOICD1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  ^DIR  ^DIWP  
Kernel 2 HOME^%ZIS  $$DT^XLFDT  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$IMPDATE,$$MAX)^LEXU  
Prosthetics 1 $$SEL^RMPOICD2  

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
Prosthetics 1 RMPOPED  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DEMO ;
DIAG10(RMPDT,RMPDFLT,RMPPARAM) ;
DIAG9(RMPDT,RMPDFLT,RMPOUT,RMPPARAM) ;
LEXICD10(RMPTXT,RMPDATE,RMPPAR) ; ICD-10 Search
ICD9(RMPSRCH,RMPICDT,RMPOUT) ;
EXIT ;
INPHLP ;
INPHLP2 ;
INPHLP3 ;
ASKDATE(RMPPRMT) ;
QUESTION(RMPDFLT,RMPPROM,RMPHELP) ;
SRCHSTR(RMPPRMT,RMPHLP1,RMPHLP2,RMPDFLT) ;
ICDSYSDG(RMPICDD) ;
SETPARAM(RMPPAR) ;
FORMWRIT(X,RMPMODE) ;
INITVARS ;
PRESSKEY ;
CODEINFO(RMPXX2) ; Write Output

External References

Name Field # of Occurrence
^%DT ASKDATE+3
HOME^%ZIS INITVARS+1
^DIC ICD9+9
^DIR QUESTION+5, SRCHSTR+7
^DIWP FORMWRIT+5
$$DIAGSRCH^LEX10CS LEXICD10+25
$$FREQ^LEXU LEXICD10+8
$$IMPDATE^LEXU ICDSYSDG+3
$$MAX^LEXU LEXICD10+9
$$SEL^RMPOICD2 LEXICD10+31
$$DT^XLFDT INITVARS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEMO+14
Function Call: WRITE
  • Prompt: !,"SELECTED: "
  • Line Location: DEMO+31
Function Call: WRITE
  • Prompt: !!,RMPPARAM("NO DATA FOUND")
  • Line Location: DEMO+33
Function Call: WRITE
  • Prompt: !!,RMPPARAM("ENTER MORE")
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !,RMPPARAM("ENTER MORE2")
  • Condition for execution: $L(RMPPARAM("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: @IOF
  • Line Location: LEXICD10+26
Function Call: WRITE
  • Prompt: !," Enter code or ""text"" for more information."
  • Line Location: INPHLP+3
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,RMPLI1,0))
  • Line Location: FORMWRIT+8
Function Call: WRITE
  • Prompt: !," ICD Diagnosis code:",?30,$P(RMPXX2,";",2)
  • Line Location: CODEINFO+2
Function Call: WRITE
  • Prompt: !," ICD Diagnosis code IEN:",?30,$P(RMPXX2,";",1)
  • Line Location: CODEINFO+3
Function Call: WRITE
  • Prompt: !," Lexicon Expression IEN:",?30,+$P(RMPXX2,";",3)
  • Line Location: CODEINFO+4
Function Call: WRITE
  • Prompt: !," ICD Diagnosis description:",?30,$P(RMPXX2,"^",2)
  • Line Location: CODEINFO+5
Routine Call
  • DIC
  • Line Location:
    • ICD9+9
Routine Call
  • DIR
  • Line Location:
    • QUESTION+5
    • SRCHSTR+7
Routine Call
  • %ZIS
  • Line Location:
    • INITVARS+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J FORMWRIT+3!, FORMWRIT+8, FORMWRIT+9!

Label References

Name Line Occurrences
$$ASKDATE DEMO+16
$$DIAG10 DEMO+29
$$DIAG9 DEMO+27
$$ICD9 DIAG9+2
$$ICDSYSDG DEMO+21
$$LEXICD10 DIAG10+6
$$QUESTION DEMO+19, DEMO+27, DEMO+45, LEXICD10+9
$$SRCHSTR DIAG10+3
CODEINFO DEMO+31
DEMO EN+1
FORMWRIT LEXICD10+11, LEXICD10+12
INITVARS DEMO+1
INPHLP2 INPHLP+2
INPHLP3 INPHLP+1
SETPARAM DEMO+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!, QUESTION+2*, QUESTION+3
%DT ASKDATE+1~, ASKDATE+2*
%DT("A" ASKDATE+2*
DIC ICD9+1~, ICD9+3*, EXIT+1!
DIC("A" ICD9+4*
DIC("B" ICD9+5*
DIC("S" ICD9+8*
DIC(0 ICD9+3*
DIR EXIT+1!, QUESTION+1~, SRCHSTR+1~
DIR("?" QUESTION+4*, 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!, ASKDATE+1~
DIRUT EXIT+1!
>> DIWL FORMWRIT+4*
>> DIWR FORMWRIT+4*
DT ICDSYSDG+2, INITVARS+2*
DTIME PRESSKEY+1
DTOUT LEXICD10+15~, ICD9+11, EXIT+1!, ASKDATE+1~, ASKDATE+5, SRCHSTR+8
DUOUT LEXICD10+15~, ICD9+11, EXIT+1!, ASKDATE+1~, SRCHSTR+9
IOF DEMO+14
KEY ICD9+1~
RMPCDS ICD9+1~, ICD9+6*
RMPCSYS DEMO+5~, DEMO+21*, DEMO+27, DEMO+29
RMPDATE LEXICD10~, LEXICD10+3*, LEXICD10+4, LEXICD10+25
RMPDFL10 DEMO+8~, DEMO+24*, DEMO+29
RMPDFLT DIAG10~, DIAG10+3, DIAG9~, DIAG9+2, QUESTION~, QUESTION+2, SRCHSTR~, SRCHSTR+5, SRCHSTR+13
RMPDFLT9 DEMO+7~, DEMO+23*, DEMO+27
RMPDT DEMO+16*, DEMO+17, DEMO+19, DEMO+21, DEMO+27, DEMO+29, DIAG10~, DIAG10+6, DIAG9~, DIAG9+2
RMPEXIT LEXICD10+15~, LEXICD10+18*, LEXICD10+21, LEXICD10+29*, LEXICD10+34*, LEXICD10+38*, LEXICD10+40*
RMPHELP QUESTION~, QUESTION+4
RMPHLP1 SRCHSTR~, SRCHSTR+3
RMPHLP2 SRCHSTR~, SRCHSTR+4
RMPICDD ICDSYSDG~, ICDSYSDG+2*, ICDSYSDG+4
RMPICDNT LEXICD10+15~
RMPICDT ICD9~
RMPICDY LEXICD10+22!, LEXICD10+25*, LEXICD10+27*, LEXICD10+29, LEXICD10+31
RMPICDY(" " LEXICD10+27
RMPIMPDT ICDSYSDG+1~, ICDSYSDG+3*, ICDSYSDG+4
RMPINP DIAG10+1~, DIAG10+2, DIAG10+3*, DIAG10+4, DIAG10+5, DIAG10+6, DIAG9+1~
RMPKEY PRESSKEY+1*, CODEINFO+1~
RMPLEVEL LEXICD10+16~, LEXICD10+19*, LEXICD10+25, LEXICD10+34, LEXICD10+36*, LEXICD10+44*, LEXICD10+47
RMPLI1 FORMWRIT+1~, FORMWRIT+8*
RMPLVTXT LEXICD10+1~
RMPLVTXT( LEXICD10+19*, LEXICD10+25, LEXICD10+47*
RMPMODE FORMWRIT~, FORMWRIT+3, FORMWRIT+7
RMPNUMB LEXICD10+7~, LEXICD10+8*, LEXICD10+9, LEXICD10+11
RMPOUT DEMO+6~, DEMO+13*, DEMO+27, DIAG9~, DIAG9+2, ICD9~, ICD9+10*
RMPPAR LEXICD10~, SETPARAM~
RMPPAR("DELET E IT" , SETPARAM+14*
RMPPAR("ENTER MORE" , SETPARAM+15*,  MORE2" , SETPARAM+16*
RMPPAR("EXCEE DS MESSAGE1" , LEXICD10+11, SETPARAM+10*, DS MESSAGE2" , LEXICD10+11, SETPARAM+11*, DS MESSAGE3" , LEXICD10+11, SETPARAM+12*
RMPPAR("EXITING" SETPARAM+5*
RMPPAR("HELP ?" , SETPARAM+2*, ??" , SETPARAM+3*
RMPPAR("NO CH ANGES" , SETPARAM+13*
RMPPAR("NO DA TA FOUND" , SETPARAM+4*, TA SELECTED" , SETPARAM+7*
RMPPAR("SEARCH_PROMPT" SETPARAM+1*
RMPPAR("TRY A NOTHER" , SETPARAM+8*
RMPPAR("TRY L ATER" , SETPARAM+6*
RMPPAR("WISH CONTINUE" , LEXICD10+9, SETPARAM+9*
RMPPAR("YES O R NO" , SETPARAM+17*
RMPPARAM DEMO+4~, DEMO+10, DEMO+27, DEMO+29, DIAG10~, DIAG10+6, DIAG9~
RMPPARAM("ASKDATE" DEMO+16
RMPPARAM("DEL ETE IT" , DEMO+45
RMPPARAM("ENT ER MORE" , DIAG10+4, ER MORE2" , DIAG10+4
RMPPARAM("HEL P ?" , DIAG10+3, P ??" , DIAG10+3
RMPPARAM("NO DATA FOUND" , DEMO+33
RMPPARAM("SEARCH_PROMPT" DIAG10+3, DIAG9+2
RMPPARAM("TRY ANOTHER" , DEMO+19, DEMO+27, DEMO+45
RMPPRMT ICD9+4, ASKDATE~, ASKDATE+2, SRCHSTR~, SRCHSTR+2
RMPPROM QUESTION~, QUESTION+3
RMPQUIT DEMO+2~, DEMO+12*, DEMO+17*, DEMO+19*, DEMO+27*, DEMO+31*, DEMO+35*, DEMO+37*, DEMO+39*, DEMO+41*
, DEMO+43*, DEMO+45*
RMPRETV DEMO+3~, DEMO+13*, DEMO+27*, DEMO+29*, DEMO+31, DEMO+33, DEMO+35, DEMO+37, DEMO+39, DEMO+41
, DEMO+43, DEMO+45, DIAG9+1~, DIAG9+2*, DIAG9+3, LEXICD10+16~, LEXICD10+17*, LEXICD10+34*, LEXICD10+38*, LEXICD10+40*
, LEXICD10+48
RMPSRCH ICD9~, ICD9+5
RMPTXT LEXICD10~, LEXICD10+5*, LEXICD10+6, LEXICD10+8, LEXICD10+11, LEXICD10+19
RMPXX LEXICD10+16~, LEXICD10+29*, LEXICD10+31*, LEXICD10+34, LEXICD10+36, LEXICD10+38, LEXICD10+40, LEXICD10+47
RMPXX2 CODEINFO~, CODEINFO+2, CODEINFO+3, CODEINFO+4, CODEINFO+5
U DEMO+43, DIAG10+2, DIAG10+4, DIAG10+6, ICD9+11, SRCHSTR+14
X ICD9+1~, ICD9+12, EXIT+1!, INPHLP+1, INPHLP+2, ASKDATE+6, SRCHSTR+10, FORMWRIT~, FORMWRIT+5
Y ICD9+1~, ICD9+10, ICD9+11, EXIT+1!, ASKDATE+4, ASKDATE+7, QUESTION+6, QUESTION+7, QUESTION+8, 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