Routine: BLSULLF

Package	Total	Call Graph
VA Fileman	5	^DIC FILE^DICN ^DIE ^DIR ^DIWP
Kernel	3	^%ZISC ($$OPEN,$$STATUS)^%ZISH ($$LOW,$$UP)^XLFSTR
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
F40	;
DIE	;call die
F80	;
F23	;
L9531(V)	;
F21	;
F20	;
FILE	;upload global
F24	;
DIR	;
F60	;
TrimTSpc(X)	;
F22	;
F70	;
UCase(X)	;
L642(V)	;
F99	;
F50	;
TRIMLS(X)	;
TrimLSpc(X)	;
TrimAll(X)	;
F30	;
F31	;
ADD	;
F3	;
F32	;
F35	;
F36	;
F37	;
F38	;
F13	;
F10	;
F11	;
F16	;field 1.6 col b piece 2
F17	;field 1.7 col e piece 2
CU	;
F15	;
Clean(X)	;
F1	;field 1, piece 1 of piece 2
F2	;
L061(V,T)	;Lookup ien in LAB(64.061
F4	;
F5	;
F6	;
F7	;
EDIT	;edit an existing entry
READF	;read file
UPLOAD	;EP
F33	;
TRIMTC(X)	;
F34	;
PackStr(X)	;
LOOP	;

External References

Name	Field # of Occurrence
^%ZISC	READF+7
$$OPEN^%ZISH	READF+3
$$STATUS^%ZISH	READF+6
^DIC	L9531+6, L061+7, L642+4
FILE^DICN	ADD+5
^DIE	DIE+1
^DIR	DIR+2, DIR+6
^DIWP	LOOP+11
^XBFMK	ADD+3, ADD+6, ADD+9, EDIT+1, DIE+2, CU+2
$$LOW^XLFSTR	L9531+8, L9531+9
$$UP^XLFSTR	L061+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ADDING ",CODE Line Location: ADD+2
Function Call: WRITE	Prompt: !,"Adding new code failed ",V1 Line Location: ADD+6
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed COMPONENT COLUMN B-1 "_F1 Line Location: F1+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed CHALLENGE COLUMN B-2 "_F15 Line Location: F15+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed ADJUSTMENT COLUMN B-2 "_F16 Line Location: F16+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed NON-PATIENT SPECIMEN COLUMN E-2 "_F17 Line Location: F17+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed PROPERTY COLUMN C ",F2 Line Location: F2+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed TIME ASPECT COLUMN D-1 ",F3 Line Location: F3+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed TIME MODIFIER COLUMN D-2 ",F31 Line Location: F31+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed SYSTEM COLUMN E-1 ",F4 Line Location: F4+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed SCALE TYPE COLUMN F ",F5 Line Location: F5+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed METHOD TYPE COLUMN C ",F6 Line Location: F6+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed CLASS COLUMN I ",F7 Line Location: F7+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed UNITS COLUMN AB ",F10 Line Location: F10+3
Function Call: WRITE	Prompt: !,"LOINC CODE: ",CODE," failed MAP TO COLUMN T" Line Location: F21+3
Function Call: WRITE	Prompt: !,"NOT SAME ",CODE Line Location: F80+4
Function Call: WRITE	Prompt: !,"die failed with code ",CODE," dR=",DR Line Location: DIE+2
Function Call: WRITE	Prompt: !!,"Directory not entered!! Bye." Line Location: DIR+3
Function Call: WRITE	Prompt: !,"Directory=",BLSDIR," ","File=",BLSFILE," reading file into ^BLSLDATA...",! Line Location: DIR+9
Function Call: WRITE	Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",BLSDIR,BLSFILE,"'." Line Location: READF+4
Function Call: READ	Timeout: DTIME Variable: BLSDATA Line Location: READF+6
Function Call: WRITE	Prompt: !!,"All done reading file",! Line Location: READF+8
Routine Call	DIE Line Location: DIE+1
Routine Call	DIC Line Location: L9531+6 L061+7 L642+4
Routine Call	DIR Line Location: DIR+2 DIR+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(95.3 - [#95.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLSLDATA("TEMP"	UPLOAD+2, UPLOAD+3, UPLOAD+4, F1+1, F15+1, F16+1, F17+1, F2+1, F3+1, F31+1 , F4+1, F5+1, F6+1, F7+1, F10+1, F11+1, F13+1, F20+1, F21+1, F22+1 , F23+1, F30+1, F32+1, F33+1, F34+1, F35+1, F37+1, F38+1, F40+1, F50+1 , F60+1, F60+2, F80+1, F24+1, F36+1, READF+5!, LOOP+12, LOOP+17, LOOP+19*
^LAB(64.061 - [#64.061]	L061+4, L061+5, L061+6, L061+9*
^LAB(64.2 - [#64.2]	L642+3
^LAB(95.3 - [#95.3]	UPLOAD+6, F21+3, F50+6, F50+8, F50+10, F60+4, F60+6, F60+8, DIE+4, DIE+5 , F24+2, F36+2
^LAB(95.31 - [#95.31]	L9531+3, L9531+4, L9531+5, L9531+8, L9531+9
^UTILITY($J	LOOP+11!, LOOP+12, LOOP+14!

Label References

Name	Line Occurrences
$$L061	F15+3, F16+3, F17+3, F2+3, F3+3, F31+3, F4+3, F5+3, F7+3, F10+3
$$L642	F6+3
$$L9531	F1+3
$$TRIMLS	F10+1
$$TRIMTC	F80+2
$$TrimAll	F50+4, F60+3, Clean+1
$$TrimLSpc	LOOP+17, TrimAll+1
$$TrimTSpc	TrimAll+1
$$UCase	Clean+1
ADD	UPLOAD+6
CU	UPLOAD+8
DIR	DIR+7
EDIT	UPLOAD+7, ADD+10
LOOP	READF+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDS	UPLOAD+1, ADD+1
>> BLSAL	F60+1*, F60+2
>> BLSC	READF+2, LOOP+1, LOOP+12, LOOP+17, LOOP+19
>> BLSDATA	READF+6, LOOP+2, LOOP+3, LOOP+4, LOOP+5*, LOOP+6
>> BLSDIR	DIR+1, DIR+4, DIR+9, READF+3, READF+4
>> BLSDV	F60+2*, F60+3
>> BLSFILE	DIR+5, DIR+8, DIR+9, READF+3, READF+4
>> BLSIEN	UPLOAD+6, ADD+7, EDIT+2, DIE+4, DIE+5, F24+2, F36+2
>> BLSLC	LOOP+9, LOOP+12, LOOP+16, LOOP+17, LOOP+19
>> BLSQUIT	DIR+3, READF+4
>> BLSRN	F50+1*, F50+2, F50+3, F50+4
>> BLSX	UPLOAD+2, UPLOAD+3, UPLOAD+4, F1+1, F15+1, F16+1, F17+1, F2+1, F3+1, F31+1 , F4+1, F5+1, F6+1, F7+1, F10+1, F11+1, F13+1, F20+1, F21+1, F22+1 , F23+1, F30+1, F32+1, F33+1, F34+1, F35+1, F37+1, F38+1, F40+1, F50+1 , F60+1, F60+2, F80+1, F24+1, F36+1, LOOP+6, LOOP+7*, LOOP+11, LOOP+17, LOOP+19
>> BLSY	LOOP+6*, LOOP+8
>> BLSZ	LOOP+8*, LOOP+10, LOOP+12, LOOP+16, LOOP+17, LOOP+19
CODE	UPLOAD+4*, UPLOAD+5, ADD+2, F1+3, F15+3, F16+3, F17+3, F2+3, F3+3, F31+3 , F4+3, F5+3, F6+3, F7+3, F10+3, F21+3, F80+5, DIE+2, DIE+4, DIE+5 , CU+1!
DA	ADD+8!, L9531+2~, L061+3~, L642+2~, EDIT+2*, F50+6, F50+8, F50+10, F60+4, F60+6 , F60+8, DIR+2!, DIR+6!
DIADD	ADD+3!, ADD+4*, ADD+6!, ADD+8!, CU+3!
DIC	ADD+4, ADD+8!, L9531+2~, L9531+6, L061+3~, L061+7, L642+2~, L642+4
DIC("DR"	L061+7*
DIC(0	ADD+4, L9531+6, L061+7, L642+4
>> DIE	EDIT+2*
>> DINUM	ADD+4*
DIR	DIR+2!, DIR+6!
DIR("A"	DIR+2, DIR+6
DIR(0	DIR+2, DIR+6
>> DIRUT	DIR+3, DIR+7
DIWL	LOOP+11*, LOOP+12, LOOP+13!
DIWR	LOOP+11*, LOOP+13!
DLAYGO	ADD+3!, ADD+6!, ADD+8!, CU+3!
DR	ADD+8!, L9531+2~, L061+3~, L642+2~, EDIT+2, F1+4, F15+4, F16+4, F17+4, F2+4 , F3+4, F31+4, F4+4, F5+4, F6+4, F7+4, F10+4, F11+2, F13+2, F20+2 , F21+4, F22+2, F23+2, F30+2, F32+2, F33+2, F34+2, F35+2, F37+2, F38+2 , F40+2, F80+3, F80+5*, DIE+2
DTIME	READF+6
F1	F1+1*, F1+2, F1+3, CU+1!
>> F10	F10+1*, F10+2, F10+3
>> F10V	F10+3*, F10+4
>> F11	F11+1*, F11+2
>> F13	F13+1*, F13+2
>> F15	F15+1*, F15+2, F15+3
>> F15V	F15+3*, F15+4
>> F16	F16+1*, F16+2, F16+3
>> F16V	F16+3*, F16+4
>> F17	F17+1*, F17+2, F17+3
>> F17V	F17+3*, F17+4
F1V	F1+3*, F1+4, CU+1!
F2	F2+1*, F2+2, F2+3, CU+1!
>> F20	F20+1*, F20+2
>> F21	F21+1, F21+2, F21+3, F21+4
>> F22	F22+1, F22+2
>> F23	F23+1*, F23+2
>> F24	F24+1*, F24+2
F2V	F2+3*, F2+4, CU+1!
F3	F3+1*, F3+2, F3+3, CU+1!
>> F30	F30+1*, F30+2
>> F31	F31+1*, F31+2, F31+3
>> F31V	F31+3*, F31+4
>> F32	F32+1*, F32+2
>> F33	F33+1*, F33+2
>> F34	F34+1*, F34+2
>> F35	F35+1*, F35+2
>> F36	F36+1*, F36+2
>> F37	F37+1*, F37+2
>> F38	F38+1*, F38+2
F3V	F3+3*, F3+4, CU+1!
F4	F4+1*, F4+2, F4+3, CU+1!
>> F40	F40+1*, F40+2
F4V	F4+3*, F4+4, CU+1!
F5	F5+1*, F5+2, F5+3, CU+1!
F5V	F5+3*, F5+4, CU+1!
F6	F6+1*, F6+2, F6+3, CU+1!
F6V	F6+3*, F6+4, CU+1!
>> F7	F7+1*, F7+2, F7+3
>> F7V	F7+3*, F7+4
>> FULLSN	F80+1, F80+2, F80+3
>> G	F50+6, F50+7, F60+4, F60+5
I	READF+1~, READF+6*
IO	READF+6
>> L	F50+3*, F50+4
>> NEWADD	UPLOAD+6, UPLOAD+7
>> NIEN	F50+8, F50+9, F50+10, F60+6, F60+7, F60+8
T	L061~, L061+2*, L061+7
U	L061+9, F50+6, F50+10, F60+4, F60+8, DIE+4, DIE+5, F24+2, F36+2
V	L9531~, L9531+1, L9531+3, L9531+4, L9531+5, L9531+6, L9531+8, L9531+9, L061~, L061+1 , L061+4, L061+5, L061+6, L061+7, L642~, L642+1, L642+3, L642+4
V1	UPLOAD+5*, UPLOAD+6, ADD+4, ADD+6, CU+1!
V22	CU+1!
V3	CU+1!
V41	CU+1!
V42	CU+1!
X	ADD+4, L9531+6, L061+7, L642+4, F50+4, F50+5, F50+6, F50+10, F60+3, F60+4 , F60+8, READF+1~, LOOP+11, LOOP+13!, TrimLSpc~, TrimLSpc+1, TrimLSpc+2, TrimTSpc~, TrimTSpc+1, TrimTSpc+2 , TRIMLS~, TRIMLS+1, TRIMLS+2, TRIMTC~, TRIMTC+1, TRIMTC+2, TrimAll~, TrimAll+1, PackStr~, PackStr+1 , PackStr+2, UCase~, UCase+1, Clean~, Clean+1
Y	ADD+6, ADD+7, L9531+3, L9531+4, L9531+5, L9531+7, L9531+8, L9531+9, L9531+11, L061+4 , L061+5, L061+6, L061+8, L061+9, L061+11, L642+3, L642+5, L642+7, F50+6, F50+8* , F60+4, F60+6, DIE+2, DIR+4, DIR+8, READF+1~, READF+3, READF+4, LOOP+12, LOOP+17*
>> Z	F50+4, LOOP+17

Customize PDF page

Package: IHS Lab LOINC Surveillance

Routine: BLSULLF

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: