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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICDCODLK

Package: DRG Grouper

Routine: ICDCODLK


Information

ICDCODLK ;KUM - LOOK UP ICD-10 PROCEDURE CODE;12/07/2011

Source Information

Source file <ICDCODLK.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
DRG Grouper 3 EFFDATE^ICDDRGM  $$CODEN^ICDEX  $$SEL^ICDSELPS  
VA FileMan 2 DD^%DT  YN^DICN  
Lexicon Utility 1 $$PCSDIG^LEX10CS  

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

Package Total Caller Graph
DRG Grouper 2 ICDCOD  ICDDRGM  

Entry Points

Name Comments DBIA/ICR reference
EN ; Initialize variables
LOOK ; Look-up term
AGAIN ; Try again?
ASK ; Get user input
ASKCONT1 ; Tag to continue when ICDPRC doesnt have *
ASKCNT2
INPHLP ; Look-up help
EXIT ; Clean up environment and quit
X(ICDLEX) ; Evaluate X
Y(ICDLEX) ; Evaluate Y
LOAD ; Load data
PRCDESC ; Display Descriptions of each character
GICDPRC ; Get ICDPRC from User
AA ; Read character by character
BB ;Exit
PRCDESCB ; Call Before PRCDESC

External References

Name Field # of Occurrence
DD^%DT ASKCONT1+10
YN^DICN AGAIN+2, ASKCONT1+22
EFFDATE^ICDDRGM ASK+3
$$CODEN^ICDEX ASKCONT1+9
$$SEL^ICDSELPS ASK+18
$$PCSDIG^LEX10CS ASK+13, ASKCONT1+2, PRCDESC+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !,"Try another"
  • Line Location: AGAIN+1
Function Call: WRITE
  • Prompt: !!,"You have searched for a string in the Lexicon, do you want to"
  • Line Location: AGAIN+3
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID ICD PROCEDURE CODE"
  • Line Location: ASK+22
Function Call: WRITE
  • Prompt: !!,ICDPRC,?15,ICDPDESC,!
  • Line Location: ASKCONT1+8
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: ASKCONT1+10
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID PROCEDURE CODE."
  • Line Location: ASKCONT1+12
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID ICD PROCEDURE CODE"_$S($G(ICDXX1):". IGNORING THE PROCEDURE CODE",1:".")
  • Line Location: ASKCONT1+14
Function Call: READ
  • Variable: ICDQWE
  • Timeout: 300
  • Line Location: ASKCONT1+19
Function Call: WRITE
  • Prompt: !,"OK? (Yes/No) "
  • Line Location: ASKCONT1+21
Function Call: WRITE
  • Prompt: !," Enter a ""free text"" term. Best results occur using one to "
  • Line Location: INPHLP+2
Function Call: WRITE
  • Prompt: !," three full or partial words without a suffix"
  • Line Location: INPHLP+3
Function Call: WRITE
  • Prompt: !," or "
  • Line Location: INPHLP+7
Function Call: WRITE
  • Prompt: !," Enter a classification code (ICD/CPT etc) to find the single "
  • Line Location: INPHLP+8
Function Call: WRITE
  • Prompt: !," term associated with the code."
  • Line Location: INPHLP+9
Function Call: WRITE
  • Prompt: !," or "
  • Line Location: INPHLP+14
Function Call: WRITE
  • Prompt: !," Enter a classification code (ICD/CPT etc) followed by a plus"
  • Line Location: INPHLP+15
Function Call: WRITE
  • Prompt: !," sign (+) to retrieve all terms associated with the code."
  • Line Location: INPHLP+16
Function Call: WRITE
  • Prompt: ICDC_" - "_LEXPCDAT("NEXLEV",ICDLOAD,"DESC")
  • Line Location: PRCDESC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCDESC+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: AA+2
Function Call: WRITE
  • Prompt: "Press '*' to display available choices for next character or '^' to exit."
  • Line Location: AA+3
Function Call: WRITE
  • Prompt: !,ICDPRT_ICDPRC
  • Line Location: AA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BB+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRCDESCB+1
Function Call: WRITE
  • Prompt: "Press '*' to display available choices for next character or '^' to exit."
  • Line Location: PRCDESCB+2
Function Call: WRITE
  • Prompt: !,"ICD-10 Procedure code:"_ICDPRC
  • Line Location: PRCDESCB+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCDESCB+4

Label References

