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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BLSMAP

Package: IHS Lab LOINC Surveillance

Routine: BLSMAP


Information

BLSMAP ; IHS/CMI/LAB - MASTER LOINC MAPPER ; [ JUL 20, 2010 2:00 PM ]

Source Information

Source file <BLSMAP.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 2 ^DIE  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
TRIMTSPC(X) ;
CONT ;
EOJ ;
UCASE(X) ;
ELOG ; Log error - tests that don't map
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
PRINT ;EP
LOC() ;EP - Return location name from file 4 based on DUZ(2).
TRIMTC(X) ;
TRIMLSPC(X) ;
TRIMALL(X) ;
EN ;EP
ZIS ;
UPDATE ;
HEADER
TRIMN(X) ;
ILOG ; Inactive tests - don't map
CLEAN(X) ;
TRIMLS(X) ;
HEAD1 ;
LIST ;
EXIT ;
CTR(X,Y) ;EP - Center X in a field Y wide.
PROC ;

External References

Name Field # of Occurrence
^DIE UPDATE+8, UPDATE+9
^DIR LIST+2, CONT+2, HEADER+1, EOP+5
^XBDBQUE ZIS+2
^XBFMK EXIT+2, UPDATE+4
EN^XBVK EXIT+1
$$FMADD^XLFDT PROC+4
$$FMTE^XLFDT HEAD1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"UCUM CONVERSION MUST BE DONE FIRST!"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,$$CTR($$LOC)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,$$CTR("AUTO-MAP LOINC CODES INTO THE LABORATORY TEST FILE")
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"This option is used to automatically map LOINC Codes from the IHS Master",!,"LOINC table to your Laboratory test file (file 60)."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"The test must match the master by Test name, Site/Specimen and Units. If a ",!,"match is found in the master file, that loinc code is added to your test",!,"in the Laboratory test file"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !,"Mapping loinc code ",BLSLOI," - ",$G(^LAB(95.3,BLSLOI,80))," to lab test ",BLSUNAME
  • Line Location: UPDATE+5
Function Call: WRITE
  • Prompt: !!,"No Lab Tests were assigned LOINC Codes"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Total number of tests assigned LOINC codes: ",BLSCNT,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?20,$$LOC,?72,"Page ",BLSPG,!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,$$CTR("LOINC CODES ASSIGNED WITH AUTO MAPPER",80)
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,$$CTR("DATE: "_$$FMTE^XLFDT(DT),80)
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-"),!
  • Line Location: HEAD1+6
Routine Call
  • DIE
  • Line Location:
    • UPDATE+8
    • UPDATE+9
