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

Package: Lab Service

Routine: LRSRVR8


Information

LRSRVR8 ; DALOI/JMC - LAB DATA SERVER - Utilities ;03/22/11 15:23

Source Information

Source file <LRSRVR8.m>

Entry Points

Name Comments DBIA/ICR reference
LOAD ; Load mapping file into VistA as file server for distribution to other sites.
LOADSCT ; Load SCT mapping file into VistA and apply mapping.
; Called by option LA7S LOAD MAPPING SCT to load and apply mapping directly at the site.
TASKSCT ; Processing applying SCT mappings to local site.
SEND ; Send file to LRLABSERVER at specified site.
IMPORT(LRTYPE) ;
; Call with LRTYPE = type of data (1=LOINC, 2=SNOMED, 3=LOINC Database)
BUILD ; Load Records into file
PARSELN ; Parse record from TMP global for LOINC mapping
PARSELND ; Parse record from TMP global for LOINC Databsae loading
PARSESCT ; Parse record from TMP global for SCT mapping
FILE ; File the data in file
BLDMSG ; Build and send message for a specific site.
PURGE ; Purge related entries from file #95.4 for this site.
GETFILE ; Select the file to process
LOADFILE ; Load selected file into TMP global.
BUILDMAP ; Build map of field names related to field # in record
BUILDMLN ; Build map of field names related to field # in record for LOINC database file
TYPE(LRFUNC) ; Ask what code set
; Call with function to perform: 1-load mapping file, 2-transport mapping to site
BUILDMSG ; Build the MailMan PackMan message
INIT ; Initialize variables used by process.
CKSCTHDR ; Check the header of the file to determine if it's
; - the right type of file
; - the record format
CKLNDBHR ; Check the header of the file to determine if it's
; - the right type of file
; - the record format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Request "_$S($G(ZTSK):"queued - Task #"_ZTSK,1:"NOT queued")
  • Line Location: LOADSCT+71
Function Call: WRITE
  • Prompt: !
  • Line Location: SEND+19
Function Call: WRITE
  • Prompt: !,"Processing file data and storing in file #",LRFILE
  • Line Location: IMPORT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: BUILD+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-1)
  • Line Location: BUILD+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: BUILD+13
Function Call: WRITE
  • Prompt: !,"Records added: ",LRCNT
  • Line Location: BUILD+32
Function Call: WRITE
  • Prompt: !!,"For ",LRSITE(LRSITE)
  • Line Location: BLDMSG+10
Function Call: WRITE
  • Prompt: !,"Processing facility ",LRSITE(LRSITE),!,"Collecting records to build into mail message "
  • Line Location: BLDMSG+24
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-1)
  • Line Location: BLDMSG+31
Function Call: WRITE
  • Prompt: "."
  • Line Location: BLDMSG+31
Function Call: WRITE
  • Prompt: !,"Building records into mail message"
  • Line Location: BLDMSG+39
Function Call: WRITE
  • Prompt: !,"Number of records transported: "_LRCNT
  • Line Location: BLDMSG+50
Function Call: WRITE
  • Prompt: !,"MailMan Message ID's: "
  • Line Location: BLDMSG+51
Function Call: WRITE
  • Prompt: ?23,LRI,!
  • Line Location: BLDMSG+53
Function Call: WRITE
  • Prompt: !,"Purging related entries from file #",LRFILE
  • Line Location: PURGE+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>(IOM-1)
  • Line Location: PURGE+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: PURGE+11
Function Call: WRITE
  • Prompt: !,"Invalid directory syntax",!
  • Line Location: GETFILE+16
Function Call: WRITE
  • Prompt: !,"Using filespec ",LRFSPEC
  • Line Location: GETFILE+21
Function Call: WRITE
  • Prompt: !,"No "_$S(LRFSPEC="":"",1:LRFSPEC_" ")_"files found in directory ",PWD,!
  • Line Location: GETFILE+23
Function Call: WRITE
  • Prompt: !,"Directory: "_PWD
  • Line Location: LOADFILE+7
Function Call: WRITE
  • Prompt: !,"File.....: "_LRFILE
  • Line Location: LOADFILE+8
Function Call: WRITE
  • Prompt: !,"Loading file into TMP global"
  • Line Location: LOADFILE+9
Function Call: WRITE
  • Prompt: !!,*7,"File failed to load into TMP global",!!
  • Line Location: LOADFILE+14
Function Call: WRITE
  • Prompt: !!,*7,"Failed to move file from directory "_PWD_" to directory "_LRBACKUPDIR,!!
  • Line Location: LOADFILE+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call