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

Package: Automated Information Collection System

Routine: IBDFUTL


Information

IBDFUTL ;ALB/MAF - Maintenance Utility Routine ;04/20/95

Source Information

Source file <IBDFUTL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;IBD*3.0*70 - New Maintenance Utility Option Entry Point
OUT
OUT1 ; -- Ask for what type of package interface
OUT2 ;Tasked entry point
HDR ; -- header code
INIT
CLIN
FORM
GROUP
DIV
HELP1
ZSET1
QUIT ; -- Kill variables and reset to last display if no change has been taken place.
KILL ; -- Kill extra array variables
EXIT ; -- Code executed at action exit
EXIT1
HLP ; -- help code
EXP ; -- expand code
NUL ; -- NULL MESSAGE
ICD10 ; Wildcard search for ICD-10 codes
WCSEARCH(IBDAUTO,IBDQUIT) ;
SELECT(IBDBEGN,IBDCNT,IBDQUIT,IBDNDEX,IBDSEL,IBDCONTU) ;
OKPROMPT(IBDONE,IBDCODE,IBDX,IBDQUIT,IBDNO) ;
GETCODSY(IBDFINT) ;
SETSRT(IBDFDIS) ;IBD*3.0*70 - Set VA variables
SETIBDF(IBDF) ;Set up IBDF array from ^XTMP("IBDF") global, IBD*3.0*70

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Maintenance Utility is locked by another user or currently running in the background. Please try again later.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"The Maintenance Utility must be run."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: "*"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,^XTMP("IBDRPT",2,IBDST)
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: "*"
  • Line Location: EN+14
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: !!,"ICD-10 codes cannot be selected for this option before ICD-10 activation.",!
  • Line Location: OUT1+33
Function Call: WRITE
  • Prompt: !!,"Choose a number or first initial :"
  • Line Location: HELP1+0
Function Call: WRITE
  • Prompt: !?15,$P(Z,"^",K)
  • Line Location: HELP1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD10+3
Function Call: WRITE
  • Prompt: !!,"Continue to select from the (# of items in list) ICD-10 diagnoses"
  • Line Location: ICD10+37
Function Call: WRITE
  • Prompt: !
  • Line Location: WCSEARCH+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WCSEARCH+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WCSEARCH+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELECT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SELECT+20
Function Call: WRITE
  • Prompt: !,"Do you really want to select "_IBDTEXT
  • Line Location: SELECT+31
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: OKPROMPT+15
Function Call: WRITE
  • Prompt: !,"Code unselected from list."
  • Line Location: OKPROMPT+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^IBE(357 - [#357] Classic Fileman Calls
^IBE(357.6 - [#357.6] Classic Fileman Calls
^IBE(357.69 - [#357.69] Classic Fileman Calls
^IBD(357.99 - [#357.99] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
^ICD9 - [#80] Classic Fileman Calls
^ICPT - [#81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call