Routine: LRAPMRL

Information

LRAPMRL ;DALOI/WTY/KLL- AP MODIFY RELEASED REPORT; 17-Oct-2014 09:22 ; MKK

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Lab Service	9	(,CK)^LRAP (COMPARE,COPY,GETRPT,RELEAS2,RPT,STORE,UNRELEAS,UPDATE)^LRAPDSR (CPTCODE,EDIT,QUEUPD,RELCHK,RELEASE,SETDR)^LRAPMRL1 C^LRAPSWK (ACCYR,LOOKUP)^LRAPUTL ($$ES,CLEAN,ES)^LRCAPES UPDATE^LRPXRM V^LRU DEL^LRWOMEN
VA Fileman	7	NOW^%DTC EN^DDIOL $$GET1^DID (FILE,UPDATE,WP)^DIE CLEAN^DILF $$GET1^DIQ ^DIR
IHS Changes To Lab	1	$$PATCH^BLRUTIL4
Kernel	1	$$CJ^XLFSTR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Lab Service	2	LRAPMOD LRAPMRL

Entry Points

Name	Comments	DBIA/ICR reference
ACCPN	;Prompt for accesion number or patient name
AUDIT	;
NOTICE	;Warn the user and allow an exit
CPTCHK	;Determine if CPT is activated
SAVTXT	;Save word processing field text.
TITLE	;Title
SECTION	;Choose Anatomic Pathology section (AU,SP,CY,EM)
ACCYR	;Determine Accession Year
WHAT	;What is to be edited
COMPARE	;Compare report text
UNLOCK	;Unlock the record ; D UPDATE^LRPXRM(LRDFN,$G(LRSS,"AU"),$G(LRI)) ; IHS/OIT/MKK - LR5.21030 - RPMS Does NOT use Clinical Reminders
ASK2	;Ask about other fields
ASK	;Ask etiology,function,procedure,disease,weights,measures
END	;Clean-up variables and quit
MAIN	;
SUPRPT	;Supplementary Report
STORE	;

External References

Name	Field # of Occurrence
NOW^%DTC	AUDIT+3
$$PATCH^BLRUTIL4	CPTCHK+3, UNLOCK+2
EN^DDIOL	ACCPN+11, TITLE+9, NOTICE+14, SECTION+10, SAVTXT+13, COMPARE+16
$$GET1^DID	AUDIT+5
FILE^DIE	COMPARE+25
UPDATE^DIE	AUDIT+9
WP^DIE	STORE+4
CLEAN^DILF	END+2
$$GET1^DIQ	WHAT+9, SAVTXT+6
^DIR	NOTICE+17, WHAT+13, ASK+7, ASK+14, ASK2+13, SUPRPT+4
^LRAP	SECTION+2
CK^LRAP	TITLE+2
COMPARE^LRAPDSR	SUPRPT+14
COPY^LRAPDSR	SUPRPT+10
GETRPT^LRAPDSR	SUPRPT+8
RELEAS2^LRAPDSR	SUPRPT+13
RPT^LRAPDSR	SUPRPT+11
STORE^LRAPDSR	SUPRPT+17
UNRELEAS^LRAPDSR	SUPRPT+15
UPDATE^LRAPDSR	SUPRPT+16
CPTCODE^LRAPMRL1	ACCPN+42
EDIT^LRAPMRL1	ACCPN+18, ACCPN+28, ACCPN+37
QUEUPD^LRAPMRL1	ACCPN+16
RELCHK^LRAPMRL1	ACCPN+13
RELEASE^LRAPMRL1	ACCPN+15
SETDR^LRAPMRL1	MAIN+19, ACCPN+18
C^LRAPSWK	ACCPN+17
ACCYR^LRAPUTL	ACCYR+1
LOOKUP^LRAPUTL	ACCPN+4
$$ES^LRCAPES	CPTCHK+3
CLEAN^LRCAPES	END+3
ES^LRCAPES	CPTCHK+1, CPTCHK+3
UPDATE^LRPXRM	UNLOCK+2
V^LRU	END+4
DEL^LRWOMEN	ACCPN+39
$$CJ^XLFSTR	TITLE+6, NOTICE+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+4
Function Call: WRITE	Prompt: !! Line Location: NOTICE+15
Function Call: WRITE	Prompt: ! Line Location: WHAT+1
Function Call: WRITE	Prompt: ! Line Location: SECTION+1
Function Call: WRITE	Prompt: ! Line Location: ASK+4
Routine Call	DIE Line Location: AUDIT+9
Routine Call	DIE Line Location: COMPARE+25
Routine Call	DIR Line Location: NOTICE+17 WHAT+13 ASK+7 ASK+14 ASK2+13 SUPRPT+4
Routine Call	DIE Line Location: STORE+4

