Routine: LRAPRES

Package	Total	Call Graph
Lab Service	13	OERR^LR7OB63D (,CK)^LRAP INIT^LRAPBR SUPCHK^LRAPR1 (CLSSCHK,MAIN,RETRACT)^LRAPRES1 (END,WKLD)^LRAPRES2 INIT^LRAPSNMD C^LRAPSWK (ACCYR,LOOKUP,PROVIDR,REFRRL)^LRAPUTL ($$ES,CPT,ES)^LRCAPES UPDATE^LRPXRM (CK,FRE)^LRU X^LRUWK
VA Fileman	6	DD^%DT NOW^%DTC EN^DDIOL (,UPDATE)^DIE $$GET1^DIQ ^DIR
Text Integration Utility	4	$$DDEFIEN^TIUFLF7 SETPARM^TIULE EXTRACT^TIULQ NEW^TIUPNAPI
Kernel	3	$$CJ^XLFSTR SIG^XUSESIG $$CHKSUM^XUSESIG1
IHS Changes To Lab	1	$$PATCH^BLRUTIL4

Package	Total	Caller Graph
Lab Service	2	LRAPALRT LRAPR

Name	Comments	DBIA/ICR reference
ACCPN	;Prompt for accesion number or patient name
CPTCHK	;Determine if CPT is activated
DEMARR	;
TITLE	;Title
BROWSE	;Display the report in the browser
MENU	;
SECTION	;Choose Anatomic Pathology section (AU,SP,CY,EM)
ACCYR	;Determine Accession Year
TIUPREP	;
ESIG	;Prompt for electronic signature
RELEASE	;
RELCHK	;Perform series of checks
MAIN	;
STORE	;Store report in TIU

External References

