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

Package: Automated Lab Instruments

Routine: LA7VLCM2


Information

LA7VLCM2 ;DALOI/JDB - LAB CODE MAPPING FILE UTILITIES ;03/07/12 10:45

Source Information

Source file <LA7VLCM2.m>

Entry Points

Name Comments DBIA/ICR reference
E1 ;
; Print #62.47 entries based on Msg Config and Concept
P1(R6248) ;
; Print codes based on Message Config (R6248)
P1A(R6248) ;
; Helper method for P1
; Creates then steps through its ^TMP global and then
; calls the display method
P1DISP ;
; Utility display function for P1 (above)
; now go thru sorted codes for display
; ^TMP("LA7VLCM2-P1",$J,R6247,MSGCFG,R6248,CODE,CODSET,R624701)=""
E2 ;
; Print #62.47 entries with bad IDENTIFIER/CODE SYSTEM mappings
P2(QUE) ;
; Print entries with bad IDENTIFIER/CODE SYS mappings
; Inputs
; QUE 1=was queued

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No entries to display."
  • Line Location: E1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: P1DISP+15
Function Call: WRITE
  • Prompt: !,"CONCEPT:",$$GET1^DIQ(62.47,R6247_",",".01","E","","")
  • Line Location: P1DISP+17
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(62.47,R6247_",",".02","I","",""),")"
  • Line Location: P1DISP+18
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("",IOM-$X," ")
  • Line Location: P1DISP+19
Function Call: WRITE
  • Prompt: !
  • Line Location: P2+40
Function Call: WRITE
  • Prompt: !,"CONCEPT:",$$GET1^DIQ(62.47,R6247_",",".01","E","","")
  • Line Location: P2+47
Function Call: WRITE
  • Prompt: " (",$$GET1^DIQ(62.47,R6247_",",".02","I","",""),")"
  • Line Location: P2+48
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("",IOM-$X," ")
  • Line Location: P2+49
Function Call: WRITE
  • Prompt: !!," No exceptions found."
  • Line Location: P2+52

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.47 - [#62.47] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call