Routine: BLRMANPU

Information

BLRMANPU ; IHS/MSC/MKK - Multiple Accession Not Performed Utility ;10-Jan-2017 09:29;MKK

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
IHS Changes To Lab	5	^BLREVTQ ($$COLHEAD,ADDTMENU,EEP,HEADERDT,HEADERPG,HEADONE,MENUDRVR,PRESSKEY)^BLRGMENU FIX^BLRMANP2 NOTPERF^BLRRLTDR (BADSTUFF,PROMPTO)^BLRUTIL7
Lab Service	5	NEW^LR7OB1 ^LRPARAM (CHG,FX2,SET)^LRTSTOUT (,QUES,QUIT,UNIV,WLQUES)^LRWU4 PT^LRX
VA Fileman	4	^%DT $$FIND1^DIC $$GET1^DIQ ^DIR
Kernel	3	($$DT,$$FMTE,$$HTFM,$$NOW)^XLFDT $$LJ^XLFSTR $$LKUP^XPDKEY
IHS VA Utilities	1	^XBFMK

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRMANP2

Entry Points

Name	Comments	DBIA/ICR reference
LRWU4AA	;
MENU	; EP - Menu
PEP	; EP
GETRID(LRAA,LRAD,LRAN,LRAS,LRNOP)	; EP - Mark Accession as NOT Performed. ; Following code cloned from LRTSTJAN & LRTSTOUT
EEP	; Ersatz EP
SETBLRVS(TWO)	; EP - Set the BLRVERN variable(s)
UNLOCK	; EP
XTMPISET(MSG,RTN)	; EP - Set data in ^XTMP when there are issues
SLABDATA	; EP - Setup the Lab Data file variables
NOTPERF(LRAA,LRAD,LRAN,UID,CANCLRSN)	; EP - Not Performed
LRWU4	; EP - Code cloned from LRWU4 routine
EP	; EP
F6869100	; EP - Given an Accession, display data from 68, 69 & 100

External References

