LEX10PL ;ISL/KER - ICD-10 Procedure Lookup ;04/21/2014
Source file <LEX10PL.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 4 | HOME^%ZIS (ENDR,KILL)^%ZISS ($$DT,$$FMADD)^XLFDT $$UP^XLFSTR |
Lexicon Utility | 3 | $$PCSDIG^LEX10CS ($$SEL,PR)^LEX10PLS $$STATCHK^LEXSRC2 |
VA Fileman | 3 | ^DIM $$GET1^DIQ ^DIR |
DRG Grouper | 1 | ($$ICDOP,$$IMP)^ICDEX |
Name | Comments | DBIA/ICR reference |
---|---|---|
SOP(X) | ; Code Pre-Processing
|
|
CUR(X) | ; Current Array
|
|
END(X,Y) | ; End Search, display results
|
|
BEG | ; Begin Recursive Loop
|
|
RET(X,Y,LEXN,LEXC) | ; Retrieve Defaults
|
|
FND(X) | ; Found
|
|
TOT(X,Y) | ; Total Possible
|
|
ATTR | ; Screen Attributes
|
|
SOH | ; Select a Code Help
|
|
ROK(X) | ; Routine OK
|
|
SAV(X,Y,LEXN,LEXC,LEXV) | ; Save Defaults
|
|
SO(X) | ; Enter a Code/Code Fragment
|
|
GETO(X) | ; Get One
|
|
NXT | ; Next
|
|
EN | ; Main Entry Point
; ; Input ; ; None ; ; Output ; ; Y 2 Piece "^" delimited string ; 1 IEN to the Expression File 757.01 ; 2 Expression Display Text ; ; Y("ICD") 2 Piece "^" delimited string ; 1 IEN ICD OPERATION/PROCEDURE File #80.1 ; 2 ICD Code ; |
|
KATTR | ; Kill Screen Attributes
|
|
NAM(X) | ; Descriptive Dane
|
|
SN(X,EFF) | ; Short Name
|
|
LOOK | ; Lookup
|
|
GCUR(X,LEXA) | ; Get Current Array
|
|
ENV(X) | ; Check environment
|
|
TAG(X) | ; Sub-Routine OK
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | ENV+1 |
ENDR^%ZISS | ATTR+1 |
KILL^%ZISS | KATTR+1 |
^DIM | TAG+4 |
$$GET1^DIQ | SAV+3, RET+4, ENV+2 |
^DIR | SO+7 |
$$ICDOP^ICDEX | LOOK+31 |
$$IMP^ICDEX | EN+25, NAM+2, SN+2 |
$$PCSDIG^LEX10CS | LOOK+2, TOT+2 |
$$SEL^LEX10PLS | LOOK+4 |
PR^LEX10PLS | END+2 |
$$STATCHK^LEXSRC2 | LOOK+24 |
$$DT^XLFDT | EN+24, SO+2, SAV+3, RET+4, SN+2, ENV+1 |
$$FMADD^XLFDT | SAV+3, RET+4 |
$$UP^XLFSTR | SOP+2 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("TEST" | ROK+1 |
^LEX(757.01 - [#757.01] | LOOK+30 |
^LEX(757.02 - [#757.02] | LOOK+28, SOP+7, SOP+12, SOP+17, SOP+23, SOP+28, SOP+33, SOP+38 |
^LEX(757.033 - [#757.033] | GCUR+2, NAM+1, NAM+3, NAM+4, SN+3, SN+4, SN+5 |
^XTMP( | SAV+4*, RET+5 |
Name | Line Occurrences |
---|---|
$$ENV | EN+16 |
$$FND | LOOK+2, TOT+2 |
$$NAM | GCUR+4 |
$$RET | SO+5 |
$$ROK | SAV+1, RET+1 |
$$SN | NAM+5 |
$$SO | EN+25 |
$$TAG | SAV+1, RET+2 |
$$TOT | LOOK+38 |
ATTR | END+6, CUR+3, GCUR+1 |
BEG | EN+26 |
END | LOOK+33 |
GCUR | END+2, CUR+1 |
KATTR | END+6, CUR+3, GCUR+9 |
LOOK | LOOK+13, LOOK+35, NXT+4 |
NXT | LOOK+36 |
SAV | SO+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BOLD | EN+17~, END+6, CUR+3, GCUR+6, ATTR+1*, KATTR+1! |
CDT | SN+1~*, SN+2*, SN+3 |
DIR | EN+17~, SO+1~ |
DIR("?" | SO+7* |
DIR("??" | SO+7* |
DIR("A" | SO+4* |
DIR("PRE" | SO+6* |
DIR(0 | SO+4* |
DIRB | EN+17~, SO+1~, SO+5* |
DIROUT | EN+17~, BEG+1~, LOOK+8, LOOK+11, LOOK+13, LOOK+16, LOOK+17, SO+1~, SO+10, SOP+3* |
DIRUT | EN+17~, LOOK+11, LOOK+13, LOOK+16, SO+1~ |
DT | ENV+1* |
DTOUT | EN+17~, BEG+1~, LOOK+8, SO+1~, SO+8 |
DUOUT | EN+17~, BEG+1~, LOOK+11, LOOK+13, LOOK+16, LOOK+17, LOOK+19, SO+1~, SO+10, SOP+3* , SOP+4* |
DUZ | SO+5, SO+12, ENV+1, ENV+2 |
EFF | SN~, SN+1~, SN+3*, SN+4 |
HIS | SN+1~, SN+4*, SN+5 |
IEN | SN+1~*, SN+3, SN+4, SN+5 |
IMP | SN+1~, SN+2* |
IOF | END+4, CUR+3 |
IOINHI | EN+17~, ATTR+1~ |
IOINORM | EN+17~, ATTR+1~ |
LEX | EN+17~, SO+1~, SO+12*, SOP+1~, SOP+2*, SOP+3*, SOP+4*, SOP+5, SOP+6, SOP+7 , SOP+9, SOP+10, SOP+11, SOP+14, SOP+15, SOP+16, SOP+21, SOP+22, SOP+26, SOP+27 , SOP+31, SOP+32, SOP+36, SOP+37, SOP+41, ENV+1~, ENV+2* |
LEXA | EN+18~, GCUR~, GCUR+1!, GCUR+3*, GCUR+10! |
LEXA( | GCUR+8* |
LEXB | EN+18~, SOP+1~ |
LEXBEG | BEG+2~ |
LEXC | EN+18~, SOP+7*, SOP+9, SOP+11*, SOP+14, SOP+16*, SOP+20, SOP+22*, SOP+25, SOP+27* , SOP+30, SOP+32*, SOP+35, SOP+37*, SOP+40, SAV~, SAV+2, RET~, RET+3, END+1~ , END+2, END+3*, END+6, CUR+1~!*, CUR+2*, CUR+3 |
LEXC( | END+7, CUR+4 |
LEXC(0 | CUR+1 |
LEXCHR | EN+18~, LOOK+4*, LOOK+5*, LOOK+12*, LOOK+19, LOOK+21, LOOK+22, LOOK+35, GCUR+4~*, GCUR+5 , GCUR+6 |
LEXCODE | EN+18~, LOOK+23~, LOOK+29*, LOOK+31, LOOK+32, LOOK+33, END+1~*, END+2 |
LEXCOM | EN+18~, SO+1~, SO+3*, SO+4, SO+5, SO+12, SAV+1~, SAV+2*, SAV+4, RET+1~ , RET+3* |
LEXDT | EN+16~, EN+18~, EN+24*, EN+25*, BEG+4, LOOK+2, LOOK+24, LOOK+38, NXT+2, NXT+3~* , TOT+1~*, TOT+2, NAM+1~, NAM+2*, NAM+3 |
LEXE | EN+18~, TAG+1~, TAG+4* |
LEXEFF | EN+18~, LOOK+23~, LOOK+26*, NAM+1~, NAM+3*, NAM+4 |
LEXELP | BEG+2~ |
LEXEND | BEG+2~ |
LEXENV | EN+16~*, EN+19~ |
LEXERR | EN+19~, SO+1~, SOH+1, SOH+8!, SOP+1!, SOP+5*, SOP+6*, SOP+8*, SOP+9*, SOP+13* , SOP+14*, SOP+18*, SOP+19*, SOP+20*, SOP+24*, SOP+25*, SOP+29*, SOP+30*, SOP+34*, SOP+35* , SOP+39*, SOP+40* |
LEXFD | EN+19~, SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4* |
LEXI | EN+19~, END+1~, END+4*, END+5, END+7*, CUR+1~, CUR+2~, CUR+4*, FND+1~* |
LEXICD | EN+19~, LOOK+23~, LOOK+31*, LOOK+32 |
LEXID | EN+19~, SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4*, RET+5 |
LEXIEN | EN+19~, LOOK+23~, LOOK+29*, LOOK+30, LOOK+32, NAM+1~, NAM+4*, NAM+5 |
LEXIM | EN+16~, EN+19~, EN+25* |
LEXIN | EN+19~, GCUR+1~, GCUR+2*, GCUR+3, GCUR+4, NAM+1~*, NAM+3, NAM+4 |
LEXIT | EN+20~, BEG+1~, BEG+4*, LOOK+1, LOOK+8*, LOOK+12*, LOOK+13, LOOK+14*, LOOK+16*, LOOK+19* , LOOK+31*, LOOK+35, NXT+1 |
LEXKEY | EN+20~, SAV+1~, SAV+2*, SAV+3, RET+1~, RET+3*, RET+4 |
LEXL | EN+20~, TAG+1~, TAG+4*, TAG+5 |
LEXN | EN+20~, SOP+7*, SOP+9, SOP+12*, SOP+14, SOP+17*, SOP+20, SOP+23*, SOP+25, SOP+28* , SOP+30, SOP+33*, SOP+35, SOP+38*, SOP+40, SAV~, SAV+2, RET~, RET+2 |
LEXNAM | EN+20~, GCUR+4~*, GCUR+5, GCUR+7 |
LEXND | EN+20~, LOOK+23~, LOOK+28*, LOOK+29, NXT+1~, NXT+2*, NXT+3 |
LEXNM | EN+20~, SAV+1~, SAV+3*, RET+1~, RET+4* |
LEXNT | EN+20~, LOOK+12!, LOOK+15*, LOOK+17, NXT+1~, NXT+2*, NXT+3 |
LEXO | EN+20~, SOP+1~, SOP+7*, SOP+11*, SOP+12, SOP+16*, SOP+17, SOP+22*, SOP+23, SOP+27* , SOP+28, SOP+32*, SOP+33, SOP+37*, SOP+38 |
LEXOFF | EN+21~, GCUR+1~, GCUR+2*, GCUR+7 |
LEXOK | EN+21~, SOP+1~, GCUR+1~, GCUR+3*, GCUR+5*, GCUR+10 |
LEXPCDAT | EN+21~, TOT+1~ |
LEXPCDAT("NEXLEV" | LOOK+4, FND+1, GETO+1 |
LEXPSN | EN+21~, GCUR+1~, GCUR+3*, GCUR+4, GCUR+6, GCUR+7, GCUR+8 |
LEXR | EN+21~, SOP+1~, SOP+7*, SOP+8, SOP+11*, SOP+13, SOP+14, SOP+16*, SOP+18, SOP+19 , SOP+20, SOP+22*, SOP+24, SOP+25, SOP+27*, SOP+29, SOP+30, SOP+32*, SOP+34, SOP+35 , SOP+37*, SOP+39, SOP+40 |
LEXRTN | EN+21~, SAV+1~*, SAV+3, RET+1~*, RET+2, RET+4 |
LEXS | EN+21~, END+1~, END+3*, END+6, CUR+1~, CUR+2~*, CUR+3 |
LEXSBR | EN+21~, SO+1~, SO+5* |
LEXSEC | EN+22~, BEG+2~, GCUR+4~*, GCUR+5 |
LEXSIEN | EN+22~, LOOK+23~, LOOK+25*, LOOK+28 |
LEXSTA | EN+22~, LOOK+23~, LOOK+24*, LOOK+25, LOOK+26, LOOK+27* |
LEXT | EN+22~, TAG+1~, TAG+4* |
LEXTAG | EN+22~, SAV+1~*, SAV+4, RET+1~, RET+2*, RET+5 |
LEXTD | EN+22~, SO+1~, SO+2*, SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4* |
LEXTERM | EN+22~, LOOK+23~, LOOK+30*, LOOK+32, LOOK+33, END+1~, END+2 |
LEXTERM( | END+4, END+5 |
LEXTERM(1 | END+1* |
LEXTEST | EN+26~ |
LEXTOT | EN+22~, LOOK+2* |
LEXTXT | EN+23~, BEG+1~, BEG+3*, LOOK+2, LOOK+3, LOOK+4, LOOK+11, LOOK+12*, LOOK+14*, LOOK+16* , LOOK+22*, LOOK+24, LOOK+37*, LOOK+38*, NXT+2, NXT+3~*, GCUR+4~, GCUR+6*, GCUR+7*, GCUR+8 |
LEXUP | EN+23~, BEG+1~, LOOK+3*, LOOK+12!, LOOK+13, LOOK+14, LOOK+16 |
LEXUSR | EN+23~, SAV+1~, SAV+2*, SAV+3, RET+1~, RET+2*, RET+4 |
LEXV | EN+23~, SAV~, SAV+2 |
LEXVAL | EN+23~, SAV+1~, SAV+2*, SAV+4 |
LEXVDT | EN+23~, EN+24, BEG+1~, BEG+4*, SO+2, NAM+2, SN+1 |
LEXX | EN+23~, BEG+1~ |
LEXY | EN+23~, EN+26!, BEG+1~, LOOK+1!, LOOK+2*, TOT+1~, TOT+2* |
NORM | EN+23~, END+6, CUR+3, GCUR+6, ATTR+1*, KATTR+1! |
U | BEG+3*, ENV+1* |
X | EN+16~, EN+23~, EN+25*, EN+26, BEG+3, LOOK+8!, LOOK+12!*, LOOK+14!*, LOOK+16!, LOOK+17! , TOT~, TOT+1*, TOT+2*, TOT+3, SO~, SO+9, SO+10*, SO+11, SO+12*, SO+13 , SOP~, SOP+1, SOP+2*, SOP+3*, SOP+4*, SOP+10*, SOP+15*, SOP+20, SOP+21*, SOP+25 , SOP+26*, SOP+30, SOP+31*, SOP+35, SOP+36*, SOP+40, SOP+41*, SOP+42, SAV~, SAV+1 , RET~, RET+1, RET+5*, RET+6, ROK~, ROK+1*, TAG~, TAG+1*, TAG+2, TAG+3 , TAG+4*, TAG+5*, TAG+6, END~, END+1, CUR~, CUR+1, GCUR~, GCUR+2, NAM~ , NAM+1, NAM+5*, NAM+6, SN~, SN+1, SN+5*, SN+6, FND~, FND+1*, FND+2 , GETO~, GETO+1*, GETO+2, ATTR+1~*, ENV~ |
Y | EN+26!, BEG+3!*, LOOK+21, LOOK+22!, LOOK+32*, LOOK+36, TOT~, TOT+1, SO+1~, SO+9 , SO+12, SAV~, SAV+1, RET~, RET+2, END~, END+1 |
Y("ICD" | LOOK+32* |