Name	Field # of Occurrence
DD^%DT	RELCHK+43
NOW^%DTC	ACCPN+15
$$PATCH^BLRUTIL4	ACCPN+25, CPTCHK+3, RELEASE+18
EN^DDIOL	TITLE+9, SECTION+17, RELCHK+12, RELCHK+18, RELCHK+30, RELCHK+35, RELCHK+45, RELCHK+49, RELCHK+58, BROWSE+7 , TIUPREP+7, RELEASE+23, STORE+12, STORE+36, STORE+41, STORE+45
^DIE	RELEASE+16
UPDATE^DIE	STORE+58
$$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+20, RELCHK+21, RELCHK+22, RELCHK+23, RELCHK+24, RELCHK+26, RELEASE+2
^DIR	MENU+6, RELCHK+64, BROWSE+3
OERR^LR7OB63D	ACCPN+21
^LRAP	SECTION+2
CK^LRAP	TITLE+2
INIT^LRAPBR	BROWSE+8, TIUPREP+8
SUPCHK^LRAPR1	RELCHK+37
CLSSCHK^LRAPRES1	MAIN+14
MAIN^LRAPRES1	ACCPN+20
RETRACT^LRAPRES1	STORE+59
END^LRAPRES2	MAIN+5, MAIN+19
WKLD^LRAPRES2	RELEASE+24
INIT^LRAPSNMD	ACCPN+32
C^LRAPSWK	RELEASE+3
ACCYR^LRAPUTL	ACCYR+1
LOOKUP^LRAPUTL	ACCPN+4
PROVIDR^LRAPUTL	ACCPN+27
REFRRL^LRAPUTL	STORE+2
$$ES^LRCAPES	CPTCHK+3
CPT^LRCAPES	ACCPN+23, ACCPN+29
ES^LRCAPES	CPTCHK+1
UPDATE^LRPXRM	RELEASE+18
CK^LRU	RELEASE+14
FRE^LRU	RELEASE+19
X^LRUWK	SECTION+11
$$DDEFIEN^TIUFLF7	STORE+8
SETPARM^TIULE	STORE+7
EXTRACT^TIULQ	STORE+47
NEW^TIUPNAPI	STORE+18
$$CJ^XLFSTR	TITLE+6, BROWSE+6, TIUPREP+6, RELEASE+23, 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+1
Routine Call	DIE Line Location: STORE+58
Routine Call	DIE Line Location: RELEASE+16
Routine Call	DIR Line Location: MENU+6 RELCHK+64 BROWSE+3

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

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	RELCHK+15, RELCHK+52, RELCHK+54, RELEASE+8
^TMP("LRAPBR"	BROWSE+4!
^TMP("TIUP"	TIUPREP+1!

Name	Line Occurrences
ACCPN	MAIN+18
ACCYR	MAIN+16
BROWSE	ACCPN+12
CPTCHK	MAIN+6, ACCPN+3
DEMARR	ACCPN+31
ESIG	ACCPN+13
MENU	MAIN+9
RELCHK	ACCPN+10
RELEASE	ACCPN+18
SECTION	MAIN+11
STORE	ACCPN+16
TITLE	MAIN+4
TIUPREP	ACCPN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ACCPN+15
>> AGE	DEMARR+8
>> DA	RELEASE+6, RELEASE+13
>> DA(1	RELEASE+6*
>> DFN	STORE+18
>> DIE	RELEASE+6, RELEASE+13
DIR	MENU+1~
DIR("A"	MENU+5, RELCHK+63, BROWSE+2*
DIR("B"	RELCHK+62, BROWSE+1
DIR(0	MENU+2, MENU+3, MENU+4, RELCHK+62, BROWSE+1*
>> DIROUT	MENU+7
>> DIRUT	MENU+7
>> DOB	DEMARR+7
>> DR	RELEASE+5, RELEASE+11, RELEASE+12*
>> DTOUT	MENU+7
>> DUOUT	MENU+7
DUZ	MAIN+14, ACCPN+26, STORE+18
IOF	TITLE+4
IOM	TITLE+6, BROWSE+6, TIUPREP+6, RELEASE+23, STORE+40, STORE+44
>> LR("CK"	RELEASE+15
>> LRA	RELEASE+8*
>> LRAA	ACCPN+4, ACCPN+29, ACCPN+32, ACCYR+1, BROWSE+8, TIUPREP+8
>> LRAA(1	DEMARR+9
>> LRABV	SECTION+15
>> LRAC	ACCPN+20
>> LRAD	ACCPN+4, ACCPN+29, ACCPN+32, ACCYR+3*
>> LRAD1	ACCYR+1, ACCYR+2, ACCYR+3
>> LRAN	ACCPN+29, ACCPN+32
>> LRAU	DEMARR+1, DEMARR+4, DEMARR+11, SECTION+5, SECTION+6, RELCHK+3, RELCHK+14, RELCHK+46, BROWSE+8, TIUPREP+8 , RELEASE+1, RELEASE+3, RELEASE+9, RELEASE+21, STORE+52
>> LRCAPA	SECTION+7, RELEASE+3, RELEASE+24
>> LRCHKSUM	STORE+49*, STORE+57
>> LRDATA	ACCPN+4, ACCPN+5, ACCPN+6, ACCPN+7
>> LRDATA(1	ACCPN+7
LRDEM	MAIN+1~, ACCPN+32
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+7*, ACCPN+8, ACCPN+20, ACCPN+32, DEMARR+2, DEMARR+3, DEMARR+5, DEMARR+6, DEMARR+13, DEMARR+14 , RELCHK+15, RELCHK+20, RELCHK+21, RELCHK+22, RELCHK+23, RELCHK+24, RELCHK+26, RELCHK+52, RELCHK+54, BROWSE+8 , TIUPREP+8, RELEASE+6, RELEASE+8, RELEASE+13, RELEASE+18, STORE+52, STORE+59
>> LRDPF	TIUPREP+4, STORE+2
LREND	MAIN+1~, MAIN+13, MAIN+14, MAIN+15, ACCPN+1, ACCPN+2, ACCPN+6
LRESCPT	MAIN+2~, MAIN+3, CPTCHK+3, MENU+3
LRFDA	STORE+1~
LRFDA(1	STORE+55, STORE+56, STORE+57*
LRFILE	STORE+1~, STORE+53, STORE+54, STORE+55, STORE+56, STORE+57
>> LRH(0	ACCPN+4, ACCYR+1, ACCYR+3*
>> LRI	ACCPN+7*, ACCPN+8, ACCPN+20, ACCPN+32, DEMARR+5, DEMARR+6, BROWSE+8, TIUPREP+8, RELEASE+6, RELEASE+8 , RELEASE+18, STORE+52, STORE+59
LRIENS	ACCPN+8, RELCHK+4, RELCHK+5, RELCHK+6, RELCHK+7, RELCHK+8, RELEASE+2, STORE+1~, STORE+52, STORE+55 , STORE+56, STORE+57
LRMSG	MAIN+1~, TITLE+9!, SECTION+17!, RELCHK+11, RELCHK+12!, RELCHK+16, RELCHK+17, RELCHK+18!, RELCHK+29, RELCHK+30! , RELCHK+34, RELCHK+35!, RELCHK+41, RELCHK+42, RELCHK+43, RELCHK+44, RELCHK+45!, RELCHK+49!, RELCHK+56, RELCHK+57 , RELCHK+58!, BROWSE+5, BROWSE+6, BROWSE+7, TIUPREP+2, TIUPREP+4, TIUPREP+5, TIUPREP+6, TIUPREP+7, RELEASE+20* , RELEASE+21, RELEASE+22, RELEASE+23, 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+15, STORE+20
LRMSG(10	STORE+34, STORE+35
LRMSG(2	TITLE+8, SECTION+16, 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+15*, TIUPREP+8, STORE+18, STORE+55
>> LRO(68	ACCPN+4, SECTION+4*, SECTION+15, ACCYR+1, BROWSE+8, TIUPREP+8
>> LRO68	STORE+3, STORE+4, STORE+5, STORE+6, STORE+8
>> LRP	ACCPN+20
LRPAT	RELCHK+1~, RELCHK+4, RELCHK+20, RELCHK+32
LRPCEXP	MAIN+2~
LRPCSTR	MAIN+2~
LRPRCLSS	MAIN+1~
>> LRPRO	ACCPN+26, ACCPN+29, DEMARR+2, DEMARR+5*
>> LRPRO(1	DEMARR+3, DEMARR+6, DEMARR+10
LRQUIT	MAIN+1~, MAIN+5, MAIN+7, MAIN+8, MAIN+10, MAIN+12, MAIN+17, ACCPN+2, ACCPN+9, ACCPN+11 , ACCPN+14, ACCPN+17, ACCPN+19, ACCPN+28, TITLE+1, TITLE+3, MENU+7, SECTION+3, SECTION+7, SECTION+12* , ACCYR+2, RELCHK+2, RELCHK+3, RELCHK+13, RELCHK+14, RELCHK+19, RELCHK+31, RELCHK+36, RELCHK+38, RELCHK+39 , RELCHK+46, RELCHK+48, RELCHK+59, RELCHK+60, RELCHK+65, ESIG+1, ESIG+5, STORE+13, STORE+14, STORE+37 , STORE+42*
>> LRRC	RELEASE+2*
>> LRSEL	MAIN+14, ACCPN+9, ACCPN+22, ACCPN+30, MENU+8*
>> LRSF	ACCPN+20, ACCPN+32, DEMARR+5, DEMARR+6, RELCHK+4, RELCHK+5, RELCHK+6, RELCHK+7, RELCHK+8, RELEASE+2
>> LRSOP	SECTION+14*
LRSRLST	RELCHK+1~, RELCHK+52*, RELCHK+53, RELCHK+54
LRSRREL	RELCHK+1~, RELCHK+54*, RELCHK+55
>> LRSS	ACCPN+4, ACCPN+20, ACCPN+32, SECTION+3, SECTION+6, SECTION+9, SECTION+10, BROWSE+8, TIUPREP+8, RELEASE+8 , RELEASE+18, RELEASE+24, STORE+3, STORE+4, STORE+5, STORE+6, STORE+53, STORE+54, STORE+59
>> LRTEXT	TITLE+5*, TITLE+6
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+56, STORE+59
LRVCDE	MAIN+1~
>> LRZ	RELCHK+5, RELCHK+9, RELCHK+21, RELCHK+27, RELCHK+48, RELCHK+51, RELCHK+61
>> LRZ(	RELCHK+7, RELCHK+23, RELCHK+44
>> LRZ(1	RELCHK+6, RELCHK+22, RELCHK+44
>> LRZ(2	ACCPN+12, ACCPN+16, ACCPN+20, RELCHK+8, RELCHK+9, RELCHK+24, RELCHK+32, RELCHK+37, RELCHK+39, RELCHK+41 , RELCHK+43, RELCHK+48, RELCHK+51, RELCHK+61, RELEASE+21
>> LRZ(3	RELCHK+26*, RELCHK+27
MSG	RELEASE+23!
>> PNM	DEMARR+9
>> SEX	DEMARR+7
>> SSN	DEMARR+10
>> TIUPRM1	STORE+26
U	ACCYR+3, STORE+26, STORE+48
>> VADM(6	DEMARR+12
X	MENU+1~, SECTION+8, SECTION+9, SECTION+10*, SECTION+11, SECTION+12
>> X1	ESIG+3
Y	TITLE+3, MENU+1~, MENU+8, SECTION+3, RELCHK+43*, RELCHK+65, BROWSE+3

Customize PDF page

Package: Lab Service

Routine: LRAPRES

Information

Source Information

Call Graph

Call Graph Total: 27

Caller Graph

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:

Marked Items