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

Package Total Call Graph
Automated Information Collection System 3 $$GETIDX^IBDFN4  ($$ACTPRMT,$$CODELIST,$$IMPDATE)^IBDUTICD  EN1^IBDVAUT1  
List Manager 3 EN^VALM  FULL^VALM1  KILL^VALM10  
VA FileMan 3 ^DIC  YN^DICN  ^DIR  
Kernel 1 DISP^XQORM1  
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: 7

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

Entry Points

Name Comments DBIA/ICR reference
OUT
OUT1 ; -- Ask for what type of package interface
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) ;

External References

Name Field # of Occurrence
^DIC OUT1+4
YN^DICN ICD10+35, ICD10+37, SELECT+32
^DIR OUT+4, OUT1+16, OUT1+28, ICD10+12, SELECT+9, SELECT+19, OKPROMPT+14
$$GETIDX^IBDFN4 WCSEARCH+11
$$ACTPRMT^IBDUTICD OUT1+29
$$CODELIST^IBDUTICD ICD10+19
$$IMPDATE^IBDUTICD OUT1+25, OUT1+53
EN1^IBDVAUT1 OUT1+55
EN^VALM OUT1+69
FULL^VALM1 INIT
KILL^VALM10 INIT+1
DIVISION^VAUTOMA DIV
FIRST^VAUTOMA OUT1+60, CLINFORMGROUP
DISP^XQORM1 HLP+1

Interaction Calls

Name Line Occurrences
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+27
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:
    • OUT+4
    • OUT1+16
    • OUT1+28
    • ICD10+12
    • SELECT+9
    • SELECT+19
    • OKPROMPT+14
