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

Package: Registration

Routine: DGICP


Information

DGICP ;AL/AAS/PLT KUM,WIOFO/PMK - LOOK UP ICD-10 PROCEDURE CODE ;04/15/2015 1:17 PM

Source Information

Source file <DGICP.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
DRG Grouper 1 $$CODEN^ICDEX  
Kernel 1 $$READ^XGF  
Lexicon Utility 1 $$PCSDIG^LEX10CS  
Registration 1 $$SEL^DGICPL  
VA FileMan 1 DD^%DT  

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
Registration 1 DGPTFIC  
Surgery 1 ^DIC(130.4  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT ASK+34
$$SEL^DGICPL ASK+19
$$CODEN^ICDEX ASK+33
$$PCSDIG^LEX10CS ASK+14, ASK+26, PRCDESC+4
$$READ^XGF AA+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID ICD PROCEDURE CODE"
  • Line Location: ASK+23
Function Call: WRITE
  • Prompt: !," ",ICDPDESC
  • Line Location: ASK+32
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: ASK+34
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT VALID"
  • Line Location: ASK+36
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID ICD PROCEDURE CODE"
  • Line Location: ASK+37
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: !
  • 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: !,"ICD-10 Procedure code:"_ICDPRC
  • Line Location: AA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BB+1
Function Call: WRITE
  • Prompt: !,"ICD-10 Procedure code:"_ICDPRC
  • Line Location: PRCDESCB+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCDESCB+2

Label References

Name Line Occurrences
$$TR ASK+11, AA+21
@( ASK+6
AA AA+10, AA+12, AA+17, AA+20
ASK LOOK+2
BB AA+5, AA+8, AA+10, AA+14, AA+20
EXIT EN+3, ASK+23, ASK+24
GICDPRC ASK+22
LOAD ASK+16
LOOK EN+2
PRCDESC ASK+18, ASK+31, AA+2
PRCDESCB ASK+17, ASK+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!
DGXX ASK+1~, ASK+33*, ASK+39
DIC LOOK+2!, EXIT+1!
DIR ASK+1~, EXIT+1!
DIROUT ASK+1~, EXIT+1!
DIRUT ASK+1~, EXIT+1!
DTOUT EXIT+1!, AA+6
DUOUT EXIT+1!
>> EFFDATE ASK+8
FORMAT ASK+4~
ICDA AA+6*, AA+8, AA+10, AA+12, AA+14, AA+17, AA+20, AA+21, BB+2!
ICDC PRCDESC+3*, PRCDESC+8, PRCDESC+9, PRCDESC+11, PRCDESC+12!
ICDDATE ASK+1~, ASK+8*, ASK+9
ICDDATE1 ASK+1~, ASK+9*, ASK+14, ASK+26, ASK+40!, PRCDESC+4
ICDLEX 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!
ICDPDESC ASK+28*, ASK+32, ASK+40!
ICDPRC ASK+10*, ASK+11*, ASK+13, ASK+14, ASK+20*, ASK+23, ASK+24, ASK+25, ASK+26, ASK+33
, ASK+36, ASK+37, ASK+40!, PRCDESC+1, AA+4, AA+5, AA+10, AA+12*, AA+14*, AA+20
, AA+21*, PRCDESCB+1
ICDPRCT PRCDESC+1*, PRCDESC+2, PRCDESC+3, PRCDESC+6*, PRCDESC+10*, PRCDESC+12!
ICDPRCT1 PRCDESC+1*, PRCDESC+4, PRCDESC+11*, PRCDESC+12!
ICDPSTS ASK+29*, ASK+34, ASK+40!
ICDRES ASK+12*, ASK+13, ASK+14*, ASK+15, ASK+23, ASK+26*, ASK+27, ASK+35, ASK+40!, PRCDESC+4*
, PRCDESC+5, PRCDESC+7
ICDS ASK+19, LOAD+1!
ICDS( LOAD+6*, LOAD+7*
ICDT1 ASK+1~, ASK+13*
ICDTEMP PRCDESC+2*, PRCDESC+12!
ICDX ASK+1~, ASK+10*, ASK+21*, PRCDESC+1*, AA+2, AA+12*, AA+22*
LEX EXIT+1!
LEXPCDAT ASK+40!
LEXPCDAT("NEXLEV" LOAD+4, LOAD+7, PRCDESC+8, PRCDESC+9
LEXPCDAT("PCSDESC" ASK+28
LEXPCDAT("STATUS" ASK+29
PICDLOAD LOAD+3*, LOAD+5, LOAD+9*, LOAD+10!
TAG ASK+4~, ASK+5*, ASK+6
X LOOK+1~, LOOK+2*, ASK+2, ASK+3!, ASK+5, ASK+10, ASK+11, ASK+19*, ASK+20, ASK+38!
, ASK+39*, 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, TR~, TR+1*, TR+2
Y ASK+3!, ASK+34*, ASK+38!, ASK+39*, EXIT+1!, Y+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All