Routine: BLRUTIL8

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ($$DT,$$FMADD,$$FMDIFF,$$FMTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR $$SETUP1^XQALERT
IHS Changes To Lab	3	(HEADERDT,HEADERPG,HEADONE,LINEWRAP,PRESSKEY)^BLRGMENU ($$BADSTUFF,$$PLURALI,BADSTUFF)^BLRUTIL7 MAILALMI^BLRUTIL8
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	2	^XBCLS ^XBFMK
MailMan	2	CHK^XMA21 ^XMD
Lab Service	1	^LRWU4
Order Entry Results Reporting	1	$$VALUE^ORCSAVE2
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Lab Service	3	LR7OF1 LRDIDLE0 LRRP1
IHS Changes To Lab	2	BLRQUALU BLRUTIL8

Entry Points

Name	Comments	DBIA/ICR reference
JUSTNEW	; EP - Generic RPMS EXCLUSIVE NEW
ARRIVETM(LRDFN,LRSS,LRIDT)	; EP - Print Arrival Time on Interim Report -- called from LRRP1
LINEMSG(MSG,FILLER,TAB)	; EP - Demarcation line, Version 2
DUPNAMEI()	; EP - Initialization
SNDALERT(ALERTMSG,NOUSER,MAILGROUP)	; EP - Send Alert
DUPNAMEC(ARRAY)	; EP - Check on the DataName
SETBLRVS(TWO)	; EP - Use the STACK to find the Routine and set the BLRVRN variable(S) ; S CONTXT=$STACK(-1)-1 ; S:CONTXT<1 CONTXT=1 ; S PLACE=$STACK(CONTXT,"PLACE") ; S BLRVERN=$P($P(PLACE,"^",2)," ") ; ----- BEGIN IHS/MSC/MKK - LR5.21039 - Don't use $STACK
IHSURGNT	; EP
LRORDATA(LRODT,LRSP,LM,RM)	; EP - Display File 69 Data
LINEONE(MSG,FILLER)	; EP - Demarcation line
RJZF(NUM,LEN)	; EP - Right Justify, Zero Fill function
LAHREPT	; EP - ^LAH Update Date Report
SENDMAIL(MAILMSG,MAILARRY,FROMWHOM,NOUSER,MAILGROUP)	; EP
ORDRDATA	; EP - Display data from the ORDER file
LRASDATA(LRAA,LRAD,LRAN,LM,RM)	; EP - Display File 68 Data
LABDATA	; EP - Display Data from Lab Data file, if it exists -- LRAA,LRAD,LRAN must exist
NINMGRP(MAILGROUP,USERDUZ)	; EP - Is User NOT a member of the MailGroup?
DETAILIN(SUBRTN)	; EP - Initialize variables
LABGLOBR	; EP - Given Accession number/UID, list Data from Files 68, 69 & 63.
DUPNAMEL	; EP - Line of Data
LABDATAD(LRDFN,LRSS,LRIDT,NOPRESS,LM,RM)	; EP - Display File 63 Data
MAILALMI(MESSAGE,MSGARRAY,FROMWHOM,NOUSER,MAILGROUP)	; EP - Generic MAILER/ALERTER - allows any MailGroup
DUPDNAME	; EP - Find Instances of Duplicate DataNames

External References

Name	Field # of Occurrence
^%ZIS	DUPNAMEI+15
^%ZISC	DUPDNAME+14
HEADERDT^BLRGMENU	DUPNAMEI+6, LAHREPT+4, LAHREPT+13, LAHREPT+15
HEADERPG^BLRGMENU	DUPNAMEL+3, DUPNAMEL+7, LAHREPT+36
HEADONE^BLRGMENU	DUPNAMEI+7, LAHREPT+14
LINEWRAP^BLRGMENU	LRASDATA+16, LRASDATA+19, LRORDATA+11, LRORDATA+14, LABDATAD+12, LABDATAD+19
PRESSKEY^BLRGMENU	DUPDNAME+16, DUPNAMEI+18, LABGLOBR+11, LABDATAD+23, LAHREPT+49
$$BADSTUFF^BLRUTIL7	DETAILIN+7
$$PLURALI^BLRUTIL7	LAHREPT+48
BADSTUFF^BLRUTIL7	LAHREPT+8
MAILALMI^BLRUTIL8	IHSURGNT+23
$$FIND1^DIC	NINMGRP+2
$$GET1^DIQ	ARRIVETM+11, IHSURGNT+6, IHSURGNT+7, IHSURGNT+12, IHSURGNT+13, DETAILIN+9, DETAILIN+11, DETAILIN+12, DETAILIN+13, LABDATA+3 , LABDATA+4, LABDATAD+18
^DIR	LAHREPT+7
^LRWU4	DETAILIN+4
$$VALUE^ORCSAVE2	IHSURGNT+7
^XBCLS	DETAILIN+3, LRASDATA+3
^XBFMK	LAHREPT+5
$$DT^XLFDT	SNDALERT+15, SENDMAIL+21
$$FMADD^XLFDT	SNDALERT+15, SENDMAIL+21
$$FMDIFF^XLFDT	LAHREPT+42
$$FMTE^XLFDT	DUPNAMEL+14, ARRIVETM+15, LAHREPT+39, LAHREPT+40
$$HTFM^XLFDT	SENDMAIL+20
$$NOW^XLFDT	SENDMAIL+10
$$CJ^XLFSTR	LINEONE+2, LINEMSG+2
$$UP^XLFSTR	IHSURGNT+6, IHSURGNT+7
CHK^XMA21	NINMGRP+6
^XMD	SENDMAIL+16
$$GET^XPAR	IHSURGNT+1
$$SETUP1^XQALERT	SNDALERT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"Number of Duplicate Datanames = ",CNT Line Location: DUPDNAME+7
Function Call: WRITE	Prompt: !!,?4,DATANCNT," DataNames Analyzed." Line Location: DUPDNAME+10
Function Call: WRITE	Prompt: !!,?9,$S(CNT:CNT,1:"No")," Duplicate DataName",$S(CNT=1:"",1:"s"),"." Line Location: DUPDNAME+11
Function Call: WRITE	Prompt: !,?4,"Invalid DEVICE call. Routine Ends." Line Location: DUPNAMEI+17
Function Call: WRITE	Prompt: $J(CNTDN,3) Line Location: DUPNAMEL+10
Function Call: WRITE	Prompt: ?9,DATANAME Line Location: DUPNAMEL+11
Function Call: WRITE	Prompt: ?19,$E(DATADESC,1,28) Line Location: DUPNAMEL+12
Function Call: WRITE	Prompt: ?65,$O(^LAB(60,"C","CH;"_DATANAME_";1",0)) Line Location: DUPNAMEL+15
Function Call: WRITE	Prompt: ! Line Location: DUPNAMEL+16
Function Call: WRITE	Prompt: ! Line Location: DUPNAMEL+19
Function Call: WRITE	Prompt: ?(IOM-$L(ARRIVTE)-1),ARRIVTE Line Location: ARRIVETM+16
Function Call: WRITE	Prompt: !! Line Location: DETAILIN+5
Function Call: WRITE	Prompt: ! Line Location: LRASDATA+5
Function Call: WRITE	Prompt: ?LM,STR1,"=" Line Location: LRASDATA+16
Function Call: WRITE	Prompt: ! Line Location: LRASDATA+16
Function Call: WRITE	Prompt: ?(LM+5),STR1,"=" Line Location: LRASDATA+18
Function Call: WRITE	Prompt: ! Line Location: LRASDATA+19
Function Call: WRITE	Prompt: ! Line Location: ORDRDATA+3
Function Call: WRITE	Prompt: ?7,"No Order File Data",! Line Location: ORDRDATA+6
Function Call: WRITE	Prompt: ?LM,STR1,"=" Line Location: LRORDATA+11
Function Call: WRITE	Prompt: ! Line Location: LRORDATA+11
Function Call: WRITE	Prompt: ?(LM+5),STR1,"=" Line Location: LRORDATA+13
Function Call: WRITE	Prompt: ! Line Location: LRORDATA+14
Function Call: WRITE	Prompt: ! Line Location: LABDATA+8
Function Call: WRITE	Prompt: ! Line Location: LABDATA+10
Function Call: WRITE	Prompt: ! Line Location: LABDATA+12
Function Call: WRITE	Prompt: ?LM,STR1,"=" Line Location: LABDATAD+12
Function Call: WRITE	Prompt: ! Line Location: LABDATAD+12
Function Call: WRITE	Prompt: ?(LM+5),STR1,"=" Line Location: LABDATAD+14
Function Call: WRITE	Prompt: $S(LRSS="CH":$$GET1^DIQ(60,F60IEN,.01),1:""),! Line Location: LABDATAD+18
Function Call: WRITE	Prompt: ! Line Location: LABDATAD+19
Function Call: WRITE	Prompt: ?4,MSG,! Line Location: LINEONE+3
Function Call: WRITE	Prompt: ?($S(+$G(TAB):TAB-1,1:0)),MSG,!! Line Location: LINEMSG+3
Function Call: WRITE	Prompt: ?4,LRUID Line Location: LAHREPT+38
Function Call: WRITE	Prompt: ! Line Location: LAHREPT+43
Function Call: WRITE	Prompt: !!,?4,ISQNCNT," entries analyzed." Line Location: LAHREPT+47
Function Call: WRITE	Prompt: !!,?9,$S(CNT:CNT,1:"No")," entr",$$PLURALI^BLRUTIL7(CNT)," with UIDs." Line Location: LAHREPT+48
Routine Call	DIC Line Location: NINMGRP+2
Routine Call	DIR Line Location: LAHREPT+7
Routine Call	%ZIS Line Location: DUPNAMEI+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^XMB(3.8 - [#3.8]	FIND1^DIC
^LAB(60 - [#60]	GET1^DIQ
^LAB(62.05 - [#62.05]	GET1^DIQ
^LRO(68 - [#68]	GET1^DIQ
68.02	GET1^DIQ
69.01	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.04	DUPDNAME+5, DUPNAMEC+8, DUPNAMEC+11
^LAB(60 - [#60]	DUPNAMEL+15, LABDATAD+17
^LAH(	LAHREPT+27, LAHREPT+29, LAHREPT+32
^LR - [#63]	ARRIVETM+5, LABDATA+5, LABDATA+7
^LRO(68 - [#68]	ARRIVETM+8, DETAILIN+7
^LRO(69 - [#69]	ORDRDATA+9, ORDRDATA+11
^XTMP(	SNDALERT+15, SNDALERT+16, SNDALERT+17, SNDALERT+18, SNDALERT+19, SNDALERT+20, SENDMAIL+21, SENDMAIL+22, SENDMAIL+23, SENDMAIL+26

Label References

Name	Line Occurrences
$$DETAILIN	LABGLOBR+3
$$DUPNAMEC	DUPNAMEL+1
$$DUPNAMEI	DUPDNAME+3
$$NINMGRP	SNDALERT+6, SENDMAIL+8
DUPNAMEL	DUPDNAME+5
LABDATA	LABGLOBR+9
LABDATAD	LABDATA+15
LINEMSG	LRASDATA+6, ORDRDATA+4, LABDATA+13
LINEONE	LABDATA+9
LRASDATA	LABGLOBR+5
LRORDATA	ORDRDATA+12
ORDRDATA	LABGLOBR+7
SENDMAIL	MAILALMI+17
SETBLRVS	DUPNAMEI+1
SNDALERT	MAILALMI+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALERTMSG	SNDALERT~, SNDALERT+1, SNDALERT+18
ARRAY	DUPNAMEC~, DUPNAMEC+5!, SENDMAIL+19~, SENDMAIL+24, SENDMAIL+25, SENDMAIL+26
ARRAY(	DUPNAMEC+10, DUPNAMEC+11
>> ARRIVTE	ARRIVETM+15*, ARRIVETM+16
>> ARRIVTI	ARRIVETM+11*, ARRIVETM+12, ARRIVETM+15
BLRVERN	SETBLRVS+6!, SETBLRVS+8*
BLRVERN2	SETBLRVS+6!, SETBLRVS+10*
CNT	DUPDNAME+11, DUPNAMEI+22, DUPNAMEL+21, LABDATA+1~, LAHREPT+24, LAHREPT+45, LAHREPT+48
>> CNTDN	DUPNAMEL+5, DUPNAMEL+9, DUPNAMEL+10
COL	DETAILIN+1~
COL2	DETAILIN+1~
>> CREATDTT	LAHREPT+33*, LAHREPT+39, LAHREPT+41, LAHREPT+42
>> CREATEDT	DUPNAMEL+13*, DUPNAMEL+14
>> DATADESC	DUPDNAME+5, DUPNAMEI+25, DUPNAMEL+12, DUPNAMEC+8
>> DATANAME	DUPNAMEL+5, DUPNAMEL+6, DUPNAMEL+11, DUPNAMEL+13, DUPNAMEL+15
>> DATANCNT	DUPDNAME+10, DUPNAMEI+26, DUPNAMEC+1
DIFROM	SENDMAIL+1~
>> DILOCKTM	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
>> DIR(0	LAHREPT+6*
>> DIRUT	LAHREPT+8
>> DISYS	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
DN	DUPNAMEC+3~, DUPNAMEC+7, DUPNAMEC+8, DUPNAMEC+10, DUPNAMEC+11, LABDATAD+16*, LABDATAD+17
DT	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
DTIME	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
>> DUPNAMEA	DUPNAMEL+1
>> DUPNAMEA(	DUPNAMEL+6, DUPNAMEL+13
DUZ	DUPDNAME+1, ARRIVETM+1, SNDALERT+6, SENDMAIL+8, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
>> F60IEN	LABDATAD+17*, LABDATAD+18
FILLER	LINEONE~, LINEONE+2, LINEMSG~, LINEMSG+2
FROMWHOM	MAILALMI~, MAILALMI+15*, MAILALMI+17, SENDMAIL~, SENDMAIL+14
>> HDRONE	DUPNAMEI+7, DUPNAMEL+3, DUPNAMEL+7, LAHREPT+14, LAHREPT+36
>> HEADER(1	DUPNAMEI+3, LAHREPT+3
>> HEADER(2	DUPNAMEI+4, LAHREPT+12
>> HEADER(3	DUPNAMEI+9, LAHREPT+17
>> HEADER(4	DUPNAMEI+10, DUPNAMEI+11, DUPNAMEI+12, DUPNAMEI+13, LAHREPT+18, LAHREPT+19, LAHREPT+20, LAHREPT+21
HOSPDIV	IHSURGNT+4~, IHSURGNT+6*, IHSURGNT+10, IHSURGNT+15
>> HRCN	IHSURGNT+15, IHSURGNT+19
IO	DUPDNAME+1, DUPNAMEI+20, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
>> IOBS	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
IOF	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
IOM	DUPDNAME+1, ARRIVETM+1, ARRIVETM+16, LABGLOBR+1, LRASDATA+1, LRASDATA+13, LRORDATA+1, LRORDATA+8, LABDATAD+1, LABDATAD+8 , LINEMSG+2, LAHREPT+1, JUSTNEW+1
ION	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
>> IOS	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
IOSL	DUPDNAME+1, DUPNAMEI+23, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, LAHREPT+23, JUSTNEW+1
IOST	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
>> IOT	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
>> IOXY	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
>> ISQN	LAHREPT+26, LAHREPT+27, LAHREPT+29, LAHREPT+32
>> ISQNCNT	LAHREPT+26, LAHREPT+28, LAHREPT+47
LABORD	IHSURGNT+4~, IHSURGNT+12, IHSURGNT+13, IHSURGNT+15, IHSURGNT+17
LEN	RJZF~, RJZF+1
>> LETSGO	LRASDATA+10, LRASDATA+15, LRORDATA+5, LRORDATA+10, LABDATAD+5*, LABDATAD+11
>> LINES	DUPNAMEI+23, DUPNAMEL+3, DUPNAMEL+7, DUPNAMEL+17, DUPNAMEL+20, LAHREPT+23, LAHREPT+36, LAHREPT+44*
LM	LRASDATA~, LRASDATA+1, LRASDATA+12, LRASDATA+16, LRASDATA+18, LRORDATA~, LRORDATA+1, LRORDATA+7, LRORDATA+11, LRORDATA+13 , LABDATAD~, LABDATAD+1, LABDATAD+7*, LABDATAD+12, LABDATAD+14, LABDATAD+23
LRAA	ARRIVETM+10*, ARRIVETM+11, LABGLOBR+5, DETAILIN+7, DETAILIN+9, DETAILIN+10, LRASDATA~, LRASDATA+1, LRASDATA+8
>> LRAAIEN	DETAILIN+10*, DETAILIN+11, DETAILIN+12, DETAILIN+13, LABDATA+3, LABDATA+4
LRAD	ARRIVETM+10*, ARRIVETM+11, LABGLOBR+5, DETAILIN+7, DETAILIN+10, LRASDATA~, LRASDATA+1, LRASDATA+8
LRAN	ARRIVETM+10*, ARRIVETM+11, LABGLOBR+5, DETAILIN+7, DETAILIN+10, LRASDATA~, LRASDATA+1, LRASDATA+8
>> LRAS	DETAILIN+12*
>> LRBLNOW	SENDMAIL+10*
>> LRC	ARRIVETM+8*, ARRIVETM+9, ARRIVETM+10
LRDFN	ARRIVETM~, ARRIVETM+1, ARRIVETM+5, LABDATA+1~, LABDATA+3*, LABDATA+5, LABDATA+7, LABDATA+9, LABDATA+15, LABDATAD~ , LABDATAD+1, LABDATAD+3
LRIDT	ARRIVETM~, ARRIVETM+1, ARRIVETM+5, LABDATA+1~, LABDATA+4*, LABDATA+5, LABDATA+7, LABDATA+9, LABDATA+15, LABDATAD~ , LABDATAD+1, LABDATAD+3
LRODT	IHSURGNT+12, ORDRDATA+8, ORDRDATA+9, ORDRDATA+11, ORDRDATA+12, LRORDATA~, LRORDATA+1, LRORDATA+3
>> LRPNM	IHSURGNT+19
LRSN	IHSURGNT+12, ORDRDATA+1~
LRSP	ORDRDATA+10, ORDRDATA+11, ORDRDATA+12, LRORDATA~, LRORDATA+1, LRORDATA+3
LRSS	ARRIVETM~, ARRIVETM+1, ARRIVETM+3, ARRIVETM+5, ARRIVETM+14, DETAILIN+9*, LABDATA+5, LABDATA+7, LABDATA+15, LABDATAD~ , LABDATAD+1, LABDATAD+3, LABDATAD+18
LRSUB	LABDATA+1~
>> LRUID	LAHREPT+29*, LAHREPT+30, LAHREPT+38
>> LWL	LAHREPT+10*, LAHREPT+12, LAHREPT+27, LAHREPT+29, LAHREPT+32
>> LWLDESC	LAHREPT+10*, LAHREPT+12
MAILARRY	MAILALMI+1~, MAILALMI+9*, MAILALMI+17, SENDMAIL~
MAILARRY(	SENDMAIL+25, SENDMAIL+26
MAILARRY(1	MAILALMI+12*
MAILARRY(2	MAILALMI+13*
MAILGROUP	MAILALMI~, MAILALMI+3*, MAILALMI+6, MAILALMI+17, SNDALERT~, SNDALERT+2, SNDALERT+6, SENDMAIL~, SENDMAIL+4, SENDMAIL+8 , SENDMAIL+20, NINMGRP~, NINMGRP+2
MAILMSG	SENDMAIL~, SENDMAIL+12
>> MAXLINES	DUPNAMEI+23, DUPNAMEL+3, DUPNAMEL+7, LAHREPT+23, LAHREPT+36
MESSAGE	MAILALMI~, MAILALMI+6, MAILALMI+13, MAILALMI+17, IHSURGNT+4~, IHSURGNT+15*, IHSURGNT+23
MGIEN	NINMGRP+1~, NINMGRP+2*, NINMGRP+3, NINMGRP+5
MSG	LINEONE~, LINEONE+1, LINEONE+2, LINEONE+3, LINEMSG~, LINEMSG+1, LINEMSG+2, LINEMSG+3
MSG(5	IHSURGNT+21
MSGARRAY	MAILALMI~, MAILALMI+9, IHSURGNT+4~, IHSURGNT+23
MSGARRAY(1	MAILALMI+9, MAILALMI+11, IHSURGNT+17*
MSGARRAY(2	IHSURGNT+18*
MSGARRAY(3	IHSURGNT+19*
MSGARRAY(4	IHSURGNT+20*
MSGARRAY(5	IHSURGNT+21*
>> NOMORE	LRASDATA+8, LRASDATA+9, LRASDATA+10, LRASDATA+17, LRORDATA+3, LRORDATA+4, LRORDATA+5, LRORDATA+12, LABDATAD+3*, LABDATAD+4 , LABDATAD+5, LABDATAD+13
>> NOMOREL	LRASDATA+9, LRASDATA+17, LRORDATA+4, LRORDATA+12, LABDATAD+4*, LABDATAD+13
NOPRESS	LRASDATA+1, LRORDATA+1, LABDATAD~, LABDATAD+1, LABDATAD+9*, LABDATAD+21
NOUSER	MAILALMI~, MAILALMI+6, MAILALMI+17, SNDALERT~, SNDALERT+6, SENDMAIL~, SENDMAIL+8
NUM	RJZF~, RJZF+1
NUMDUPS	DUPNAMEC+3~, DUPNAMEC+7, DUPNAMEC+9, DUPNAMEC+13
ORDERDT	ORDRDATA+1~
>> ORDERNUM	DETAILIN+11*, ORDRDATA+6, ORDRDATA+9, ORDRDATA+11
>> ORIFN	IHSURGNT+2, IHSURGNT+6, IHSURGNT+7, IHSURGNT+13, IHSURGNT+17
>> PG	DUPNAMEI+22, DUPNAMEL+3, DUPNAMEL+7, LAHREPT+24, LAHREPT+36
>> POP	DUPNAMEI+16
>> QFLG	DUPDNAME+5, DUPNAMEI+24, DUPNAMEL+3, DUPNAMEL+6, DUPNAMEL+7, LAHREPT+24, LAHREPT+27, LAHREPT+36
RM	LRASDATA~, LRASDATA+1, LRASDATA+13, LRASDATA+16, LRASDATA+19, LRORDATA~, LRORDATA+1, LRORDATA+8, LRORDATA+11, LRORDATA+14 , LABDATAD~, LABDATAD+1, LABDATAD+8*, LABDATAD+12, LABDATAD+19
STR	LABDATA+1~, LABDATA+5*
>> STR1	LRASDATA+15, LRASDATA+16, LRASDATA+17, LRASDATA+18, LRASDATA+19, LRORDATA+10, LRORDATA+11, LRORDATA+12, LRORDATA+13, LRORDATA+14 , LABDATAD+11, LABDATAD+12, LABDATAD+13, LABDATAD+14, LABDATAD+15, LABDATAD+16, LABDATAD+19
>> STRZERO	LAHREPT+32*, LAHREPT+33, LAHREPT+34
SUBRTN	DETAILIN~
SUBSCRPT	SNDALERT+13~, SNDALERT+14, SNDALERT+15, SNDALERT+16, SNDALERT+17, SNDALERT+18, SNDALERT+19, SNDALERT+20, SENDMAIL+19~, SENDMAIL+20 , SENDMAIL+21, SENDMAIL+22, SENDMAIL+23, SENDMAIL+26
TAB	LRASDATA+16, LRASDATA+18, LRASDATA+19, LRORDATA+11, LRORDATA+13, LRORDATA+14, LABDATAD+12, LABDATAD+14, LABDATAD+19, LINEMSG~ , LINEMSG+2, LINEMSG+3
TWO	SETBLRVS~, SETBLRVS+10
U	DUPDNAME+1, ARRIVETM+1, IHSURGNT+21, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, LAHREPT+10, LAHREPT+33 , LAHREPT+34, JUSTNEW+1
>> UID	ARRIVETM+5, ARRIVETM+6, ARRIVETM+8, ARRIVETM+9, DETAILIN+13
>> UPDTDTT	LAHREPT+34*, LAHREPT+40, LAHREPT+41, LAHREPT+42
URGSTR	IHSURGNT+4~, IHSURGNT+7*, IHSURGNT+10
USERDUZ	NINMGRP~, NINMGRP+5
X	SNDALERT+8*, SNDALERT+10, SENDMAIL+28!
XMDUZ	SENDMAIL+14, SENDMAIL+28!, NINMGRP+1~, NINMGRP+5
>> XMMG	SENDMAIL+18
XMSUB	SENDMAIL+12*, SENDMAIL+28!
XMTEXT	SENDMAIL+13*, SENDMAIL+28!
XMY	SENDMAIL+3!, SENDMAIL+28!
XMY(	SENDMAIL+4, SENDMAIL+8
XMZ	SENDMAIL+15*, SENDMAIL+18, SENDMAIL+28!
>> XPARSYS	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
XQA	SNDALERT+9!
XQA(	SNDALERT+2, SNDALERT+6
>> XQALERR	SNDALERT+20
XQAMSG	SNDALERT+1*, SNDALERT+9!
>> XQXFLG	DUPDNAME+1, ARRIVETM+1, LABGLOBR+1, LRASDATA+1, LRORDATA+1, LABDATAD+1, LAHREPT+1, JUSTNEW+1
Y	SENDMAIL+28!, NINMGRP+1~, NINMGRP+5*, LAHREPT+10

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRUTIL8

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items