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

Package: PCE Patient Care Encounter

Routine: PXDSLK


Information

PXDSLK ;ALB/RBD - COPIED FROM ICDLOOK TO LOOK UP ICD-10 DX CODE;01 May 2014 1:39 PM

Source Information

Source file <PXDSLK.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 4 ^%DT  YN^DICN  RECALL^DILFD  ^DIR  
PCE Patient Care Encounter 3 MIN2^PXDSLK  $$ACTDT^PXDXUTL  ($$SEL,PR)^PXSELDS  
Kernel 2 HOME^%ZIS  $$DT^XLFDT  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$MAX)^LEXU  
DRG Grouper 1 ($$CODEC,$$CODEN)^ICDEX  

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

Package Total Caller Graph
PCE Patient Care Encounter 7 PXBPCPT2  PXBPPOV  PXCECPT  PXCECPT1  PXCEPOV1  PXCEVIMM  PXDSLK  

Entry Points

Name Comments DBIA/ICR reference
EN ; Initialize variables
LOOK ; Look-up term
AGAIN ; Try again?
ASK ; Get user input
ASK2
ICD10 ; ICD-10 Search
LK1 ; Lookup
WRT ; Write Output
NXT ; Next
SPACEBAR(PXROOT) ;
SAVSPACE(PXROOT,PXRETV) ;
INPHLP ; Help text controller for ICD-10
QM ; Diagnosis help text
; if calling from outside, set PXPAUSE=1 to pause the display and force the user to press <Enter> to continue
QM1 ; simple help text for 1 question mark
QM2 ; enhanced help text for 2 question marks
QM3 ; further explanation of format when there are multiple returns, displayed for 3 question marks.
MIN2 ; Minimum length of 2 characters message
EXIT ; Clean up environment and quit
X(LEX) ; Evaluate X
Y(LEX) ; Evaluate Y

External References

Name Field # of Occurrence
^%DT ASK+4
HOME^%ZIS EN+1
YN^DICN AGAIN+3, ICD10+11
RECALL^DILFD SAVSPACE+4
^DIR ASK+11
$$CODEC^ICDEX SPACEBAR+4
$$CODEN^ICDEX ASK2+4
$$DIAGSRCH^LEX10CS LK1+2
$$FREQ^LEXU ICD10+5
$$MAX^LEXU ICD10+5
MIN2^PXDSLK ASK+12
$$ACTDT^PXDXUTL ASK+5
$$SEL^PXSELDS LK1+6
PR^PXSELDS WRT+3
$$DT^XLFDT EN+1, ICD10+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Try another"
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: !!,"You have searched for an ICD-10 diagnosis code, do you want to"
  • Line Location: AGAIN+4
Function Call: WRITE
  • Prompt: !!,"SORRY, ICD-9 SPECIAL LOOK-UP NOT IMPLEMENTED."
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"Searching for '",PXTXT,"' requires inspecting ",PXNUMB," records to determine"
  • Line Location: ICD10+7
Function Call: WRITE
  • Prompt: !,"if they match the search criteria. This could take quite some time."
  • Line Location: ICD10+8
Function Call: WRITE
  • Prompt: !,"Please refine the search by including more detail than '",PXTXT,"'.",!
  • Line Location: ICD10+9
Function Call: WRITE
  • Prompt: !,"Do you wish to continue (Y/N)"
  • Line Location: ICD10+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD10+11
Function Call: WRITE
  • Prompt: !!,"No records found matching the value entered, revise search or enter ""?"" for",!,"help.",!
  • Line Location: LK1+5
Function Call: WRITE
  • Prompt: !!," Try again later",!
  • Line Location: LK1+9
Function Call: WRITE
  • Prompt: !!," Exiting list",!
  • Line Location: LK1+10
Function Call: WRITE
  • Prompt: !!," No data selected",!
  • Line Location: LK1+16
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !," ICD-10 Diagnosis code: ",?31,PXCODE
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !," ICD-10 Diagnosis description:",?31,PXTXT(1)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !,?31,$G(PXTXT(PXI))
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: SPACEBAR+5
Function Call: WRITE
  • Prompt: !,"Enter code or ""text"" for more information.",!
  • Line Location: QM1+1
