Routine: BLRSGNSP

Information

BLRSGNSP ; IHS/MSC/MKK - Delete Order even though in SiGN or SYmptom Process ; 31-Jul-2015 06:30 ; MKK

Source Information

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Lab Service	7	NEW^LR7OB1 CEN1^LRCENDE1 DC^LROR6 SHOW^LROS ^LRPARAM (END,FX2,SET)^LRTSTOUT (DUZ,PT)^LRX
IHS Changes To Lab	3	(EEP,PRESSKEY)^BLRGMENU ERRMSG^BLRSGNS3 (OERRSTSC,OERRSTSO)^BLRUTIL7
VA Fileman	3	(,FILE,UPDATE)^DIE $$GET1^DIQ ^DIR
Kernel	2	($$HTE,$$NOW)^XLFDT $$CJ^XLFSTR
IHS VA Utilities	1	^XBFMK

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRDIAG BLRSGNSU

Entry Points

Name	Comments	DBIA/ICR reference
GETRID1(ORDERN,LRORT)	; EP - Cancel One Test on an Order
EN	;from LRPHITE3
GETRID(ORDERN)	; EP - Cancel ALL Tests on an Order
LOOK	; EP
NAME	; EP
TSET	; EP
OUT	; EP
EEP	; Ersatz EP
ERRMSG(MSG,ERRFRTN)	; EP - Left in for other routines to call.
FIND	; EP
EN1	; EP
DELACC(LRODT,LRSP,LRORT)	; EP - Cancel Test on Accession and add note on Lab Data File
MAKEMESG(LRODT,LRSN,LRI)	; EP - Create the cancel reason in 69 - some code cloned from LRHYDEL routine.
UNL69	;
END	; EP
ALLDEL	; EP
ONE	; EP
EP	; EP - ORDERN = Order Number
MORE	; EP

External References

