Routine: LRSRVR8

Package	Total	Call Graph
Kernel	8	^%ZISC ($$DEFDIR,$$FTG,$$LIST,$$MV,$$PWD)^%ZISH ^%ZTLOAD $$HTFM^XLFDT ($$TRIM,$$UP)^XLFSTR SETUP^XQALERT ($$IEN,$$NAME,$$WHAT)^XUAF4 $$HANDLE^XUSRB4
VA FileMan	7	EN^DDIOL ^DIC WAIT^DICD UPDATE^DIE ^DIK $$VFILE^DILFD ^DIR
Lab Service	2	TASKMAP^LRSRVR5 $$SELECT^LRUTIL
MailMan	2	ENT^XMPG $$GOTLOCAL^XMXAPIG
Toolkit	1	($$GET,EN)^XPAR

Package	Total	Caller Graph
Automated Lab Instruments	1	LA7S LOAD MAPPING SCT
Lab Service	1	LRSRVR9B

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

Name	Field # of Occurrence
^%ZISC	LOADSCT+70
$$DEFDIR^%ZISH	GETFILE+15
$$FTG^%ZISH	LOADFILE+12
$$LIST^%ZISH	GETFILE+22
$$MV^%ZISH	LOADFILE+24
$$PWD^%ZISH	GETFILE+6
^%ZTLOAD	LOADSCT+70
EN^DDIOL	IMPORT+10, FILE+21, BLDMSG+16, BLDMSG+37, BUILDMSG+21
^DIC	BLDMSG+12
WAIT^DICD	IMPORT+13, BLDMSG+23, PURGE+6, LOADFILE+10
UPDATE^DIE	FILE+15
^DIK	PURGE+10
$$VFILE^DILFD	IMPORT+9
^DIR	LOADSCT+11, LOADSCT+22, LOADSCT+41, LOADSCT+46, LOADSCT+62, SEND+14, SEND+25, SEND+31, GETFILE+13, GETFILE+30 , TYPE+9
TASKMAP^LRSRVR5	TASKSCT+3
$$SELECT^LRUTIL	SEND+8
$$HTFM^XLFDT	BUILD+8
$$TRIM^XLFSTR	CKLNDBHR+11
$$UP^XLFSTR	CKSCTHDR+11, CKSCTHDR+14, CKSCTHDR+17, CKLNDBHR+14
ENT^XMPG	BUILDMSG+12
$$GOTLOCAL^XMXAPIG	LOADSCT+51, INIT+6
$$GET^XPAR	SEND+18, BLDMSG+26, GETFILE+7, GETFILE+20, LOADFILE+22
EN^XPAR	GETFILE+18
SETUP^XQALERT	LOADSCT+56, LOADFILE+18, LOADFILE+30
$$IEN^XUAF4	PARSESCT+7
$$NAME^XUAF4	SEND+40
$$WHAT^XUAF4	BLDMSG+7
$$HANDLE^XUSRB4	BLDMSG+45

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
Routine Call	DIC Line Location: BLDMSG+12
Routine Call	DIE Line Location: FILE+15
Routine Call	DIR Line Location: LOADSCT+11 LOADSCT+22 LOADSCT+41 LOADSCT+46 LOADSCT+62 SEND+14 SEND+25 SEND+31 GETFILE+13 GETFILE+30 TYPE+9

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(	SEND+39, FILE+27, FILE+28, FILE+29*, BLDMSG+28, BLDMSG+29, BLDMSG+33, PURGE+9
^LAHM(95.4 - [#95.4]	LOADSCT+8, LOADSCT+16, LOADSCT+38, FILE+7, FILE+32
^TMP("XMP"	BUILDMSG+6!, BUILDMSG+7*
^TMP($J	LOAD+3!, LOAD+16, LOADSCT+4!, LOADSCT+33, IMPORT+16!, BUILD+12, BUILD+15, BUILD+26, BLDMSG+18!, BLDMSG+33* , BLDMSG+34, BLDMSG+36, BLDMSG+41, BLDMSG+42!, BLDMSG+43, BLDMSG+46*, BLDMSG+55!, GETFILE+5!, LOADFILE+12

Name	Line Occurrences
BLDMSG	SEND+41, SEND+45
BUILD	IMPORT+14
BUILDMAP	BUILD+23
BUILDMLN	BUILD+29
BUILDMSG	BLDMSG+47
CKLNDBHR	BUILD+28
CKSCTHDR	BUILD+22
FILE	BUILD+19, BUILD+24, BUILD+30
GETFILE	LOAD+9, LOADSCT+29
IMPORT	LOAD+16, LOADSCT+35
LOADFILE	LOAD+13, LOADSCT+32
PARSELN	BUILD+19
PARSELND	BUILD+30
PARSESCT	BUILD+24
PURGE	BLDMSG+57
TASKSCT	LOADSCT+74
TYPE	LOAD+5, SEND+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	PURGE+10*
DIC	SEND+1~, SEND+6!, SEND+7, SEND+8, BLDMSG+9~, BLDMSG+12, TYPE+3~
DIC("A"	BLDMSG+12*
DIC("B"	BLDMSG+11*
DIC("S"	SEND+7*
DIC(0	SEND+7, BLDMSG+12
DIK	PURGE+1~, PURGE+8*
DIR	LOADSCT+3~, LOADSCT+9!, LOADSCT+17!, LOADSCT+39!, LOADSCT+43!, LOADSCT+57!, SEND+1~, SEND+12!, SEND+20!, SEND+29! , GETFILE+1~, GETFILE+27!, TYPE+3~
DIR("?"	GETFILE+29*
DIR("A"	LOADSCT+10, LOADSCT+40, LOADSCT+45, LOADSCT+59, LOADSCT+60, LOADSCT+61, SEND+13, SEND+22, SEND+23, SEND+24 , SEND+30, GETFILE+11, GETFILE+28, TYPE+8
DIR("B"	LOADSCT+20, LOADSCT+45, SEND+13, SEND+21, SEND+30, GETFILE+11, GETFILE+28*
DIR(0	LOADSCT+10, LOADSCT+20, LOADSCT+40, LOADSCT+44, LOADSCT+58, SEND+13, SEND+21, SEND+30, GETFILE+11, GETFILE+28 , TYPE+8*
DIROUT	LOADSCT+3~, LOADSCT+9!, LOADSCT+17!, LOADSCT+39!, LOADSCT+43!, LOADSCT+57!, GETFILE+1~
DIRUT	LOADSCT+3~, LOADSCT+9!, LOADSCT+17!, LOADSCT+39!, LOADSCT+43!, LOADSCT+57!, SEND+1~, SEND+15, SEND+26, SEND+32 , GETFILE+1~, GETFILE+12, GETFILE+14, GETFILE+17, GETFILE+31, TYPE+3~, TYPE+10
DTOUT	LOADSCT+3~, LOADSCT+9!, LOADSCT+17!, LOADSCT+39!, LOADSCT+43!, LOADSCT+57!, SEND+1~, GETFILE+1~, TYPE+3~
DUOUT	LOADSCT+3~, LOADSCT+9!, LOADSCT+17!, LOADSCT+39!, LOADSCT+43!, LOADSCT+57!, SEND+1~, GETFILE+1~, TYPE+3~
DUZ	LOADFILE+17, LOADFILE+29
FILE	GETFILE+1~, GETFILE+25, GETFILE+26
FILESPEC	GETFILE+1~
FILESPEC(	GETFILE+21*
I	BUILDMAP+1~, BUILDMAP+16, BUILDMLN+1~, BUILDMLN+10, BUILDMLN+11, BUILDMLN+16
IOM	BUILD+13, BLDMSG+31, PURGE+11
LRACTION	LOADSCT+3~, LOADSCT+7, LOADSCT+23, LOADSCT+24*, LOADSCT+26, LOADSCT+28
LRASKDOM	SEND+1~, SEND+27*, BLDMSG+8
LRBACKUPDIR	LOADFILE+2~, LOADFILE+22*, LOADFILE+23, LOADFILE+24, LOADFILE+26, LOADFILE+27
LRCNT	SEND+1~, BUILD+2~, BUILD+10, BUILD+32, FILE+22, BLDMSG+25, BLDMSG+30, BLDMSG+31, BLDMSG+32, BLDMSG+50 , PURGE+1~, PURGE+8, PURGE+10, PURGE+11
LRDOMAIN	BLDMSG+2~, BLDMSG+7, BLDMSG+11, BLDMSG+13, BLDMSG+14*, BLDMSG+15, BUILDMSG+9, BUILDMSG+19
LREND	BUILD+2~, BUILD+10, BUILD+12, BUILD+18, BUILD+22, CKSCTHDR+8, CKSCTHDR+11, CKSCTHDR+14, CKSCTHDR+17, CKLNDBHR+14*
LRENDMSG	BLDMSG+2~, BLDMSG+40, BLDMSG+44, BUILDMSG+10
LRERR	FILE+2~, FILE+16
LRERR("DIERR"	FILE+20
LRFDA	FILE+2~
LRFDA(1	FILE+10, FILE+11, FILE+12, FILE+13, FILE+14*
LRFILE	LOAD+2~, LOAD+10, LOADSCT+3~, LOADSCT+30, SEND+1~, SEND+35, SEND+39, IMPORT+3~, IMPORT+8, IMPORT+9 , IMPORT+10, IMPORT+13, FILE+10, FILE+11, FILE+12, FILE+13, FILE+14, FILE+27, FILE+28, FILE+29 , BLDMSG+28, BLDMSG+29, BLDMSG+33, PURGE+5, PURGE+9, GETFILE+5!, GETFILE+9, GETFILE+32, LOADFILE+8, LOADFILE+12 , LOADFILE+15, LOADFILE+24, LOADFILE+27
LRFILE(	GETFILE+26
LRFILE(""	GETFILE+23
LRFLD	BUILD+2~, BUILD+14!
LRFLD(	PARSELND+13, PARSESCT+8, FILE+26, FILE+27, FILE+29
LRFLD(10000	PARSELND+16, PARSESCT+11
LRFLD(10001	PARSELND+17*
LRFSPEC	GETFILE+1~, GETFILE+20*, GETFILE+21, GETFILE+23
LRFUNC	TYPE~, TYPE+8
LRHDL	BLDMSG+2~, BLDMSG+46*, BUILDMSG+7
LRHELP	GETFILE+1~, GETFILE+29
LRHELP(	GETFILE+26*
LRI	SEND+1~, BUILD+2~, BUILD+10, BUILD+12, BUILD+13, BUILD+15, BUILD+17, BUILD+21, BUILD+26, PARSELND+4~ , PARSELND+6, PARSELND+7, PARSELND+13, PARSESCT+2~, PARSESCT+8, FILE+2~, FILE+25, FILE+26, FILE+27, FILE+28 , FILE+29, BLDMSG+25, BLDMSG+28, BLDMSG+29, BLDMSG+33, BLDMSG+34, BLDMSG+40, BLDMSG+41, BLDMSG+43, BLDMSG+44 , BLDMSG+46, BLDMSG+52, BLDMSG+53, PURGE+1~, PURGE+8, PURGE+9, PURGE+10, BUILDMSG+2~
LRID	BUILD+2~, PARSELND+9, PARSESCT+6, PARSESCT+7, FILE+10, FILE+19
LRIEN	FILE+2~
LRIEN(1	FILE+27, FILE+28, FILE+29
LRLAST	PARSELND+4~, PARSELND+11, PARSELND+12, PARSELND+13, BUILDMAP+1~, BUILDMAP+14, BUILDMAP+15, BUILDMAP+16, BUILDMLN+1~, BUILDMLN+14* , BUILDMLN+15*, BUILDMLN+16
LRLNDBSTART	BUILD+2~, BUILD+11, BUILD+27, BUILD+29, CKLNDBHR+14
LRLOINCVERSION	BUILD+2~, BUILD+11, PARSELND+17, CKLNDBHR+11
LRMAILGROUP	LOAD+2~, LOADSCT+3~, LOADSCT+50, LOADSCT+51, LOADSCT+53, LOADSCT+55, INIT+4, INIT+6
LRMAILGROUPXQA	LOAD+2~, LOADFILE+16, LOADFILE+28, INIT+4, INIT+6
LRMAP	IMPORT+3~, BUILDMAP+5!, BUILDMLN+5!
LRMAP(	PARSELND+13, PARSESCT+8, BUILDMAP+16, BUILDMLN+16
LRMAP(10000	PARSELND+16, PARSESCT+11, BUILDMAP+18, BUILDMLN+18
LRMAP(10001	PARSELND+17, BUILDMLN+19*
LRMAPPINGFILE	LOAD+2~, LOADSCT+3~, PARSELND+16, PARSESCT+11, GETFILE+32*
LRMAXREC	BLDMSG+2~, BLDMSG+26, BLDMSG+27, BLDMSG+32
LRMSG	BLDMSG+2~, BLDMSG+25, BLDMSG+32, BLDMSG+33, BLDMSG+34, BLDMSG+44
LRNOW	BUILD+2~, BUILD+8*, FILE+14
LRNUM	GETFILE+1~, GETFILE+25, GETFILE+26, GETFILE+28
LRNUM(	GETFILE+26*, GETFILE+32
LRNUM(0	GETFILE+28
LRPURGE	SEND+1~, SEND+16*, BLDMSG+57
LRQUIT	BUILD+2~, BUILD+10, CKSCTHDR+8, CKSCTHDR+11, CKSCTHDR+14, CKSCTHDR+17, CKLNDBHR+14
LRRECORDFORMAT	LOAD+2~, LOADSCT+3~, CKSCTHDR+8, CKSCTHDR+11, CKSCTHDR+14, CKSCTHDR+17
LRSITE	SEND+1~, SEND+6!, SEND+8, SEND+10, SEND+37, SEND+38, SEND+39, SEND+40, SEND+44, SEND+45* , BUILD+2~, PARSELND+9, PARSESCT+7, FILE+11, BLDMSG+7, BLDMSG+10, BLDMSG+24, BLDMSG+28, PURGE+9
LRSITE(	SEND+40*, SEND+45, BLDMSG+10, BLDMSG+24
LRTYPE	LOAD+2~, LOAD+6, LOAD+16, LOADSCT+3~, LOADSCT+7, LOADSCT+35, LOADSCT+55, SEND+1~, SEND+4, IMPORT~ , IMPORT+12, TYPE+10, TYPE+11*, BUILDMSG+9
LRTYPE(0	LOADSCT+7, LOADSCT+54, IMPORT+12, BUILD+11, BUILD+16, BUILD+20, BUILD+25, FILE+12, BLDMSG+29, BLDMSG+45 , TYPE+11*
LRX	BUILD+2~, BUILD+14!, BUILD+15, BUILD+18, BUILD+26, PARSELND+7, PARSELND+8, PARSELND+9, PARSELND+11, PARSELND+12 , PARSELND+13, PARSESCT+6, PARSESCT+8, BUILDMAP+14, BUILDMAP+15, BUILDMAP+16, BUILDMLN+11, BUILDMLN+12, BUILDMLN+14, BUILDMLN+15 , BUILDMLN+16, CKSCTHDR+11, CKSCTHDR+14, CKSCTHDR+17, CKLNDBHR+8*, CKLNDBHR+11, CKLNDBHR+14
LRX(	PARSELND+7, BUILDMLN+11
LRXMZ	BLDMSG+2~
LRXMZ(	BLDMSG+53, BUILDMSG+17*
LRY	FILE+2~, FILE+18!, FILE+21, BUILDMAP+1~, BUILDMAP+16, BUILDMLN+1~, BUILDMLN+16, CKSCTHDR+6~, CKSCTHDR+10, CKSCTHDR+11 , CKSCTHDR+13, CKSCTHDR+14, CKSCTHDR+16, CKSCTHDR+17, CKLNDBHR+6~, CKLNDBHR+10, CKLNDBHR+11, CKLNDBHR+13*, CKLNDBHR+14
LRY(1	FILE+19*
LRY(2	FILE+20*
MSG	BUILDMSG+2~, BUILDMSG+15*, BUILDMSG+21
MSG(1	BUILDMSG+18, BUILDMSG+20
MSG(2	BUILDMSG+19, BUILDMSG+20
PWD	LOAD+2~, LOADSCT+3~, GETFILE+6, GETFILE+8, GETFILE+11, GETFILE+12, GETFILE+15*, GETFILE+16, GETFILE+18, GETFILE+22 , GETFILE+23, LOADFILE+7, LOADFILE+12, LOADFILE+24, LOADFILE+26
X	LOADSCT+3~, SEND+1~, SEND+8, SEND+9, SEND+10, SEND+18, SEND+21, BLDMSG+9~, BLDMSG+45, BLDMSG+46 , GETFILE+1~, GETFILE+7, GETFILE+8, TYPE+3~, BUILDMSG+2~
XMDUN	BUILDMSG+2~, BUILDMSG+11*
XMDUZ	BUILDMSG+2~, BUILDMSG+11*
XMMG	BUILDMSG+2~, BUILDMSG+20
XMSUB	BUILDMSG+2~, BUILDMSG+9*
XMTEXT	BUILDMSG+2~, BUILDMSG+9, BUILDMSG+10
XMY	BUILDMSG+2~
XMY("S.LRLABSERVER@"	BUILDMSG+9*
XMZ	BUILDMSG+2~, BUILDMSG+16, BUILDMSG+17, BUILDMSG+18
XQA	LOADSCT+52~
XQA(	LOADFILE+16, LOADFILE+17, LOADFILE+28, LOADFILE+29
XQA("G."	LOADSCT+55*
XQADATA	LOADSCT+52~
XQAID	LOADSCT+52~, LOADSCT+55*
XQAMSG	LOADSCT+52~, LOADSCT+54, LOADFILE+15, LOADFILE+27*
XQAROU	LOADSCT+52~
Y	LOADSCT+3~, LOADSCT+23, LOADSCT+24, LOADSCT+47, LOADSCT+65, SEND+1~, SEND+16, SEND+27, SEND+33, BLDMSG+9~ , BLDMSG+13, BLDMSG+14, GETFILE+1~, GETFILE+15, GETFILE+22, GETFILE+32, LOADFILE+12, LOADFILE+13, LOADFILE+24*, LOADFILE+25 , TYPE+3~, TYPE+11, BUILDMSG+2~
ZTDESC	LOADSCT+66~, LOADSCT+67*
ZTDTH	LOADSCT+66~
ZTIO	LOADSCT+66~, LOADSCT+69*
>> ZTQUEUED	IMPORT+10, IMPORT+13, BUILD+7, BUILD+13, BUILD+32, FILE+17, BLDMSG+16, BLDMSG+22, BLDMSG+37, BLDMSG+39 , BLDMSG+49, PURGE+6, PURGE+11, LOADFILE+6, LOADFILE+14, LOADFILE+26
ZTRTN	LOADSCT+66~, LOADSCT+67*
ZTSAVE	LOADSCT+66~
ZTSAVE("LRMAILGROUP"	LOADSCT+68*
ZTSAVE("LRTYPE*"	LOADSCT+68*
ZTSK	LOADSCT+66~, LOADSCT+71

Customize PDF page

Package: Lab Service

Routine: LRSRVR8

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: