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

Package: Lexicon Utility

Routine: LEXWUM


Information

LEXWUM ;ISL/KER - Lexicon Keywords - Update (Misc) ;05/23/2017

Source Information

Source file <LEXWUM.m>

Entry Points

Name Comments DBIA/ICR reference
RUN(X) ; TaskMan Running Task
RUN2(X) ; TaskMan Running Task
STOP ; Stop Task
MON ; TaskMan Monitor
ASK(X) ; Ask if Running
MOND(X,Y) ; TaskMan Monitor Display
TSKM(X) ; TaskMan
DT ; Display ^TMP
LISTI ; List Inactive Keywords
LISTA ; List Active Keywords
INA(X) ; Inactive before Today or after LEXAFT (optional)
ACT(X) ; Active before Today or after LEXAFT (optional)
OUT(X) ; Output
TM(X,Y) ; Trim Spaces
ZERO ; ^LEX(757.071,0)
PAUSE(X) ; Pause Monitor
CONT ; Continue
ENV(X) ; Environment

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?3,"ICD Diagnosis Changes ",?32,$J(LEXT,8)
  • Line Location: DT+8
Function Call: WRITE
  • Prompt: !,?5
  • Condition for execution: +LEXHDR>0
  • Line Location: DT+10
Function Call: WRITE
  • Prompt: "ICD-9 Diagnosis Changes ",?32,$J(LEXT,8)
  • Line Location: DT+10
Function Call: WRITE
  • Prompt: !,?5
  • Condition for execution: +LEXHDR>0
  • Line Location: DT+12
Function Call: WRITE
  • Prompt: "ICD-10 Diagnosis Changes ",?32,$J(LEXT,8)
  • Line Location: DT+12
Function Call: WRITE
  • Prompt: !,?3,"ICD Procedure Changes ",?32,$J(LEXT,8)
  • Line Location: DT+15
Function Call: WRITE
  • Prompt: !,?5
  • Condition for execution: +LEXHDR>0
  • Line Location: DT+17
Function Call: WRITE
  • Prompt: "ICD-9 Procedure Changes ",?32,$J(LEXT,8)
  • Line Location: DT+17
Function Call: WRITE
  • Prompt: !,?5
  • Condition for execution: +LEXHDR>0
  • Line Location: DT+19
Function Call: WRITE
  • Prompt: "ICD-10 Procedures Changes ",?32,$J(LEXT,8)
  • Line Location: DT+19
Function Call: WRITE
  • Prompt: !,LEXKEY,"~",LEXINC,"~",$S(LEXEFF?7N:$$FMTE^XLFDT(LEXEFF,"5Z"),1:""),"~",$S(LEXINA?7N:$$FMTE^XLFDT(LEXINA,"5Z"),1:""),"|"
  • Line Location: LISTI+6
Function Call: WRITE
  • Prompt: !,LEXKEY
  • Line Location: LISTI+7
Function Call: WRITE
  • Prompt: ?LEXC," ",LEXINC
  • Condition for execution: $L($G(LEXINC))
  • Line Location: LISTI+7
Function Call: WRITE
  • Prompt: !,?LEXC," Effective:",?(LEXC+12)," ",$$FMTE^XLFDT(LEXEFF,"5Z")
  • Line Location: LISTI+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTI+10
Function Call: WRITE
  • Prompt: !,LEXKEY,"~",LEXINC,"~",$S(LEXEFF?7N:$$FMTE^XLFDT(LEXEFF,"5Z"),1:""),"~",$S(LEXINA?7N:$$FMTE^XLFDT(LEXINA,"5Z"),1:""),"|"
  • Line Location: LISTA+6
Function Call: WRITE
  • Prompt: !,LEXKEY
  • Line Location: LISTA+7
Function Call: WRITE
  • Prompt: ?LEXC," ",LEXINC
  • Condition for execution: $L($G(LEXINC))
  • Line Location: LISTA+7
Function Call: WRITE
  • Prompt: !,?LEXC," Effective:",?(LEXC+12)," ",$$FMTE^XLFDT(LEXEFF,"5Z")
  • Line Location: LISTA+8
Function Call: WRITE
  • Prompt: !
  • Line Location: LISTA+10
Function Call: READ
  • Variable: LEXCONT
  • Timeout: 2
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !!,LEXPMT
  • Line Location: PAUSE+1
Function Call: READ
  • Variable: LEXCONT
  • Timeout: 660
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !,LEXPMT
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !!,?5,"Invalid/Missing DUZ"
  • Line Location: ENV+3

FileMan Files Accessed Via FileMan Db Call

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