Name	Field # of Occurrence
EEP^BLRGMENU	EEP+1
PRESSKEY^BLRGMENU	GETRID+45, GETRID1+39
ERRMSG^BLRSGNS3	GETRID+26, GETRID1+22, DELACC+28, DELACC+40, DELACC+48, ERRMSG+1
OERRSTSC^BLRUTIL7	GETRID+11
OERRSTSO^BLRUTIL7	GETRID1+13
^DIE	EN1+17
FILE^DIE	GETRID+24, GETRID1+19, DELACC+26
UPDATE^DIE	DELACC+37, DELACC+45
$$GET1^DIQ	GETRID+43, GETRID1+37, DELACC+31
^DIR	FIND+12, %+4
NEW^LR7OB1	EN1+15
CEN1^LRCENDE1	EN1+12
DC^LROR6	EN1+5
SHOW^LROS	LOOK+3
^LRPARAM	FIND+1
END^LRTSTOUT	END+6
FX2^LRTSTOUT	ONE+5, OUT+2
SET^LRTSTOUT	EN1+8
DUZ^LRX	EN1+19
PT^LRX	NAME+2
^XBFMK	DELACC+20
$$HTE^XLFDT	DELACC+32, MAKEMESG+7
$$NOW^XLFDT	DELACC+24
$$CJ^XLFSTR	LOOK+17, TSET+2, TSET+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"All Tests on Order ",ORDERN,":",! Line Location: GETRID+35
Function Call: WRITE	Prompt: ?4,$$GET1^DIQ(69.03,IENS,.01)," ",$$GET1^DIQ(69.03,IENS,8),! Line Location: GETRID+43
Function Call: WRITE	Prompt: !!,"Test on Order ",ORDERN,":",! Line Location: GETRID1+30
Function Call: WRITE	Prompt: ?4,$$GET1^DIQ(69.03,IENS,.01)," ",$$GET1^DIQ(69.03,IENS,8),! Line Location: GETRID1+37
Function Call: WRITE	Prompt: @IOF Line Location: MAKEMESG+13
Function Call: WRITE	Prompt: !?3,"If lab has received the sample (i.e. the test has an accession),",!,?3,"you can't change this order. If so, use the REMOVE AN ACCESSION option",!,?3,"to change the test." Line Location: FIND+3
Function Call: WRITE	Prompt: @IOF Line Location: FIND+15
Function Call: WRITE	Prompt: !,"Not found." Line Location: LOOK+1
Function Call: WRITE	Prompt: !?5,"Someone Else is Editing this order, try later",! Line Location: LOOK+4
Function Call: WRITE	Prompt: !,"No order found with that number." Line Location: LOOK+7
Function Call: WRITE	Prompt: !!,"[ * All tests on this order # have already been dispositoned. * ]" Line Location: LOOK+8
Function Call: WRITE	Prompt: !!?5," You CAN NOT change the status of test(s) on this order." Line Location: LOOK+10
Function Call: WRITE	Prompt: !,"Test sample(s) have already been received into the laboratory." Line Location: LOOK+11
Function Call: WRITE	Prompt: !,"You must use the REMOVE AN ACCESSION option to have the test(s) status changed.",$C(7) Line Location: LOOK+12
Function Call: WRITE	Prompt: !,"Change entire order" Line Location: LOOK+14
Function Call: WRITE	Prompt: "Answer 'Y'es or 'N'o." Line Location: LOOK+14
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Can't change status of test(s) on this order.",IOM),! Line Location: LOOK+17
Function Call: WRITE	Prompt: !,?8,"entry",?15,"test",?40,"sample" Line Location: MORE+1
Function Call: WRITE	Prompt: !,?10,J,?15,$P(^LAB(60,$P(LRT(J),U,3),0),U),?40,$P(LRT(J),U,4) Line Location: MORE+2
Function Call: WRITE	Prompt: !,"All have been dispositioned from that order." Line Location: MORE+3
Function Call: READ	Prompt: "Change status of which entry: " Formatting: ! Timeout: DTIME Variable: LRJ Line Location: ONE+1
Function Call: WRITE	Prompt: !,"Enter a number between 1 and ",LRT,! Line Location: ONE+2
Function Call: WRITE	Prompt: !,"You've already dispositioned that one.",! Line Location: ONE+3
Function Call: WRITE	Prompt: !,"Does not exist ",! Line Location: EN1+1
Function Call: WRITE	Prompt: !!,$C(7),"NOTHING CHANGED" Line Location: EN1+5
Function Call: WRITE	Prompt: !?5,"Someone else is editing this entry",! Line Location: EN1+7
Function Call: WRITE	Prompt: !,PNM,?30,HRCN Line Location: NAME+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Test(s) already verified for this order, cannot change ENTIRE order",IOM) Line Location: TSET+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" You must select individual test using the 'Delete Test from Accession' option.",IOM),!! Line Location: TSET+3
Routine Call	DIE Line Location: DELACC+37 DELACC+45
Routine Call	DIE Line Location: EN1+17
Routine Call	DIE Line Location: GETRID+24 GETRID1+19 DELACC+26
Routine Call	DIR Line Location: FIND+12 %+4

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
^LRO(69 - [#69]	Classic Fileman Calls
69.03	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	MORE+2, EN1+4
^LAB(61 - [#61]	TSET+9
^LR - [#63]	DELACC+35, DELACC+43, EN1+7, EN1+8, NAME+1
^LRO(68 - [#68]	DELACC+8, DELACC+14, DELACC+15, EN1+3, EN1+6
^LRO(69 - [#69]	GETRID+7, GETRID+9, GETRID+14, GETRID+15, GETRID+18, GETRID+37, GETRID+39, GETRID+41, GETRID1+4, GETRID1+6 , GETRID1+7, GETRID1+11, GETRID1+31, GETRID1+33, GETRID1+34, DELACC+3, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5, MAKEMESG+7 , MAKEMESG+8, MAKEMESG+9, MAKEMESG+10, LOOK+1, LOOK+3, LOOK+4, LOOK+5, EN1+1, EN1+2, EN1+16 , OUT+6, OUT+8, OUT+14, OUT+15, UNL69+1, NAME+1, EN+1, TSET+1, TSET+6, TSET+9
^TMP("BLR SNOMED GET"	GETRID+32!, GETRID1+28!
^TMP("BLRDAIG"	GETRID+31!, GETRID1+27!
^TMP("BLRDIAG"	GETRID+3
^XUSEC("LRLAB"	EN1+12

Label References

Name	Line Occurrences
DELACC	GETRID+29, GETRID1+25
EN1	ONE+6
END	FIND+1, FIND+13, LOOK+6, LOOK+7, LOOK+9, LOOK+15, ONE+5, OUT+2
FIND	FIND+15, EN1+20, ALLDEL+1
GETRID1	GETRID+4
LOOK	FIND+15, ONE+6
MAKEMESG	GETRID+27, GETRID1+23
MORE	ONE+1, ONE+3
NAME	LOOK+8, LOOK+13
ONE	ONE+2, EN1+20
OUT	LOOK+15
TSET	EN+1
UNL69	LOOK+6, LOOK+7, LOOK+9, LOOK+17, ONE+5, ONE+6, EN1+9, OUT+2, OUT+11, TSET+4

Name	Field # of Occurrence
^(	LOOK+5, TSET+6
^(0	MAKEMESG+4, MAKEMESG+9, EN1+16, NAME+1, TSET+9
^(3	DELACC+8, LOOK+3, TSET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LOOK+14, LOOK+15, %+1!, %+5, END+1!
A	END+1!
AGE	END+1!
>> BLROPT	MAKEMESG+14*
>> BLROPT(0	MAKEMESG+14*
>> DA	EN1+17*
>> DA(1	EN1+17*
>> DEL1	DELACC+32*, DELACC+36
>> DEL2	DELACC+33*, DELACC+44
>> DELCNT	GETRID+6, GETRID+28, GETRID+33
DFN	NAME+1*, END+1!
DIC	END+1!
DIE	EN1+17*, END+1!
>> DILOCKTM	GETRID+1, GETRID1+1, DELACC+1
DIR	FIND+5~, %+1!
DIR("?"	FIND+8*
DIR("??"	FIND+9*
DIR("A"	FIND+6*
DIR("S"	FIND+10*
DIR("T"	FIND+11, %+3
DIR(0	FIND+7, %+2
>> DIROUT	FIND+13
>> DIRUT	FIND+13
>> DISYS	GETRID+1, GETRID1+1, DELACC+1
DOB	END+1!
DQ	END+1!
DR	EN1+17*, END+1!
DT	GETRID+1, GETRID1+1, DELACC+1, MAKEMESG+8
DTIME	GETRID+1, GETRID1+1, DELACC+1, ONE+1
>> DTOUT	FIND+13
>> DUOUT	FIND+13
DUZ	GETRID+1, GETRID+23, GETRID1+1, GETRID1+18, DELACC+1, DELACC+23, DELACC+32, MAKEMESG+9, MAKEMESG+10, EN1+12 , EN1+16, EN1+19
DWLW	END+1!
ERRFRTN	ERRMSG~, ERRMSG+1
ERRS	GETRID+26, GETRID1+22, DELACC+22!, DELACC+28, DELACC+34!, DELACC+40, DELACC+42!, DELACC+48
>> F60NAME	DELACC+31*, DELACC+32
FDA	GETRID+21!, GETRID1+16!, DELACC+22!, DELACC+34!, DELACC+42!
FDA(	GETRID+22, GETRID+23, GETRID1+17, GETRID1+18, DELACC+23, DELACC+24, DELACC+25, DELACC+36, DELACC+44*
>> FDAIENS	GETRID+20, GETRID+22, GETRID+23, GETRID1+15, GETRID1+17, GETRID1+18
>> FOUND	DELACC+13, DELACC+14, DELACC+15, DELACC+17, DELACC+21
HRCN	NAME+2, END+1!
I	TSET+6*, TSET+9, END+1!
IENS	GETRID+42, GETRID+43, GETRID1+36, GETRID1+37, DELACC+21, DELACC+23, DELACC+24, DELACC+25, DELACC+34!, DELACC+42! , OUT+9
IENS(1	DELACC+35, DELACC+43
II	MAKEMESG+1~
IO	GETRID+1, GETRID1+1, DELACC+1
>> IOBS	GETRID+1, GETRID1+1, DELACC+1
IOF	GETRID+1, GETRID1+1, DELACC+1, MAKEMESG+13, FIND+15
IOM	GETRID+1, GETRID1+1, DELACC+1, LOOK+17, TSET+2, TSET+3
ION	GETRID+1, GETRID1+1, DELACC+1
>> IOS	GETRID+1, GETRID1+1, DELACC+1
IOSL	GETRID+1, GETRID1+1, DELACC+1
IOST	GETRID+1, GETRID1+1, DELACC+1
>> IOT	GETRID+1, GETRID1+1, DELACC+1
>> IOXY	GETRID+1, GETRID1+1, DELACC+1
J	LOOK+16, MORE+2, EN+1, TSET+9, END+1!
K	END+1!
LRAA	DELACC+5, DELACC+6, DELACC+8, DELACC+14, DELACC+15, DELACC+21, EN1+2, EN1+3, EN1+6, OUT+15* , END+1!
LRACC	EN1+2, EN1+12, OUT+15, END+1!
LRACN	END+1!
LRACN0	END+1!
LRAD	DELACC+5, DELACC+6, DELACC+8, DELACC+14, DELACC+15, DELACC+21, EN1+2, EN1+6, OUT+15*, END+1!
LRAN	DELACC+5, DELACC+6, DELACC+8, DELACC+14, DELACC+15, DELACC+21, EN1+2, EN1+6, OUT+15*, END+1!
>> LRAT	DELACC+13, DELACC+14, DELACC+15
LRCANK	MAKEMESG+13~, LOOK+2, LOOK+5, LOOK+8, END+4!
LRCCOM	OUT+3, OUT+4*, END+4!
LRCCOM1	END+4!
LRCCOMX	OUT+3*, OUT+4, OUT+11!
LRCL	END+1!
LRCNT	LOOK+1, LOOK+3, LOOK+7, END+1!
LRCOL	LOOK+2*, LOOK+9, END+1!
LRDFN	DELACC+8, DELACC+35, DELACC+36, DELACC+43, DELACC+44, FIND+2!, EN1+7, EN1+8, NAME+1
LRDOC	END+2!
LRDPF	NAME+1*, END+2!
LRDTM	END+2!
LREND	FIND+1, LOOK+3, LOOK+4, LOOK+6, ONE+5, EN1+7*, OUT+2, END+2!
LRI	MAKEMESG~, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5, MAKEMESG+7, MAKEMESG+8, MAKEMESG+9, MAKEMESG+10, EN1+14~, EN1+15 , EN1+18!
LRI(	EN1+14*
LRIDT	DELACC+8, DELACC+35, DELACC+36, DELACC+43, DELACC+44, EN1+6, EN1+7, EN1+8, END+2!
LRJ	ONE+1, ONE+2, ONE+3, EN1+16, OUT+1, OUT+4*, END+2!
>> LRLABKY	TSET+8
LRLL	END+2!
LRLLOC	END+2!
LRMSTATI	MAKEMESG+1~, ONE+6!, EN1+15
LRNATURE	MAKEMESG+1~, FIND+2!, ONE+4!, EN1+5, EN1+15, ALLDEL+1!, END+2!
LRNOP	LOOK+14, EN1+2, EN1+13, EN1+20, OUT+1, OUT+15, EN+1, TSET+4*, END+2!
LRNOW	END+2!
LROD0	END+2!
LROD1	END+2!
LROD3	END+2!
LRODT	GETRID+6, GETRID+7, GETRID+9, GETRID+11, GETRID+14, GETRID+15, GETRID+18, GETRID+20, GETRID+27, GETRID+29 , GETRID+36, GETRID+37, GETRID+39, GETRID+41, GETRID+42, GETRID1+3, GETRID1+4, GETRID1+6, GETRID1+7, GETRID1+11 , GETRID1+13, GETRID1+15, GETRID1+23, GETRID1+25, GETRID1+31, GETRID1+33, GETRID1+34, GETRID1+36, DELACC~, DELACC+1 , DELACC+3, MAKEMESG~, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5, MAKEMESG+7, MAKEMESG+8, MAKEMESG+9, MAKEMESG+10, LOOK+1 , LOOK+3, LOOK+5, EN1+1, EN1+2, EN1+15, EN1+16, EN1+17, OUT+6, OUT+8, OUT+9 , OUT+14, OUT+15, NAME+1, EN+1, TSET+1, TSET+6, TSET+9, END+2!
LRONE	FIND+2!, EN1+2, EN1+12!, OUT+15
LROOS	END+3!
LRORD	FIND+14*, LOOK+1, LOOK+3, LOOK+4, OUT+6, OUT+14, UNL69+1, NAME+1, EN+1, END+3!
LRORT	GETRID+3, GETRID+4, GETRID+13, GETRID+14, GETRID+15, GETRID+18, GETRID+20, GETRID+27, GETRID+29, GETRID+40 , GETRID+41*, GETRID+42, GETRID1~, GETRID1+1, GETRID1+7, GETRID1+11, GETRID1+13, GETRID1+15, GETRID1+23, GETRID1+25 , GETRID1+34, GETRID1+36, DELACC~, DELACC+1, DELACC+3
LROS	END+3!
LROSD	END+3!
LROT	END+3!
>> LROTF60	DELACC+11*, DELACC+15, DELACC+31
LROV	LOOK+2, LOOK+3, LOOK+15, END+3!
LRROD	END+3!
LRSCNXB	END+3!
LRSN	MAKEMESG~, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5, MAKEMESG+7, MAKEMESG+8, MAKEMESG+9, MAKEMESG+10, LOOK+2, LOOK+3 , LOOK+5, EN1+1, EN1+2, EN1+15, EN1+16, OUT+5, OUT+6, OUT+8, OUT+9, OUT+14* , OUT+15, EN+1*, TSET+1, TSET+6, TSET+9, END+3!
LRSP	GETRID+8, GETRID+9, GETRID+11, GETRID+14, GETRID+15, GETRID+18, GETRID+20, GETRID+27, GETRID+29, GETRID+38* , GETRID+39, GETRID+41, GETRID+42, GETRID1+5, GETRID1+6, GETRID1+7, GETRID1+11, GETRID1+13, GETRID1+15, GETRID1+23 , GETRID1+25, GETRID1+32, GETRID1+33*, GETRID1+34, GETRID1+36, DELACC~, DELACC+1, DELACC+3
LRSPEC	TSET+9*, END+3!
LRSS	EN1+3*, EN1+7, EN1+8, END+3!
LRSTATUS	MAKEMESG+1~
LRT	LOOK+16, LOOK+17, MORE+2, MORE+3, ONE+2, EN+1!, END+3!
LRT(	LOOK+16, MORE+2, ONE+3, OUT+4, TSET+9*
LRT(0	EN1+20
LRTC	END+3!
LRTN	MAKEMESG+13~, LOOK+5*, END+4!
>> LRTNM	EN1+4*
LRTP	END+3!
>> LRTSN	EN1+14
LRTSTI	ONE+6!, EN1+1, EN1+2, EN1+13, EN1+16, EN1+17, OUT+7, OUT+8, OUT+9, OUT+15 , END+3!
LRTSTS	EN1+4, END+3!
LRTT	END+3!
LRURG	END+4!
LRUSI	END+4!
LRUSNM	END+4!
LRWRD	END+4!
>> LRX	EN1+2, OUT+15
MSG	ERRMSG~, ERRMSG+1
ORDERN	GETRID~, GETRID+1, GETRID+4, GETRID+7, GETRID+9, GETRID+35, GETRID+37, GETRID+39, GETRID1~, GETRID1+1 , GETRID1+4, GETRID1+6, GETRID1+30, GETRID1+31, GETRID1+33
ORIFN	MAKEMESG+1~, MAKEMESG+3, EN1+2, OUT+15*, END+5!
PNM	NAME+2, END+5!
SEX	END+5!
SSN	END+5!
>> STR	GETRID+15, GETRID1+7, GETRID1+8, GETRID1+34, GETRID1+35, DELACC+3, DELACC+5, DELACC+11
T	END+5!
T(	EN1+16!
U	GETRID+1, GETRID1+1, DELACC+1, MAKEMESG+3, MAKEMESG+4, MAKEMESG+9, MAKEMESG+14, LOOK+3, MORE+2, EN1+2 , EN1+3, EN1+4, EN1+6, OUT+15, NAME+1, TSET+8, TSET+9
X	MAKEMESG+4, MAKEMESG+5, MAKEMESG+6, MAKEMESG+7, MAKEMESG+8, FIND+14, LOOK+5, EN1+19, %+1!, %+5 , TSET+6*, TSET+7, TSET+8, TSET+9, END+5!
X(1	MAKEMESG+4, MAKEMESG+6, MAKEMESG+8
X1	END+5!
X2	END+5!
X3	END+5!
X4	END+5!
>> XPARSYS	GETRID+1, GETRID1+1, DELACC+1
>> XQXFLG	GETRID+1, GETRID1+1, DELACC+1
>> XQY0	MAKEMESG+14
Y	%+1!, END+5!
Z	END+5!

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRSGNSP

Information

Source Information

Call Graph

Call Graph Total: 16

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: