Routine: BLRMANP2

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
IHS Changes To Lab	7	^BLREVTQ EEP^BLRGMENU XTMPISET^BLRMANPU $$RELAHMID^BLRRLMUU (STORTXNS,XTMPNSET)^BLRRLTDU $$ISPIMS^BLRUTIL MAILALMI^BLRUTIL3
Lab Service	7	NEW^LR7OB1 $$VER^LR7OU1 DC^LRCENDE1 ^LRPARAM END^LRTSTJAM XREF^LRVER3A PT^LRX
Kernel	3	($$FMTE,$$NOW)^XLFDT $$TRIM^XLFSTR DUZ^XUP
VA Fileman	2	(,UPDATE)^DIE $$GET1^DIQ
Automated Lab Instruments	1	EN^LA7ADL

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRMANPU

Package

Total

Caller Graph

IHS Changes To Lab

BLRMANPU

Entry Points

Name	Comments	DBIA/ICR reference
63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM)	; EP
NOTPERF(UID,CANCLRSN)	; EP - Not Performed
USELAHG(UID)	; EP - Use the LAH global. If successful, quit with "OK"
EEP	; Ersatz EP
LMIMAIL(UID,CANCLRSN)	; EP - E-mail LMI Mail Group with Ref Lab Cancellations
ADDSPCON(UID)	; EP - Add the SPECIMEN CONDITION from the SPM segment, if it exists
GETNTEC(MSG,ARRAY)	; EP - Stuff ARRAY with NTE comments from message
SET	; EP
ROL	; EP
CHG(LRAA,LRAD,LRAN)	; EP - Have LRACN,LRUID,LRDFN,LRSS,LRIDT and CANCLRSN
FX1	; EP
FX3	; EP ; S (LRCCOM,LRCCOMX)="*NP Reason:Reference Lab Rejected Test."
FX2	; EP
LREND	; EP
LRACC	; EP
631	; EP
END	; EP
FIX	; EP
UNLOCK	; EP
GETSPMC(MSG,ARRAY)	; EP - Stuff ARRAY with SPM comments from message
COMPDATE(LRAA,LRAD,LRAN)	; EP - Put Completed Date on Accession
CLNPENDG	;Remove pending from Lab test when set to not performed
EXIT	; EP
ADDCOMNT(LRDFN,LRIDT,MSG)	; EP - Add the Ref Lab comments from the NTE segments to file 63

External References