Name	Field # of Occurrence
^%DT	LRWU4AA+41
^BLREVTQ	GETRID+29
$$COLHEAD^BLRGMENU	F6869100+30, F6869100+31, F6869100+32
ADDTMENU^BLRGMENU	MENU+5, MENU+6, MENU+7, MENU+8, MENU+9
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	PEP+10, PEP+35, PEP+52, PEP+74, F6869100+7, F6869100+16, F6869100+18
HEADERPG^BLRGMENU	F6869100+67
HEADONE^BLRGMENU	F6869100+17
MENUDRVR^BLRGMENU	MENU+11
PRESSKEY^BLRGMENU	PEP+129, F6869100+79
FIX^BLRMANP2	NOTPERF+17
NOTPERF^BLRRLTDR	GETRID+5
BADSTUFF^BLRUTIL7	PEP+33, PEP+58
PROMPTO^BLRUTIL7	PEP+22, PEP+29, PEP+48, F6869100+14
$$FIND1^DIC	PEP+80
$$GET1^DIQ	PEP+26, PEP+69, PEP+86, PEP+95, PEP+97, PEP+99, PEP+102, PEP+104, NOTPERF+8, NOTPERF+10 , NOTPERF+11, GETRID+4, GETRID+11, SLABDATA+4, SLABDATA+5, F6869100+21, F6869100+22, F6869100+23, F6869100+53, F6869100+54 , F6869100+55, F6869100+56, F6869100+62, F6869100+65
^DIR	PEP+47, PEP+56, LRWU4AA+3, LRWU4AA+54
NEW^LR7OB1	PEP+109
^LRPARAM	NOTPERF+3
CHG^LRTSTOUT	GETRID+21
FX2^LRTSTOUT	GETRID+22
SET^LRTSTOUT	GETRID+26
^LRWU4	SLABDATA+1, F6869100+9
QUES^LRWU4	LRWU4AA+18, LRWU4AA+43, LRWU4AA+60
QUIT^LRWU4	LRWU4AA+4, LRWU4AA+29, LRWU4AA+58
UNIV^LRWU4	LRWU4AA+13
WLQUES^LRWU4	LRWU4AA+20, LRWU4AA+23
PT^LRX	GETRID+13
^XBFMK	PEP+43, PEP+53
$$DT^XLFDT	LRWU4+4
$$FMTE^XLFDT	LRWU4AA+62
$$HTFM^XLFDT	XTMPISET+5, XTMPISET+6
$$NOW^XLFDT	GETRID+25
$$LJ^XLFSTR	PEP+15, PEP+39, PEP+126
$$LKUP^XPDKEY	LRWU4AA+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "The following Accessions have been selected:",!,?4 Line Location: PEP+12
Function Call: WRITE	Prompt: $$LJ^XLFSTR(LRAS,22) Line Location: PEP+15
Function Call: WRITE	Prompt: !,?4 Line Location: PEP+16
Function Call: WRITE	Prompt: !! Line Location: PEP+17
Function Call: WRITE	Prompt: "The following Accessions have been selected to be marked as NOT PERFORMED:",!,?4 Line Location: PEP+36
Function Call: WRITE	Prompt: $$LJ^XLFSTR(LRAS,22) Line Location: PEP+39
Function Call: WRITE	Prompt: !,?4 Line Location: PEP+40
Function Call: WRITE	Prompt: !! Line Location: PEP+41
Function Call: WRITE	Prompt: ?4,LRAS,?29,"*NP Marked",! Line Location: PEP+77
Function Call: WRITE	Prompt: !!,"The following accessions were NOT marked as *NP Complete:",!,?4 Line Location: PEP+123
Function Call: WRITE	Prompt: $$LJ^XLFSTR(LRAS,22) Line Location: PEP+126
Function Call: WRITE	Prompt: !,?4 Line Location: PEP+127
Function Call: WRITE	Prompt: !?5,"Accession has no Test ",! Line Location: GETRID+7
Function Call: WRITE	Prompt: !,"Someone else is working on this accession",! Line Location: GETRID+8
Function Call: WRITE	Prompt: !,"Someone else is working on this data." Line Location: GETRID+15
Function Call: WRITE	Prompt: !?5," Can't find Lab Data for this accession",! Line Location: GETRID+16
Function Call: WRITE	Prompt: !!,"LRDFN:",LRDFN,"; LRIDT:",LRIDT,!! Line Location: SLABDATA+7
Function Call: WRITE	Prompt: !,$P(LRX,U) Line Location: LRWU4AA+26
Function Call: WRITE	Prompt: !,"ACCESSION: ",$P(^LRO(68,LRAA,0),U,11)," ",$$FMTE^XLFDT(LRAD,"5D")," ",LRAN," DOES NOT EXIST!" Line Location: LRWU4AA+62
Function Call: WRITE	Prompt: LRAT Line Location: F6869100+69
Function Call: WRITE	Prompt: ?9,LRAS Line Location: F6869100+70
Function Call: WRITE	Prompt: ?27,$E(DISPTION,1,13) Line Location: F6869100+71
Function Call: WRITE	Prompt: ?42,ORDNUM Line Location: F6869100+72
Function Call: WRITE	Prompt: ?52,CANCBY Line Location: F6869100+73
Function Call: WRITE	Prompt: ?62,OERRIEN Line Location: F6869100+74
Function Call: WRITE	Prompt: ?74,$E(OERRSTS,1,6) Line Location: F6869100+75
Function Call: WRITE	Prompt: ! Line Location: F6869100+76
Routine Call	DIC Line Location: PEP+80
Routine Call	DIR Line Location: PEP+47 PEP+56 LRWU4AA+3 LRWU4AA+54

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^ORD(100.01 - [#100.01]	FIND1^DIC
^LRO(68 - [#68]	GET1^DIQ
68.02	GET1^DIQ
68.04	GET1^DIQ
69.03	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	LRWU4AA+8*, LRWU4AA+9
^LAB(60 - [#60]	GETRID+26
^LR - [#63]	GETRID+12, GETRID+15, GETRID+16, GETRID+20*, GETRID+28, UNLOCK+1
^LRO(68 - [#68]	PEP+21, PEP+25, GETRID+7, GETRID+8, GETRID+9, GETRID+15, GETRID+25, GETRID+27, UNLOCK+1, LRWU4AA+13 , LRWU4AA+19, LRWU4AA+21, LRWU4AA+25, LRWU4AA+47, LRWU4AA+61, LRWU4AA+62, XTMPISET+9, F6869100+13, F6869100+61
^LRO(69 - [#69]	PEP+88, PEP+90, PEP+93, PEP+105, PEP+120, F6869100+47, F6869100+49, F6869100+51
^XTMP("BLRMANPU"	XTMPISET+3, XTMPISET+7, XTMPISET+10, XTMPISET+11*
^XUSEC(	LRWU4AA+23

Label References

Name	Line Occurrences
$$NOTPERF	PEP+70
LRWU4	PEP+18
LRWU4AA	LRWU4+5
SETBLRVS	PEP+3, MENU+3, F6869100+3
UNLOCK	GETRID+16

Naked Globals

Name	Field # of Occurrence
^(	GETRID+9, GETRID+25
^("LRACC"	LRWU4AA+9
^(0	GETRID+12, GETRID+25, GETRID+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LRWU4+1~, LRWU4AA+21, LRWU4AA+22, LRWU4AA+23
%DT	LRWU4AA+35~, LRWU4AA+40*
>> BLRLOG	NOTPERF+4*, GETRID+29
>> BLRLRAS	PEP+22, PEP+29, PEP+31, LRWU4AA+6*, F6869100+14
>> BLROPT	NOTPERF+13*, GETRID+29
BLRVERN	SETBLRVS+1!, SETBLRVS+3*
BLRVERN2	SETBLRVS+1!, SETBLRVS+4*
>> CANCBY	F6869100+66*, F6869100+73
CANCLRSN	PEP+50, PEP+51, PEP+59, PEP+61*, PEP+63, PEP+70, NOTPERF~, NOTPERF+1
>> CNT	F6869100+42*
>> COMPLTED	PEP+24, PEP+25, PEP+26, PEP+28
>> DFN	GETRID+12*
DIC	LRWU4+1~
>> DILOCKTM	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
DIR	LRWU4+1~, LRWU4AA+52~
DIR("?"	LRWU4AA+2*
DIR("A"	PEP+45, PEP+55, LRWU4AA+1, LRWU4AA+53
DIR("B"	PEP+46*
DIR(0	PEP+44, PEP+54, LRWU4AA+1, LRWU4AA+53
DIRUT	PEP+48, PEP+57, LRWU4+1~, LRWU4AA+4, LRWU4AA+52~, LRWU4AA+55
>> DISCPTR	PEP+80*
>> DISPTION	F6869100+62*, F6869100+71
>> DISYS	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
DT	PEP+1, NOTPERF+1, GETRID+2, LRWU4+4*, LRWU4AA+36, LRWU4AA+38, LRWU4AA+39, MENU+1, F6869100+1
DTIME	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
DTOUT	LRWU4+1~, LRWU4AA+52~
DUOUT	LRWU4+1~, LRWU4AA+52~
DUZ	PEP+1, PEP+119, NOTPERF+1, GETRID+2, LRWU4AA+8, LRWU4AA+9, LRWU4AA+23, MENU+1, XTMPISET+10, F6869100+1
>> F60PTR	PEP+102*, PEP+103
>> HDRONE	F6869100+17, F6869100+67
>> HEADER(1	PEP+5, F6869100+5, F6869100+25!, F6869100+26*
>> HEADER(2	PEP+6, F6869100+6
>> HEADER(3	F6869100+28*
>> HEADER(4	F6869100+29, F6869100+30, F6869100+31, F6869100+32
>> HEADER(5	F6869100+33, F6869100+34, F6869100+35, F6869100+36, F6869100+37, F6869100+38, F6869100+39*
>> IEN	NOTPERF+9*, NOTPERF+10, NOTPERF+11
IO	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
>> IOBS	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
IOF	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
IOM	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
ION	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
>> IOS	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
IOSL	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1, F6869100+41
IOST	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
>> IOT	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
>> IOXY	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
>> LINES	F6869100+41, F6869100+67, F6869100+77
LRAA	PEP+19, PEP+21, PEP+25, PEP+26, PEP+31, PEP+68, PEP+69, PEP+70, PEP+85, PEP+86 , PEP+98, NOTPERF~, NOTPERF+1, NOTPERF+6, NOTPERF+8, NOTPERF+9, GETRID~, GETRID+2, GETRID+4, GETRID+7 , GETRID+8, GETRID+9, GETRID+11, GETRID+15, GETRID+25, GETRID+27, UNLOCK+1, SLABDATA+3, LRWU4AA+10, LRWU4AA+19 , LRWU4AA+20, LRWU4AA+21, LRWU4AA+23, LRWU4AA+25, LRWU4AA+47, LRWU4AA+61, LRWU4AA+62, XTMPISET+9, F6869100+11, F6869100+13 , F6869100+20, F6869100+61
>> LRAAIEN	F6869100+20*, F6869100+21, F6869100+22, F6869100+23, F6869100+62
>> LRACC	LRWU4AA+51, LRWU4AA+58, LRWU4AA+60, LRWU4AA+61
>> LRACN	GETRID+9*, GETRID+29
LRAD	PEP+19, PEP+21, PEP+25, PEP+26, PEP+31, PEP+68, PEP+69, PEP+70, PEP+85, PEP+86 , PEP+96, NOTPERF~, NOTPERF+1, NOTPERF+6, NOTPERF+9, GETRID~, GETRID+2, GETRID+4, GETRID+7, GETRID+8 , GETRID+9, GETRID+15, GETRID+25, GETRID+27, UNLOCK+1, SLABDATA+3, LRWU4AA+10, LRWU4AA+34, LRWU4AA+42, LRWU4AA+44 , LRWU4AA+48*, LRWU4AA+61, LRWU4AA+62, XTMPISET+9, F6869100+11, F6869100+13, F6869100+20, F6869100+61
>> LRAIEN	SLABDATA+3*, SLABDATA+4, SLABDATA+5
LRAN	PEP+19, PEP+21, PEP+25, PEP+26, PEP+31, PEP+68, PEP+69, PEP+70, PEP+85, PEP+86 , PEP+100, NOTPERF~, NOTPERF+1, NOTPERF+6, NOTPERF+9, GETRID~, GETRID+2, GETRID+4, GETRID+7, GETRID+8 , GETRID+9, GETRID+15, GETRID+25, GETRID+27, UNLOCK+1, SLABDATA+3, LRWU4AA+10, LRWU4AA+59, LRWU4AA+60, LRWU4AA+61 , LRWU4AA+62, XTMPISET+9, F6869100+11, F6869100+13, F6869100+20, F6869100+61
LRAS	PEP+13, PEP+14, PEP+15, PEP+37, PEP+38, PEP+39, PEP+65, PEP+66, PEP+67, PEP+71 , PEP+72, PEP+76, PEP+77, PEP+82, PEP+83, PEP+84, PEP+124, PEP+125, PEP+126, GETRID~ , GETRID+2, F6869100+22*, F6869100+26, F6869100+70
>> LRAT	PEP+24, PEP+25, PEP+26, F6869100+60, F6869100+61, F6869100+62, F6869100+63, F6869100+69
>> LRAUID	F6869100+23*, F6869100+26
>> LRDFN	NOTPERF+10, GETRID+10, GETRID+12, GETRID+15, GETRID+16, GETRID+20, GETRID+28, UNLOCK+1, SLABDATA+4*, SLABDATA+7
>> LRDPF	GETRID+12*
>> LREND	NOTPERF+16, NOTPERF+18, GETRID+22, XTMPISET+12*
>> LRIDIV	LRWU4AA+25*
>> LRIDT	NOTPERF+11, GETRID+15, GETRID+16, GETRID+20, GETRID+28, UNLOCK+1, SLABDATA+5*, SLABDATA+7
>> LRIFN	GETRID+18, GETRID+20
LRNATURE	LRWU4+3!
LRNOP	NOTPERF+16, GETRID~, GETRID+2, GETRID+7, GETRID+8, GETRID+15, GETRID+16*
>> LRNOW	GETRID+25*
>> LROCANBY	F6869100+56*, F6869100+57
>> LRODNUM	PEP+86*, PEP+88, PEP+90
>> LRODT	PEP+87, PEP+88, PEP+90, PEP+93, PEP+94, PEP+104, PEP+105, PEP+109, PEP+112, PEP+113 , PEP+115, PEP+117, PEP+118, PEP+120, GETRID+10, F6869100+46, F6869100+47*, F6869100+49, F6869100+51, F6869100+52 , F6869100+57
>> LROF60	F6869100+53*, F6869100+57
>> LROLRAA	PEP+97*, PEP+98
>> LROLRAD	PEP+95*, PEP+96
>> LROLRAN	PEP+99*, PEP+100
>> LROSTS	F6869100+55*, F6869100+57
>> LROT	PEP+92, PEP+93, PEP+94, PEP+104, PEP+105, PEP+116, PEP+117, PEP+118, PEP+120, F6869100+50* , F6869100+51*, F6869100+52
>> LROTARRY(	F6869100+57*, F6869100+63
>> LROTIEN	PEP+94, PEP+95, PEP+97, PEP+99, PEP+102, PEP+104, F6869100+52, F6869100+53, F6869100+54, F6869100+55 , F6869100+56
LRQUIT	LRWU4+1~, LRWU4+4, LRWU4+5, LRWU4AA+64
LRSCNXB	NOTPERF+15!
>> LRSN	GETRID+10*
>> LRSP	PEP+89, PEP+90, PEP+93, PEP+94, PEP+104, PEP+105, PEP+109, PEP+114, PEP+115, PEP+117 , PEP+118, PEP+120, F6869100+48, F6869100+49, F6869100+51, F6869100+52, F6869100+57
>> LRSS	NOTPERF+8, GETRID+11, GETRID+15, GETRID+16, GETRID+20, GETRID+28, UNLOCK+1
>> LRTNM	GETRID+26*
>> LRTOTL	GETRID+18*, GETRID+19, GETRID+21
LRTSTS	GETRID+24~, GETRID+25*, GETRID+26
>> LRUID	GETRID+9*
>> LRVBY	LRWU4AA+1, LRWU4AA+13
LRX	GETRID+9, GETRID+10, LRWU4+1~, LRWU4AA+5, LRWU4AA+8, LRWU4AA+9, LRWU4AA+13, LRWU4AA+16, LRWU4AA+25
LRXX	NOTPERF+15!
>> MAXLINES	F6869100+41*, F6869100+67
MSG	XTMPISET~, XTMPISET+10
NAT	PEP+91!, PEP+108*, PEP+109
>> NOTOKAY	PEP+122
>> NOTOKAY(	PEP+71*, PEP+125
>> NPOKAY	PEP+75
>> NPOKAY(	PEP+72*, PEP+77, PEP+83
>> OERRIEN	F6869100+54, F6869100+57, F6869100+64, F6869100+65, F6869100+74
>> OERRSTS	F6869100+65*, F6869100+75
>> OKAY	PEP+70*, PEP+71, PEP+72
>> ONGO	PEP+8, PEP+9, PEP+19, F6869100+11*
>> ORDNUM	F6869100+21*, F6869100+47, F6869100+49, F6869100+72
>> PG	F6869100+42*, F6869100+67
>> QFLG	F6869100+43*, F6869100+61, F6869100+67
>> REMOVEA	PEP+11, PEP+33
>> REMOVEA(	PEP+14, PEP+31*, PEP+38, PEP+66, PEP+67, PEP+84
RTN	XTMPISET~, XTMPISET+10
>> SAVLRAA	NOTPERF+6*
>> SAVLRAD	NOTPERF+6*
>> SAVLRAN	NOTPERF+6*
STR	PEP+67, PEP+68, PEP+84, PEP+85, XTMPISET+1~, XTMPISET+3, XTMPISET+4, XTMPISET+5, XTMPISET+6, XTMPISET+7 , F6869100+63, F6869100+64, F6869100+66
TESTS	PEP+91!, PEP+106, PEP+109
TESTS(	PEP+103*
TWO	SETBLRVS~, SETBLRVS+4
U	PEP+1, PEP+31, PEP+68, PEP+85, PEP+105, PEP+120, NOTPERF+1, GETRID+2, GETRID+7, GETRID+9 , GETRID+10, GETRID+12, GETRID+15, GETRID+20, GETRID+25, GETRID+26, LRWU4+4*, LRWU4AA+21, LRWU4AA+25, LRWU4AA+47 , LRWU4AA+62, MENU+1, F6869100+1, F6869100+57, F6869100+64, F6869100+66
UID	PEP+69, PEP+70, NOTPERF~, NOTPERF+1, GETRID+4, GETRID+5, XTMPISET+1~, XTMPISET+9*, XTMPISET+10
WHOCANCL	PEP+81!, PEP+118, PEP+119, PEP+120
WHOCANCL(	PEP+104*, PEP+113, PEP+115, PEP+117, PEP+118
X	PEP+61, LRWU4AA+6, LRWU4AA+40, LRWU4AA+47, LRWU4AA+48, LRWU4AA+52~
>> X1	LRWU4AA+16*, LRWU4AA+18, LRWU4AA+19
>> X2	LRWU4AA+16, LRWU4AA+17, LRWU4AA+29, LRWU4AA+36, LRWU4AA+37, LRWU4AA+38, LRWU4AA+39*, LRWU4AA+40
>> X3	LRWU4AA+16, LRWU4AA+17, LRWU4AA+29, LRWU4AA+49, LRWU4AA+51, LRWU4AA+56*, LRWU4AA+58, LRWU4AA+59
>> XPARSYS	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
>> XQXFLG	PEP+1, NOTPERF+1, GETRID+2, MENU+1, F6869100+1
Y	PEP+48, LRWU4AA+4, LRWU4AA+5, LRWU4AA+42, LRWU4AA+52~, LRWU4AA+55, LRWU4AA+56

Marked Items

Name	Field # of Occurrence
$T(	SETBLRVS+3

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRMANPU

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 1

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