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

Package: Lexicon Utility

Routine: LEXWUP


Information

LEXWUP ;ISL/KER - Lexicon Keywords - Update (Purge) ;05/23/2017

Source Information

Source file <LEXWUP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main Entry Point (tasked)
EN2 ; Entry Point (tasked - purge selected keyword - LEXKEY)
;
; Needs LEXKEY One Keyword
; <or>
; LEXKEY(LEXKEY1) Selected Keywords
; LEXKEY(LEXKEY2)
; LEXKEY(LEXKEYn)
;
PUR ; Purge Keywords
SEL ; Selected Keywords (For Post-Install)
ICD ; ICD Diagnosis/Procedures
LEX ; Lexicon
DEND ; Display End Totals
DEXP ; Display Expression
DINA ; Display Inactive Keyword
ABT(X) ; Abort
INA(X) ; Inactive before Today or after LEXAFT (optional)
ACT(X) ; Active before Today or after LEXAFT (optional)
DT ; Display ^TMP
STOP ; Stop Task
GO ; Remove Stop
CLR ; Clear
ENV(X) ; Environment

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,$G(LEXNAM)," tasked (#",+($G(ZTSK)),")",!
  • Line Location: EN+10
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+17
Function Call: WRITE
  • Prompt: !,?3,"Lexicon Changes ",?35,$J(LEXLEXC,8)
  • Line Location: DEND+7
Function Call: WRITE
  • Prompt: !,?5,"ICD-9 Diagnosis Changes ",?35,$J(LEXL01C,8)
  • Line Location: DEND+8
Function Call: WRITE
  • Prompt: !,?5,"ICD-9 Procedure Changes ",?35,$J(LEXL02C,8)
  • Line Location: DEND+9
Function Call: WRITE
  • Prompt: !,?5,"ICD-10 Diagnosis Changes ",?35,$J(LEXL30C,8)
  • Line Location: DEND+10
Function Call: WRITE
  • Prompt: !,?5,"ICD-10 Procedure Changes ",?35,$J(LEXL31C,8)
  • Line Location: DEND+11
Function Call: WRITE
  • Prompt: !,?5,"SNOMED CT Changes ",?35,$J(LEXL56C,8)
  • Line Location: DEND+12
Function Call: WRITE
  • Prompt: !,?5,"TITLE 38 Changes ",?35,$J(LEXL17C,8)
  • Line Location: DEND+13
Function Call: WRITE
  • Prompt: !,?5,"CPT-4 Procedure Changes ",?35,$J(LEXL03C,8)
  • Line Location: DEND+14
Function Call: WRITE
  • Prompt: !,?5,"HCPCS Procedure Changes ",?35,$J(LEXL04C,8)
  • Line Location: DEND+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: +($G(LEXLEXC))>0
  • Line Location: DEND+20
Function Call: WRITE
  • Prompt: !,?3,"ICD* File Changes",?35,$J(LEXSDOC,8)
  • Line Location: DEND+20
Function Call: WRITE
  • Prompt: !,?5,LEXTAB,"ICD-9 Diagnosis Changes ",?35,$J(LEXI01C,8)
  • Line Location: DEND+23
Function Call: WRITE
  • Prompt: !,?5,LEXTAB,"ICD-10 Diagnosis Changes ",?35,$J(LEXI30C,8)
  • Line Location: DEND+24
Function Call: WRITE
  • Prompt: !,?5,LEXTAB,"ICD-9 Procedure Changes ",?35,$J(LEXI02C,8)
  • Line Location: DEND+27
Function Call: WRITE
  • Prompt: !,?5,LEXTAB,"ICD-10 Procedure Changes ",?35,$J(LEXI31C,8)
  • Line Location: DEND+28
Function Call: WRITE
  • Prompt: !,?3,"Total Changes ",?35,$J(LEXTTT,8)
  • Line Location: DEND+31
Function Call: WRITE
  • Prompt: !
  • Line Location: DEND+32
Function Call: WRITE
  • Prompt: !,?3,"Start: ",?14,$TR($$FMTE^XLFDT(LEXBEG,"5Z"),"@"," ")
  • Line Location: DEND+32
Function Call: WRITE
  • Prompt: !,?3,"Finish: ",?14,$TR($$FMTE^XLFDT(LEXEND,"5Z"),"@"," ")
  • Line Location: DEND+33
Function Call: WRITE
  • Prompt: !,?3,"Elapsed: ",?14,$TR(LEXELP," ","0"),!
  • Line Location: DEND+34
Function Call: WRITE
  • Prompt: !,"Expression: ",LEXEXP,!,"Include/Keyword: ",LEXINC,"/",LEXKEY
  • Line Location: DEXP+3
Function Call: WRITE
  • Prompt: !,"IEN: ",LEXRT,LEXOIEN,","
  • Line Location: DEXP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEXP+5
Function Call: WRITE
  • Prompt: !,"Keyword: ",LEXKEY,!,"Effective: ",$$FMTE^XLFDT(LEXEFF,"5Z"),!,"Inactive: ",$$FMTE^XLFDT(LEXINA,"5Z"),!
  • Line Location: DINA+2
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