Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LRRPL

Package: Lab Service

Routine: LRRPL


Information

LRRPL ;DALOI/JMC - Interim Report Performing Lab Utility ;03/12/13 09:46

Source Information

Source file <LRRPL.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

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

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
63.26 EXTERNAL^DILFD
63.819 EXTERNAL^DILFD

Global Variables Directly Accessed

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All