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

Package: Lexicon Utility

Routine: LEXWUS


Information

LEXWUS ;ISL/KER - Lexicon Keywords - Update (Set) ;05/23/2017

;;2.0;LEXICON UTILITY;**103**;Sep 23, 1996;Build 2

Source Information

Source file <LEXWUS.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 HOME^%ZIS  ^%ZTLOAD  ($$DT,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
Lexicon Utility 3 IDP^LEXWUI  LEX^LEXWUL  ($$RUN2,DT,STOP)^LEXWUM  
VA FileMan 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
UEND ; Update End
EN ; Main Entry Point (tasked - includes ICD-9)
UPD ; Update Keywords
INC(X) ; Include Check
STOP ; Stop Task
ABT(X) ; Abort
UPDQ ; Update Keywords Quit
MON(X) ; Month
PAR(X,LEXARY) ; Key Word In Context, KWIC
EN2 ; Entry Point (tasked - Update Selected keyword - LEXKEY)
;
; Needs LEXKEY One Keyword
;
; LEXKEY(LEXKEY1) Selected Keywords
; LEXKEY(LEXKEY2)
; LEXKEY(LEXKEYn)
;
BK(X) ; Stop Task
KEY ; Process Keyword ICD and Lexicon
ENV(X) ; Environment
DT ; Display ^TMP
SEL ; Update Selected Keyword
SELQ ; Update Selected Keyword Quit
NOSTOP ; Remove Stop

External References

Name Field # of Occurrence
HOME^%ZIS EN+7, EN2+17, ENV+1
^%ZTLOAD EN+5, EN2+15
$$GET1^DIQ ENV+2
IDP^LEXWUI KEY+6
LEX^LEXWUL KEY+6
$$RUN2^LEXWUM EN+2, EN2+10
DT^LEXWUM DT+1
STOP^LEXWUM STOP+1
$$DT^XLFDT UPD+7, SEL+8, ENV+1
$$FMDIFF^XLFDT UEND+1
$$FMTE^XLFDT UEND+32, UEND+33
$$NOW^XLFDT UPD+7, SEL+8, UEND+1
$$UP^XLFSTR PAR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,$G(LEXNAM)," tasked (#",+($G(ZTSK)),")",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !," LEXKEY keyword variable not defined",!
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !!,?4,$G(LEXNAM)," tasked (#",+($G(ZTSK)),")",!
  • Line Location: EN2+16
Function Call: WRITE
  • Prompt: !," LEXKEY keyword variable not defined",!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !,?3,"Lexicon Changes ",?35,$J(LEXLEXC,8)
  • Line Location: UEND+7
Function Call: WRITE
  • Prompt: !,?5,"ICD-9 Diagnosis Changes ",?35,$J(LEXL01C,8)
  • Line Location: UEND+8
Function Call: WRITE
  • Prompt: !,?5,"ICD-9 Procedure Changes ",?35,$J(LEXL02C,8)
  • Line Location: UEND+9
Function Call: WRITE
  • Prompt: !,?5,"ICD-10 Diagnosis Changes ",?35,$J(LEXL30C,8)
  • Line Location: UEND+10
Function Call: WRITE
  • Prompt: !,?5,"ICD-10 Procedure Changes ",?35,$J(LEXL31C,8)
  • Line Location: UEND+11
Function Call: WRITE
  • Prompt: !,?5,"SNOMED CT Changes ",?35,$J(LEXL56C,8)
  • Line Location: UEND+12
Function Call: WRITE
  • Prompt: !,?5,"TITLE 38 Changes ",?35,$J(LEXL17C,8)
  • Line Location: UEND+13
Function Call: WRITE
  • Prompt: !,?5,"CPT-4 Procedure Changes ",?35,$J(LEXL03C,8)
  • Line Location: UEND+14
Function Call: WRITE
  • Prompt: !,?5,"HCPCS Procedure Changes ",?35,$J(LEXL04C,8)
  • Line Location: UEND+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: +($G(LEXLEXC))>0
  • Line Location: UEND+20
Function Call: WRITE
  • Prompt: !,?3,"ICD* File Changes",?35,$J(LEXSDOC,8)
  • Line Location: UEND+20
Function Call: WRITE
  • Prompt: !,?5,LEXTAB,"ICD-9 Diagnosis Changes ",?35,$J(LEXI01C,8)
  • Line Location: UEND+23
Function Call: WRITE
  • Prompt: !,?5,LEXTAB,"ICD-10 Diagnosis Changes ",?35,$J(LEXI30C,8)
  • Line Location: UEND+24
Function Call: WRITE
  • Prompt: !,?5,LEXTAB,"ICD-9 Procedure Changes ",?35,$J(LEXI02C,8)
  • Line Location: UEND+27
Function Call: WRITE
  • Prompt: !,?5,LEXTAB,"ICD-10 Procedure Changes ",?35,$J(LEXI31C,8)
  • Line Location: UEND+28
Function Call: WRITE
  • Prompt: !,?3,"Total Changes ",?35,$J(LEXTTT,8)
  • Line Location: UEND+31
Function Call: WRITE
  • Prompt: !
  • Line Location: UEND+32
Function Call: WRITE
  • Prompt: !,?3,"Start: ",?14,$TR($$FMTE^XLFDT(LEXBEG,"5Z"),"@"," ")
  • Line Location: UEND+32
Function Call: WRITE
  • Prompt: !,?3,"Finish: ",?14,$TR($$FMTE^XLFDT(LEXEND,"5Z"),"@"," ")
  • Line Location: UEND+33
Function Call: WRITE
  • Prompt: !,?3,"Elapsed: ",?14,$TR(LEXELP," ","0"),!
  • Line Location: UEND+34
Function Call: WRITE
  • Prompt: !!,?5,"Invalid/Missing DUZ"
  • Line Location: ENV(X)+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+7
    • EN2+17
    • ENV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LEX(757.01 - [#757.01] PAR+5
^LEX(757.071 - [#757.071] UPD+8, UPD+10, SEL+10, SEL+14, KEY+2, KEY+3, KEY+4
^TMP("LEXWU" EN+5!, EN2+14!, UPD+1!, SEL+1!, ABT+1, NOSTOP+1!

Label References

Name Line Occurrences
$$ABT UPD+8, UPD+10, SEL+10, SEL+14, KEY+6
$$ENV UPD+1, SEL+1
@( EN+5, EN2+15
INC KEY+5
KEY UPD+10, SEL+10, SEL+14
NOSTOP UPDQ+1, SELQ+1
PAR INC+1
SELQ SEL+1, SEL+2
UEND UPD+11, SEL+15
UPDQ UPD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT ENV+1*
DTIME ENV+1*
DUZ ENV+2
LEXAFT EN+4, EN+7!, EN2+14, EN2+17!, UPD+7*, SEL+8*, KEY+2
LEXARY PAR~, PAR+2!
LEXARY( PAR+6*
LEXARY("B" PAR+7*
LEXASRC PAR+1~, PAR+3*
LEXBEG UPD+2~, UPD+7*, SEL+3~, SEL+8*, UEND+1, UEND+2, UEND+32, PAR+1~, PAR+2*, PAR+4*
LEXCHK EN+1~, EN+3*, EN2+8~, EN2+11*, UPD+2~, SEL+3~, KEY+1~, KEY+5*, INC+1*, INC+2*
, INC+3, INC+4*
LEXCHK2 KEY+1~
LEXCHKI UPD+2~, SEL+3~, KEY+1~, INC+1*, INC+2*, INC+3
LEXCOM EN+1~, EN+4*!, EN2+8~, EN2+12*!, UPD+6*!, SEL+7*!
LEXCTR UPD+2~, UPD+6*, SEL+3~, SEL+7*
LEXEFF UPD+2~, SEL+3~, KEY+1~, KEY+2*, KEY+3
LEXELP UPD+2~, SEL+3~, UEND+1*, UEND+2*, UEND+34
LEXEND UPD+2~, SEL+3~, UEND+1*, UEND+2, UEND+33, PAR+1~, PAR+2*, PAR+3, PAR+4
LEXENV UPD+1~*, UPD+2~, SEL+1~*, SEL+3~
LEXEXC UPD+2~, SEL+3~, KEY+1~, KEY+4*
LEXI NOSTOP+1~*
LEXI01C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+17, UEND+18, UEND+21, UEND+22, UEND+23
LEXI02C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+17, UEND+18, UEND+25, UEND+26, UEND+27
LEXI30C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+17, UEND+18, UEND+21, UEND+22, UEND+24
LEXI31C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+17, UEND+18, UEND+25, UEND+26, UEND+28
LEXICDC UPD+2~, UPD+6*, SEL+3~, SEL+7*, UEND+3~, UEND+18*, UEND+21*, UEND+22
LEXICPC UPD+2~, UPD+6*, SEL+3~, SEL+7*, UEND+18*, UEND+25*, UEND+26
LEXII UEND+2~*
LEXINA UPD+2~, SEL+3~, KEY+1~, KEY+3*
LEXINC UPD+2~, SEL+3~, KEY+1~, KEY+4*, KEY+5, INC+4
LEXINCS KEY+1~
LEXINP UPD+2~, SEL+3~, KEY+5!, INC+1!
LEXINP( INC+2, INC+3!
LEXINP("B" INC+3!
LEXINP(0 INC+2
LEXKEY EN2+9, EN2+13, UPD+3~, UPD+7*, UPD+8*, UPD+10, SEL+2, SEL+9, SEL+10, SEL+13~*
, SEL+14
LEXKEY( SEL+12
LEXKEY("" EN2+9, EN2+13, SEL+2, SEL+11
LEXKEYC UPD+3~, SEL+4~, KEY+1~
LEXKEYC(0 KEY+1*
LEXKEYC(9 KEY+1*
LEXKIEN UPD+3~, UPD+9~*, UPD+10*, SEL+4~, SEL+10~*, SEL+13~*, SEL+14*, KEY+2, KEY+3, KEY+4
LEXL01C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+5, UEND+8
LEXL02C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+5, UEND+9
LEXL03C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+3, UEND+5, UEND+14
LEXL04C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+3, UEND+5, UEND+15
LEXL17C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+3, UEND+5, UEND+13
LEXL30C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+5, UEND+10
LEXL31C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+5, UEND+11
LEXL56C UPD+4~, UPD+5*, SEL+5~, SEL+6*, UEND+3, UEND+5, UEND+12
LEXLEXC UEND+3~*, UEND+5*, UEND+6, UEND+7, UEND+20, UEND+29, UEND+30, UEND+31
LEXNAM EN+1~, EN+3*, EN+6, EN2+8~, EN2+11*, EN2+16
LEXNM ENV+2~*, ENV+3
LEXNUM PAR+1~, PAR+5~*, PAR+6
>> LEXQUIET UEND+1
LEXRUN EN+1~, EN+2*, EN2+8~, EN2+10*
LEXSDOC UEND+3~, UEND+17*, UEND+19, UEND+20, UEND+29, UEND+30
LEXTAB UEND+20~, UEND+21*, UEND+22*, UEND+23, UEND+24, UEND+25*, UEND+26*, UEND+27, UEND+28
LEXTBEG UPD+3~, UPD+9~, SEL+4~, KEY+1~
LEXTCHK UPD+9~*
LEXTD UPD+3~, UPD+7*, SEL+4~, SEL+8*, KEY+3
LEXTELP UPD+3~, UPD+9~, SEL+4~, KEY+1~
LEXTEND UPD+3~, UPD+9~, SEL+4~, KEY+1~
LEXTEST EN+2, EN+4, EN+5, EN+7!, EN2+10, EN2+12, EN2+15, EN2+17!, UPD+6, SEL+7
LEXTKEY SEL+12~*, SEL+13
LEXTKN PAR+1~, PAR+4*, PAR+5, PAR+6, PAR+7
LEXTMP UPD+3~, SEL+4~
LEXTT UEND+2~*
LEXTTT UEND+3~, UEND+29*, UEND+31
LEXTXT PAR+1~*, PAR+2, PAR+3, PAR+4
POP ENV+1!
U ENV+1*
X EN+1~, EN2+8~, INC~, INC+1, ABT~, BK~, PAR~, PAR+1, MON~, MON+1
, ENV~
Y EN+1~, EN2+8~
ZT EN+1~, EN2+8~
ZTDESC EN+1~, EN+3*, EN2+8~, EN2+11*
ZTDTH EN+1~, EN+5*, EN2+8~, EN2+15*
ZTIO EN+1~, EN+5*, EN2+8~, EN2+15*
ZTKEY EN+1~, EN2+8~
ZTQUEUED EN+1~, EN2+8~, UPD+1, SEL+1, UEND+1
ZTREQ EN+1~, EN2+8~, UPD+1*, SEL+1*
ZTRTN EN+1~, EN+3*, EN+5, EN2+8~, EN2+11*, EN2+15
ZTSAVE EN+1~, EN2+8~
ZTSAVE("LEXAFT" EN+4*, EN2+14*
ZTSAVE("LEXCOM" EN+4*!, EN2+12*!
ZTSAVE("LEXKEY" EN2+13*
ZTSAVE("LEXKEY(" EN2+13*
ZTSK EN+1~, EN+6, EN2+8~, EN2+16
ZTUCI EN+1~, EN2+8~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All