Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LEXWUS

Package: Lexicon Utility

Routine: LEXWUS


Information

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

Source Information

Source file <LEXWUS.m>

Entry Points

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

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+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call