Routine Call
  • VALM
  • Line Location:
    • OUT1+69

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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] OUT1+8, OUT1+25, OUT1+41, OUT1+44, OUT1+48, GETCODSY+1
^TMP("CLN" KILL+3!, KILL+5!, EXIT+1!
^TMP("CLN1" KILL+3!, KILL+5!
^TMP("CPTIDX" INIT+1!, EXIT1+2!, NUL+1*
^TMP("FRM" KILL+4!, KILL+5!
^TMP("FRM1" KILL+4!, KILL+5!
^TMP("GRP" KILL+3!
^TMP("GRP1" KILL+3!, KILL+4!
^TMP("IBDCPT" INIT+1!, INIT+3, EXIT1+2!, NUL+1*
^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!

Label References

Name Line Occurrences
$$GETCODSY OUT1+25, OUT1+45, OUT1+63
@( OUT+11, INIT+2
EXIT OUT+5, OUT1+20, OUT1+25, OUT1+66, OUT1+67, QUIT+2
HDR OUT1+70
ICD10 OUT1+57, ICD10+25, ICD10+26, ICD10+40, ICD10+44
INIT OUT1+70, QUIT+3
KILL OUT1+70, QUIT+3
NUL INIT+3
OKPROMPT WCSEARCH+16
QUIT OUT+6, OUT+11, OUT1+4, OUT1+21, OUT1+64
SELECT WCSEARCH+22, WCSEARCH+26
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+41*, OUT1+46*, OUT1+48*, OUT1+51, OUT1+57, OUT1+60, CLIN*!, FORM*
, GROUP*, EXIT1!
DIC("A" OUT1+4*
DIC("S" OUT1+3*, OUT1+41*, OUT1+48*, OUT1+54*, CLIN*
DIC(0 OUT1+2*
DIR OUT+5!, OUT1+16!, OUT1+28!, ICD10+2~, ICD10+12!, SELECT+9!, SELECT+19!, OKPROMPT+1~, OKPROMPT+14!
DIR("?" ICD10+10*, SELECT+7*, SELECT+8*
DIR("??" ICD10+11*
DIR("A" OUT+4*, OUT1+15*, OUT1+28*, ICD10+8*, SELECT+6*, SELECT+18*, OKPROMPT+3*, OKPROMPT+6*, OKPROMPT+7*, OKPROMPT+8*
, OKPROMPT+9*, OKPROMPT+11*, OKPROMPT+12*, OKPROMPT+13*
DIR("B" OUT+1*, OUT1+12*, SELECT+19*, OKPROMPT+14*
DIR(0 OUT+3*, OUT1+14*, OUT1+28*, ICD10+9*, SELECT+9*, SELECT+19*, OKPROMPT+14*
>> DIRUT OUT+5, OUT+6, OUT1+17, OUT1+20, OUT1+21
DIVISION EXIT1+2!
DT OUT1+25, ICD10+19, WCSEARCH+11
>> DTOUT ICD10+13, ICD10+36, ICD10+37, SELECT+10, SELECT+11, SELECT+23, SELECT+33, OKPROMPT+16
>> DUOUT OKPROMPT+16
IBCLN EXIT1+2!
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*
IBDF EXIT1!, EXIT1+2!
>> IBDF1 OUT+5, OUT+6, OUT1+20, OUT1+21, OUT1+31, OUT1+64, OUT1+66, OUT1+69, OUT1+70, QUIT+1
QUIT+2
IBDFACT OUT1+7*, OUT1+19*, OUT1+25*, OUT1+36, OUT1+62, OUT1+66, OUT1+67, 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+2*, EXIT1+1!
IBDFCODE OUT1+41*, OUT1+45*, OUT1+48*, OUT1+51, OUT1+55, OUT1+57, OUT1+60, OUT1+63*, EXIT+1!, ICD10+5
IBDFDIS OUT+10*, OUT+11, INIT+2, QUIT+1*, KILL+2, EXIT+1!
IBDFDIS1 QUIT+1, EXIT+1!
IBDFDIV EXIT1+2!
IBDFGIFN EXIT1+2!
IBDFGN EXIT1+2!
IBDFGNM EXIT1+2!
IBDFINT OUT1+1~, OUT1+5*, OUT1+8, OUT1+25, OUT1+41, OUT1+44, OUT1+45, OUT1+48, OUT1+63, 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
IBDICD9D OUT1+52~, OUT1+53*
>> IBDIEN WCSEARCH+9*, WCSEARCH+15, WCSEARCH+19, SELECT+38*, SELECT+41
IBDIV EXIT1+2!
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!
IBDQUI2 OUT1+1~, OUT1+25, OUT1+26, OUT1+29*
IBDQUIT OUT1+1~, OUT1+67, 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
IBDTEMP SELECT+1~, SELECT+15*, SELECT+21*, SELECT+28
IBDTEMPY OUT1+1~, OUT1+57*, SELECT+1~, SELECT+14*, SELECT+27
IBDTEXT ICD10+2~, ICD10+5*, ICD10+8, SELECT+1~, SELECT+30*, SELECT+31
IBDVAL EXIT1+1!
IBDVAL1 EXIT1+1!
IBDWORD ICD10+2~, ICD10+21*, ICD10+22*, ICD10+23
IBDX OUT1+1~, WCSEARCH+2~, WCSEARCH+11*, WCSEARCH+16, WCSEARCH+19, WCSEARCH+20, SELECT+1~, SELECT+40*, OKPROMPT~, OKPROMPT+8
, OKPROMPT+12
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+32*, OUT1+65*, EXIT+1!
IEN EXIT1+2!
IOF WCSEARCH+13, SELECT+12, SELECT+20
>> K HELP1*
U 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 OUT1+70*, QUIT+3*
>> VALMBG OUT1+70*, QUIT+3*
>> VALMCNT INIT*
VALMEVL OUT1+69!
>> VALMHDR(1 HDR+2*, HDR+4*
VAUTC KILL+3!, KILL+5!, EXIT+1!
VAUTF KILL+4!, KILL+5!, EXIT+1!
VAUTG KILL+3!, KILL+4!, EXIT+1!
VAUTJ EXIT+1!
VAUTJ( OUT1+32, OUT1+65*
VAUTNALL OUT1+60*, EXIT1+2!
>> VAUTNI OUT1+60*, CLIN*, FORM*, GROUP*
VAUTP OUT1+32!, OUT1+64!, EXIT+1!
VAUTP( OUT1+32*, OUT1+65
>> VAUTSTR OUT1+60*, CLIN*, FORM*, GROUP*
>> VAUTVB OUT1+57*, OUT1+60*, CLIN*, FORM*, GROUP*
>> X OUT+7*, OUT+9, OUT1+8*, OUT1+11, OUT1+18*, OUT1+19, HLP+1*
XQORS OUT1+69!
Y OUT+5, OUT+11, OUT1+4, OUT1+5, OUT1+20, OUT1+57*, OUT1+64, OUT1+66, CLINFORM
GROUPDIV+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!
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