Routine: LRSETUP

Package	Total	Call Graph
VA Fileman	2	YN^DICN ^DIE
Lab Service	1	END^LRDPA

Package

Total

Call Graph

VA Fileman

YN^DICN ^DIE

Lab Service

END^LRDPA

Package	Total	Caller Graph
Lab Service	1	LRPOS

Package

Total

Caller Graph

Lab Service

LRPOS

Name	Field # of Occurrence
YN^DICN	POST+7, POST+8
^DIE	LRSETUP+7
END^LRDPA	POST+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">> I WILL DO SOME FILE CHECKING AND THIS MAY TAKE A LITTLE WHILE <<",!! Line Location: LRSETUP+4
Function Call: WRITE	Prompt: !!?7,"Someone else is editing the Automated Instrument file ",!!,$C(7) Line Location: LRSETUP+6
Function Call: WRITE	Prompt: !,"I have added a LSI controller #1 to the auto instrument file",!,"Please check this entry after the init is finished",!,$C(7) Line Location: LRSETUP+7
Function Call: WRITE	Prompt: !,"Not cleared for this option." Line Location: FRESH+0
Function Call: WRITE	Prompt: !!,"This procedure will purge/kill all entries in the ^LR( global" Line Location: POST+0
Function Call: WRITE	Prompt: !,"and the ^LRO( global. This should not be ran by any site already" Line Location: POST+1
Function Call: WRITE	Prompt: !,"running the Laboratory Package. It should only be used by First" Line Location: POST+2
Function Call: WRITE	Prompt: !,"Time Installation Sites. If your are not a First Time installation" Line Location: POST+3
Function Call: WRITE	Prompt: !,"DO NOT RUN this routine. If you have questions, contact your " Line Location: POST+4
Function Call: WRITE	Prompt: !,"Information Systems Center (ISC) before continuing" Line Location: POST+5
Function Call: WRITE	Prompt: !!?10,"Do you Wish to continue " Line Location: POST+6
Function Call: WRITE	Prompt: !!,"In order to continue, you must answer the next prompt by" Line Location: POST+9
Function Call: WRITE	Prompt: !,"entering 'YES' -- A simple 'Y' will not work",! Line Location: POST+10
Function Call: READ	Timeout: 100 Variable: ANS Line Location: POST+11
Function Call: WRITE	Prompt: !!,"IF YOU ARE READY ANSWER 'YES' " Line Location: POST+11
Function Call: WRITE	Prompt: !!?5,"This will take a while ",! Line Location: POST+12
Function Call: WRITE	Prompt: !!?10,"Your files have been purged to day 1 status",!! Line Location: POST+31
Routine Call	DIE Line Location: LRSETUP+7

FileNo	Call Tags
^LAB(62.4 - [#62.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BLRSITE - [#9009029]	POST+30!
^BLRSITE(0	POST+30*
^BLRTXLOG - [#9009022]	POST+29!
^BLRTXLOG(0	POST+29*
^DPT - [#2]	POST+16!
^LAB(62.3 - [#62.3]	POST+17!, POST+18!
^LAB(62.4 - [#62.4]	LRSETUP+5, LRSETUP+6, LRSETUP+8
^LAB(64.5 - [#64.5]	LRSETUP+10*
^LAC(	POST+23
^LAC("LRAC" - [#64.7]	POST+24!*
^LAC(0	POST+23*
^LR - [#63]	POST+13!
^LR("AAU"	POST+13!
^LR(0	POST+13*
^LRD(65 - [#65]	POST+14*
^LRE - [#65.5]	POST+15!
^LRE("AD"	POST+15!
^LRE("AT"	POST+15!
^LRE("B"	POST+15!
^LRE(0	POST+15*
^LRO(64.1 - [#64.1]	POST+28!*
^LRO(67.9 - [#67.9]	POST+20!*
^LRO(68 - [#68]	POST+21!, POST+24!
^LRO(68.2 - [#68.2]	LRSETUP+9, POST+25
^LRO(69 - [#69]	POST+24!*
^LRO(69.1 - [#69.1]	POST+26!*
^LRO(69.2 - [#69.2]	POST+22!, POST+27!*
^LRT(	POST+19!
^XUSEC("LRLIASON"	FRESH

Name	Line Occurrences
POST	POST+7, POST+8

Naked Globals

Name	Field # of Occurrence
^(	LRSETUP+9, POST+14!, POST+17, POST+23!, POST+25!
^("AAUA"	POST+13!
^("AC"	POST+24!
^("ACY"	POST+13!
^("ACYA"	POST+13!
^("AD"	POST+13!
^("AEM"	POST+13!
^("AEMA"	POST+13!
^("ASP"	POST+13!
^("ASPA"	POST+13!
^("AVS"	POST+24!
^("B"	POST+13!
^("C"	POST+15!
^("D"	POST+15!
^("DEV"	POST+24!
^("G"	POST+15!
^("G4"	POST+15!
^("LGOT"	POST+24!
^("LRPHSET"	POST+24!
^("MI"	POST+24!
^(0	LRSETUP+7, LRSETUP+9

Local Variables

Name	Field # of Occurrence
>> %	POST+7, POST+8
>> A	POST+14*
>> ANS	POST+11*
>> DA	LRSETUP+7*
>> DFN	POST+18*
>> DIE	LRSETUP+7*
>> DR	LRSETUP+7*
DUZ	FRESH
>> F	POST+19*
>> I	LRSETUP+9, POST+13, POST+14, POST+15, POST+16, POST+17, POST+18, POST+19, POST+21, POST+22 , POST+23, POST+25
>> J	LRSETUP+9, POST+22
>> K	LRSETUP+9*
>> LRDPF	POST+18*
U	POST+17, POST+20, POST+26, POST+27, POST+28, POST+29, POST+30
>> X	POST+14, POST+17, POST+20, POST+24, POST+26, POST+27, POST+28, POST+29, POST+30*

Customize PDF page

Package: Lab Service

Routine: LRSETUP

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
FRESH
POST

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed