Routine: BLR7OB1

Call Graph

Call Graph Total: 23

Package	Total	Call Graph
IHS Changes To Lab	8	NEW^BLR7OB1 (ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,MENUDRVR,PRESSKEY)^BLRGMENU BOKAY^BLRKIDS2 TABMESG^BLRKIDSU $$WARNINGS^BLROTSCH BOKAY^BLRPRE31 ENTRYAUD^BLRUTIL ($$BADSTF2Q,BADSTUF2)^BLRUTIL7
Lab Service	7	(EN1,FIRST)^LR7OB0 (CALL,ORD1)^LR7OB1 SNEAK^LR7OB3 68^LR7OB68 ($$VER,EN)^LR7OU1 EN^LR7OV2 GDG1^LRBEBA2
Kernel	4	($$DT,$$FMADD,$$FMTE,$$HTFM)^XLFDT $$CJ^XLFSTR MES^XPDUTL MSG^XQOR
VA Fileman	3	FIND^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
IHS Changes To Lab	2	BLR35PST BLR7OB1

Package

Total

Caller Graph

IHS Changes To Lab

BLR35PST BLR7OB1

Entry Points

Name	Comments	DBIA/ICR reference
ROERRSTI()	; EP - Initialization
B369	; EP - Cloned from LR7OB3
OERRAFIX	; EP - Update all Orders' OERR Status Flag - Interactive version
SETBLRVS(TWO)	; EP - Set BLRVERN variable(s)
EN1(ODT,SN,CONTROL,NAT)	; EP - Build msg based on date and LRSN - Cloned from LR7OB0
OERRSTSC	; EP - Change OERR Status for All OERR Orders with PENDING Status after associated Lab Order was cancelled during the Clinical Indication process.
PEP	; EP
EEP	; Ersatz EP
RESETHDR(ORDERN)	; EP - Create rest of HEADER array
ROERRSTL	; EP - Line of Data
FIXIT(ORDERN)	; EP - Fix the OERR Order
ORDLVLDA	; EP - Order Level Data
OERRFIX	; EP - Update an Order's OERR Status Flag - Interactive version
CHEKUSER()	; EP - Make sure User has the LRSUPER Key
69(ODT,SN)	; Cloned from LR7OB69. See Documentation in that routine.
ROERRSTB()	; EP - "Break out" Data
NEW(ODT,SN,CONTROL,NAT,TESTS,LRSTATI)	; Set-up order message - Cloned from LR7OB1
SHOWOERR(MSG,ORDERN)	; EP - Show the Status of OERR Numbers
EP	; EP
ROERRSTS	; EP - Report on pending OERR STatuS for orders deleted during the clinical indication process.
OUT	;Exit here

External References

