Routine: LRMISTF

Information

LRMISTF ;SLC/CJS/BA - MASS DATA ENTRY INTO FILE 63.05 ;6/26/18 1:38pm

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Lab Service	6	(,STD)^LRCAPV ^LRGVK ANN^LRMIEDZ ^LRMISTF1 LRAA^LRMIUT ^LRPARAM
VA FileMan	2	^%DT ^DIC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRMISTUF

Entry Points

Name	Comments	DBIA/ICR reference
ACCESS
BEGIN
END
ASK
INFO
GETCODES	; extract only the requested codes from the LRECODE string

External References

Name	Field # of Occurrence
^%DT	ASK+3
^DIC	ASK+4, ASK+13
^LRCAPV	ASK+2
STD^LRCAPV	BEGIN+3
^LRGVK	END
ANN^LRMIEDZ	END, ASK+2
^LRMISTF1	ASK+18
LRAA^LRMIUT	ASK
^LRPARAM	BEGIN

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You're not cleared for this option. You must have the LRVERIFY Key." Line Location: ACCESS+0
Function Call: WRITE	Prompt: !?5,"Accession Area LR SUBSCRIPT is misssing.",! Line Location: ASK+1
Function Call: WRITE	Prompt: "Test does not have an appropriate entry in the EDIT CODE" Line Location: ASK+9
Function Call: READ	Formatting: ! Prompt: "Preliminary or Final: " Variable: X Timeout: DTIME Line Location: ASK+10
Function Call: WRITE	Prompt: !,"Enter ""P"" or ""F""." Line Location: ASK+10
Function Call: WRITE	Prompt: !,LRMF Line Location: ASK+12
Function Call: READ	Timeout: DTIME Line Location: ASK+14
Function Call: WRITE	Prompt: !,"Enter a number between 1 and 3.",!,"1. Automatically enters the result you specify. You cannot change the entries." Line Location: INFO+0
Function Call: WRITE	Prompt: !,"2. Automatically enters the result you specify, you can see and change entries",!,"3. Prompts with the field name. Does not automatically enter data.",!! Line Location: INFO+1
Routine Call	DIC Line Location: ASK+4 ASK+13

FileMan Files Accessed Via FileMan Db Call

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

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.05	ASK+12, ASK+13
^LAB(60 - [#60]	ASK+5
^LAB(62.07 - [#62.07]	ASK+5
^LRO(68 - [#68]	ASK
^XTMP("LRCAP"	BEGIN+3
^XUSEC("LRVERIFY"	ACCESS

Label References

Name	Line Occurrences
ASK	BEGIN+2
GETCODES	ASK+7
INFO	ASK+14

Naked Globals

Name	Field # of Occurrence
^(	ASK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
>> %DT	ASK+3*
>> %DT("A"	ASK+3*!
AGE	END+1!
D1	END+1!
DA	END+1!
DFN	END+1!
DIC	END+1!, ASK+4!, ASK+12!, ASK+13!
DIC("A"	ASK+4, ASK+13
DIC("S"	ASK+4, ASK+13
DIC(0	ASK+4, ASK+13
DIE	END+1!
DLAYGO	END+1!
DOB	END+1!
DQ	END+1!
DR	END+1!
DT	ASK+3
DTIME	ASK+10, ASK+14
DUZ	ACCESS, BEGIN+3
H9	END+1!, ASK+12, ASK+13, ASK+17
I	END+1!, ASK+10, ASK+14
J	END+1!
K	END+1!
LRAA	END+1!, ASK
LRAD	END+1!, ASK+3*
LRAN	END+1!
LRCDT	END+1!
LRCO	END+1!
>> LRCSQ	BEGIN+3
LRDFN	END+1!
LRDPF	END+1!
LRECDS	ASK+7~
LRECDS(	ASK+8, GETCODES+7*
LRECODE	END+1!, ASK+5*, GETCODES+2
LREND	BEGIN*, END+1!, ASK+2
LRIDT	END+1!
LRLLOC	END+1!
LRMF	END+1!, ASK+12, ASK+13
LRMIMASS	BEGIN+1*, END+2!
LRMODE	END+1!, ASK+15*, ASK+17
LRNOP	END+1!
LROK	END+1!
>> LRPARAM	ASK+2
LRPF	END+1!, ASK+11*
LRSB	END+1!, ASK+8!, ASK+12, ASK+13*
LRSB(	ASK+8*
LRSB(0	ASK+12
LRSBCNT	END+1!, ASK+8*, ASK+9, ASK+12, ASK+13
LRSBS	BEGIN*, END+1!, ASK+8
LRSCREEN	END+1!, ASK+17*
>> LRSS	ASK*, ASK+1
LRTEST	END+1!, ASK+4*, ASK+5
LRVT	BEGIN*, END+1!
LRWRD	END+1!
PNM	END+1!
POP	END+1!
R	END+1!
SEX	END+1!
SSN	END+1!
U	ASK, ASK+2, ASK+3, ASK+5, ASK+8, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14 , ASK+15
X	END+1!, ASK+3, ASK+8, ASK+10, ASK+11, ASK+14*, ASK+15
X1	END+1!
X2	END+1!
Y	END+1!, ASK+3*, ASK+4, ASK+13
Z	END+1!
Z(	BEGIN*, ASK+12, ASK+13
Z(1	BEGIN*
Z(13	BEGIN*
Z(17	BEGIN*
Z(21	BEGIN*
Z(24	BEGIN*
Z(27	BEGIN*
Z(37	BEGIN*
ZDR	GETCODES+1~, GETCODES+2, GETCODES+3, GETCODES+4, GETCODES+5
ZI	GETCODES+1~, GETCODES+2*
ZJ	GETCODES+1~, GETCODES+5*
ZNUM	GETCODES+1~, GETCODES+5, GETCODES+6, GETCODES+7

Customize PDF page

Package: Lab Service