Routine: TIUABBV1

Package	Total	Call Graph
VA FileMan	6	FILE^DICN $$GET1^DID (,HELP)^DIE RECALL^DILFD GETS^DIQ ^DIR
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Electronic Health Modernization	1	EHM-01750
Text Integration Utility	1	TIU ABBV ENTER EDIT

Name	Comments	DBIA/ICR reference
EN	;Manage Unauthorized Abbreviations
ENTER	;
STOP	;
HD	; Header for Enter/Edit Unauthorized Abbreviation
TIUDIC	;
SEARCH(RESP,TP)	; Search for matching ABBREVIATION
S10
S20
SOUT	; OUT from SEARCH
S30
S40
ASK(RESP)	; Ask if adding a new entry
GETFLD(FILE,SEQ,FLD)	; Get field value
DICHLP	; Help for lookup
H10
H20

Name	Field # of Occurrence
FILE^DICN	TIUDIC+42, ASK+5
$$GET1^DID	TIUDIC+9
^DIE	ENTER+17, ENTER+23, ENTER+29
HELP^DIE	DICHLP+3
RECALL^DILFD	ENTER+10
GETS^DIQ	GETFLD+3
^DIR	TIUDIC+25, TIUDIC+40, ASK+4, DICHLP+7
$$UP^XLFSTR	SEARCH+4, S10+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ENTER+8
Function Call: WRITE	Prompt: !!,"The Abbreviation '"_ABBV_"' has a NATIONAL class. Therefore, it cannot be modified.",! Line Location: ENTER+13
Function Call: WRITE	Prompt: !!,"Unauthorized Abbreviation: ",ABBV Line Location: ENTER+14
Function Call: WRITE	Prompt: ! Line Location: ENTER+15
Function Call: WRITE	Prompt: *7,!!,"Other user is editing this abbreviation '",ABBV,"'. Try later.",!! Line Location: ENTER+16
Function Call: WRITE	Prompt: !!,XX,!! Line Location: ENTER+21
Function Call: WRITE	Prompt: !!," New Local '",ABBV,"' has been added. " Line Location: ENTER+24
Function Call: WRITE	Prompt: !,"Abbreviation Exact Match: "_$$GETFLD(FILE,SEQ,".03") Line Location: ENTER+25
Function Call: WRITE	Prompt: !,"Status: "_$$GETFLD(FILE,SEQ,".04") Line Location: ENTER+26
Function Call: WRITE	Prompt: !!,"Unauthorized Abbreviation: ",ABBV Line Location: ENTER+27
Function Call: WRITE	Prompt: !!,XX,!! Line Location: ENTER+32
Function Call: READ	Formatting: ! Prompt: "Enter <RETURN> to continue or '^' to exit: " Variable: J Timeout: TWAIT Line Location: STOP+2
Function Call: WRITE	Prompt: @IOF,!! Line Location: HD+6
Function Call: WRITE	Prompt: " " Line Location: HD+6
Function Call: WRITE	Prompt: H1,! Line Location: HD+7
Function Call: WRITE	Prompt: " " Line Location: HD+7
Function Call: WRITE	Prompt: H2 Line Location: HD+8
Function Call: READ	Variable: X Timeout: TWAIT Line Location: TIUDIC+2
Function Call: WRITE	Prompt: X Line Location: TIUDIC+6
Function Call: WRITE	Prompt: ! Line Location: TIUDIC+7
Function Call: WRITE	Prompt: ! Line Location: TIUDIC+14
Function Call: WRITE	Prompt: ! Line Location: TIUDIC+16
Function Call: WRITE	Prompt: !!,"No action has been taken !!",! Line Location: TIUDIC+26
Function Call: WRITE	Prompt: !!,"Nothing is selected !!",! Line Location: TIUDIC+27
Function Call: WRITE	Prompt: !!,"Nothing is selected !!",! Line Location: TIUDIC+28
Function Call: WRITE	Prompt: !!,"No action has been taken !!",! Line Location: TIUDIC+29
Function Call: WRITE	Prompt: !!,"The EXACT-MATCH for the following active abbreviation is set to """_"NO"_""""_": " Line Location: TIUDIC+33
Function Call: WRITE	Prompt: !," "_XX Line Location: TIUDIC+34
Function Call: WRITE	Prompt: !,"As a result, this abbreviation '"_RESP_"' will be flagged as unauthorized.",! Line Location: TIUDIC+35
Function Call: WRITE	Prompt: !!,"No action has been taken !!",! Line Location: TIUDIC+41
Function Call: WRITE	Prompt: !! Line Location: DICHLP+3
Function Call: WRITE	Prompt: !,HLP("DIHELP",HLP) Line Location: DICHLP+4
Function Call: WRITE	Prompt: ! Line Location: DICHLP+8
Function Call: READ	Formatting: !! Prompt: "Enter <RETURN> to continue or '^' to exit: " Variable: J Timeout: DIR("T") Line Location: H20+4
Function Call: WRITE	Prompt: !,C,")",?6,$E(XX,1,74) Line Location: H20+13
Routine Call	DIE Line Location: ENTER+17 ENTER+23 ENTER+29
Routine Call	DIE Line Location: DICHLP+3
Routine Call	DIR Line Location: TIUDIC+25 TIUDIC+40 ASK+4 DICHLP+7

FileNo	Call Tags
^TIU(8927.9 - [#8927.9]	HELP^DIE

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	EN+7
^DISV(	TIUDIC+3, TIUDIC+4
^TIU(	ENTER+16, ENTER+18, TIUDIC+6, TIUDIC+18, TIUDIC+43, TIUDIC+44, S10, S20, S20+1, S40+1 , H10, H20, H20+1
^TIU(8927.9 - [#8927.9]	S40

Name	Line Occurrences
$$ASK	TIUDIC+15
$$GETFLD	ENTER+20, ENTER+25, ENTER+26, ENTER+31, S20+10, S20+12, S20+14, H20+9, H20+10, H20+11
DICHLP	TIUDIC+8
ENTER	ENTER+7, ENTER+8, ENTER+11, ENTER+34
H10	H20
H20	H20+2, H20+14
HD	ENTER+2
S10	S10+2, S20
S20	S20+2, S20+18
S30	S30+9
S40	S30
SEARCH	TIUDIC+13
SOUT	S10
STOP	ENTER+8, ENTER+11, ENTER+33
TIUDIC	ENTER+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBV	EN+1~, ENTER+4, ENTER+9, ENTER+13, ENTER+14, ENTER+16, ENTER+19, ENTER+24, ENTER+27, ENTER+30 , SEARCH+1, SEARCH+5, S10, S10+1, S10+3, S20, S20+17, DICHLP+1, DICHLP+8, H10 , H20
ABBVU	EN+1~, SEARCH+1, S10+1, S10+2
ACT	EN+1~, ENTER+4, ENTER+12
ASK	EN+1~, TIUDIC+1, TIUDIC+15, TIUDIC+17, TIUDIC+18
C	EN+1~, TIUDIC+1, TIUDIC+12, TIUDIC+15, TIUDIC+20, TIUDIC+23, TIUDIC+24, SEARCH+1, SEARCH+3, S20+3* , S20+17, SOUT+1, S40+1, S40+2, DICHLP+1, DICHLP+8, H20+3, H20+4, H20+13
CLS	EN+1~, ENTER+4, ENTER+12, ENTER+13
DA	EN+1~, ENTER+4, ENTER+9, ENTER+10, ENTER+16, ENTER+18
DESC	EN+1~, ENTER+4, ENTER+12
DIC	EN+4~, EN+8, ENTER+3!, TIUDIC+42, ASK+1!, ASK+5*
DIC("A"	ENTER+5*, TIUDIC+2
DIC(0	TIUDIC+42, ASK+5
DIE	EN+4~, EN+8, ENTER+3!, ENTER+9
DIR	EN+4~, TIUDIC+19!, TIUDIC+36!, ASK+1!, DICHLP+1!
DIR("A"	TIUDIC+21, TIUDIC+22, TIUDIC+23, TIUDIC+24, TIUDIC+38, ASK+3, DICHLP+6*
DIR("B"	TIUDIC+39, ASK+4, DICHLP+7*
DIR("T"	TIUDIC+19, TIUDIC+36, ASK+2, DICHLP+2, H20+4
DIR(0	TIUDIC+20, TIUDIC+37, ASK+3, DICHLP+5
DIRUT	EN+4~, TIUDIC+41, ASK+4, DICHLP+7
DR	EN+1~, ENTER+4, ENTER+15, ENTER+22, ENTER+28
DTIME	EN+10
DUOUT	EN+4~, TIUDIC+26
DUZ	ENTER+10, TIUDIC+3, TIUDIC+4
EXACT	EN+1~, SEARCH+1, SEARCH+3, S10+3*
FILE	EN+1~, EN+6, EN+7, EN+8, ENTER+9, ENTER+10, ENTER+16, ENTER+18, ENTER+20, ENTER+25 , ENTER+26, ENTER+31, TIUDIC+3, TIUDIC+4, TIUDIC+6, TIUDIC+9, TIUDIC+18, TIUDIC+43, TIUDIC+44, S10 , S20, S20+1, S20+10, S20+12, S20+14, S40+1, GETFLD~, GETFLD+3, GETFLD+4, H10 , H20, H20+1, H20+9, H20+10, H20+11
FILENAME	EN+1~, EN+6, EN+7, ASK+3
FLD	EN+1~, GETFLD~, GETFLD+3, GETFLD+4
H1	EN+2~, HD+1, HD+2, HD+3, HD+5, HD+7
H2	EN+2~, HD+1, HD+3, HD+8
HLP	EN+2~, DICHLP+1, DICHLP+4
HLP("DIHELP"	DICHLP+4
I	EN+2~, HD+1, HD+3, HD+6, HD+7, TIUDIC+1, TIUDIC+23, SOUT+2, SOUT+3, S30* , S30+2, S30+8
IOF	HD+6
IOM	HD+4*, HD+5
J	EN+2~, STOP+1, STOP+2, STOP+3, SOUT+2, S30+1, S30+3, S30+4, S30+5, S30+6 , DICHLP+1, H20+4
L	EN+2~, SOUT+2, S30+1, S30+3, S30+4, S30+5, S30+6
L1	EN+2~, SEARCH+1, SEARCH+3, S20+9*, S30+3
L2	EN+2~, SEARCH+1, SEARCH+3, S20+11*, S30+4
L3	EN+2~, SEARCH+1, SEARCH+3, S20+13*, S30+5
L4	EN+2~, SEARCH+1, SEARCH+3, S20+15*, S30+6
L5	EN+2~, SEARCH+1, SEARCH+3
MCH	EN+2~, ENTER+4, ENTER+12
NEW	EN+2~, ENTER+4, ENTER+9, ENTER+11
RESP	EN+2~, TIUDIC+1, TIUDIC+12, TIUDIC+13, TIUDIC+15, TIUDIC+35, TIUDIC+38, TIUDIC+42, SEARCH~, SEARCH+4 , S10+3, S40, S40+2, ASK~, ASK+3, ASK+5
RESP1	EN+2~, SEARCH+1, SEARCH+4, S10+2
SEQ	EN+2~, ENTER+20, ENTER+25, ENTER+26, ENTER+31, TIUDIC+1, TIUDIC+18, TIUDIC+43, TIUDIC+44, SEARCH+2* , S10+4, S20, S20+1, S20+10, S20+12, S20+14, S20+17, S40+1, S40+2, GETFLD~ , GETFLD+2, DICHLP+1, H10+1, H20, H20+1, H20+9, H20+10, H20+11
STOP	EN+2~, EN+6, ENTER+1, ENTER+7, STOP+1, STOP+3, TIUDIC+31, TIUDIC+41*
TIUINP	EN+3~, TIUDIC+9*, TIUDIC+10
TP	EN+3~, ENTER+3!, TIUDIC+1*, TIUDIC+12!, TIUDIC+13, SEARCH~
TP(	TIUDIC+12, TIUDIC+23, TIUDIC+30, TIUDIC+44, S20+17, S30, S30+2, S30+8, S40+2
TP(0	TIUDIC+21, TIUDIC+27, TIUDIC+31, TIUDIC+32, SEARCH+3, S10+3, S20+7, S20+8
TPUN	EN+3~, EN+5*, S10+2
TRET	EN+3~, GETFLD+1, GETFLD+4, GETFLD+5
TSEQ	EN+3~, GETFLD+1, GETFLD+2, GETFLD+3, GETFLD+4
TWAIT	EN+3~, EN+6, EN+9, EN+10*, STOP+2, TIUDIC+2, TIUDIC+19, TIUDIC+36, ASK+2, DICHLP+2
U	EN+7, ENTER+9, ENTER+12, STOP+2, STOP+3, TIUDIC+2, TIUDIC+6, TIUDIC+18, TIUDIC+21, TIUDIC+23 , TIUDIC+30, TIUDIC+31, TIUDIC+32, TIUDIC+43, TIUDIC+44, S10+3, S20+5, S20+7, S20+8, S20+17 , S30+2, S30+8, S40+1, S40+2, H20+4, H20+6, H20+7
X	EN+3~, ENTER+4, ENTER+12, HD+1, HD+5, HD+6, HD+7, TIUDIC+1, TIUDIC+2, TIUDIC+3 , TIUDIC+6, TIUDIC+8, TIUDIC+11, TIUDIC+12, TIUDIC+27, TIUDIC+30, TIUDIC+42, ASK+5*
X1	EN+3~, SEARCH+2, S20+4, S20+5, S20+7, S20+8, S20+9, S20+17, SOUT+2, S30+1* , S30+3, S30+8, DICHLP+1, H20+5, H20+6, H20+8*, H20+12
X2	EN+3~, SEARCH+2, S20+4, S20+5, S20+10, S20+11, S20+17, SOUT+2, S30+1, S30+4* , S30+8, DICHLP+1, H20+5, H20+6, H20+9, H20+12
X3	EN+3~, SEARCH+2, S20+4, S20+5, S20+6, S20+12, S20+13, S20+17, SOUT+2, S30+1 , S30+5, S30+8, DICHLP+1, H20+5, H20+6, H20+10*, H20+12
X4	EN+3~, SEARCH+2, S20+4, S20+5, S20+6, S20+14, S20+15, S20+17, SOUT+2, S30+1 , S30+6, S30+8, DICHLP+1, H20+5, H20+7, H20+11*, H20+12
X5	EN+3~, SEARCH+2, S20+4, S20+5, S20+16, S20+17, SOUT+2, S30+1, S30+7, DICHLP+1 , H20+5, H20+7
XX	EN+3~, ENTER+4, ENTER+19, ENTER+20, ENTER+21, ENTER+30, ENTER+31, ENTER+32, TIUDIC+1, TIUDIC+32* , TIUDIC+34, SEARCH+2, S20+1, S20+2, S20+5, SOUT+2, S30+1, S30+2, S30+3, S30+4 , S30+5, S30+6, S30+7, H20+1, H20+2, H20+6, H20+7, H20+12*, H20+13
Y	EN+3~, ENTER+4, ENTER+7, ENTER+8, ENTER+9, TIUDIC+1, TIUDIC+2, TIUDIC+3, TIUDIC+4, TIUDIC+5 , TIUDIC+6, TIUDIC+8, TIUDIC+11, TIUDIC+17, TIUDIC+18, TIUDIC+26, TIUDIC+27, TIUDIC+28, TIUDIC+29, TIUDIC+41 , TIUDIC+43, TIUDIC+44*, ASK+4, ASK+6, DICHLP+7
Y(0	ENTER+12, TIUDIC+18, TIUDIC+29, TIUDIC+30, TIUDIC+43, TIUDIC+44*
ZZ	EN+3~, ENTER+3!
ZZ(	GETFLD+4

Customize PDF page

Package: Text Integration Utility

Routine: TIUABBV1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: