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

Package: Automated Information Collection System

Routine: IBDFUTL


Information

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

Source Information

Source file <IBDFUTL.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  $$GET1^DIQ  ^DIR  
Automated Information Collection System 3 $$GETIDX^IBDFN4  ($$ACTPRMT,$$CODELIST,$$IMPDATE)^IBDUTICD  EN1^IBDVAUT1  
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  DISP^XQORM1  
List Manager 3 EN^VALM  FULL^VALM1  KILL^VALM10  
Registration 1 (DIVISION,FIRST)^VAUTOMA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Automated Information Collection System 6 IBDF UTIL MAINTENANCE UTILITY  IBDF UTIL PRIMARY SCREEN  IBDFFV  IBDFUTL1  IBDFUTL2  IBDFUTL3  
Integrated Billing 2 IBDF UTIL MAINTENANCE UTILITY  IBDF UTIL PRIMARY SCREEN  

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

External References

Name Field # of Occurrence
^%ZTLOAD OUT1+78
^DIC OUT1+4
YN^DICN ICD10+35, ICD10+37, SELECT+32
$$GET1^DIQ EN+9
^DIR EN+15, EN+16, OUT+4, OUT1+16, OUT1+34, OUT1+77, ICD10+12, SELECT+9, SELECT+19, OKPROMPT+14
$$GETIDX^IBDFN4 WCSEARCH+11
$$ACTPRMT^IBDUTICD OUT1+35
$$CODELIST^IBDUTICD ICD10+19
$$IMPDATE^IBDUTICD OUT1+31, OUT1+59
EN1^IBDVAUT1 OUT1+61
EN^VALM EN+15, OUT2+3
FULL^VALM1 INIT
KILL^VALM10 INIT+2
DIVISION^VAUTOMA DIV
FIRST^VAUTOMA OUT1+66, CLINFORMGROUP
$$FMADD^XLFDT OUT1+24, OUT1+25, OUT1+26, OUT1+27, INIT+8
$$FMTE^XLFDT EN+9
DISP^XQORM1 HLP+1

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
Routine Call
  • DIC
  • Line Location:
    • OUT1+4
Routine Call
  • DIR
  • Line Location:
    • EN+15
    • EN+16
    • OUT+4
    • OUT1+16
    • OUT1+34
    • OUT1+77
    • ICD10+12
    • SELECT+9
    • SELECT+19
    • OKPROMPT+14
