Routine: BLRMANP3

Package	Total	Call Graph
Kernel	3	^%ZIS ($$FMTE,$$HTE)^XLFDT ($$CJ,$$RJ,$$UP)^XLFSTR
IHS Changes To Lab	2	(EEP,HEADERDT,HEADERPG,LINEWRAP,PRESSKEY)^BLRGMENU $$BADSTUFN^BLRUTIL7
VA Fileman	2	$$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK
Lab Service	1	^LRWU4
Registration	1	DEM^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
CENTER(STR)	; EP - Center a string using IOM
DETAILIN(SUBRTN)	; EP - Initialize variables
VARSNEW	; EP - NEW put here to facilitate adding new routines.
ACCTESTS	; EP - Display the Tests
LINEMSG(MSG,FILLER,TAB)	; EP - Demarcation line, Version 2
EEP	; Ersatz EP
XTMPKILL	; EP - Purge the ^XTMP("BLRMANPU") Node
ENDERQ(MESSAGE)	; EP - Function to state why routine ending. Quits with "Q"
NODEZERO()	; EP - Display Accession Node Zero
NAMEPRT(DFN,CONVERT)	;EP; return printable name
DETAIL68	; EP - Accession (#68) File Data Detail
XTMPRPT	; EP - ^XTMP Issues node - Interactive Report
NODE3	; EP - Display Accession Node Three
ENDMESG	; EP -- Display the message
SETBLRVS(TWO)	; EP - Set the BLRVERN variables

External References

Name	Field # of Occurrence
^%ZIS	DETAILIN+22
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	XTMPRPT+7, XTMPKILL+5, DETAILIN+6, NODEZERO+1
HEADERPG^BLRGMENU	XTMPRPT+31
LINEWRAP^BLRGMENU	XTMPRPT+35
PRESSKEY^BLRGMENU	XTMPRPT+9, XTMPRPT+39, XTMPKILL+32, DETAIL68+9, ENDMESG+2
$$BADSTUFN^BLRUTIL7	XTMPKILL+15, XTMPKILL+21, XTMPKILL+27
$$GET1^DIQ	XTMPRPT+27, DETAILIN+14, DETAILIN+15, DETAILIN+16, DETAILIN+17, NODEZERO+11, NODEZERO+15, NODEZERO+17, NODEZERO+18, NODEZERO+21 , NODEZERO+22, NODEZERO+25, NODEZERO+28, NODEZERO+29, NODE3+4, NODE3+7, NODE3+14, NODE3+18, ACCTESTS+7, ACCTESTS+8 , ACCTESTS+11, ACCTESTS+12, ACCTESTS+18, ACCTESTS+28, ACCTESTS+29, ACCTESTS+31, ACCTESTS+32
^DIR	XTMPKILL+14, XTMPKILL+20, XTMPKILL+26
^LRWU4	DETAILIN+8
DEM^VADPT	NAMEPRT+3
^XBFMK	XTMPKILL+11, XTMPKILL+17, XTMPKILL+23
$$FMTE^XLFDT	NODEZERO+12, NODE3+5, NODE3+8, NODE3+16, ACCTESTS+15
$$HTE^XLFDT	XTMPRPT+33
$$CJ^XLFSTR	XTMPRPT+12, CENTER+1, LINEMSG+2
$$RJ^XLFSTR	NODE3+17, ACCTESTS+16
$$UP^XLFSTR	NODE3+5, NODE3+8, NODE3+16, ACCTESTS+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?4,"^XTMP Global has no Data for 'Multiple Accession Not Performed' Errors." Line Location: XTMPRPT+8
Function Call: WRITE	Prompt: UID Line Location: XTMPRPT+32
Function Call: WRITE	Prompt: ?12,$$HTE^XLFDT(HDATE,"2MZ") Line Location: XTMPRPT+33
Function Call: WRITE	Prompt: ?28,MSGDUZ Line Location: XTMPRPT+34
Function Call: WRITE	Prompt: ! Line Location: XTMPRPT+36
Function Call: WRITE	Prompt: ?9,"This option will purge the ^XTMP(""BLRMANPU"") global.",!! Line Location: XTMPKILL+6
Function Call: WRITE	Prompt: ?9,"That global contains any error messages created during the",!! Line Location: XTMPKILL+7
Function Call: WRITE	Prompt: ?14,"Mark Multiple Accessions as Not Performed",!! Line Location: XTMPKILL+8
Function Call: WRITE	Prompt: ?9,"process." Line Location: XTMPKILL+9
Function Call: WRITE	Prompt: !!,TAB_TAB_"^XTMP(""BLRMANPU"") Global Purged." Line Location: XTMPKILL+29
Function Call: WRITE	Prompt: !,?6,"Order #:",ORDERNUM," is NOT** in the Lab Order Entry (#69) File." Line Location: DETAIL68+7
Function Call: WRITE	Prompt: ?5,"Order #:",ORDERNUM Line Location: NODEZERO+7
Function Call: WRITE	Prompt: ?23,"UID:",UID Line Location: NODEZERO+9
Function Call: WRITE	Prompt: ?43,"Order Dt:" Line Location: NODEZERO+10
Function Call: WRITE	Prompt: ! Line Location: NODEZERO+13
Function Call: WRITE	Prompt: ?7,"LRDFN:",LRDFN Line Location: NODEZERO+16
Function Call: WRITE	Prompt: ?23,"DFN:",$$GET1^DIQ(63,LRDFN,.03,"I") Line Location: NODEZERO+17
Function Call: WRITE	Prompt: ?44,"PT NAME:",$$GET1^DIQ(63,LRDFN,.03) Line Location: NODEZERO+18
Function Call: WRITE	Prompt: ! Line Location: NODEZERO+19
Function Call: WRITE	Prompt: ?4,"Provider:",$E($$GET1^DIQ(68.02,LRASIEN,6.5),1,36) Line Location: NODEZERO+21
Function Call: WRITE	Prompt: ?42,"Rpt R Loc:",$$GET1^DIQ(68.02,LRASIEN,6) Line Location: NODEZERO+22
Function Call: WRITE	Prompt: ! Line Location: NODEZERO+23
Function Call: WRITE	Prompt: ?5,"Ord Loc:",$E($$GET1^DIQ(68.02,LRASIEN,94),1,27) Line Location: NODEZERO+25
Function Call: WRITE	Prompt: ?48,"Div:",$E(DIV,1,28) Line Location: NODEZERO+26
Function Call: WRITE	Prompt: ! Line Location: NODEZERO+27
Function Call: WRITE	Prompt: ?4,"Log-In Person:",$E($$GET1^DIQ(68.02,LRASIEN,6.7),1,19) Line Location: NODEZERO+28
Function Call: WRITE	Prompt: ?39,"File 200 IEN:",$$GET1^DIQ(68.02,LRASIEN,6.7,"I") Line Location: NODEZERO+29
Function Call: WRITE	Prompt: !! Line Location: NODEZERO+30
Function Call: WRITE	Prompt: ?4,"Draw Time:" Line Location: NODE3+3
Function Call: WRITE	Prompt: $TR($$UP^XLFSTR($$FMTE^XLFDT(DRAWTIME,"5MPZ")),"@"," ") Line Location: NODE3+5
Function Call: WRITE	Prompt: ?39,"Lab Arr Time:" Line Location: NODE3+6
Function Call: WRITE	Prompt: $TR($$UP^XLFSTR($$FMTE^XLFDT(LARRTIME,"5MPZ")),"@"," ") Line Location: NODE3+8
Function Call: WRITE	Prompt: ! Line Location: NODE3+9
Function Call: WRITE	Prompt: ?14,DRAWTIME,?52,LARRTIME,! Line Location: NODE3+11
Function Call: WRITE	Prompt: ?4,"Result Dt:" Line Location: NODE3+13
Function Call: WRITE	Prompt: $P(TEMP," "),$$RJ^XLFSTR($P(TEMP," ",2,3),9) Line Location: NODE3+17
Function Call: WRITE	Prompt: ?39,"Inverse Date:",$$GET1^DIQ(68.02,LRASIEN,13.5,"I") Line Location: NODE3+18
Function Call: WRITE	Prompt: ! Line Location: NODE3+19
Function Call: WRITE	Prompt: !,?4,"Test:",$$GET1^DIQ(68.04,LRATIEN,.01) Line Location: ACCTESTS+7
Function Call: WRITE	Prompt: ?40,"File 60 IEN:",$$GET1^DIQ(68.04,LRATIEN,.01,"I") Line Location: ACCTESTS+8
Function Call: WRITE	Prompt: ! Line Location: ACCTESTS+9
Function Call: WRITE	Prompt: ?4,"Tech:",$$GET1^DIQ(68.04,LRATIEN,3) Line Location: ACCTESTS+11
Function Call: WRITE	Prompt: ?44,"Comp Dt:" Line Location: ACCTESTS+14
Function Call: WRITE	Prompt: $P(TEMP," "),$$RJ^XLFSTR($P(TEMP," ",2,3),9) Line Location: ACCTESTS+16
Function Call: WRITE	Prompt: ! Line Location: ACCTESTS+17
Function Call: WRITE	Prompt: ?8,"Disp:",$E(STR,1,67) Line Location: ACCTESTS+20
Function Call: WRITE	Prompt: ! Line Location: ACCTESTS+21
Function Call: WRITE	Prompt: ! Line Location: ACCTESTS+23
Function Call: WRITE	Prompt: ?5,"Specimen:",$E($$GET1^DIQ(68.05,LRASPIEN,.01),1,32) Line Location: ACCTESTS+28
Function Call: WRITE	Prompt: ?40,"File 61 IEN:",$$GET1^DIQ(68.05,LRASPIEN,.01,"I") Line Location: ACCTESTS+29
Function Call: WRITE	Prompt: ! Line Location: ACCTESTS+30
Function Call: WRITE	Prompt: ?4,"Coll Samp:",$E($$GET1^DIQ(68.05,LRASPIEN,1),1,32) Line Location: ACCTESTS+31
Function Call: WRITE	Prompt: ?40,"File 62 IEN:",$$GET1^DIQ(68.05,LRASPIEN,1,"I") Line Location: ACCTESTS+32
Function Call: WRITE	Prompt: ! Line Location: ACCTESTS+33
Function Call: WRITE	Prompt: !!,?5,MESSAGE," Routine Ends." Line Location: ENDMESG+1
Function Call: WRITE	Prompt: ?($S(+$G(TAB):TAB-1,1:0)),MSG,! Line Location: LINEMSG+3
Routine Call	DIR Line Location: XTMPKILL+14 XTMPKILL+20 XTMPKILL+26
Routine Call	%ZIS Line Location: DETAILIN+22

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^LR - [#63]	GET1^DIQ
68.02	GET1^DIQ
68.04	GET1^DIQ
68.05	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("FUNC" - [#.5]	NAMEPRT+5
^LRO(68 - [#68]	DETAILIN+10, DETAILIN+12, NODEZERO+5, NODE3+1, ACCTESTS+4, ACCTESTS+26
^LRO(69 - [#69]	DETAIL68+7, NODEZERO+8
^XTMP("BLRMANPU"	XTMPRPT+6, XTMPRPT+24, XTMPRPT+26, XTMPRPT+29, XTMPRPT+30, XTMPKILL+30!

Label References

Name	Line Occurrences
$$CENTER	DETAILIN+20
$$DETAILIN	DETAIL68+3
$$ENDERQ	DETAILIN+10, DETAILIN+23
ACCTESTS	DETAIL68+5
ENDMESG	ENDERQ+1
NODE3	DETAIL68+5
NODEZERO	DETAIL68+5
SETBLRVS	XTMPRPT+3, DETAILIN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLRVERN	SETBLRVS+1!, SETBLRVS+2*
BLRVERN2	SETBLRVS+1!, SETBLRVS+3*
>> CNT	XTMPRPT+20*
COL	DETAILIN+1~
COL2	DETAILIN+1~
CONVERT	NAMEPRT~, NAMEPRT+5
>> DATETIME	ACCTESTS+12*, ACCTESTS+13, ACCTESTS+15
DFN	NAMEPRT~
>> DILOCKTM	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> DIR("A"	XTMPKILL+13, XTMPKILL+19, XTMPKILL+25*
>> DIR(0	XTMPKILL+12, XTMPKILL+18, XTMPKILL+24*
>> DISYS	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> DIV	DETAILIN+17*, NODEZERO+26
>> DRAWTIME	NODE3+4*, NODE3+5, NODE3+11
DT	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
DTIME	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
DUZ	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
FILLER	LINEMSG~, LINEMSG+2
>> HDATE	XTMPRPT+28, XTMPRPT+29, XTMPRPT+30, XTMPRPT+33
>> HEADER(1	XTMPRPT+4, XTMPKILL+3, DETAILIN+4*
>> HEADER(2	XTMPRPT+11, XTMPKILL+4, DETAILIN+19*
>> HEADER(3	XTMPRPT+12, DETAILIN+20
>> HEADER(4	XTMPRPT+13*
>> HEADER(5	XTMPRPT+14, XTMPRPT+15, XTMPRPT+16, XTMPRPT+17
IO	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> IOBS	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
IOF	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
IOM	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1, CENTER+1, LINEMSG+2
ION	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> IOS	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
IOSL	XTMPRPT+1, XTMPRPT+19, XTMPKILL+1, DETAIL68+1, DETAILIN+25, VARSNEW+1
IOST	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> IOT	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> IOXY	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> LARRTIME	NODE3+7*, NODE3+8, NODE3+11
>> LINES	XTMPRPT+19, XTMPRPT+31, XTMPRPT+37, DETAILIN+26*
>> LRAA	DETAILIN+10, DETAILIN+12, DETAILIN+13, DETAILIN+20, NODEZERO+5, NODE3+1, ACCTESTS+4, ACCTESTS+26
>> LRAD	DETAILIN+10, DETAILIN+13, DETAILIN+20, NODEZERO+5, NODE3+1, ACCTESTS+4, ACCTESTS+26
>> LRAN	DETAILIN+10, DETAILIN+13, DETAILIN+20, NODEZERO+5, NODE3+1, ACCTESTS+4, ACCTESTS+26
>> LRAS	DETAILIN+15*, DETAILIN+19
>> LRASIEN	DETAILIN+13*, DETAILIN+14, DETAILIN+15, DETAILIN+16, DETAILIN+17, NODEZERO+11, NODEZERO+15, NODEZERO+21, NODEZERO+22, NODEZERO+25 , NODEZERO+28, NODEZERO+29, NODE3+4, NODE3+7, NODE3+14, NODE3+18, ACCTESTS+5, ACCTESTS+27
>> LRASP	ACCTESTS+25, ACCTESTS+26, ACCTESTS+27
>> LRASPIEN	ACCTESTS+27*, ACCTESTS+28, ACCTESTS+29, ACCTESTS+31, ACCTESTS+32
>> LRAT	ACCTESTS+3, ACCTESTS+4, ACCTESTS+5
>> LRATIEN	ACCTESTS+5*, ACCTESTS+7, ACCTESTS+8, ACCTESTS+11, ACCTESTS+12, ACCTESTS+18
>> LRDFN	NODEZERO+15*, NODEZERO+16, NODEZERO+17, NODEZERO+18
>> LRSS	DETAILIN+12*
>> MAXLINES	XTMPRPT+19, XTMPRPT+31, DETAILIN+25, DETAILIN+26
MESSAGE	ENDMESG+1, ENDERQ~
MSG	LINEMSG~, LINEMSG+1, LINEMSG+2, LINEMSG+3
>> MSGDUZ	XTMPRPT+25, XTMPRPT+26, XTMPRPT+27, XTMPRPT+29, XTMPRPT+30, XTMPRPT+34
>> MSGL	XTMPRPT+23*
>> NAMEDUZ	XTMPRPT+27*
>> ORDERDT	NODEZERO+11*, NODEZERO+12
>> ORDERNUM	DETAIL68+7, DETAILIN+14*, NODEZERO+7, NODEZERO+8
>> PG	XTMPRPT+20, XTMPRPT+31, DETAILIN+27
>> POP	DETAILIN+23
>> QFLG	XTMPRPT+21, XTMPRPT+24, XTMPRPT+26, XTMPRPT+29, XTMPRPT+31, DETAILIN+27
>> RESULTDT	DETAILIN+27, NODE3+14, NODE3+15, NODE3+16
STR	XTMPRPT+30, XTMPRPT+35, NODEZERO+5, NODE3+1, ACCTESTS+6, ACCTESTS+10, ACCTESTS+18, ACCTESTS+19, ACCTESTS+20, CENTER~ , CENTER+1
SUBRTN	DETAILIN~, DETAILIN+2
TAB	XTMPKILL+10*, XTMPKILL+13, XTMPKILL+19, XTMPKILL+25, XTMPKILL+29, LINEMSG~, LINEMSG+2, LINEMSG+3
TECH	ACCTESTS+1~, ACCTESTS+10*
>> TEMP	NODE3+16, NODE3+17, ACCTESTS+15, ACCTESTS+16
>> TESTIEN	ACCTESTS+6*
TWO	SETBLRVS~, SETBLRVS+3
U	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, DETAILIN+12, ACCTESTS+6, ACCTESTS+10, VARSNEW+1
>> UID	XTMPRPT+23, XTMPRPT+24, XTMPRPT+26, XTMPRPT+29, XTMPRPT+30, XTMPRPT+32, DETAILIN+16*, NODEZERO+9
VADM	NAMEPRT+2~
VADM(1	NAMEPRT+4
X	NAMEPRT+2~, NAMEPRT+4*, NAMEPRT+6
>> XPARSYS	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> XQXFLG	XTMPRPT+1, XTMPKILL+1, DETAIL68+1, VARSNEW+1
>> Y	XTMPKILL+15, XTMPKILL+21, XTMPKILL+27

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRMANP3

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items