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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: LA7VLCM7

Package: Automated Lab Instruments

Routine: LA7VLCM7


Information

LA7VLCM7 ;DALOI/JDB - LAB CODE MAPPING FILE UTILITIES ;03/07/12 15:59

Source Information

Source file <LA7VLCM7.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 7 MSG^DIALOG  ^DIC  WAIT^DICD  $$GET1^DID  (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZISC  $$TRIM^XLFSTR  
Automated Lab Instruments 1 $$QUE^LA7VLCM1  
Lab Service 1 $$GETLOCK^LRUTIL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LA7VLCM  

Entry Points

Name Comments DBIA/ICR reference
DOD6247 ;
; Prompts user for Message Configuration in #62.47 to add
; the DOD local codes to.
ADDDOD(R6248) ;
; Add DoD's local codes from DATA1 into file #62.47
; Private method for DOD6247 above
; Inputs
; R6248 : File #62.48 IEN
DATA1 ;
; Used with ADDDOD above
MAPABS ;
; Main entry point for Mapping ABS codes. Allows for queuing.
MAPABSQ(NOASK) ;
; Map Antibiotic Susceptibilities
; Private method for MAPABS above
; Goes through #62.06 and checks if LOINC code is in #62.47
; and has a RELATED ENTRY entered.
; #62.06 field #64 -> #64 field #25 -> #62.47
PF(NOTTERM,PGCNT) ;
; Page Feed
; Inputs
; NOTTERM <opt> : NOT TERMinal (dflt=1)
; : 1=do nothing if a console device
; PGCNT <byref><opt>:

External References

Name Field # of Occurrence
^%ZISC MAPABS+18
MSG^DIALOG ADDDOD+55
^DIC DOD6247+8
WAIT^DICD MAPABSQ+15
$$GET1^DID MAPABSQ+27, MAPABSQ+30
FILE^DIE MAPABSQ+96
UPDATE^DIE ADDDOD+51
$$GET1^DIQ MAPABSQ+45
^DIR MAPABS+8, MAPABSQ+84
$$QUE^LA7VLCM1 MAPABS+14
$$GETLOCK^LRUTIL MAPABSQ+88
$$TRIM^XLFSTR ADDDOD+18, ADDDOD+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Missing Concept: ",CONCPT
  • Line Location: ADDDOD+24
Function Call: WRITE
  • Prompt: !,"Skipping ",CODE," ",SYS," (already in file)"
  • Line Location: ADDDOD+39
Function Call: WRITE
  • Prompt: !,"Adding ",CODE," ",SYS
  • Line Location: ADDDOD+42
Function Call: WRITE
  • Prompt: " (okay)"
  • Line Location: ADDDOD+52
Function Call: WRITE
  • Prompt: " (error)"
  • Line Location: ADDDOD+54
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDDOD+55
Function Call: WRITE
  • Prompt: !
  • Line Location: MAPABSQ+15
Function Call: WRITE
  • Prompt: $C(7),!!,"---No NLT code in #62.06 for ",ABNAME," (",R6206,")"
  • Line Location: MAPABSQ+34
Function Call: WRITE
  • Prompt: $C(7),!!,"---No DEFAULT LOINC CODE in #64:",R64," for ",X," (#62.06:",R6206,")"
  • Line Location: MAPABSQ+42
Function Call: WRITE
  • Prompt: $C(7),!,"---LOINC ",LOINC," in #64:",R64," not a susceptibility (#62.06:",R6206,")"
  • Line Location: MAPABSQ+51
Function Call: WRITE
  • Prompt: !,"-----",LFSN
  • Line Location: MAPABSQ+53
Function Call: WRITE
  • Prompt: !!,"#62.06:",R6206," #95.3:",R953," #62.47:",R6247,",",R62471
  • Line Location: MAPABSQ+72
Function Call: WRITE
  • Prompt: !,"No RELATED ENTRY for LOINC ",LOINC
  • Line Location: MAPABSQ+74
Function Call: WRITE
  • Prompt: !," ",LFSN
  • Line Location: MAPABSQ+75
Function Call: WRITE
  • Prompt: !,X
  • Line Location: MAPABSQ+79
Function Call: WRITE
  • Prompt: !!,$C(7)," ** Could not lock the entry. **",!
  • Line Location: MAPABSQ+90
Function Call: WRITE
  • Prompt: !
  • Line Location: MAPABSQ+99
Function Call: WRITE
  • Prompt: !!," #62.06 records searched: ",CNT," of ",CNT6
  • Line Location: MAPABSQ+105
Function Call: WRITE
  • Prompt: !," Total #62.47 records searched: ",CNT1
  • Line Location: MAPABSQ+106
Function Call: WRITE
  • Prompt: !," Total NATL codes: ",CNT2
  • Line Location: MAPABSQ+107
Function Call: WRITE
  • Prompt: !," Total #62.47 codes without mapping: ",$S(CNT1>0:CNT3,1:"n/a")
  • Line Location: MAPABSQ+108
Function Call: WRITE
  • Prompt: !," Total #62.06 LOINC codes not in #62.47: ",CNT4
  • Line Location: MAPABSQ+109
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PF+11
Routine Call
  • DIALOG
  • Line Location:
    • ADDDOD+55
Routine Call
  • DIC
  • Line Location:
    • DOD6247+8
Routine Call
  • DIE
  • Line Location:
    • MAPABSQ+96
Routine Call
  • DIE
  • Line Location:
    • ADDDOD+51
Routine Call
  • DIR
  • Line Location:
    • MAPABS+8
    • MAPABSQ+84

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.3 GET1^DID
63.39 GET1^DID
^LAB(95.3 - [#95.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62.06 - [#62.06] MAPABSQ+18, MAPABSQ+22, MAPABSQ+24, MAPABSQ+31
^LAB(62.47 - [#62.47] ADDDOD+22, ADDDOD+35, MAPABSQ+62, MAPABSQ+68, MAPABSQ+87
^LAB(95.3 - [#95.3] MAPABSQ+46, MAPABSQ+48
^LAHM(62.48 - [#62.48] ADDDOD+10, ADDDOD+11
^LAM - [#64] MAPABSQ+37, MAPABSQ+40

Label References

Name Line Occurrences
ADDDOD DOD6247+11
MAPABSQ MAPABS+17, MAPABS+20
PF MAPABSQ+35, MAPABSQ+43, MAPABSQ+52, MAPABSQ+54, MAPABSQ+73, MAPABSQ+74, MAPABSQ+75, MAPABSQ+79

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABINAME MAPABSQ+9~, MAPABSQ+26*, MAPABSQ+27*, MAPABSQ+28, MAPABSQ+29*, MAPABSQ+30*, MAPABSQ+77
ABNAME MAPABSQ+9~, MAPABSQ+25*, MAPABSQ+34, MAPABSQ+76, MAPABSQ+77
CNT ADDDOD+7~, ADDDOD+15*, ADDDOD+41*, MAPABSQ+8~, MAPABSQ+14*, MAPABSQ+23*, MAPABSQ+105
CNT1 MAPABSQ+8~, MAPABSQ+14*, MAPABSQ+64*, MAPABSQ+106, MAPABSQ+108
CNT2 MAPABSQ+8~, MAPABSQ+14*, MAPABSQ+66*, MAPABSQ+107
CNT3 MAPABSQ+8~, MAPABSQ+14*, MAPABSQ+71*, MAPABSQ+108
CNT4 MAPABSQ+8~, MAPABSQ+14*, MAPABSQ+103*, MAPABSQ+109
CNT5 MAPABSQ+8~, MAPABSQ+14*, MAPABSQ+97*
CNT6 MAPABSQ+8~, MAPABSQ+14*, MAPABSQ+19*, MAPABSQ+105
CODE ADDDOD+6~, ADDDOD+25*, ADDDOD+30, ADDDOD+32, ADDDOD+39, ADDDOD+42, ADDDOD+45
CONCPT ADDDOD+7~, ADDDOD+21*, ADDDOD+22, ADDDOD+24
DATA ADDDOD+6~, ADDDOD+17*, ADDDOD+18*, ADDDOD+19*, ADDDOD+20, ADDDOD+21, ADDDOD+25, ADDDOD+26, ADDDOD+27, ADDDOD+28
, ADDDOD+35*, ADDDOD+36, MAPABSQ+7~, MAPABSQ+24*, MAPABSQ+25, MAPABSQ+26, MAPABSQ+29, MAPABSQ+31*, MAPABSQ+32, MAPABSQ+37*
, MAPABSQ+38, MAPABSQ+48*, MAPABSQ+49, MAPABSQ+62*, MAPABSQ+63, MAPABSQ+68*, MAPABSQ+69
DIC DOD6247+3~, DOD6247+5*, DOD6247+9!
DIC("A" DOD6247+6*
DIC("S" DOD6247+7*
DIC(0 DOD6247+4*
DIERR ADDDOD+6~, ADDDOD+43!, ADDDOD+52, ADDDOD+53, MAPABSQ+8~, MAPABSQ+92!
DIOUT MAPABSQ+10~
DIR MAPABS+2~, MAPABSQ+10~, MAPABSQ+80!
DIR("?" MAPABS+7*
DIR("A" MAPABS+5*, MAPABSQ+82*
DIR("B" MAPABS+6*, MAPABSQ+83*
DIR(0 MAPABS+4*, MAPABSQ+81*
DIROUT MAPABS+2~, MAPABS+9, MAPABSQ+10~, MAPABSQ+85
DIRUT MAPABS+2~, MAPABS+9, MAPABSQ+10~, MAPABSQ+85
DTOUT MAPABS+2~, MAPABS+9, MAPABSQ+10~, MAPABSQ+85
DUOUT MAPABS+2~, MAPABS+9, MAPABSQ+85
FOUND ADDDOD+7~, ADDDOD+31*, ADDDOD+32, ADDDOD+36*, ADDDOD+38, MAPABSQ+9~, MAPABSQ+57*, MAPABSQ+67*, MAPABSQ+102
I ADDDOD+6~, ADDDOD+17*
IEN ADDDOD+6~, ADDDOD+43!, ADDDOD+44*, ADDDOD+45, ADDDOD+46, ADDDOD+47, ADDDOD+48, ADDDOD+49, ADDDOD+50
IOF PF+11
IOSL PF+10
IOST MAPABSQ+15, PF+9
ISSUSC MAPABSQ+9~, MAPABSQ+49*, MAPABSQ+50
LAFDA ADDDOD+6~, ADDDOD+43!, MAPABSQ+8~, MAPABSQ+92!
LAFDA(1 ADDDOD+45*, ADDDOD+46*, ADDDOD+47*, ADDDOD+48*, ADDDOD+49*, ADDDOD+50*, MAPABSQ+95*
LAIEN MAPABSQ+8~, MAPABSQ+92!, MAPABSQ+93*, MAPABSQ+95
LALOCK MAPABSQ+9~, MAPABSQ+87*, MAPABSQ+88, MAPABSQ+98
LAMSG ADDDOD+6~, ADDDOD+43!, MAPABSQ+8~, MAPABSQ+92!
LFSN MAPABSQ+9~, MAPABSQ+46*, MAPABSQ+53, MAPABSQ+75
LOINC MAPABSQ+7~, MAPABSQ+45*, MAPABSQ+47, MAPABSQ+51, MAPABSQ+56, MAPABSQ+58, MAPABSQ+74
LSFN MAPABSQ+7~
MSGCFG ADDDOD+6~, ADDDOD+11*, ADDDOD+12*, ADDDOD+13, ADDDOD+49
NEWPG PF+6~, PF+7*, PF+13*, PF+15
NOASK MAPABS+2~, MAPABS+3*, MAPABS+10*, MAPABS+11, MAPABS+13, MAPABS+20, MAPABSQ~, MAPABSQ+11*, MAPABSQ+12*, MAPABSQ+35
, MAPABSQ+43, MAPABSQ+52, MAPABSQ+54, MAPABSQ+73, MAPABSQ+74, MAPABSQ+75, MAPABSQ+79
NODE ADDDOD+7~, ADDDOD+30*, ADDDOD+32*, ADDDOD+33, ADDDOD+34, MAPABSQ+9~, MAPABSQ+56*, MAPABSQ+58*, MAPABSQ+59, MAPABSQ+60
NOTTERM PF~, PF+8*, PF+9
OVERIDE ADDDOD+7~, ADDDOD+28*, ADDDOD+50
PGCNT PF~, PF+14*
POP MAPABS+2~
PURP ADDDOD+6~, ADDDOD+27*, ADDDOD+47
QUE MAPABS+2~, MAPABS+13, MAPABS+14*, MAPABS+15, MAPABS+16
R1 ADDDOD+7~, ADDDOD+33*, ADDDOD+35
R2 ADDDOD+7~, ADDDOD+34*, ADDDOD+35
R6206 MAPABSQ+7~, MAPABSQ+13*, MAPABSQ+18*, MAPABSQ+21*, MAPABSQ+22*, MAPABSQ+24, MAPABSQ+31, MAPABSQ+34, MAPABSQ+42, MAPABSQ+51
, MAPABSQ+72, MAPABSQ+94
R6247 ADDDOD+6~, ADDDOD+22*, ADDDOD+23, ADDDOD+44, MAPABSQ+7~, MAPABSQ+59*, MAPABSQ+61, MAPABSQ+62, MAPABSQ+68, MAPABSQ+72
, MAPABSQ+87, MAPABSQ+93
R62471 MAPABSQ+7~, MAPABSQ+60*, MAPABSQ+62, MAPABSQ+68, MAPABSQ+72, MAPABSQ+87, MAPABSQ+93
R6248 ADDDOD~, ADDDOD+8*, ADDDOD+9, ADDDOD+10, ADDDOD+11, ADDDOD+36
R64 MAPABSQ+7~, MAPABSQ+32*, MAPABSQ+33, MAPABSQ+37, MAPABSQ+40, MAPABSQ+42, MAPABSQ+51
R953 MAPABSQ+7~, MAPABSQ+38*, MAPABSQ+39, MAPABSQ+45, MAPABSQ+46, MAPABSQ+48, MAPABSQ+72
RTN MAPABS+2~, MAPABS+11*, MAPABS+14
SEP ADDDOD+6~, ADDDOD+14*, ADDDOD+21, ADDDOD+25, ADDDOD+26, ADDDOD+27, ADDDOD+28
STOP MAPABSQ+10~, MAPABSQ+16*, MAPABSQ+18, MAPABSQ+22, MAPABSQ+58, MAPABSQ+85*
SYS ADDDOD+6~, ADDDOD+26*, ADDDOD+30, ADDDOD+32, ADDDOD+39, ADDDOD+42, ADDDOD+46
X DOD6247+3~, MAPABS+2~, MAPABSQ+8~, MAPABSQ+40*, MAPABSQ+41*, MAPABSQ+42, MAPABSQ+63*, MAPABSQ+65, MAPABSQ+69*, MAPABSQ+70
, MAPABSQ+76*, MAPABSQ+77*, MAPABSQ+78*, MAPABSQ+79, MAPABSQ+82, MAPABSQ+88*, MAPABSQ+89, MAPABSQ+94*, MAPABSQ+95
Y DOD6247+3~, DOD6247+10, DOD6247+11, MAPABS+2~, MAPABS+10, MAPABSQ+8~, MAPABSQ+27*, MAPABSQ+30*, MAPABSQ+86
Y(0 MAPABSQ+27*, MAPABSQ+30*
>> ZTQUEUED MAPABSQ+12, MAPABSQ+15, MAPABSQ+110
>> ZTREQ MAPABSQ+110*

Marked Items

Name Field # of Occurrence
$T(DATA1+I ADDDOD+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All