Routine: LAZINTEG

Information

LAZINTEG ; INTEGRITY CHECKER FOR LAB AUTOMATED INSTRUMENTS - ISC/SFO ; 17-Nov-1986 10:20 am

Source file <LAZINTEG.m>

Name	Comments	DBIA/ICR reference
LAH1	;;67539
LASET	;;99018
LAMIVTK	;;93625
LAELT	;;58662
LACL5500	;;63072
LAMLA7	;;60780
LAPX	;;87497
LAHLOG	;;81217
LAEKT7	;;81592
LASMA12	;;73102
LAPMAX	;;101819
LAEKT4	;;74937
LAIL13	;;65785
LACOLT	;;95853
LACBIO	;;77508
LAIL1312	;;94650
LACOLT24	;;70947
LAACA	;;88266
LASMA2C	;;88099
LAH6K	;;64815
LAKOAG40	;;78378
LADACOS	;;67831
LAMIV13	;;90985
LASMACA	;;130162
LAASTRA	;;66821
LAGEN	;;137873
LACLT200	;;63212
LACOLT2	;;106067
LACOLT6	;;90859
LAB1	;;99890
LACRIT	;;54447
LAH737	;;76912
LAMODH	;;94280
LADMND	;;102545
ROU	;;
LATOA	;;65895
LAIRIS	;;79385
LACLNTE	;;66695
LATDX	;;68978
EN	;Entry point to check individual routines
LASMAC4	;;83945
LAC178	;;71047
LAH480	;;70179
CC
LAABL3	;;73583
LASMA2	;;96074
LACOLT5	;;86773
LABALARM	;;42232
LACOLT3	;;85318
LASTRA	;;104470
LACOLT1	;;98073
LAH705	;;67055
LACFARA	;;72167
LACLNTEK	;;65837
LASP120	;;71282
LAKDA	;;60454
LAE4A	;;100555
LAMONARK	;;83616
LAHTRK	;;124270
LAEXEC	;;72379
LABIOH	;;104271
LAMODU	;;112975
LAS790	;;63165
LABTEST	;;142166
LABMD87P	;;73512
LABINIT	;;32279
ENTEST
LAB	;;99799
LACOAGX2	;;106205
LAMSTAT	;;70893
LARA1K	;;66336
TEST
LAELT8D	;;72963
LABIOU	;;96017
LASPEC	;;78543
LAEKT7P	;;66590

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Routine Integrity Check",!,"-----------------------",! Line Location: LAZINTEG+2
Function Call: WRITE	Prompt: ?(FLG#8*10),T Line Location: TEST+0
Function Call: WRITE	Prompt: *7,!?3,"<<",X,">> is not in your directory" Line Location: ENTEST+0
Function Call: READ	Prompt: "Routine: " Formatting: ! Timeout: $S($D(DTIME)#2:DTIME,1:120) Variable: R Line Location: EN+1
Function Call: WRITE	Prompt: !?3,"<<",R,">> is not in my routine list" Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ENTEST

Name	Field # of Occurrence
^("TEST"	ENTEST

Name	Field # of Occurrence
>> CC	CC*
DTIME	EN+1
>> FLG	LAZINTEG+3, TEST, ENTEST, ENTEST+2
>> I	LAZINTEG+3*
>> R	EN+1*, EN+2
>> T	LAZINTEG+3, TEST, ENTEST+2, EN+3, EN+4
U	LAZINTEG+3, ENTEST+2, EN+3, EN+4
>> X	LAZINTEG+3, TEST, ENTEST, ENTEST+2, EN+3*

Name	Field # of Occurrence
$T(@R	EN+2, EN+3
$T(ROU+I	LAZINTEG+3