Routine: LRRPL

Package	Total	Call Graph
Kernel	3	$$FMTE^XLFDT $$TITLE^XLFSTR ($$ID,$$NAME,$$PADD,$$WHAT)^XUAF4
VA FileMan	1	$$EXTERNAL^DILFD

Package	Total	Caller Graph
Lab Service	7	LR7OB63C LR7OSMZ1 LRAPBR1 LRMIPSZ1 LRRPLU LRRPLUA LRSPRPTA

Entry Points

Name	Comments	DBIA/ICR reference
RETLST(LRPL,LRDFN,LRSS,LRIDT,LROPT)	; Retreive list of Report sections and related performing labs. ; Call with LRPL = array listing section and related performing lab name/address/CLIA (by reference) ; LRDFN = File #63 IEN ; LRSS = File #63 subscript ; LRIDT = File #63 inverse date/time of specimen ; LROPT = 0 (addresses); 1 (no addresses); 2 (list/iens) ; ; Returns LRPL = array listing section and related performing lab name/address/CLIA ;
RETSEC(LRREC,LRDFN,LRPLIEN,LROPT)	; Retrieve Report section and related performing lab. ; Call with LRREC = array listing section and related performing lab name/address/CLIA (by reference) ; LRDFN = File #63 IEN ; LRPLIEN = Reference to entry in "PL" subscript ; LROPT = 0 (addresses); 1 (no addresses); 2 (list/iens)
CHCHK	; Check and resolve CH subscript
MICHK	; Check and resolve MI subscript
APCHK	; Check and resolve SP, CY and EM subscript
AUCHK	; Check and resolve AU subscript
GETORG(LRREF)	; Retrieve name of organism from file #61.2 ; Call with LRREF = reference to entry in file #63
GETDRUG(LRSECT,LRJ)	; Retreive name of drug in file #62.06 from drug data name ; Call with LRSECT = drug section in MI subscript (3=bacteria/12-TB) ; LRJ = drug node
GETDRUG2(LRREF)	; Retreive name of drug in file 63.32 (#200) ANTIBIOTIC or file 63.42A (#28) ANTIBIOTIC LEVEL ; Call with LRREF = reference to entry in file #63
CMTSEQ(LRREF)	; Determine the sequence # for a comment line ; Deal with intervening comments being deleted during edits resulting in the comment IEN being ; different than the display sequence #.
MISEQ	; Check for comment seq on MI subscript

Name	Field # of Occurrence
$$EXTERNAL^DILFD	APCHK+40, AUCHK+21
$$FMTE^XLFDT	APCHK+29, AUCHK+30
$$TITLE^XLFSTR	GETORG+5, GETDRUG+8
$$ID^XUAF4	RETSEC+25
$$NAME^XUAF4	RETSEC+23
$$PADD^XUAF4	RETSEC+31
$$WHAT^XUAF4	RETSEC+31

FileNo	Call Tags
63.26	EXTERNAL^DILFD
63.819	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	APCHK+37, AUCHK+18
^LAB(61.2 - [#61.2]	GETORG+5
^LAB(62.06 - [#62.06]	GETDRUG+7, GETDRUG+8
^LR - [#63]	RETLST+12, RETLST+14, RETSEC+9, MICHK+8, APCHK+28, APCHK+36, APCHK+39, AUCHK+17, AUCHK+20, AUCHK+29 , GETORG+4, GETDRUG2+6, GETDRUG2+7, CMTSEQ+18, CMTSEQ+21, MISEQ+5, MISEQ+10, MISEQ+14

Name	Line Occurrences
$$CMTSEQ	MICHK+23, MICHK+30, MICHK+38, MICHK+46, MICHK+61, MICHK+67, MICHK+78, MICHK+85, MICHK+93, MICHK+104 , MICHK+113, APCHK+46, APCHK+50, AUCHK+6
$$GETDRUG	MICHK+32, MICHK+80
$$GETDRUG2	MICHK+33, MICHK+89
$$GETORG	MICHK+28, MICHK+44, MICHK+59, MICHK+76, MICHK+99
@(	RETSEC+16
APCHK	RETSEC+17
AUCHK	RETSEC+18
MISEQ	CMTSEQ+14
RETSEC	RETLST+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLIA	RETSEC+8~, RETSEC+25*, RETSEC+26, RETSEC+27, RETSEC+28
IOM	RETSEC+27
LR4	RETSEC+8~, RETSEC+9*, RETSEC+23, RETSEC+25, RETSEC+31
LRDFN	RETLST~, RETLST+11, RETLST+12, RETLST+14, RETLST+15, RETSEC~, RETSEC+9, MICHK+8, CMTSEQ+8~, CMTSEQ+10* , CMTSEQ+18, CMTSEQ+21, MISEQ+5, MISEQ+10, MISEQ+14
LRDN	GETDRUG+6~, GETDRUG+7, GETDRUG+8, GETDRUG+10, GETDRUG2+5~, GETDRUG2+8*, GETDRUG2+10
LRI	MICHK+107~, MICHK+108, MICHK+109, MICHK+110, MICHK+111, APCHK+26~, APCHK+28, APCHK+29, APCHK+34~, APCHK+36* , APCHK+37, APCHK+39, APCHK+40, AUCHK+15~, AUCHK+17, AUCHK+18, AUCHK+20, AUCHK+21, AUCHK+27~, AUCHK+29 , AUCHK+30, GETORG+3~, GETORG+4, GETORG+5, GETDRUG2+5~, GETDRUG2+6, GETDRUG2+7, GETDRUG2+8, CMTSEQ+8~, CMTSEQ+9 , CMTSEQ+18, CMTSEQ+21, MISEQ+5, MISEQ+10, MISEQ+14*
LRIDT	RETLST~, RETLST+11, CMTSEQ+8~, CMTSEQ+11*, CMTSEQ+18, MISEQ+5, MISEQ+10, MISEQ+14
LRJ	GETDRUG~, GETDRUG+7
LROPT	RETLST~, RETLST+15, RETSEC~, RETSEC+20, RETSEC+30
LRORG	MICHK+26~, MICHK+28, MICHK+30, MICHK+31, MICHK+32, MICHK+33, MICHK+34, MICHK+44, MICHK+46, MICHK+47 , MICHK+48, MICHK+49, MICHK+59, MICHK+61, MICHK+62, MICHK+63, MICHK+74~, MICHK+76, MICHK+78, MICHK+79 , MICHK+80, MICHK+81, MICHK+99*, MICHK+100
LRPL	RETLST~, RETLST+10*, RETLST+15
LRPLIEN	RETLST+9~, RETLST+14*, RETLST+15, RETSEC~, RETSEC+9, RETSEC+20
LRQUIT	RETLST+9~, RETLST+10, RETLST+12, RETLST+13
LRREC	RETLST+9~, RETLST+11, RETLST+13, RETSEC~, RETSEC+13, RETSEC+14, RETSEC+15, RETSEC+20, RETSEC+22, RETSEC+23* , RETSEC+27, RETSEC+28, RETSEC+33, RETSEC+34, MICHK+6, MICHK+14, MICHK+17, MICHK+18, MICHK+19, MICHK+22 , MICHK+23, MICHK+27, MICHK+30, MICHK+31, MICHK+32, MICHK+33, MICHK+34, MICHK+37, MICHK+38, MICHK+40 , MICHK+43, MICHK+46, MICHK+47, MICHK+48, MICHK+49, MICHK+52, MICHK+53, MICHK+55, MICHK+58, MICHK+61 , MICHK+62, MICHK+63, MICHK+66, MICHK+67, MICHK+70, MICHK+71, MICHK+75, MICHK+78, MICHK+79, MICHK+80 , MICHK+81, MICHK+84, MICHK+85, MICHK+88, MICHK+89, MICHK+92, MICHK+93, MICHK+95, MICHK+98, MICHK+100 , MICHK+103, MICHK+104, MICHK+112, MICHK+113, MICHK+116, MICHK+119, APCHK+6, APCHK+9, APCHK+12, APCHK+13 , APCHK+14, APCHK+15, APCHK+18, APCHK+19, APCHK+22, APCHK+27, APCHK+30, APCHK+35, APCHK+41, APCHK+42 , APCHK+46, APCHK+47, APCHK+50, APCHK+51, AUCHK+3, AUCHK+6, AUCHK+7, AUCHK+10, AUCHK+11, AUCHK+16 , AUCHK+22, AUCHK+23, AUCHK+28, AUCHK+31
LRREC(	RETSEC+14, RETSEC+15, RETSEC+20, RETSEC+22, RETSEC+23, RETSEC+27, RETSEC+28, RETSEC+34, MICHK+6, MICHK+14* , MICHK+17, MICHK+18, MICHK+19, MICHK+22, MICHK+23, MICHK+27, MICHK+30, MICHK+31, MICHK+32, MICHK+33 , MICHK+34, MICHK+37, MICHK+38, MICHK+40, MICHK+43, MICHK+46, MICHK+47, MICHK+48, MICHK+49, MICHK+52 , MICHK+53, MICHK+55, MICHK+58, MICHK+61, MICHK+62, MICHK+63, MICHK+66, MICHK+67, MICHK+70, MICHK+71 , MICHK+75, MICHK+78, MICHK+79, MICHK+80, MICHK+81, MICHK+84, MICHK+85, MICHK+88, MICHK+89, MICHK+92 , MICHK+93, MICHK+95, MICHK+98, MICHK+100, MICHK+103, MICHK+104, MICHK+112, MICHK+113, MICHK+116, MICHK+119 , APCHK+6, APCHK+9, APCHK+12, APCHK+13, APCHK+14, APCHK+15, APCHK+18, APCHK+19, APCHK+22, APCHK+27 , APCHK+30, APCHK+35, APCHK+41, APCHK+42, APCHK+46, APCHK+47, APCHK+50, APCHK+51, AUCHK+3, AUCHK+6 , AUCHK+7, AUCHK+10, AUCHK+11, AUCHK+16, AUCHK+22, AUCHK+23, AUCHK+28, AUCHK+31
LRREC(""	RETSEC+13
LRREC(0	RETSEC+20*
LRREF	RETSEC+8~, RETSEC+9*, RETSEC+16, RETSEC+17, RETSEC+18, RETSEC+20, MICHK+4, MICHK+8, MICHK+16, MICHK+17 , MICHK+18, MICHK+21, MICHK+22, MICHK+23, MICHK+25, MICHK+27, MICHK+28, MICHK+29, MICHK+30, MICHK+32 , MICHK+33, MICHK+36, MICHK+37, MICHK+38, MICHK+40, MICHK+42, MICHK+43, MICHK+44, MICHK+45, MICHK+46 , MICHK+48, MICHK+51, MICHK+52, MICHK+53, MICHK+55, MICHK+57, MICHK+58, MICHK+59, MICHK+60, MICHK+61 , MICHK+65, MICHK+66, MICHK+67, MICHK+69, MICHK+70, MICHK+73, MICHK+75, MICHK+76, MICHK+77, MICHK+78 , MICHK+80, MICHK+83, MICHK+84, MICHK+85, MICHK+87, MICHK+88, MICHK+89, MICHK+91, MICHK+92, MICHK+93 , MICHK+95, MICHK+97, MICHK+98, MICHK+99, MICHK+102, MICHK+103, MICHK+104, MICHK+106, MICHK+108, MICHK+112 , MICHK+113, MICHK+116, MICHK+119, APCHK+3, APCHK+6, APCHK+9, APCHK+12, APCHK+13, APCHK+14, APCHK+15 , APCHK+18, APCHK+19, APCHK+22, APCHK+25, APCHK+27, APCHK+28, APCHK+33, APCHK+35, APCHK+36, APCHK+38 , APCHK+39, APCHK+45, APCHK+46, APCHK+49, APCHK+50, AUCHK+3, AUCHK+5, AUCHK+6, AUCHK+10, AUCHK+11 , AUCHK+14, AUCHK+16, AUCHK+17, AUCHK+19, AUCHK+20, AUCHK+26, AUCHK+28, AUCHK+29, GETORG~, GETORG+4 , GETDRUG2~, GETDRUG2+6, GETDRUG2+7, CMTSEQ~, CMTSEQ+10, CMTSEQ+11, CMTSEQ+12, CMTSEQ+18, CMTSEQ+21, MISEQ+5 , MISEQ+10, MISEQ+14
LRSECT	MICHK+5~, MICHK+6, MICHK+7, MICHK+9, MICHK+10, MICHK+11, MICHK+13, GETDRUG~, GETDRUG+7, CMTSEQ+8~ , CMTSEQ+11, CMTSEQ+12*, CMTSEQ+17, CMTSEQ+18, CMTSEQ+21, MISEQ+4, MISEQ+5, MISEQ+9, MISEQ+10, MISEQ+13 , MISEQ+14
LRSS	RETLST~, RETLST+11, APCHK+2~, APCHK+3, APCHK+6, APCHK+9, CMTSEQ+8~, CMTSEQ+11, CMTSEQ+12*, CMTSEQ+14 , CMTSEQ+17, CMTSEQ+18, CMTSEQ+20, MISEQ+5, MISEQ+10, MISEQ+14
LRSST	APCHK+34~, APCHK+40, APCHK+41, AUCHK+15~, AUCHK+21, AUCHK+22
LRX	RETLST+9~, RETLST+11, RETLST+12, RETLST+13, RETLST+14, RETSEC+8~, RETSEC+9, RETSEC+20, RETSEC+31, RETSEC+32 , RETSEC+34, MICHK+107~, MICHK+109, MICHK+110, MICHK+111, MICHK+112, MICHK+113, APCHK+26~, APCHK+29, APCHK+30 , APCHK+34~, APCHK+37, APCHK+41, APCHK+42, AUCHK+15~, AUCHK+18, AUCHK+22, AUCHK+23, AUCHK+27~, AUCHK+30 , AUCHK+31, GETORG+3~, GETORG+5, GETORG+7, CMTSEQ+8~, MISEQ+3, MISEQ+4, MISEQ+8*, MISEQ+9
LRX(1	RETSEC+31*, RETSEC+34
LRY	CMTSEQ+8~, CMTSEQ+9, CMTSEQ+18, CMTSEQ+21, CMTSEQ+23, MISEQ+5, MISEQ+10, MISEQ+14
U	RETSEC+34
X	MICHK+5~, MICHK+7, MICHK+8, MICHK+9, MICHK+12, MICHK+13
Y	MICHK+5~, MICHK+13*, MICHK+14

Customize PDF page

Package: Lab Service

Routine: LRRPL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: