Routine: LRAPRES

Package	Total	Call Graph
Lab Service	14	OERR^LR7OB63D (,CK)^LRAP INIT^LRAPBR SUPCHK^LRAPR1 (CLSSCHK,MAIN,RETRACT)^LRAPRES1 INIT^LRAPSNMD C^LRAPSWK (ACCYR,LOOKUP,PROVIDR,REFRRL)^LRAPUTL ($$ES,CLEAN,CPT,ES)^LRCAPES UPDATE^LRPXRM (CK,FRE,V)^LRU X^LRUWK SETRL^LRVERA LEDI^LRVR0
VA FileMan	6	DD^%DT $$TEST^DDBRT EN^DDIOL (,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	4	$$NOW^XLFDT $$CJ^XLFSTR SIG^XUSESIG $$CHKSUM^XUSESIG1
Text Integration Utility	4	$$DDEFIEN^TIUFLF7 SETPARM^TIULE EXTRACT^TIULQ NEW^TIUPNAPI
Imaging	1	REPORT^MAGT7MA

Package	Total	Caller Graph
Lab Service	4	LRAPALRT LRAPDA LRAPR LRVRAP4

Name	Comments	DBIA/ICR reference
MAIN	;
ACCPN	; Prompt for accession number or patient name
TITLE	; Title
CPTCHK	; Determine if CPT is activated
DEMARR	;
MENU	;
SECTION	; Choose Anatomic Pathology section (AU,SP,CY,EM)
ACCYR	; Determine Accession Year
RELCHK	; Perform series of checks
BROWSE	; Display the report in the browser
ESIG	; Prompt for electronic signature
TIUPREP	;
RELEASE	; Release the report
STORE	; Store report in TIU
WKLD	; Capture workload
ACCCOMP	; Complete tests on accession
END	; Clean-up variables and quit

Name	Field # of Occurrence
DD^%DT	RELCHK+44
$$TEST^DDBRT	BROWSE+4
EN^DDIOL	TITLE+9, SECTION+18, RELCHK+12, RELCHK+19, RELCHK+31, RELCHK+36, RELCHK+46, RELCHK+50, RELCHK+59, BROWSE+17 , TIUPREP+8, RELEASE+31, STORE+12, STORE+36, STORE+41, STORE+45
^DIE	RELEASE+19
UPDATE^DIE	STORE+59, WKLD+24, ACCCOMP+23, ACCCOMP+34
$$GET1^DIQ	DEMARR+2, DEMARR+3, DEMARR+5, DEMARR+6, DEMARR+13, DEMARR+14, RELCHK+4, RELCHK+5, RELCHK+6, RELCHK+7 , RELCHK+8, RELCHK+21, RELCHK+22, RELCHK+23, RELCHK+24, RELCHK+25, RELCHK+27, RELEASE+5, RELEASE+37
^DIR	MENU+6, RELCHK+65, BROWSE+8, BROWSE+12
OERR^LR7OB63D	ACCPN+24
^LRAP	SECTION+3
CK^LRAP	TITLE+2
INIT^LRAPBR	BROWSE+18, TIUPREP+10
SUPCHK^LRAPR1	RELCHK+38
CLSSCHK^LRAPRES1	MAIN+17
MAIN^LRAPRES1	ACCPN+23
RETRACT^LRAPRES1	STORE+60
INIT^LRAPSNMD	ACCPN+33
C^LRAPSWK	RELEASE+6
ACCYR^LRAPUTL	ACCYR+1
LOOKUP^LRAPUTL	ACCPN+6
PROVIDR^LRAPUTL	ACCPN+28
REFRRL^LRAPUTL	STORE+2
$$ES^LRCAPES	CPTCHK+2
CLEAN^LRCAPES	END+4
CPT^LRCAPES	ACCPN+26, ACCPN+30
ES^LRCAPES	CPTCHK+1
UPDATE^LRPXRM	RELEASE+25
CK^LRU	RELEASE+17
FRE^LRU	RELEASE+27
V^LRU	END+5
X^LRUWK	SECTION+12
SETRL^LRVERA	ACCPN+14
LEDI^LRVR0	RELEASE+37
REPORT^MAGT7MA	STORE+62
$$DDEFIEN^TIUFLF7	STORE+8
SETPARM^TIULE	STORE+7
EXTRACT^TIULQ	STORE+47
NEW^TIUPNAPI	STORE+18
$$NOW^XLFDT	ACCPN+18
$$CJ^XLFSTR	TITLE+6, BROWSE+16, TIUPREP+7, RELEASE+31, STORE+40, STORE+44
SIG^XUSESIG	ESIG+2
$$CHKSUM^XUSESIG1	STORE+49

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+4
Function Call: WRITE	Prompt: ! Line Location: SECTION+2
Function Call: WRITE	Prompt: $C(7) Line Location: RELCHK+10
Function Call: WRITE	Prompt: $C(7) Line Location: RELCHK+29
Function Call: WRITE	Prompt: $C(7) Line Location: RELCHK+34
Function Call: WRITE	Prompt: $C(7) Line Location: RELCHK+41
Function Call: WRITE	Prompt: " SIGNATURE NOT VERIFIED" Line Location: ESIG+4
Function Call: WRITE	Prompt: $C(7) Line Location: STORE+10
Routine Call	DIE Line Location: RELEASE+19
Routine Call	DIE Line Location: STORE+59 WKLD+24 ACCCOMP+23 ACCCOMP+34
Routine Call	DIR Line Location: MENU+6 RELCHK+65 BROWSE+8 BROWSE+12

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	RELCHK+16, RELCHK+53, RELCHK+55, RELEASE+9, WKLD+2, ACCCOMP+7, ACCCOMP+8, ACCCOMP+12, ACCCOMP+13
^LRO(68 - [#68]	WKLD+3, ACCCOMP+17, ACCCOMP+18, ACCCOMP+27
^LRO(69 - [#69]	ACCCOMP+29, ACCCOMP+32
^TMP("LRAPBR"	BROWSE+15!, END+3!
^TMP("TIUP"	TIUPREP+1!, END+3!

Name	Line Occurrences
ACCCOMP	RELEASE+22
ACCPN	MAIN+21
ACCYR	MAIN+19
BROWSE	ACCPN+15
CPTCHK	MAIN+6, ACCPN+5
DEMARR	ACCPN+32
END	MAIN+5, MAIN+22
ESIG	ACCPN+16
MENU	MAIN+9
RELCHK	ACCPN+12
RELEASE	ACCPN+21
SECTION	MAIN+14
STORE	ACCPN+19
TITLE	MAIN+4
TIUPREP	ACCPN+19
WKLD	RELEASE+34

Name	Field # of Occurrence
>> AGE	DEMARR+8
>> C	WKLD+10, WKLD+11, WKLD+12, WKLD+14
>> DA	RELEASE+8, RELEASE+15
>> DA(1	RELEASE+8*
>> DFN	STORE+18
>> DIE	RELEASE+8, RELEASE+15
DIR	MENU+1~, BROWSE+1~
DIR("A"	MENU+5, RELCHK+64, BROWSE+5, BROWSE+6, BROWSE+7, BROWSE+11
DIR("B"	RELCHK+63, BROWSE+10
DIR(0	MENU+2, MENU+3, MENU+4, RELCHK+63, BROWSE+8, BROWSE+10
DIRUT	MENU+7, BROWSE+1~
>> DOB	DEMARR+7
>> DR	RELEASE+7, RELEASE+13, RELEASE+14*
DTOUT	BROWSE+1~
DUOUT	BROWSE+1~
DUZ	MAIN+17, ACCPN+27, STORE+18, WKLD+8, WKLD+19, ACCCOMP+21
DUZ(2	ACCPN+14, WKLD+20
ERR	WKLD+1~, END+2!
FILE	WKLD+1~, WKLD+5*, WKLD+6, WKLD+7, WKLD+8, WKLD+9
FILE1	WKLD+1~, WKLD+10*, WKLD+14, WKLD+15, WKLD+16, WKLD+17, WKLD+18, WKLD+19, WKLD+20, WKLD+21 , WKLD+22, WKLD+23
IENS	WKLD+1~, WKLD+4*, WKLD+6, WKLD+7, WKLD+8, WKLD+9, WKLD+13, END+2!
IENS1	WKLD+1~, WKLD+13*, WKLD+14, WKLD+15, WKLD+16, WKLD+17, WKLD+18, WKLD+19, WKLD+20, WKLD+21 , WKLD+22, WKLD+23
IOF	TITLE+4
IOM	TITLE+6, BROWSE+16, TIUPREP+7, RELEASE+31, STORE+40, STORE+44
>> LR("CK"	RELEASE+18
>> LRA	RELEASE+9*
>> LRAA	ACCPN+6, ACCPN+30, ACCPN+33, ACCYR+1, BROWSE+18, TIUPREP+10, WKLD+3, WKLD+4, WKLD+21, WKLD+22 , WKLD+23, ACCCOMP+17, ACCCOMP+18, ACCCOMP+20, ACCCOMP+27
>> LRAA(1	DEMARR+9
>> LRABV	SECTION+16
>> LRAC	ACCPN+23
>> LRAD	ACCPN+6, ACCPN+30, ACCPN+33, ACCYR+3*, WKLD+3, WKLD+4, ACCCOMP+17, ACCCOMP+18, ACCCOMP+20, ACCCOMP+27
LRAD1	ACCYR+1, ACCYR+2, ACCYR+3, END+1!
>> LRAN	ACCPN+30, ACCPN+33, WKLD+3, WKLD+4, ACCCOMP+17, ACCCOMP+18, ACCCOMP+20, ACCCOMP+27
LRAU	ACCPN+14, DEMARR+1, DEMARR+4, DEMARR+11, SECTION+6, SECTION+7, RELCHK+3, RELCHK+15, RELCHK+47, BROWSE+18 , TIUPREP+10, RELEASE+4, RELEASE+12, RELEASE+29, STORE+53, END+1!
>> LRCAPA	SECTION+8, RELEASE+6, RELEASE+34
>> LRCHKSUM	STORE+49*, STORE+58
LRDATA	ACCPN+6, ACCPN+7, ACCPN+8, ACCPN+9, END+1!
LRDATA(1	ACCPN+9
LRDEM	MAIN+1~, ACCPN+33
LRDEM("AGE"	DEMARR+8*
LRDEM("AUDT"	DEMARR+13*
LRDEM("AUTYP"	DEMARR+14*
LRDEM("DOB"	DEMARR+7*
LRDEM("DTH"	DEMARR+12*
LRDEM("PNM"	DEMARR+9*
LRDEM("PRO"	DEMARR+10*
LRDEM("SEC"	DEMARR+9*
LRDEM("SEX"	DEMARR+7*
LRDEM("SSN"	DEMARR+10*
>> LRDFN	ACCPN+9*, ACCPN+10, ACCPN+14, ACCPN+23, ACCPN+33, DEMARR+2, DEMARR+3, DEMARR+5, DEMARR+6, DEMARR+13 , DEMARR+14, RELCHK+16, RELCHK+21, RELCHK+22, RELCHK+23, RELCHK+24, RELCHK+25, RELCHK+27, RELCHK+53, RELCHK+55 , BROWSE+18, TIUPREP+10, RELEASE+8, RELEASE+9, RELEASE+15, RELEASE+25, RELEASE+37, STORE+53, STORE+60, WKLD+2 , ACCCOMP+7, ACCCOMP+8, ACCCOMP+12, ACCCOMP+13
>> LRDPF	TIUPREP+5, STORE+2
>> LRDUZ	ACCCOMP+21
LREND	MAIN+1~, MAIN+16, MAIN+17, MAIN+18, ACCPN+3, ACCPN+4, ACCPN+8
LRERR	ACCCOMP+2~
LRERR(1	ACCCOMP+19!
LRESCPT	MAIN+2~, MAIN+3, CPTCHK+2, MENU+3
LRFDA	STORE+1~, WKLD+1~, ACCCOMP+2~, ACCCOMP+19!, END+2!
LRFDA(1	STORE+56, STORE+57, STORE+58, WKLD+6, WKLD+7, WKLD+8, WKLD+9, WKLD+14, WKLD+15, WKLD+16 , WKLD+17, WKLD+18, WKLD+19, WKLD+20, WKLD+21, WKLD+22, WKLD+23, ACCCOMP+21, ACCCOMP+22*
LRFDA(2	ACCCOMP+32, ACCCOMP+33
LRFILE	STORE+1~, STORE+54, STORE+55, STORE+56, STORE+57, STORE+58, ACCCOMP+2~, ACCCOMP+16, ACCCOMP+21, ACCCOMP+22 , ACCCOMP+30!, ACCCOMP+31, ACCCOMP+32, ACCCOMP+33, END+1!
>> LRH(0	ACCPN+6, ACCYR+1, ACCYR+3*
>> LRI	ACCPN+9*, ACCPN+10, ACCPN+14, ACCPN+23, ACCPN+33, DEMARR+5, DEMARR+6, BROWSE+18, TIUPREP+10, RELEASE+8 , RELEASE+9, RELEASE+25, RELEASE+37, STORE+53, STORE+60, WKLD+2, ACCCOMP+8, ACCCOMP+13
LRIEN	WKLD+1~, END+2!
LRIEN(	WKLD+12*
LRIEN(1	WKLD+5*
LRIENS	ACCPN+10, RELCHK+4, RELCHK+5, RELCHK+6, RELCHK+7, RELCHK+8, RELEASE+5, STORE+1~, STORE+53, STORE+56 , STORE+57, STORE+58, ACCCOMP+2~, ACCCOMP+19!, ACCCOMP+20, ACCCOMP+21, ACCCOMP+22, ACCCOMP+30!, ACCCOMP+31, ACCCOMP+32 , ACCCOMP+33, END+1!
LRIENS1	END+1!
LRK	WKLD+2, WKLD+9, WKLD+18, ACCCOMP+2~, ACCCOMP+7, ACCCOMP+8*, ACCCOMP+9, ACCCOMP+22, ACCCOMP+33
LRMSG	MAIN+1~, TITLE+9!, SECTION+1~, SECTION+18, RELCHK+11, RELCHK+12!, RELCHK+17, RELCHK+18, RELCHK+19!, RELCHK+30 , RELCHK+31!, RELCHK+35, RELCHK+36!, RELCHK+42, RELCHK+43, RELCHK+44, RELCHK+45, RELCHK+46!, RELCHK+50!, RELCHK+57~ , RELCHK+58, RELCHK+59, BROWSE+16, BROWSE+17, TIUPREP+2, TIUPREP+5, TIUPREP+6, TIUPREP+7, TIUPREP+8, RELEASE+1~ , RELEASE+28, RELEASE+29, RELEASE+30, RELEASE+31, STORE+1~, STORE+11, STORE+12!, STORE+36, STORE+39, STORE+40 , STORE+41, STORE+43, STORE+44, STORE+45
LRMSG(1	TITLE+6, TITLE+7, SECTION+16, STORE+20
LRMSG(10	STORE+34, STORE+35
LRMSG(2	TITLE+8, SECTION+17, STORE+21, STORE+22
LRMSG(3	STORE+23, STORE+24
LRMSG(4	STORE+25*
LRMSG(5	STORE+26*
LRMSG(6	STORE+27, STORE+28
LRMSG(7	STORE+29*
LRMSG(8	STORE+30, STORE+31
LRMSG(9	STORE+32, STORE+33
LRMTCH	MAIN+1~
LRNTIME	MAIN+1~, ACCPN+18*, TIUPREP+10, STORE+18, STORE+56
>> LRO(68	ACCPN+6, SECTION+5*, SECTION+16, ACCYR+1, BROWSE+18, TIUPREP+10
>> LRO68	STORE+3, STORE+4, STORE+5, STORE+6, STORE+8
LRORDT	ACCCOMP+2~, ACCCOMP+28*, ACCCOMP+29, ACCCOMP+31, ACCCOMP+32
LROUT	WKLD+1~, END+2!
>> LRP	ACCPN+23
LRPAT	RELCHK+1~, RELCHK+4, RELCHK+21, RELCHK+33
LRPCEXP	MAIN+2~
LRPCSTR	MAIN+2~
LRPRCLSS	MAIN+1~
>> LRPRO	ACCPN+27, ACCPN+30, DEMARR+2, DEMARR+5*
>> LRPRO(1	DEMARR+3, DEMARR+6, DEMARR+10
LRQUIT	MAIN+1~, MAIN+5, MAIN+7, MAIN+8, MAIN+10, MAIN+15, MAIN+20, ACCPN+4, ACCPN+11, ACCPN+13 , ACCPN+17, ACCPN+20, ACCPN+22, ACCPN+29, TITLE+1, TITLE+3, MENU+7, SECTION+4, SECTION+8, SECTION+13* , ACCYR+2, RELCHK+2, RELCHK+3, RELCHK+13, RELCHK+15, RELCHK+20, RELCHK+32, RELCHK+37, RELCHK+39, RELCHK+40 , RELCHK+47, RELCHK+49, RELCHK+60, RELCHK+61, RELCHK+66, ESIG+1, ESIG+5, STORE+13, STORE+14, STORE+37 , STORE+42*
>> LRRC	RELEASE+5*
LRRDTE	END+1!
LRSEL	MAIN+11, MENU+8*, END+1!
>> LRSF	ACCPN+23, ACCPN+33, DEMARR+5, DEMARR+6, RELCHK+4, RELCHK+5, RELCHK+6, RELCHK+7, RELCHK+8, RELEASE+5 , RELEASE+37
LRSN	ACCCOMP+2~, ACCCOMP+28*, ACCCOMP+29, ACCCOMP+31, ACCCOMP+32
>> LRSOP	SECTION+15*
LRSRDT	ACCCOMP+2~, ACCCOMP+12, ACCCOMP+13, ACCCOMP+32
LRSRLST	RELCHK+1~, RELCHK+53*, RELCHK+54, RELCHK+55
LRSRREL	RELCHK+1~, RELCHK+55*, RELCHK+56
>> LRSS	ACCPN+6, ACCPN+14, ACCPN+23, ACCPN+33, SECTION+4, SECTION+7, SECTION+10, SECTION+11, BROWSE+18, TIUPREP+10 , RELEASE+9, RELEASE+25, RELEASE+34, RELEASE+37, STORE+3, STORE+4, STORE+5, STORE+6, STORE+54, STORE+55 , STORE+60, WKLD+2, ACCCOMP+7, ACCCOMP+8, ACCCOMP+12, ACCCOMP+13
LRT	WKLD+3, WKLD+5, WKLD+6, ACCCOMP+2~, ACCCOMP+16, ACCCOMP+17, ACCCOMP+18, ACCCOMP+20
LRT(	WKLD+11
LRTEXT	TITLE+5*, TITLE+6, END+1!
LRTITLE	STORE+1~, STORE+8*, STORE+9, STORE+18
LRTIU	STORE+50!
LRTIU(	STORE+48*
LRTIUPTR	STORE+1~, STORE+18, STORE+19, STORE+38, STORE+47, STORE+48, STORE+49, STORE+57, STORE+60
LRTMP	END+2!
LRVCDE	MAIN+1~
LRX	ACCCOMP+2~, ACCCOMP+27*, ACCCOMP+28
>> LRZ	RELCHK+5, RELCHK+9, RELCHK+22, RELCHK+28, RELCHK+49, RELCHK+52, RELCHK+62
>> LRZ(	RELCHK+7, RELCHK+24, RELCHK+45
>> LRZ(1	RELCHK+6, RELCHK+23, RELCHK+45
>> LRZ(2	ACCPN+15, ACCPN+19, ACCPN+23, RELCHK+8, RELCHK+9, RELCHK+25, RELCHK+33, RELCHK+38, RELCHK+40, RELCHK+42 , RELCHK+44, RELCHK+49, RELCHK+52, RELCHK+62, RELEASE+29
>> LRZ(3	RELCHK+27*, RELCHK+28
>> PNM	DEMARR+9
RNUM	WKLD+1~, WKLD+4, WKLD+12, WKLD+13
>> SEX	DEMARR+7
>> SSN	DEMARR+10
>> TIUPRM1	STORE+26
U	ACCYR+3, STORE+26, STORE+48
USRSEL	MAIN+2~, MAIN+11*, MAIN+13~, MAIN+17, ACCPN+2
USRSEL1	ACCPN+1~, ACCPN+2*, ACCPN+11, ACCPN+25, ACCPN+31
>> VADM(6	DEMARR+12
X	MENU+1~, SECTION+9, SECTION+10, SECTION+11*, SECTION+12, SECTION+13, BROWSE+1~
>> X1	ESIG+3
Y	TITLE+3, MENU+1~, MENU+8, SECTION+4, RELCHK+44*, RELCHK+66, BROWSE+1~, BROWSE+13

Name

Field # of Occurrence

>> AGE

DEMARR+8

>> C

WKLD+10*, WKLD+11*, WKLD+12, WKLD+14

>> DA

RELEASE+8*, RELEASE+15*

>> DA(1

RELEASE+8*

>> DFN

STORE+18