Function Call: WRITE
  • Prompt: !,"Enter a ""free text"" term or part of a term such as ""femur fracture"".",!
  • Line Location: QM2+1
Function Call: WRITE
  • Prompt: !," or",!
  • Line Location: QM2+2
Function Call: WRITE
  • Prompt: !,"Enter a ""classification code"" (ICD/CPT etc) to find the single term associated"
  • Line Location: QM2+3
Function Call: WRITE
  • Prompt: !,"with the code.",!
  • Line Location: QM2+4
Function Call: WRITE
  • Prompt: !," or",!
  • Line Location: QM2+5
Function Call: WRITE
  • Prompt: !,"Enter a ""partial code"". Include the decimal when a search criterion includes"
  • Line Location: QM2+6
Function Call: WRITE
  • Prompt: !,"3 characters or more for code searches.",!
  • Line Location: QM2+7
Function Call: WRITE
  • Prompt: !,"Number of Code Matches"
  • Line Location: QM3+1
Function Call: WRITE
  • Prompt: !,"----------------------",!
  • Line Location: QM3+2
Function Call: WRITE
  • Prompt: !,"The ICD-10 Diagnosis Code search will show the user the number of matches"
  • Line Location: QM3+3
Function Call: WRITE
  • Prompt: !,"found, indicate if additional characters in ICD code exist, and the number"
  • Line Location: QM3+4
Function Call: WRITE
  • Prompt: !,"of codes within the category or subcategory that are available for selection."
  • Line Location: QM3+5
Function Call: WRITE
  • Prompt: !,"For example:",!
  • Line Location: QM3+6
Function Call: WRITE
  • Prompt: !,"14 matches found",!
  • Line Location: QM3+7
Function Call: WRITE
  • Prompt: !,"M91. - Juvenile osteochondrosis of hip and pelvis (19)",!
  • Line Location: QM3+8
Function Call: WRITE
  • Prompt: !,"This indicates that 14 unique matches or matching groups have been found and"
  • Line Location: QM3+9
Function Call: WRITE
  • Prompt: !,"will be displayed.",!
  • Line Location: QM3+10
Function Call: WRITE
  • Prompt: !,"M91. - the ""-"" indicates that there are additional characters that specify"
  • Line Location: QM3+11
Function Call: WRITE
  • Prompt: !," unique ICD-10 codes available.",!
  • Line Location: QM3+12
Function Call: WRITE
  • Prompt: !,"(19) Indicates that there are 19 additional ICD-10 codes in the M91"
  • Line Location: QM3+13
Function Call: WRITE
  • Prompt: !," ""family"" that are possible selections.",!
  • Line Location: QM3+14
Function Call: WRITE
  • Prompt: $C(7)," ??",!
  • Line Location: MIN2+1
Function Call: WRITE
  • Prompt: !,"Please enter at least the first two characters of the ICD-10 code or "
  • Line Location: MIN2+2
Function Call: WRITE
  • Prompt: !,"code description to start the search.",!
  • Line Location: MIN2+3
Routine Call
  • DIR
  • Line Location:
    • ASK+11