Name Line Occurrences
$$X AGAIN+1, AGAIN+4, AGAIN+5, AGAIN+6
AA AA+12, AA+14, AA+18, AA+22
AGAIN AGAIN+3
ASK LOOK+1
ASKCNT2 ASKCONT1+13
ASKCONT1 ASK+9
BB AA+8, AA+11, AA+12, AA+16
EXIT EN+2, ASK+3, ASK+22, ASK+24
GICDPRC ASK+6, ASK+21
LOAD ASK+15
LOOK EN+1, AGAIN+4, AGAIN+5, AGAIN+7
PRCDESC ASK+17, ASKCONT1+7, AA+2
PRCDESCB ASK+16, ASKCONT1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AGAIN+1*, AGAIN+2, AGAIN+3, AGAIN+4, AGAIN+5, AGAIN+6, ASKCONT1+21*, ASKCONT1+23, EXIT+1!
DIC LOOK+1!, EXIT+1!
DIR ASK+1~, EXIT+1!
DIROUT ASK+1~, EXIT+1!
DIRUT ASK+1~, EXIT+1!
DTOUT ASK+1~, ASK+3, EXIT+1!
DUOUT ASK+1~, ASK+3, EXIT+1!
ICDA AA+8, AA+11, AA+12, AA+14, AA+16, AA+18, AA+20, AA+21, BB+2!
ICDC PRCDESC+3*, PRCDESC+8, PRCDESC+9, PRCDESC+11, PRCDESC+12!
>> ICDDATE ASK+3, ASK+4
ICDDATE1 ASK+1~, ASK+4*, ASK+13, ASKCONT1+2, ASKCNT2!, PRCDESC+4
ICDLEX ASKCNT2!, EXIT+1!, X~, Y~
ICDLOAD LOAD+4*, LOAD+5, LOAD+6, LOAD+7, LOAD+9, LOAD+10!, PRCDESC+8*, PRCDESC+9, PRCDESC+12!
ICDLOAD1 LOAD+2*, LOAD+6, LOAD+7, LOAD+8*, LOAD+10!
ICDLOADP LOAD+3*, LOAD+5, LOAD+9*, LOAD+10!
ICDPDESC ASKCONT1+4*, ASKCONT1+8, ASKCNT2!
>> ICDPRC LOOK+1*, ASK+6*, ASK+7, ASK+8, ASK+9, ASK+10*, ASK+12, ASK+13, ASK+19*, ASK+22
, ASK+23*, ASK+24, ASKCONT1+1, ASKCONT1+2, ASKCONT1+8, ASKCONT1+9, ASKCONT1+12, ASKCONT1+13, ASKCONT1+14, ASKCONT1+16
, ASKCONT1+19, ASKCONT1+20, PRCDESC+1, AA+5, AA+11*, AA+12, AA+14*, AA+16*, AA+21*, PRCDESCB+3
ICDPRCT ASKCNT2!, EXIT+1!, PRCDESC+1*, PRCDESC+2, PRCDESC+3, PRCDESC+6*, PRCDESC+10*, PRCDESC+12!, GICDPRC+1*
ICDPRCT1 PRCDESC+1*, PRCDESC+4, PRCDESC+11*, PRCDESC+12!
ICDPRCX ASKCNT2!, EXIT+1!, GICDPRC+1*
ICDPRT ASK+1~, ASK+2*, AA+4*, AA+5
ICDPSTS ASKCONT1+5*, ASKCONT1+10, ASKCONT1+13, ASKCNT2!
ICDQWE ASKCONT1+19*!
ICDREAD AA+5*, AA+6, BB+2!
ICDRES ASK+5*, ASK+12, ASK+13*, ASK+14, ASK+22, ASKCONT1+2*, ASKCONT1+3, ASKCONT1+11, ASKCONT1+13, ASKCONT1+14*
, ASKCONT1+19, ASKCNT2!, PRCDESC+4*, PRCDESC+5, PRCDESC+7
ICDS ASK+18, LOAD+1!
ICDS( LOAD+6*, LOAD+7*
ICDT1 ASK+1~, ASK+12*
ICDTEMP PRCDESC+2*, PRCDESC+12!
ICDX ASK+1~, ASK+7*, ASK+8*, ASK+20*, PRCDESC+1*, AA+2, AA+12*, AA+14*, AA+22*
ICDXX ASK+1~, ASKCONT1+9*, ASKCONT1+17
>> ICDXX1 ASK+2, ASK+23, ASK+24, ASKCONT1+9, ASKCONT1+14, ASKCONT1+18, AA+11, AA+12
IOF EN+1, AA+1, PRCDESCB+1
LEXPCDAT ASKCNT2!
LEXPCDAT("NEXLEV" LOAD+4, LOAD+7, PRCDESC+8, PRCDESC+9
LEXPCDAT("PCSDESC" ASKCONT1+4
LEXPCDAT("STATUS" ASKCONT1+5
X LOOK+1!, ASK+18*, ASK+19, ASKCONT1+15*, ASKCONT1+16*, ASKCONT1+17*, ASKCONT1+19*, ASKCONT1+23*, INPHLP+1, INPHLP+4
, INPHLP+5, INPHLP+6, INPHLP+10, INPHLP+11, INPHLP+12, INPHLP+13, INPHLP+17, INPHLP+18, INPHLP+19, EXIT+1!
, X+1
Y ASKCONT1+10*, ASKCONT1+15*, ASKCONT1+16*, ASKCONT1+17*, EXIT+1!, Y+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All