Name	Field # of Occurrence
NEW^BLR7OB1	OERRSTSC+36
ADDTMENU^BLRGMENU	PEP+7, PEP+8, PEP+9
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	OERRFIX+9, FIXIT+3, OERRAFIX+7, OERRAFIX+22, OERRAFIX+25, OERRAFIX+31, ROERRSTI+11, ROERRSTI+13, CHEKUSER+5
HEADERPG^BLRGMENU	ROERRSTL+3
HEADONE^BLRGMENU	ROERRSTI+12
MENUDRVR^BLRGMENU	PEP+12
PRESSKEY^BLRGMENU	FIXIT+33, OERRAFIX+29, OERRAFIX+34, ROERRSTS+15, CHEKUSER+8
BOKAY^BLRKIDS2	OERRSTSC+10
TABMESG^BLRKIDSU	OERRSTSC+3, OERRSTSC+7, OERRSTSC+40, OERRSTSC+42
$$WARNINGS^BLROTSCH	OERRAFIX+20, OERRAFIX+23, OERRAFIX+26
BOKAY^BLRPRE31	OERRSTSC+48
ENTRYAUD^BLRUTIL	NEW+22
$$BADSTF2Q^BLRUTIL7	ROERRSTI+6
BADSTUF2^BLRUTIL7	OERRFIX+14, FIXIT+30
FIND^DIC	OERRSTSC+5, ROERRSTI+5
$$GET1^DIQ	FIXIT+13, FIXIT+16, FIXIT+19, FIXIT+20, SHOWOERR+10, SHOWOERR+11, SHOWOERR+12, SHOWOERR+13, OERRSTSC+21, OERRSTSC+24 , OERRSTSC+26, OERRSTSC+28, ORDLVLDA+2, ORDLVLDA+3, ROERRSTB+1, ROERRSTB+5, ROERRSTB+8, ROERRSTB+11, CHEKUSER+6
^DIR	OERRFIX+12
EN1^LR7OB0	NEW+12, NEW+18
FIRST^LR7OB0	B369+2
CALL^LR7OB1	NEW+12, NEW+18, NEW+23
ORD1^LR7OB1	NEW+11
SNEAK^LR7OB3	B369+3
68^LR7OB68	69+19
$$VER^LR7OU1	NEW+4
EN^LR7OU1	69+19
EN^LR7OV2	NEW+7
GDG1^LRBEBA2	69+9
^XBFMK	OERRFIX+10
$$DT^XLFDT	OERRSTSC+46
$$FMADD^XLFDT	OERRSTSC+13, ROERRSTI+31
$$FMTE^XLFDT	OERRAFIX+16, OERRSTSC+10, ROERRSTI+9, ROERRSTL+5
$$HTFM^XLFDT	OERRSTSC+46
$$CJ^XLFSTR	ROERRSTI+9
MES^XPDUTL	OERRSTSC+41
MSG^XQOR	NEW+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?4,MSG,?14,F60IEN,?24,$E(F60DESC,1,28),?54,OERRNUM,?64,OERRSTS,! Line Location: SHOWOERR+14
Function Call: WRITE	Prompt: ?9,"This routine will UPDATE the OERR Order status for ALL Lab",! Line Location: OERRAFIX+11
Function Call: WRITE	Prompt: ?4,"Orders that were cancelled during the Clinical Indication process",! Line Location: OERRAFIX+12
Function Call: WRITE	Prompt: ?4,"prior to the installation of the LR5.21035 patch.",!! Line Location: OERRAFIX+13
Function Call: WRITE	Prompt: ?9,"The LR5.21035 Patch's Post Install Routine ran this on ",! Line Location: OERRAFIX+15
Function Call: WRITE	Prompt: ?19,$$FMTE^XLFDT($P($G(^XTMP("BLR7OB1",0)),U),"5DZ"),!! Line Location: OERRAFIX+16
Function Call: WRITE	Prompt: ?9,"This should only need to be run once.",!! Line Location: OERRAFIX+17
Function Call: WRITE	Prompt: ?9,"NOTE: this could take a long time to run.",! Line Location: OERRAFIX+18
Function Call: WRITE	Prompt: !!,?4,"Very well." Line Location: OERRAFIX+28
Function Call: WRITE	Prompt: ?4,ORDERCNT," Lab Order Entry (#69) File entries analyzed." Line Location: ROERRSTS+13
Function Call: WRITE	Prompt: !!,?9,$S(CNT:CNT,1:"No")," Order",$S(CNT=1:"",1:"s")," with PENDING OERR status." Line Location: ROERRSTS+14
Function Call: WRITE	Prompt: LRODT,?9,$$FMTE^XLFDT(LRODT,"2DZ"),?19,LRSP,?29,ORDERN,?39,ORDOERR,?51,LROT,?60,F60IEN,?69,LROTOERR,! Line Location: ROERRSTL+5
Function Call: WRITE	Prompt: !!,?9,"User ",$$GET1^DIQ(200,DUZ,.01)," [",DUZ,"] does NOT have the LRSUPER",!! Line Location: CHEKUSER+6
Function Call: WRITE	Prompt: ?4,"Security Key. Routine Ends." Line Location: CHEKUSER+7
Routine Call	DIC Line Location: OERRSTSC+5 ROERRSTI+5
Routine Call	DIR Line Location: OERRFIX+12

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
69.01	GET1^DIQ
69.03	GET1^DIQ
^XPD(9.7 - [#9.7]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	NEW+4, 69+4
^LAB(60 - [#60]	69+19
^LR - [#63]	NEW+4, NEW+8, 69+3, 69+4
^LRO(69 - [#69]	OERRFIX+14, FIXIT+7, FIXIT+9, FIXIT+11, SHOWOERR+4, SHOWOERR+6, SHOWOERR+8, OERRSTSC+14, OERRSTSC+16, OERRSTSC+19 , NEW+2, NEW+6*, NEW+18, 69+2, 69+6, 69+10, 69+12, 69+14, 69+17, ROERRSTS+5 , ROERRSTS+7, ROERRSTS+10
^ORD(100.99 - [#100.99]	NEW+4, NEW+5
^TMP("LRAP"	NEW+10!, NEW+12!, NEW+18!, NEW+23!
^TMP("LRBB"	NEW+10!, NEW+12!, NEW+18!, NEW+23!
^TMP("LRCH"	NEW+10!, NEW+12!, NEW+18!, NEW+21, NEW+23!
^TMP("LRX"	EN1+4!, B369+1!, B369+2, OUT+1!, 69+1!, 69+8, 69+11, 69+13, 69+16, 69+18* , 69+19
^XTMP("BLR7OB1"	OERRAFIX+14, OERRAFIX+16, OERRSTSC+38, OERRSTSC+46
^XUSEC("LRSUPER"	CHEKUSER+1

Label References

Name	Line Occurrences
$$CHEKUSER	PEP+5
$$ROERRSTB	ROERRSTL+1
$$ROERRSTI	ROERRSTS+3
69	B369+2
B369	EN1+5
EN1	NEW+20
FIXIT	OERRFIX+16
NEW	FIXIT+28
OERRSTSC	OERRAFIX+32
ORDLVLDA	ROERRSTS+8
OUT	B369+2
RESETHDR	FIXIT+1
ROERRSTL	ROERRSTS+10
SETBLRVS	PEP+3, OERRFIX+3, OERRAFIX+3, ROERRSTI+1
SHOWOERR	FIXIT+4, FIXIT+32

Name	Field # of Occurrence
^(	69+2, 69+6, 69+10, 69+12, 69+14, 69+17
^(0	NEW+2, 69+2
^(1	69+2
^(3	69+2
^(4	69+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APMSG	EN1+3~
BBMSG	EN1+3~
>> BLRVERN	SETBLRVS+1*
>> BLRVERN2	SETBLRVS+2*
>> CANCELR	OERRSTSC+21, OERRSTSC+22, ROERRSTB+1, ROERRSTB+2
>> CANCLRSN	FIXIT+13*, FIXIT+14
CAT	EN1+3~
CHMSG	EN1+3~
>> CNT	FIXIT+6, FIXIT+25, FIXIT+30, OERRSTSC+12, OERRSTSC+37, OERRSTSC+42, OERRSTSC+44, OERRSTSC+48, ROERRSTS+12, ROERRSTS+14 , ROERRSTI+29, ROERRSTL+7
>> CNTORD	OERRSTSC+12, OERRSTSC+17, OERRSTSC+40
COBR	EN1+3~
COBX	EN1+3~
CONTROL	NEW~, NEW+12, NEW+18, NEW+20, NEW+23, EN1~
CTR	EN1+3~
D0	EN1+3~
DA	EN1+3~
DFN	NEW+4~, NEW+5, NEW+7, EN1+3~, B369+2, 69+4
DIC	EN1+3~
DIE	EN1+3~
>> DILOCKTM	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> DIR(0	OERRFIX+11*
>> DIRUT	OERRFIX+13
>> DISYS	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
DR	EN1+3~
DT	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
DTIME	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
DUZ	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1, CHEKUSER+1, CHEKUSER+6
>> ERRS	OERRSTSC+6, ROERRSTI+6
F60DESC	SHOWOERR+1~, SHOWOERR+11*, SHOWOERR+14
F60IEN	FIXIT+16, FIXIT+17, FIXIT+23, SHOWOERR+1~, SHOWOERR+10, SHOWOERR+14, OERRSTSC+28, OERRSTSC+29, OERRSTSC+31, ROERRSTL+5 , ROERRSTB+11, ROERRSTB+12
>> FOUND	OERRSTSC+18, OERRSTSC+32, OERRSTSC+34
GOTCOM	69+1~
>> HDRONE	ROERRSTI+12, ROERRSTL+3
>> HEADER(	OERRFIX+17!
>> HEADER(1	OERRFIX+5, OERRAFIX+5, ROERRSTI+2, CHEKUSER+3
>> HEADER(2	RESETHDR+1, OERRAFIX+6, ROERRSTI+3, CHEKUSER+4
>> HEADER(3	RESETHDR+2, ROERRSTI+9
>> HEADER(4	RESETHDR+3, RESETHDR+4, RESETHDR+5, RESETHDR+6, ROERRSTI+15*
>> HEADER(5	ROERRSTI+16, ROERRSTI+17, ROERRSTI+18*
>> HEADER(6	ROERRSTI+19, ROERRSTI+20, ROERRSTI+21, ROERRSTI+22, ROERRSTI+23, ROERRSTI+24, ROERRSTI+25, ROERRSTI+26
I	NEW+9~, EN1+3~, 69+8, 69+10, 69+11, 69+12*, 69+13
IFN	EN1+3~, 69+1~, 69+6, 69+8, 69+9, 69+10, 69+11, 69+12, 69+13, 69+14 , 69+16, 69+19*
IFN1	EN1+3~
IFN2	EN1+3~
IO	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> IOBS	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
IOF	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
IOM	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1, ROERRSTI+9
ION	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> IOS	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1, ROERRSTI+28
IOSL	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
IOST	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> IOT	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> IOXY	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
J	EN1+3~
>> LINES	ROERRSTI+28, ROERRSTL+3, ROERRSTL+6
LOC	EN1+3~
>> LR1033ID	OERRSTSC+9, OERRSTSC+10, OERRSTSC+13, ROERRSTI+8, ROERRSTI+9, ROERRSTI+31
LRDFN	EN1+3~, 69+4*
LRDPF	NEW+4~, NEW+7, EN1+3~, 69+4
LRFIRST	EN1+3~, EN1+5, B369+2
LRNIFN	NEW+9~, NEW+14*, 69+7
LRODT	FIXIT+6, FIXIT+7, FIXIT+9, FIXIT+11, FIXIT+12, FIXIT+28, SHOWOERR+1~, SHOWOERR+3, SHOWOERR+4, SHOWOERR+6 , SHOWOERR+8, SHOWOERR+9, OERRSTSC+13, OERRSTSC+14, OERRSTSC+16, OERRSTSC+19, OERRSTSC+20, OERRSTSC+36, OERRSTSC+38, ROERRSTS+5* , ROERRSTS+7, ROERRSTS+10, ROERRSTI+31*, ORDLVLDA+2, ORDLVLDA+3, ROERRSTL+5, ROERRSTB+1, ROERRSTB+4
LROT	FIXIT+10, FIXIT+11, FIXIT+12, SHOWOERR+1~, SHOWOERR+7, SHOWOERR+8, SHOWOERR+9, OERRSTSC+18, OERRSTSC+19, OERRSTSC+20 , ROERRSTS+9, ROERRSTS+10, ROERRSTL+5, ROERRSTB+1, ROERRSTB+4
>> LROTIEN	OERRSTSC+20, OERRSTSC+21, OERRSTSC+24, OERRSTSC+28, ROERRSTB+4, ROERRSTB+5, ROERRSTB+11
>> LROTOERR	OERRSTSC+24, OERRSTSC+25, OERRSTSC+26, ROERRSTL+5, ROERRSTB+5, ROERRSTB+6, ROERRSTB+8
LRSP	FIXIT+8, FIXIT+9, FIXIT+11, FIXIT+12, FIXIT+28, SHOWOERR+1~, SHOWOERR+5, SHOWOERR+6, SHOWOERR+8, SHOWOERR+9 , OERRSTSC+15, OERRSTSC+16, OERRSTSC+19, OERRSTSC+20, OERRSTSC+36, OERRSTSC+38, ROERRSTS+6, ROERRSTS+7, ROERRSTS+10, ORDLVLDA+2 , ORDLVLDA+3, ROERRSTL+5, ROERRSTB+1, ROERRSTB+4
LRSTATI	NEW~, NEW+18*
LRTMPO	NEW+9~
LRTMPO("LRIFN"	NEW+12, NEW+14, 69+7
LRX0	NEW+2~*, NEW+4, NEW+8
>> MAXLINES	ROERRSTI+28*, ROERRSTL+3
MSG	SHOWOERR~, SHOWOERR+14, NEW+9~, EN1+3~, EN1+5*
NAT	NEW~, NEW+12, NEW+18, NEW+20, EN1~
NOTE	69+1~
OBRMSG	EN1+3~
ODT	NEW~, NEW+2, NEW+6, NEW+11, NEW+12, NEW+16~, NEW+17*, NEW+18, NEW+20, EN1~ , B369+2, 69~, 69+2, 69+6, 69+9, 69+10, 69+12, 69+14, 69+17
OERRNUM	SHOWOERR+1~, SHOWOERR+12*, SHOWOERR+13, SHOWOERR+14
OERRSTS	SHOWOERR+1~, SHOWOERR+13, SHOWOERR+14, ROERRSTB+8, ROERRSTB+9
>> OKAY	FIXIT+10, FIXIT+24, FIXIT+26
>> ONGO	OERRFIX+7, OERRFIX+8, OERRFIX+13
ORAPMSG	NEW+9~
ORBBMSG	NEW+9~
ORCHMSG	NEW+9~
ORCMSG	EN1+3~
>> ORDERCNT	ROERRSTS+13, ROERRSTI+29, ORDLVLDA+1
ORDERN	FIXIT~, FIXIT+1, FIXIT+4, FIXIT+7, FIXIT+9, FIXIT+30, FIXIT+32, RESETHDR~, RESETHDR+1, SHOWOERR~ , SHOWOERR+4, SHOWOERR+6, ORDLVLDA+2*, ROERRSTL+5
>> ORDOERR	ORDLVLDA+3*, ROERRSTL+5
>> PG	ROERRSTI+29*, ROERRSTL+3
>> QFLG	ROERRSTS+5, ROERRSTS+7, ROERRSTS+10, ROERRSTI+30*, ROERRSTL+3
ROOM	EN1+3~
SEX	EN1+3~
SN	NEW~, NEW+2, NEW+6, NEW+11, NEW+12, NEW+16~, NEW+17*, NEW+18, NEW+20, EN1~ , B369+2, 69~, 69+2, 69+6, 69+9, 69+10, 69+12, 69+14, 69+17
STDT	EN1+3~
>> TARGET("DILIST"	OERRSTSC+9, ROERRSTI+8
TESTS	FIXIT+28, OERRSTSC+36, NEW~, NEW+11
TESTS(	FIXIT+23, OERRSTSC+31
>> TOERRIEN	FIXIT+19*, FIXIT+20
>> TOERRSTS	FIXIT+20*, FIXIT+21
>> TORDIEN	FIXIT+12, FIXIT+13, FIXIT+16, FIXIT+19, SHOWOERR+9, SHOWOERR+10, SHOWOERR+11, SHOWOERR+12
TSTARRAY	NEW+13~, NEW+21!*
TSTY	69+1~, 69+19!
TWO	SETBLRVS~, SETBLRVS+2
U	PEP+1, OERRFIX+1, OERRAFIX+1, OERRAFIX+16, OERRSTSC+1, ROERRSTS+1
VAERR	EN1+3~
VAIN	EN1+3~
X	OERRFIX+13, OERRFIX+14, OERRFIX+16, OERRFIX+17, NEW+14, NEW+15, NEW+16, NEW+17, EN1+3~, 69+1~ , 69+6, 69+7, 69+8, 69+10, 69+11, 69+12, 69+13, 69+14, 69+15, 69+16 , 69+19*
X0	69+1~, 69+2*, 69+3, 69+4, 69+5
X1	EN1+3~, 69+1~, 69+2, 69+5, 69+19
X10	EN1+3~
X2	EN1+3~, 69+19*
X3	EN1+3~, 69+2, 69+5, 69+19
X4	EN1+3~, 69+1~, 69+2*
X5	EN1+3~
X6	EN1+3~
X7	EN1+3~
X8	EN1+3~
X9	EN1+3~
XP1	69+1~, 69+2*, 69+5
>> XPARSYS	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
>> XQXFLG	PEP+1, OERRFIX+1, OERRAFIX+1, OERRSTSC+1, ROERRSTS+1
Y	NEW+4~*, EN1+3~
Y1	69+1~, 69+5*, 69+18
Y10	EN1+3~, 69+1~, 69+17*, 69+18
Y11	69+1~, 69+5*, 69+18
Y12	69+1~, 69+5*, 69+18
Y2	69+1~, 69+5*, 69+18
Y3	69+1~, 69+5*, 69+18
Y4	69+1~, 69+5*, 69+18
Y5	69+1~, 69+5*, 69+18
Y6	69+1~, 69+5*, 69+18
Y7	69+1~, 69+5*, 69+18
Y8	69+1~, 69+5*, 69+18
Y9	69+1~, 69+5*, 69+18
Z	EN1+3~
Z1	EN1+3~

Customize PDF page

Package: IHS Changes To Lab

Routine: BLR7OB1

Information

Source Information

Call Graph

Call Graph Total: 23

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

Naked Globals

Local Variables

Legend:

Marked Items