Routine Call
  • DIR
  • Line Location:
    • LIST+2
    • CONT+2
    • HEADER+1
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLSLMAST - [#90220] UPDATE+2, PRINT+12
^BLSLMAST("AA" PROC+24, PROC+28, PROC+37, PROC+41, PROC+43, PROC+44, UPDATE+1
^BLSLMAST("C" PRINT+12
^DIC(4 - [#4] LOC+1
^LAB(60 - [#60] PROC+10, PROC+12, PROC+13, PROC+20, PROC+21, PROC+31, PROC+33, PROC+34, PROC+35, PRINT+8
, PRINT+9, PRINT+11
^LAB(61 - [#61] PROC+34, PRINT+11
^LAB(95.3 - [#95.3] UPDATE+5, PRINT+9, PRINT+14
^VA(200 - [#200] USR+1
^XTMP("BLRUCUM" EN+2
^XTMP("BLSLIST" PROC+4*, PROC+5!, UPDATE+14*, PRINT+2, PRINT+4, PRINT+5, EOJ+1!
^XTMP("BLSMAP" PROC+1!, ILOG+1*, ILOG+2*, ELOG+1*, ELOG+2*

Label References

Name Line Occurrences
$$CLEAN PROC+34
$$CTR EN+7, EN+8, HEAD1+4, HEAD1+5
$$LOC EN+7, HEAD1+3
$$TRIMALL CLEAN+1
$$TRIMLSPC TRIMALL+1
$$TRIMN PROC+18, PROC+26, PROC+39
$$TRIMTSPC TRIMALL+1
$$UCASE CLEAN+1
ELOG PROC+45
EOJ PRINT+2
EOP EOJ+3
EXIT LIST+3, CONT+3, CONT+4, ZIS+3
HEAD1 HEADER
HEADER PRINT+1, PRINT+6
ILOG PROC+15
UPDATE PROC+24, PROC+28, PROC+37, PROC+41, PROC+44

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLSCNT PROC+2*, UPDATE+12*, PRINT+3
BLSH PROC+3*, PROC+5, UPDATE+14, PRINT+2, PRINT+4, PRINT+5, EOJ+1, EOJ+2!
>> BLSIEN PROC+10*, PROC+12, PROC+13, PROC+20, PROC+21, PROC+31, PROC+33, PROC+34, PROC+35, UPDATE+8
, UPDATE+9, UPDATE+14, ILOG+1, ELOG+1, PRINT+4*, PRINT+5, PRINT+8, PRINT+9, PRINT+11
BLSJ PROC+3*, PROC+5, UPDATE+14, PRINT+2, PRINT+4, PRINT+5, EOJ+1, EOJ+2!
>> BLSL UPDATE+1*, UPDATE+2, PRINT+9*, PRINT+12, PRINT+13, PRINT+14
>> BLSLIST LIST+1*, LIST+4*, UPDATE+13
>> BLSLNC PRINT+9*, PRINT+11
>> BLSLOI UPDATE+2*, UPDATE+3, UPDATE+5
>> BLSNAME PROC+12*, PROC+15, PROC+16*, PROC+17*, PROC+18
>> BLSPG PRINT+1*, HEADER, HEAD1+1*, HEAD1+3
>> BLSQUIT PROC+2*, PRINT+1*, PRINT+4, PRINT+5, PRINT+6, HEADER+1*
>> BLSSS PROC+22*, PROC+24, PROC+28, PROC+34*, PROC+37, PROC+41, PROC+43, PROC+44, UPDATE+1, ELOG+1
>> BLSSSIEN PROC+31*, PROC+33, PROC+34, PROC+35, UPDATE+8, UPDATE+14, ELOG+1, PRINT+5*, PRINT+8, PRINT+9
, PRINT+11
>> BLSTYP PROC+13*
>> BLSUNAME PROC+18*, PROC+24, PROC+26*, PROC+27, PROC+28, PROC+37, PROC+39*, PROC+40, PROC+41, PROC+43
, PROC+44, UPDATE+1, UPDATE+5, ELOG+1
>> BLSUNITS PROC+22*, PROC+24, PROC+28, PROC+35*, PROC+37, PROC+41, PROC+43*, PROC+44, UPDATE+1, ELOG+1
, PRINT+8*, PRINT+11
>> BLSUP PROC+24*, PROC+28*, PROC+37*, PROC+41*, PROC+44*, UPDATE+8, UPDATE+9
DA LIST+2!, CONT+2!, UPDATE+8*, UPDATE+9*
DA(1 UPDATE+8*
DFOUT EOP+4!
DIADD UPDATE+4!
>> DIE UPDATE+8*, UPDATE+9*
DIR LIST+2!, CONT+2!, HEADER+1!, EOP+3~
DIR("A" LIST+2*, CONT+2*
DIR("B" LIST+2*, CONT+2*
DIR(0 LIST+2*, CONT+2*, HEADER+1*, EOP+5*
DIRUT LIST+3, CONT+3, EOP+4!
DLAYGO UPDATE+4!
DLOUT EOP+4!
>> DR UPDATE+8*, UPDATE+9*
DT PROC+4, HEAD1+5
DTOUT HEADER+1, EOP+4!
DUOUT EOP+4!
DUZ USR+1
DUZ(2 LOC+1
IO HEADER+1
IO("S" EOP+2
IO(0 HEADER+1
IOF EN+6, HEAD1+1
IOM CTR+1
IOSL PRINT+6
IOST HEADER+1, EOP+1
>> IOT EOP+2
>> OK PROC+11*, PROC+21*, PROC+24*, PROC+28*, PROC+33*, PROC+37*, PROC+41*, PROC+44*, PROC+45
>> REC PRINT+12*
U PROC+12, PROC+13, PROC+21, PROC+33, PROC+34, PROC+35, UPDATE+2, ELOG+1, PRINT+8, PRINT+9
, PRINT+11, PRINT+14, USR+1, LOC+1
X CTR~, CTR+1, TRIMLSPC~, TRIMLSPC+1*, TRIMLSPC+2, TRIMTSPC~, TRIMTSPC+1*, TRIMTSPC+2, TRIMLS~, TRIMLS+1*
, TRIMLS+2, TRIMTC~, TRIMTC+1*, TRIMTC+2, TRIMN~, TRIMN+1*, TRIMN+2, TRIMALL~, TRIMALL+1, UCASE~
, UCASE+1, CLEAN~, CLEAN+1
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y LIST+4, CONT+4, UPDATE+11, CTR~, CTR+1, HEADER+1
>> ZTQUEUED PROC+6, EOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All