FileNo	Call Tags
^LAB(69.9 - [#69.9]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DIQ1"	SAVTXT+2!, COMPARE+9, COMPARE+10, COMPARE+13, COMPARE+18!, STORE+5!
^TMP("LRAPBR"	END+1!
^TMP("TIUP"	END+1!

Label References

Name	Line Occurrences
@(	SECTION+7
ACCPN	MAIN+22
ACCYR	MAIN+20
ASK	MAIN+17
ASK2	ACCPN+25
AUDIT	ACCPN+30
COMPARE	ACCPN+29, ACCPN+38
CPTCHK	MAIN+14, ACCPN+3
END	MAIN+7, MAIN+9, MAIN+11, MAIN+13, MAIN+16, MAIN+18, MAIN+21, MAIN+23
NOTICE	MAIN+8
SAVTXT	ACCPN+26, ACCPN+35
SECTION	MAIN+10
STORE	ACCPN+31
TITLE	MAIN+6
UNLOCK	ACCPN+14, ACCPN+19, ACCPN+40, ACCPN+41, ACCPN+43
WHAT	MAIN+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AUDIT+3
DIR	WHAT+2!, SUPRPT+1!
DIR("A"	NOTICE+16, WHAT+11, WHAT+12, ASK+6, ASK+13, ASK2+12, SUPRPT+3*
DIR("B"	NOTICE+16, WHAT+11, WHAT+12, ASK+5, ASK+12, ASK2+11, SUPRPT+2*
DIR(0	NOTICE+16, WHAT+10, WHAT+12, ASK+5, ASK+12, ASK2+11, SUPRPT+2*
>> DIROUT	WHAT+14
>> DIRUT	WHAT+14
DR	ACCPN+27!, ACCPN+36!
>> DTOUT	WHAT+14
>> DUOUT	WHAT+14
DUZ	AUDIT+8
IOF	TITLE+4
IOM	TITLE+6, NOTICE+3
LRA	SUPRPT+7~
>> LRAA	ACCPN+4, ACCYR+1
>> LRABV	SECTION+8
>> LRAD	ACCPN+4, ACCYR+3*
LRAD1	MAIN+2~, ACCYR+1, ACCYR+2, ACCYR+3
>> LRAN	ACCPN+5
>> LRASK	WHAT+5, WHAT+9, WHAT+10, WHAT+11, WHAT+12
LRAU	MAIN+1~, ACCPN+7, ACCPN+12, ACCPN+17, ACCPN+20, ACCPN+32, WHAT+6, SECTION+5, SECTION+6, ASK+2 , ASK+3, ASK+10, SAVTXT+3, SAVTXT+4, COMPARE+2, COMPARE+3, COMPARE+21, COMPARE+23
>> LRCAPA	ACCPN+17, SECTION+7
LRCHG	MAIN+2~, COMPARE+1, COMPARE+9, COMPARE+11, COMPARE+12, COMPARE+14, COMPARE+15, COMPARE+19
LRCT	MAIN+1~, COMPARE+1, COMPARE+7, COMPARE+9, COMPARE+10, COMPARE+13*
LRDA	MAIN+3~, SUPRPT+12
LRDATA	MAIN+1~, ACCPN+4, ACCPN+5, ACCPN+6
LRDATA(1	ACCPN+6
>> LRDFN	ACCPN+6*, ACCPN+12, SAVTXT+3, SAVTXT+4, UNLOCK+2
LRDSC	MAIN+2~, ACCPN+33, ASK2+2!, ASK2+6, ASK2+7, ASK2+8, ASK2+9*, ASK2+12, SAVTXT+9, COMPARE+16
LRDT0	MAIN+3~
LREDIAG	MAIN+4~, ACCPN+18, ACCPN+22, ACCPN+23, ACCPN+32, ACCPN+41, WHAT+17, WHAT+18, ASK+1, ASK2+10 , ASK2+16
LREFPD	MAIN+1~, ASK+2, ASK+9
LREND	MAIN+1~, ACCPN+1, ACCPN+2, ACCPN+5
LRESCPT	MAIN+3~, MAIN+5, ACCPN+42, CPTCHK+3
LRFDA	MAIN+3~, COMPARE+20!, AUDIT+2!
LRFDA(	COMPARE+21*
LRFDA(1	AUDIT+7, AUDIT+8
LRFDA(63	COMPARE+23*
LRFIELD	MAIN+3~
LRFILE	MAIN+2~, SAVTXT+3, SAVTXT+4, SAVTXT+6, COMPARE+2, COMPARE+3, COMPARE+4, COMPARE+7, COMPARE+8, COMPARE+14 , AUDIT+5*, AUDIT+6, AUDIT+7, AUDIT+8, STORE+4
LRFILE1	MAIN+3~
LRFLD	MAIN+2~, ACCPN+21, ACCPN+22, ACCPN+23, ACCPN+24, ACCPN+27, ACCPN+34, ACCPN+36, ASK2+3, ASK2+4 , ASK2+5, ASK2+6, ASK2+8, ASK2+9, SAVTXT+5, SAVTXT+6, COMPARE+19
LRFLDA	MAIN+2~, ASK2+4, ASK2+5, ASK2+8, ASK2+9, AUDIT+5
LRFLG	SUPRPT+7~
LRGMDF	MAIN+1~, ACCPN+25, ASK2+1, ASK2+15, ASK2+16*
>> LRH(0	ACCPN+4, ACCYR+1, ACCYR+3*
>> LRI	ACCPN+6*, ACCPN+12, SAVTXT+3, UNLOCK+2
LRIENS	MAIN+2~, ACCPN+12, SAVTXT+3, SAVTXT+4*, SAVTXT+6, COMPARE+21, COMPARE+23, AUDIT+4, STORE+2
LRIENS1	MAIN+2~, AUDIT+4, AUDIT+7, AUDIT+8, STORE+1!, STORE+2, STORE+4
LRIENS2	MAIN+3~
LRLOCK	MAIN+4~, ACCPN+7*, ACCPN+8, UNLOCK+3
LRMSG	MAIN+1~, ACCPN+9, ACCPN+10, ACCPN+11!, TITLE+5, TITLE+6, TITLE+9!, NOTICE+1!, NOTICE+2, NOTICE+3 , NOTICE+14!, SECTION+10!, SAVTXT+8!, SAVTXT+13
LRMSG(1	TITLE+6, TITLE+7, NOTICE+3, SECTION+8, SAVTXT+9, SAVTXT+10
LRMSG(2	TITLE+8, NOTICE+4, SECTION+9, SAVTXT+11, SAVTXT+12*
LRMSG(3	NOTICE+5, NOTICE+6, NOTICE+7*
LRMSG(4	NOTICE+8, NOTICE+9
LRMSG(5	NOTICE+10, NOTICE+11
LRMSG(6	NOTICE+12, NOTICE+13
LRNOTXT	MAIN+4~, SAVTXT+1, SAVTXT+14, COMPARE+5
LRNOW	SUPRPT+7~
LRNTIME	AUDIT+1~, AUDIT+3*, AUDIT+7
>> LRO(68	ACCPN+4, SECTION+4*, SECTION+8, ACCYR+1
LRORIEN	MAIN+3~, MAIN+4~
LRORIEN(1	STORE+2
LRQUIT	MAIN+1~, MAIN+7, MAIN+9, MAIN+11, MAIN+13, MAIN+16, MAIN+18, MAIN+21, ACCPN+2, ACCPN+14 , ACCPN+19, ACCPN+21, ACCPN+25, ACCPN+29, ACCPN+30, ACCPN+40, TITLE+1, TITLE+3, NOTICE+18, WHAT+14* , WHAT+15, WHAT+16, SECTION+3, ASK+8, ASK+15, ACCYR+2, ASK2+14, COMPARE+1, COMPARE+6, AUDIT+6* , SUPRPT+8, SUPRPT+10, SUPRPT+11, SUPRPT+14, SUPRPT+16
LRQUIT1	MAIN+4~, TITLE+1, SUPRPT+5
LRREL	MAIN+1~
LRRLS	SUPRPT+7~, SUPRPT+9*
>> LRRLS1	SUPRPT+9*
>> LRSF	SAVTXT+3, COMPARE+21, AUDIT+5
>> LRSS	ACCPN+4, ACCPN+24, ACCPN+39, WHAT+7, WHAT+8, SECTION+3, SECTION+6, SECTION+7, UNLOCK+2
LRTMP	MAIN+1~, SAVTXT+6*, SAVTXT+7
LRWM	MAIN+1~, ASK+3, ASK+16
LRWPROOT	MAIN+3~, STORE+3*, STORE+4
LRX	SUPRPT+7~
LRXTMP	MAIN+2~, COMPARE+8*, COMPARE+11
LRYTMP	MAIN+2~, COMPARE+10*, COMPARE+11
>> SEX	ACCPN+39
U	ACCYR+3
>> XASK	WHAT+5, WHAT+7, WHAT+8*, WHAT+9
>> Y	TITLE+3, NOTICE+18, WHAT+15, WHAT+17, SECTION+3, ASK+8, ASK+9, ASK+15, ASK+16, ASK2+14 , ASK2+15, SUPRPT+5, SUPRPT+6, SUPRPT+12*

Marked Items

Name	Field # of Occurrence
$T(CLEAN^LRCAPES	END+3
$T(ES^LRCAPES	CPTCHK+1, CPTCHK+3

Customize PDF page

Package: Lab Service

Routine: LRAPMRL

Information

Source Information

Call Graph

Call Graph Total: 18

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