Routine: PXDSLK

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
PCE Patient Care Encounter	6	PXBPCPT2 PXBPPOV PXCECPT PXCECPT1 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

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, ASK2, ASK2+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, ASK2, ASK2+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, ASK2, ASK2+7, LK1+6, INPHLP+2, INPHLP+3, INPHLP+4, X+1
Y	ASK+1~, ASK+3*, ASK+4, ASK+5, Y+1

Customize PDF page

Package: PCE Patient Care Encounter