Routine Call
  • %ZIS
  • Line Location:
    • EN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] RECALL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( SPACEBAR+3

Label References

Name Line Occurrences
$$SPACEBAR ICD10+4
$$X AGAIN+2, AGAIN+5, AGAIN+6, AGAIN+7
AGAIN AGAIN+4
ASK LOOK+1, ASK+12, ASK2ASK2+2, ASK2+7
ASK2 ASK+9
EXIT EN+2, ASK+4, ASK+11
ICD10 ASK2
LK1 ICD10+13, LK1+20, NXT+4
LOOK EN+1, AGAIN+5, AGAIN+6, AGAIN+8
NXT LK1+20
QM1 INPHLP+4
QM2 INPHLP+3
QM3 INPHLP+2
SAVSPACE ASK2+5
WRT LK1+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AGAIN+2*, AGAIN+3, AGAIN+4, AGAIN+5, AGAIN+6, AGAIN+7, ICD10+6, ICD10+11*, EXIT+1!
%DT ASK+2!, ASK+4!*
%DT("A" ASK+4*
ARY ASK+1~
CR QM1+2~*, QM2+8~*, QM3+15~*
DIC LOOK+1!, EXIT+1!
DIR ASK+1~, ASK+6!, ASK+11!, EXIT+1!
DIR("?" ASK+8*
DIR("??" ASK+8*
DIR("A" ASK+7*
DIR("B" ASK+10*
DIR(0 ASK+11*
DIROUT ASK+1~, ICD10+1~, LK1+8, LK1+9, LK1+10, LK1+12, LK1+14, EXIT+1!
DIRUT ASK+1~, EXIT+1!
DT EN+1*
DTIME QM1+2, QM2+8, QM3+15
DTOUT ASK+11, ICD10+1~, LK1+9, LK1+12, EXIT+1!
DUOUT ASK+11, ICD10+1~, LK1+8, LK1+14, LK1+16, EXIT+1!
DUZ SPACEBAR+3, SAVSPACE+1, SAVSPACE+4
II ASK+2!
LEX EXIT+1!, X~, Y~
PXAGAIN AGAIN+1, LK1+7*, EXIT+1!
PXCODE WRT+2~*, WRT+4
>> PXDATE ASK+3, ASK+4
PXDEF AGAIN+5!, ASK+9, ASK+10, ASK2*, ASK2+7*, ICD10+10!, EXIT+1!
PXDT ASK+2!, ASK+5*, ICD10+12*, LK1+2, NXT+2, NXT+3~*
PXDXASK ASK+7, ASK+9, EXIT+1!
PXEXIT ICD10+1~*, LK1+1, LK1+9*, LK1+10*, LK1+12*, LK1+16*, LK1+18*, LK1+20, WRT+7*, NXT+1
PXI WRT+2~, WRT+6*
PXICDIEN ASK2+4~*, ASK2+5, SPACEBAR+1~, SPACEBAR+3*, SPACEBAR+4
PXMAX ASK+2!, ASK2+2, ICD10+5*, ICD10+6, ICD10+13!
PXND NXT+1~, NXT+2*, NXT+3
PXNT LK1+8, NXT+1~, NXT+2*
PXNUMB ASK+2!, ASK2+2, ICD10+5*, ICD10+6, ICD10+7, ICD10+13!
PXO ASK+1~
PXPAUSE INPHLP+1~*, QM1+2, QM2+8, QM3+15
PXRETV SAVSPACE~, SAVSPACE+2, SAVSPACE+4
PXROOT SPACEBAR~, SPACEBAR+2, SPACEBAR+3, SAVSPACE~, SAVSPACE+4
PXRTV SPACEBAR+1~, SPACEBAR+2*, SPACEBAR+4*, SPACEBAR+5, SPACEBAR+6
PXSYS ASK+1~, ASK+5*, ASK+7, ASK2ASK2+1
PXTXT ASK2*, ICD10+3*, ICD10+4*, ICD10+5, ICD10+7, ICD10+9, LK1+2, WRT+2~, WRT+3, NXT+2
NXT+3~*
PXTXT( WRT+6
PXTXT(1 WRT+2*, WRT+5
PXX NXT+1~, NXT+2*, NXT+3
>> PXXX LOOK+1*, ASK+13*, ASK2*, ASK2+3, ASK2+4, ASK2+7, ICD10+4*, LK1+5*, LK1+6*, LK1+7
LK1+9*, LK1+10*, LK1+16*, LK1+18, WRT+1, WRT+2, NXT+2
PXY ASK+1~, ASK+2!, LK1+1!, LK1+2*, LK1+3*, LK1+5, LK1+6
PXY(" " LK1+3
RES ASK+1~
U ASK+5, ASK2+4
>> X ASK+9*, ASK+12, ASK+13, ASK2ASK2+7, LK1+6*, INPHLP+2, INPHLP+3, INPHLP+4, X+1
Y ASK+1~, ASK+3*, ASK+4, ASK+5, Y+1
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