Routine: IBDFUTL

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

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

Entry Points

Name	Comments	DBIA/ICR reference
EN	;IBD3.070 - 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)	;IBD3.070 - Set VA variables
SETIBDF(IBDF)	;Set up IBDF array from ^XTMP("IBDF") global, IBD3.070

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, CLIN, FORM, GROUP
$$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, CLIN, FORM, GROUP, DIV+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*

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFUTL

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: