Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call