Routine Call
  • VALM
  • Line Location:
    • EN+15
    • OUT2+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.6 - [#357.6] EN+6, OUT1+8, OUT1+31, OUT1+47, OUT1+50, OUT1+54, GETCODSY+1
^TMP("CLN" KILL+3!, KILL+5!, EXIT+1!
^TMP("CLN1" KILL+3!, KILL+5!
^TMP("FRM" KILL+4!, KILL+5!
^TMP("FRM1" KILL+4!, KILL+5!
^TMP("GRP" KILL+3!
^TMP("GRP1" KILL+3!, KILL+4!
^TMP("IBDCPT1" INIT+5!, INIT+6*, INIT+7!
^TMP("IBDF" EXIT1+2!
^TMP("IBDFUTL_SELECTED" EXIT1+3!, ICD10+43!, WCSEARCH+19*, SELECT+37
^TMP("IBDFUTL_TEMP" EXIT1+3!, ICD10+14, ICD10+42, WCSEARCH+15*, SELECT+10, SELECT+11, SELECT+41*
^TMP("IBDFUTL_WCSEARCH" EXIT1+3!, ICD10+17!, WCSEARCH+6, WCSEARCH+7, WCSEARCH+8, SELECT+4
^TMP("UTIL" EXIT1+2!
^XTMP("CPTIDX" OUT1+23!, OUT1+25*, NUL+1*
^XTMP("IBDCPT" OUT1+23!, OUT1+26*, INIT+3, INIT+4, INIT+5, INIT+6, INIT+7!*, INIT+8*, NUL+1*
^XTMP("IBDF" OUT1+23!, OUT1+27*, SETIBDF+2
^XTMP("IBDRPT" EN+3, EN+4, EN+5, EN+6, EN+7, EN+13, EN+15, OUT1+23!, OUT1+24*, OUT1+28*
OUT1+76, OUT2+1, EXIT1+4, SETSRT+1, SETSRT+2, SETSRT+3

Label References

Name Line Occurrences
$$GETCODSY OUT1+31, OUT1+51, OUT1+69
@( OUT+11, INIT+3
EXIT OUT+5, OUT1+20, OUT1+31, OUT1+72, OUT1+73, QUIT+2
HDR OUT2+4
ICD10 OUT1+63, ICD10+25, ICD10+26, ICD10+40, ICD10+44
INIT OUT2+2, OUT2+4, QUIT+3
KILL OUT2+4, QUIT+3
NUL INIT+4
OKPROMPT WCSEARCH+16
OUT EN+4, EN+16
QUIT OUT+6, OUT+11, OUT1+4, OUT1+21, OUT1+70
SELECT WCSEARCH+22, WCSEARCH+26
SETIBDF EN+15
SETSRT EN+15
WCSEARCH ICD10+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ICD10+2~, ICD10+31*, ICD10+35*, ICD10+36, ICD10+37!*, ICD10+38, SELECT+32*, SELECT+33
DIC OUT1+2*, OUT1+4!, OUT1+47*, OUT1+52*, OUT1+54*, OUT1+57, OUT1+63, OUT1+66, CLIN*!, FORM*
, GROUP*, EXIT1!
DIC("A" OUT1+4*
DIC("S" OUT1+3*, OUT1+47*, OUT1+54*, OUT1+60*, CLIN*
DIC(0 OUT1+2*
DILOCKTM EN+3, OUT2+1
DIR OUT+5!, OUT1+16!, OUT1+34!, ICD10+2~, ICD10+12!, SELECT+9!, SELECT+19!, OKPROMPT+1~, OKPROMPT+14!
DIR("?" ICD10+10*, SELECT+7*, SELECT+8*
DIR("??" ICD10+11*
DIR("A" EN+15*, EN+16*, OUT+4*, OUT1+15*, OUT1+34*, OUT1+77*, ICD10+8*, SELECT+6*, SELECT+18*, OKPROMPT+3*
, OKPROMPT+6*, OKPROMPT+7*, OKPROMPT+8*, OKPROMPT+9*, OKPROMPT+11*, OKPROMPT+12*, OKPROMPT+13*
DIR("B" EN+15*, OUT+1*, OUT1+12*, OUT1+77*, SELECT+19*, OKPROMPT+14*
DIR(0 EN+15*, EN+16*, OUT+3*, OUT1+14*, OUT1+34*, OUT1+77*, ICD10+9*, SELECT+9*, SELECT+19*, OKPROMPT+14*
>> DIRUT EN+16, OUT+5, OUT+6, OUT1+17, OUT1+20, OUT1+21
DIVISION EXIT1+2!
DT OUT1+24, OUT1+25, OUT1+26, OUT1+27, OUT1+31, INIT+8, ICD10+19, WCSEARCH+11
>> DTOUT ICD10+13, ICD10+36, ICD10+37, SELECT+10, SELECT+11, SELECT+23, SELECT+33, OKPROMPT+16
>> DUOUT OKPROMPT+16
DUZ OUT1+24
IBCLN EXIT1+2!
IBDAI EN+2~, EN+6*, EN+10
IBDANS ICD10+2~, ICD10+15*, ICD10+19, ICD10+33
IBDAUTO OUT1+1~, ICD10+7*, ICD10+14, ICD10+18*, ICD10+25*, ICD10+29*, ICD10+37*, ICD10+39, ICD10+42, WCSEARCH~
, WCSEARCH+13, WCSEARCH+14, WCSEARCH+25
IBDBEGN WCSEARCH+2~, WCSEARCH+4*, WCSEARCH+13*, WCSEARCH+22, WCSEARCH+23*, WCSEARCH+26, SELECT~, SELECT+9
IBDBLK EXIT1!
IBDCLN EXIT1!
IBDCLNM EXIT1!
IBDCNODE EXIT1!
IBDCNT INIT*, EXIT1!, WCSEARCH+2~, WCSEARCH+4*, WCSEARCH+12*, WCSEARCH+13, WCSEARCH+19, WCSEARCH+20, WCSEARCH+21, WCSEARCH+22
, WCSEARCH+23, WCSEARCH+26, SELECT~, SELECT+9
IBDCNT1 INIT*, EXIT1!
IBDCODE WCSEARCH+2~, WCSEARCH+8*, WCSEARCH+9, WCSEARCH+10*, WCSEARCH+11, WCSEARCH+15, WCSEARCH+16, WCSEARCH+19, WCSEARCH+20, SELECT+1~
, SELECT+39*, SELECT+41, OKPROMPT~, OKPROMPT+8, OKPROMPT+12
IBDCONTU WCSEARCH+2~, WCSEARCH+5*, WCSEARCH+6, WCSEARCH+22, WCSEARCH+25, WCSEARCH+26, SELECT~, SELECT+11*, SELECT+25*, SELECT+26
, SELECT+27*, SELECT+33*, SELECT+42*
IBDCOUNT OUT1+1~, ICD10+4*, ICD10+5, ICD10+25*, ICD10+29*, ICD10+40*, ICD10+42*
IBDDUZ EN+2~, EN+6*, EN+9
IBDF EN+2~, EN+15, EXIT1!, EXIT1+2!, SETIBDF~
IBDF( SETIBDF+2*
>> IBDF1 OUT+5, OUT+6, OUT1+20, OUT1+21, OUT1+37, OUT1+70, OUT1+72, OUT2+3, OUT2+4, QUIT+1
QUIT+2
IBDFACT EN+2~, EN+15*, OUT1+7*, OUT1+19*, OUT1+24, OUT1+31*, OUT1+42, OUT1+68, OUT1+72, OUT1+73
HDR+1, HDR+3, QUIT+1*, EXIT1+2!, NUL+1
IBDFACT1 QUIT+1, EXIT+1!
IBDFBK EXIT1!
IBDFCIFN EXIT1!
IBDFCLIN EXIT1!
IBDFCLN EXIT1+2!
IBDFCLNM EXIT1+2!
IBDFCNT1 INIT+3*, EXIT1+1!
IBDFCODE OUT1+47*, OUT1+51*, OUT1+54*, OUT1+57, OUT1+61, OUT1+63, OUT1+66, OUT1+69*, EXIT+1!, ICD10+5
IBDFDIS EN+2~, EN+6*, EN+10, EN+12, EN+15, OUT+10*, OUT+11, OUT1+24, INIT+3, QUIT+1*
KILL+2, EXIT+1!, SETSRT~, SETSRT+1, SETSRT+2, SETSRT+3
IBDFDIS1 QUIT+1, EXIT+1!
IBDFDIV EXIT1+2!
IBDFGIFN EXIT1+2!
IBDFGN EXIT1+2!
IBDFGNM EXIT1+2!
IBDFINT EN+2~, EN+6*, OUT1+1~, OUT1+5*, OUT1+8, OUT1+24, OUT1+31, OUT1+47, OUT1+50, OUT1+51
OUT1+54, OUT1+69, QUIT+1*, EXIT+1!, GETCODSY~, GETCODSY+1
IBDFINT1 QUIT+1, EXIT+1!
IBDFL OUT*, CLIN*, FORM*, GROUP*, DIV*, DIV+1*, EXIT1!
IBDFLG EXIT1!
IBDFN EXIT1!
IBDFNAME EXIT1!
IBDFNCNG OUT+11*, QUIT+3!
IBDFNM EXIT1!
IBDFNODE EXIT1!
IBDFORM1 EXIT1!
IBDFRM EXIT1!
IBDFRNM EXIT1+1!
IBDFSEL EXIT1!
IBDFSRT OUT+9*, OUT+10, EXIT1!
IBDFTMP EXIT1!
IBDFVAL EXIT1!
IBDFX EXIT1+1!
IBDFX1 EXIT1+1!
IBDFX2 EXIT1+1!
IBDFX3 EXIT1+1!
IBDFXX KILL+1~, KILL+2*, KILL+3, KILL+4, KILL+5
IBDGOBAK ICD10+2~, ICD10+6*, ICD10+38*, ICD10+40
IBDI SELECT+1~, SELECT+35*, SELECT+36, OKPROMPT+1~, OKPROMPT+4*, OKPROMPT+6, OKPROMPT+7, OKPROMPT+8, OKPROMPT+9, OKPROMPT+11
, OKPROMPT+12, OKPROMPT+13
IBDIA EN+2~, EN+7*, EN+11
IBDICD9D OUT1+58~, OUT1+59*
>> IBDIEN WCSEARCH+9*, WCSEARCH+15, WCSEARCH+19, SELECT+38*, SELECT+41
IBDIV EXIT1+2!
IBDLR EN+2~, EN+5*, EN+9
IBDN EN+2~, EN+6*, EN+12
IBDNAM EXIT1+2!
IBDNAME EXIT1+2!
IBDNDEX WCSEARCH+2~, WCSEARCH+4*, WCSEARCH+6*, WCSEARCH+8, WCSEARCH+22, WCSEARCH+26, SELECT~, SELECT+4
IBDNEXT SELECT+1~, SELECT+4*, SELECT+12, SELECT+17, SELECT+20, SELECT+28
IBDNO WCSEARCH+4*, WCSEARCH+6, WCSEARCH+16, OKPROMPT~, OKPROMPT+17*
IBDNODE SELECT+1~, SELECT+37*, SELECT+38, SELECT+39, SELECT+40
IBDNOE WCSEARCH+2~, WCSEARCH+7*, WCSEARCH+13, WCSEARCH+16
IBDONE OKPROMPT~, OKPROMPT+2*, OKPROMPT+5, OKPROMPT+10
IBDORM EXIT1+1!
IBDQUE OUT1+1~, OUT1+78*, OUT2+2
IBDQUI2 OUT1+1~, OUT1+31, OUT1+32, OUT1+35*
IBDQUIT OUT1+1~, OUT1+73, ICD10+6*, ICD10+14*, ICD10+36*, ICD10+37*, ICD10+39, ICD10+41, WCSEARCH~, WCSEARCH+4*
, WCSEARCH+6, WCSEARCH+16, WCSEARCH+22, WCSEARCH+25, WCSEARCH+26, SELECT~, SELECT+10*, SELECT+23*, OKPROMPT~, OKPROMPT+16*
IBDSEL WCSEARCH+2~, WCSEARCH+22, WCSEARCH+26, SELECT~, SELECT+3*, SELECT+25, SELECT+27, SELECT+28*, SELECT+29, SELECT+30
, SELECT+35, SELECT+36
IBDSELN SELECT+1~, SELECT+36*, SELECT+37
IBDSKIP SELECT+1~, SELECT+2*, SELECT+13*, SELECT+17
IBDST EN+2~, EN+13*
IBDSTR EN+2~, EN+8*, EN+14*
IBDTEMP SELECT+1~, SELECT+15*, SELECT+21*, SELECT+28
IBDTEMPY OUT1+1~, OUT1+63*, SELECT+1~, SELECT+14*, SELECT+27
IBDTEXT ICD10+2~, ICD10+5*, ICD10+8, SELECT+1~, SELECT+30*, SELECT+31
>> IBDTYP OUT1+28*
IBDVAL EXIT1+1!
IBDVAL1 EXIT1+1!
IBDWORD ICD10+2~, ICD10+21*, ICD10+22*, ICD10+23
IBDX OUT1+1~, INIT+1~, INIT+5*, INIT+6, WCSEARCH+2~, WCSEARCH+11*, WCSEARCH+16, WCSEARCH+19, WCSEARCH+20, SELECT+1~
, SELECT+40*, OKPROMPT~, OKPROMPT+8, OKPROMPT+12, SETIBDF+1~, SETIBDF+2*
IBDY ICD10+2~, ICD10+19*, ICD10+20, ICD10+21, ICD10+23*, ICD10+24, ICD10+25, ICD10+26, ICD10+30, ICD10+32
ICD10+33
IBI OUT1+38*, OUT1+71*, EXIT+1!
IEN EXIT1+2!
IOF WCSEARCH+13, SELECT+12, SELECT+20
>> K HELP1*
U EN+5, EN+6, EN+7, EN+15, OUT1+24, OUT1+25, OUT1+26, OUT1+27, INIT+8, ICD10+15
ICD10+21, ICD10+23, ICD10+24, ICD10+26, ICD10+32, ICD10+33, WCSEARCH+9, WCSEARCH+10, WCSEARCH+11, WCSEARCH+19
, SELECT+38, SELECT+39, SELECT+40
>> VALMBCK OUT2+2*, OUT2+4*, QUIT+3*
>> VALMBG OUT2+2*, OUT2+4*, QUIT+3*
>> VALMCNT INIT*, INIT+5*, INIT+6
VALMEVL EN+15!, OUT2+2*, OUT2+3!
>> VALMHDR(1 HDR+2*, HDR+4*
VAUTC OUT1+28, KILL+3!, KILL+5!, EXIT+1!, SETSRT+1*
VAUTF OUT1+28, KILL+4!, KILL+5!, EXIT+1!, SETSRT+3*
VAUTG OUT1+28, KILL+3!, KILL+4!, EXIT+1!, SETSRT+2*
VAUTJ EXIT+1!
VAUTJ( OUT1+38, OUT1+71*
VAUTNALL OUT1+66*, EXIT1+2!
>> VAUTNI OUT1+66*, CLIN*, FORM*, GROUP*
VAUTP OUT1+38!, OUT1+70!, EXIT+1!
VAUTP( OUT1+38*, OUT1+71
>> VAUTSTR OUT1+66*, CLIN*, FORM*, GROUP*
>> VAUTVB OUT1+63*, OUT1+66*, CLIN*, FORM*, GROUP*
>> X OUT+7*, OUT+9, OUT1+8*, OUT1+11, OUT1+18*, OUT1+19, HLP+1*
XQORS EN+15!, OUT2+3!
Y EN+15, EN+16, OUT+5, OUT+11, OUT1+4, OUT1+5, OUT1+20, OUT1+63*, OUT1+70, OUT1+72
OUT1+78, CLINFORMGROUPDIV+1, ICD10+2~, ICD10+13, ICD10+15, SELECT+5!, SELECT+12
, SELECT+13, SELECT+14, SELECT+15, SELECT+16!, SELECT+20, SELECT+21, SELECT+22*, SELECT+24, SELECT+28, OKPROMPT+17
Z HELP1, ZSET1*, EXIT1+1!
ZTDESC OUT1+1~, OUT1+78*
>> ZTIO OUT1+78*
ZTRTN OUT1+1~, OUT1+78*
ZTSAVE OUT1+1~
ZTSAVE("*" OUT1+78*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All