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

Package: IHS Lab LOINC Surveillance

Routine: BLSULLF


Information

BLSULLF ; IHS/CMI/LAB - ADD NEW LOINC CODES FROM REGENSTIEF ; [ 12/19/2002 7:08 AM ]

Source Information

Source file <BLSULLF.m>

Call Graph

Call Graph Total: 9

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All