Name	Field # of Occurrence
^BLREVTQ	CHG+16
EEP^BLRGMENU	EEP+1
XTMPISET^BLRMANPU	NOTPERF+9, FIX+6, FIX+8, FIX+16, FIX+18, CHG+6, LRACC+7
$$RELAHMID^BLRRLMUU	ADDSPCON+5
STORTXNS^BLRRLTDU	SET+19
XTMPNSET^BLRRLTDU	SET+18
$$ISPIMS^BLRUTIL	END+4
MAILALMI^BLRUTIL3	LMIMAIL+16
^DIE	63+19, 631+7
UPDATE^DIE	COMPDATE+8, ADDCOMNT+10
$$GET1^DIQ	NOTPERF+13, NOTPERF+15, NOTPERF+16, LMIMAIL+3, LMIMAIL+9, FX1+4, 63+11, ADDSPCON+20, ADDSPCON+22, ADDSPCON+23 , USELAHG+3, USELAHG+9
EN^LA7ADL	SET+25
NEW^LR7OB1	SET+12
$$VER^LR7OU1	SET+13
DC^LRCENDE1	SET+13
^LRPARAM	NOTPERF+3
END^LRTSTJAM	END+5
XREF^LRVER3A	SET+24
PT^LRX	FIX+14
$$FMTE^XLFDT	SET+10, 63+9, 63+12, 63+15
$$NOW^XLFDT	COMPDATE+6, FIX+1, SET+1, 63+5
$$TRIM^XLFSTR	GETNTEC+10, GETSPMC+10
DUZ^XUP	LMIMAIL+6

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
^LAB(62.4 - [#62.4]	GET1^DIQ
^LRO(68 - [#68]	GET1^DIQ
68.02	GET1^DIQ
68.04	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	CHG+10, CLNPENDG+2
^LAB(62.4 - [#62.4]	USELAHG+6
^LAH(	USELAHG+12, USELAHG+14
^LAHM(62.49 - [#62.49]	GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC+4, GETSPMC+5, GETSPMC+7, ADDSPCON+9, ADDSPCON+10, ADDSPCON+14
^LR - [#63]	FIX+12, FIX+16, FIX+18, SET+22, UNLOCK+1, CLNPENDG+4, ADDCOMNT+7, ADDSPCON+25, ADDSPCON+26, USELAHG+21
^LRO(68 - [#68]	NOTPERF+6, LMIMAIL+8, FIX+6, FIX+8, FIX+10, FIX+16, FX1+3, CHG+13, SET+17, SET+18 , SET+19, SET+20, SET+21, SET+24, SET+25, ROL+1, ROL+2*, LRACC+4, LRACC+6, UNLOCK+1 , ADDSPCON+19
^LRO(69 - [#69]	CHG+6, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+14* , SET+15*

Label References

Name	Line Occurrences
$$GETNTEC	ADDCOMNT+3
$$USELAHG	ADDSPCON+3
63	SET+23
@(	END+4
ADDSPCON	63+21
CHG	FX1+5
CLNPENDG	CHG+13
COMPDATE	NOTPERF+27
END	NOTPERF+25, CHG+6, UNLOCK+2
FIX	NOTPERF+24
FX2	CHG+8
LRACC	FIX+2
ROL	SET+20, SET+21
SET	CHG+13
UNLOCK	FIX+18, CHG+6

Name	Field # of Occurrence
^(	FIX+10, SET+5
^(0	FIX+12, CHG+11, SET+5, SET+6, SET+8, SET+14, SET+17
^(4	SET+17, ROL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	GETNTEC~, GETSPMC~
ARRAY(	GETNTEC+15, GETSPMC+15
ARRAYL	ADDCOMNT+1~, ADDCOMNT+3*, ADDCOMNT+4, ADDCOMNT+6
AUTOIEN	ADDSPCON+1~, USELAHG+1~, USELAHG+6*, USELAHG+7, USELAHG+9
AUTOINSP	ADDSPCON+1~
BLRATCNT	FX1+1~, FX1+2, FX1+5
>> BLRLOG	NOTPERF+4*, CHG+16
BLRLRAT	FX1+1~, FX1+2, FX1+3, FX1+4, FX1+5
>> BLROPT	NOTPERF+18*, CHG+16
CANCELDT	COMPDATE+1~, COMPDATE+6*, COMPDATE+7
CANCLRSN	NOTPERF~, NOTPERF+1, LMIMAIL~, LMIMAIL+14, FX3+2
CL	ADDCOMNT+1~, ADDCOMNT+6*, ADDCOMNT+8
COMARRAY	ADDCOMNT+1~, ADDCOMNT+3
COMARRAY(	ADDCOMNT+8
COML	GETNTEC+1~, GETNTEC+3, GETNTEC+14, GETNTEC+15, GETNTEC+18, GETSPMC+1~, GETSPMC+3, GETSPMC+14, GETSPMC+15, GETSPMC+18
COMLS	GETNTEC+1~, GETNTEC+10, GETNTEC+12, GETNTEC+15, GETNTEC+16, GETSPMC+1~, GETSPMC+10, GETSPMC+12, GETSPMC+15, GETSPMC+16
COMLS(	GETNTEC+12, GETNTEC+16, GETSPMC+12, GETSPMC+16
CONDSPEC	ADDSPCON+16, ADDSPCON+17, ADDSPCON+25, USELAHG+1~, USELAHG+18, USELAHG+19, USELAHG+21
D0	63+1~, 631+1!
D1	63+1~, 631+1!
DA	63+1~, 63+17, 631+1!, 631+3
DA(1	LRACC+6, 63+17, 631+3*
DA(2	LRACC+6*
>> DFN	FIX+12*
DI	END+2!
DIC	CHG+2!, 63+1~, 631+1!, 631+3*
DIC(0	63+4, 631+2
DIE	63+1~, 63+17, 631+1!, 631+3
>> DILOCKTM	NOTPERF+1
DIR	END+2!
>> DISYS	NOTPERF+1
DLAYGO	63+1~, 63+4*
DR	63+1~, 63+19, 631+1!, 631+6
DT	NOTPERF+1, SET+11, SET+24
DTIME	NOTPERF+1
DUZ	NOTPERF+1, LMIMAIL+5~, SET+7, SET+14, SET+15, SET+17, ROL+2, 63+9, 63+12, 63+15
DUZ(2	LMIMAIL+3, USELAHG+3
ERRS	COMPDATE+1~
>> F60IEN	FX1+4*, FX1+5
FDA	COMPDATE+1~, COMPDATE+5!, ADDCOMNT+1~
FDA(	COMPDATE+7, ADDCOMNT+8
FOUNDIT	ADDSPCON+1~, ADDSPCON+8, ADDSPCON+9, ADDSPCON+10, ADDSPCON+12, ADDSPCON+14
HRCN	END+6!
IEN	NOTPERF+14, NOTPERF+15, NOTPERF+16, COMPDATE+1~, COMPDATE+3, COMPDATE+7, ADDSPCON+1~, ADDSPCON+21, ADDSPCON+22, ADDSPCON+23 , USELAHG+12, USELAHG+14
IENS	ADDCOMNT+1~
IENS(1	ADDCOMNT+7*
II	SET+3~, SET+5!, SET+12
II(	SET+5*
INST	ADDSPCON+1~
INSTUID	ADDSPCON+1~
IO	NOTPERF+1
>> IOBS	NOTPERF+1
IOF	NOTPERF+1
IOM	NOTPERF+1
ION	NOTPERF+1
>> IOS	NOTPERF+1
IOSL	NOTPERF+1
IOST	NOTPERF+1
>> IOT	NOTPERF+1
>> IOXY	NOTPERF+1
LA7INST	ADDSPCON+1~, USELAHG+1~, USELAHG+3*, USELAHG+4, USELAHG+6
LOADWORK	ADDSPCON+1~, USELAHG+1~, USELAHG+9*, USELAHG+12, USELAHG+14
LRAA	NOTPERF+6, NOTPERF+9, NOTPERF+11, NOTPERF+13, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8, LMIMAIL+9 , FIX+6, FIX+8, FIX+10, FIX+16, FX1+3, FX1+4, FX1+5, CHG~, CHG+13, CHG+16 , SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25, ROL+1, ROL+2, LRACC+3 , LRACC+4, LRACC+6, UNLOCK+1, ADDSPCON+19*, ADDSPCON+20, ADDSPCON+21
LRACC	FIX+2*, FIX+4!
LRACN	FIX+10*, EXIT+1!, END+2!
LRACN0	END+2!
LRAD	NOTPERF+6, NOTPERF+9, NOTPERF+11, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8, LMIMAIL+9, FIX+6 , FIX+8, FIX+10, FIX+16, FX1+3, FX1+4, FX1+5, CHG~, CHG+13, CHG+16, SET+17 , SET+18, SET+19, SET+20, SET+21, SET+24, SET+25, LRACC+6, UNLOCK+1, ADDSPCON+19*, ADDSPCON+21
LRAGE	END+2!
LRAN	NOTPERF+6, NOTPERF+9, NOTPERF+11, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8, LMIMAIL+9, FIX+4 , FIX+6, FIX+8, FIX+10, FIX+16, FX1+3, FX1+4, FX1+5, CHG~, CHG+13, CHG+16 , SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25, ROL+1, ROL+2, LRACC+3 , LRACC+7, UNLOCK+1, ADDSPCON+19, ADDSPCON+21
LRAS	LMIMAIL+1~, LMIMAIL+9*, LMIMAIL+13, LMIMAIL+16
LRCCOM	CHG+2!, CHG+5, SET+9, SET+22, SET+23, FX3+2, 63~, 631+4, 631+5, 631+6
LRCCOM0	END+1!, 63+1~, 63+12, 63+15, 63+18*, 63+19
LRCCOM1	END+1!
LRCCOMX	END+1!, FX3+2*
LRCOM	END+2!
LRCTST	CHG+2!, CHG+18!, END+2!
>> LRDBUG	SET+4
LRDFN	NOTPERF+15, FIX+11, FIX+12, FIX+16, FIX+18, SET+22, SET+23, ROL+1, UNLOCK+1, 63~ , 63+17, 631+3, CLNPENDG+4, ADDCOMNT~, ADDCOMNT+7, ADDCOMNT+8, ADDSPCON+22*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRDOC	END+2!
>> LRDPF	FIX+12*
LREND	NOTPERF+23, FIX+1, FIX+4, CHG+5, CHG+6, CHG+8, CHG+18, LRACC+1, LREND+1, END+1! , FX2+1*
LREXMPT	LRACC+1*!
LRI	SET+3~, SET+5*, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+14, SET+15 , END+1!
LRIDT	NOTPERF+16, FIX+16, FIX+18, SET+22, SET+23, UNLOCK+1, 63~, 63+17, 631+3, CLNPENDG+4 , ADDCOMNT~, ADDCOMNT+7, ADDCOMNT+8, ADDSPCON+23*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRIFN	CHG+3~, CLNPENDG+1~, CLNPENDG+2*, CLNPENDG+3, CLNPENDG+4
LRL	END+1!, FX2+2*
LRLABRV	EXIT+1!
LRLL	END+2!
>> LRLLOC	SET+2*
LRMSTATI	SET+12, END+1!
LRNATURE	FIX+4!, SET+9, SET+12, END+1!
LRNOECHO	EXIT+1!, FX2+7!, 63+1~, 63+6*
LRNOP	NOTPERF+23, FIX+1, FIX+2, FIX+6, FIX+8, FIX+16, FIX+18, LRACC+7*, END+1!
LRNOW	FIX+1, SET+1, SET+10, SET+17, ROL+2, EXIT+1!, END+2!, 63+5*, 63+9, 63+12 , 63+15
LROD0	END+3!
LROD1	END+3!
LROD3	END+3!
>> LRODT	FIX+11*, CHG+6, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12, SET+14, SET+15
LROOS	END+3!
LRORDTST	CHG+13*, END+1!
LROS	END+3!
LROSD	END+3!
LROT	END+3!
LROWDT	SET+20, SET+21, ROL+1, ROL+2, END+1!
LRPRAC	END+1!
LRROD	END+3!
LRSCN	END+1!, FX2+8, FX2+10
LRSCNX	EXIT+1!
LRSCNXB	NOTPERF+22!, FX2+7!, FX2+10*
>> LRSN	FIX+11*, CHG+6, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12, SET+14, SET+15
LRSS	NOTPERF+13, FIX+16, FIX+18, SET+22, SET+23, LRACC+6, LRACC+7, UNLOCK+1, 63~, 63+17 , 63+23, 631+3, CLNPENDG+4, ADDSPCON+20*, ADDSPCON+25, ADDSPCON+26, USELAHG+21
LRSTATUS	SET+3~, SET+5*, SET+12
LRTNM	CHG+11*, SET+23, 63~, 63+9, 63+15
LRTSTS	FX1+4*, CHG+10, CHG+13, SET+5, SET+17, SET+18, SET+19, ROL+1, ROL+2, END+1! , 63+11, CLNPENDG+2
LRTT	END+3!
LRUID	FIX+10*, END+1!
>> LRX	FIX+10*, FIX+11
LRXX	NOTPERF+22!, END+2!
MSG	ADDCOMNT~, ADDCOMNT+3, GETNTEC~, GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC~, GETSPMC+4, GETSPMC+5, GETSPMC+7
MSGARRAY	LMIMAIL+1~, LMIMAIL+16
MSGARRAY(1	LMIMAIL+12*
MSGARRAY(2	LMIMAIL+12*
MSGARRAY(3	LMIMAIL+13*
MSGARRAY(4	LMIMAIL+13*
MSGARRAY(5	LMIMAIL+14*
MSGARRAY(6	LMIMAIL+14*
OCXTRACE	SET+3~, SET+4*
ORIFN	SET+6*, SET+12, SET+13, SET+16!
ORSTS	SET+16!
>> PIEN	ADDSPCON+5*, ADDSPCON+6, ADDSPCON+9, ADDSPCON+10, ADDSPCON+14, ADDSPCON+26
PRNTNAM	63+2~, 63+11*, 63+12
Q9	END+2!
REFLAB	LMIMAIL+1~, LMIMAIL+3*, LMIMAIL+12
>> SAVLRAA	NOTPERF+11*, NOTPERF+27
>> SAVLRAD	NOTPERF+11*, NOTPERF+27
>> SAVLRAN	NOTPERF+11*, NOTPERF+27
SEG	ADDCOMNT+1~, GETNTEC+1~, GETNTEC+3, GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC+1~, GETSPMC+3, GETSPMC+4, GETSPMC+5 , GETSPMC+7
SEGCNT	ADDSPCON+1~, ADDSPCON+8, ADDSPCON+9, ADDSPCON+10
STR	ADDCOMNT+1~, GETNTEC+1~, GETNTEC+7, GETNTEC+8, GETNTEC+10, GETSPMC+1~, GETSPMC+7, GETSPMC+8, GETSPMC+10, ADDSPCON+14* , ADDSPCON+16, USELAHG+14*, USELAHG+18
TAB	LMIMAIL+1~, LMIMAIL+11*, LMIMAIL+12, LMIMAIL+13, LMIMAIL+14
>> TESTDESC	NOTPERF+1
TMPSTR	63+2~, 63+9*, 63+10, 63+15
U	NOTPERF+1, FIX+6, FIX+10, FIX+11, FIX+12, FIX+16, CHG+11, CHG+13, SET+2, SET+6 , SET+7, SET+8, SET+9, SET+14, SET+17, SET+20, ROL+2, LRACC+6, CLNPENDG+2, CLNPENDG+4
UID	NOTPERF~, NOTPERF+1, NOTPERF+6, NOTPERF+9, LMIMAIL~, LMIMAIL+8, 63+21, ADDSPCON~, ADDSPCON+3, ADDSPCON+5 , ADDSPCON+19, USELAHG~, USELAHG+12
X	NOTPERF+6, LMIMAIL+8, SET+3~, SET+8, SET+9, SET+10, SET+11, FX2+5, 63+1~, ADDSPCON+19
X(1	SET+8, SET+9, SET+11
X4	END+3!
>> XPARSYS	NOTPERF+1
>> XQXFLG	NOTPERF+1
Y	FX2+5*, FX2+10, 63+1~
Y(0	FX2+5*, FX2+10

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRMANP2

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: