Routine: BLRRLMV

Package	Total	Call Graph
VA Fileman	3	^%DT $$GET1^DIQ ^DIR
IHS Changes To Lab	2	DIQ^BLRLMR JOB^BLRPARAM
IHS VA Utilities	2	EN^XBNEW EN^XBVK
Kernel	2	$$FMTHL7^XLFDT DUZ^XUP
Health Level Seven	1	REPROC^HLUTIL

Entry Points

Name	Comments	DBIA/ICR reference
CALLHL	;call the hl refiler
RFL(IN)	;-- ask if they want to refile
ASKA()	;-- ask the accession number
ASKF()	;-- ask file
WRT(RD)	;-- lets call DIQ to display the entry
SETOBR(MSG)	;-- loop through the message and get the OBR and test for editing
EDITRFL()	;-- edit or just refile
ASKO()	;-- ask the order code
MSGLOOK(BLRD,PT,ON,CDT)
UPACC(OBR,RY)	;-- update the message with accessions
SAMEACC()	;-- same accession number for all tests
ACC(C,D,T)	;-- lets get the accession number to file
EDHL	;-- lets insert the accession number if not there by finding the patient and order code
EOJ	;-- kill variables
LEDI
ZERO(SCR)
ERFL(RY)	;-- ask if they want to refile
SM(BLRUIF)	;-- view the message
ASKCDT()	;-- ask the collection date
ASKP()	;-- ask the patient chart
ASKM()	;-- ask message number
ADDACC(OBR,RY)	;-- lets add the accession to the obr
CMSG(IN)	;-- ask if they want to refile
ASKAC()	;-- ask the accession number
ACCLOOK(BLRD,ACC)
ASK()	;-- ask to look by message number or file
REF(UIF)	;-- mark entry as verified
CHKMSG(M)	;-- check to see if this is an ORU R01 message
MAIN	;EP - this is the main routine driver
LOOP	;-- loop the xref and call VER

External References

Name	Field # of Occurrence
^%DT	ASKCDT+3
DIQ^BLRLMR	LOOP+10, SM+7
JOB^BLRPARAM	EOJ+1
$$GET1^DIQ	CHKMSG+4
^DIR	ASK+2, ASKF+2, ASKM+2, EDITRFL+3, RFL+7, ASKA+3, ASKP+3, ASKO+3, ASKAC+3, ERFL+5 , CMSG+3, SAMEACC+3, ACC+5
REPROC^HLUTIL	CALLHL+3, EDHL+25
EN^XBNEW	LEDI+11
EN^XBVK	EOJ+2
$$FMTHL7^XLFDT	EDHL+8
DUZ^XUP	CALLHL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Could not find an entry to refile" Line Location: ACCLOOK+10
Function Call: WRITE	Prompt: !!,"Entry #"_BLRIDA,! Line Location: ACCLOOK+14
Function Call: WRITE	Prompt: !,$G(^HL(772,RD,"IN",BLRI,0)) Line Location: WRT+3
Function Call: WRITE	Prompt: !,"No Files to View" Line Location: LOOP+2
Function Call: WRITE	Prompt: @IOF Line Location: LOOP+6
Function Call: WRITE	Prompt: !!,"GIS HL7 Message "_BLRUIF_" has already been purged, cannot display" Line Location: LOOP+9
Function Call: WRITE	Prompt: !!,"No More Messages in Batch, Exiting" Line Location: LOOP+11
Function Call: WRITE	Prompt: !!,"GIS HL7 Message "_BLRUIF_" has already been purged, cannot display" Line Location: SM+2
Function Call: WRITE	Prompt: @IOF Line Location: SM+5
Function Call: WRITE	Prompt: !,"Could not find a matching entry" Line Location: MSGLOOK+14
Function Call: WRITE	Prompt: !!,"Entry #"_BLRIDA,! Line Location: MSGLOOK+18
Function Call: WRITE	Prompt: ! Line Location: ERFL+1
Routine Call	DIR Line Location: ASK+2 ASKF+2 ASKM+2 EDITRFL+3 RFL+7 ASKA+3 ASKP+3 ASKO+3 ASKAC+3 ERFL+5 CMSG+3 SAMEACC+3 ACC+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^INTHU - [#4001]	Classic Fileman Calls
^HL(779.001 - [#779.001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRRL - [#9009026]	REF+6
^BLRRLG - [#9009026.1]	LOOP+4, LOOP+7
^BLRRLG("B"	LOOP+1
^BLRSITE - [#9009029]	REF+4
^HL(772 - [#772]	ACCLOOK+4, ACCLOOK+5, ACCLOOK+6, WRT+2, WRT+3, MSGLOOK+3, MSGLOOK+5, MSGLOOK+6, MSGLOOK+8, SETOBR+2 , SETOBR+3, SETOBR+4, SETOBR+5, UPACC+4*
^HLMA - [#773]	CHKMSG+4
^HLMA("B"	LEDI+9, CHKMSG+2, EDHL+23
^INLHSCH(0	REF+1*
^INRHS("B"	REF+7
^INTHU - [#4001]	LOOP+8, SM+1

Label References

Name	Line Occurrences
$$ACC	ADDACC+5, ADDACC+11
$$ACCLOOK	LEDI+4
$$ASK	MAIN+1
$$ASKA	LEDI+3
$$ASKCDT	EDHL+6
$$ASKF	MAIN+3
$$ASKM	MAIN+7
$$ASKO	EDHL+4
$$ASKP	EDHL+2
$$CHKMSG	ACCLOOK+6, MSGLOOK+6, MSGLOOK+8
$$CMSG	EDHL+12
$$ERFL	EDHL+20
$$MSGLOOK	EDHL+9
$$RFL	LEDI+6
$$SAMEACC	ADDACC+2
$$ZERO	REF+9
ADDACC	EDHL+18
EOJ	MAIN+5, MAIN+9, LEDI+5, LEDI+13, EDHL+10, EDHL+26
LOOP	MAIN+4
SETOBR	EDHL+16
SM	MAIN+8
UPACC	EDHL+19
WRT	ACCLOOK+15, MSGLOOK+19, ERFL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ASKCDT+1!, ASKCDT+2*
%DT("A"	ASKCDT+2*
AC	UPACC+1~, UPACC+3*, UPACC+4
ACC	ACCLOOK~, ACCLOOK+6, ADDACC+5, ADDACC+7, ADDACC+11, ADDACC+12, ADDACC+13
BLRAN	LEDI+2~, LEDI+3*, LEDI+4
>> BLRCDT	EDHL+6, EDHL+7, EDHL+8, EDHL+9
BLRCDTBLRAC	EDHL+1~
BLRCN	ACCLOOK+1~, ACCLOOK+3, ACCLOOK+7, ACCLOOK+8, ACCLOOK+18, MSGLOOK+1~, MSGLOOK+2, MSGLOOK+10, MSGLOOK+11, MSGLOOK+22
BLRD	LEDI+4, ACCLOOK~, ACCLOOK+9, ACCLOOK+10, EDHL+9, MSGLOOK~, MSGLOOK+12, MSGLOOK+14
BLRD(	LEDI+9, ACCLOOK+8, ACCLOOK+12, ACCLOOK+13, EDHL+14, MSGLOOK+11, MSGLOOK+16, MSGLOOK+17
BLRDA	ACCLOOK+1~, ACCLOOK+4, ACCLOOK+5, ACCLOOK+6, ACCLOOK+8, ACCLOOK+9, MSGLOOK+1~, MSGLOOK+3, MSGLOOK+5, MSGLOOK+6 , MSGLOOK+8, MSGLOOK+11, MSGLOOK+12
BLRDD	ACCLOOK+11~, ACCLOOK+13, ACCLOOK+15, MSGLOOK+15~, MSGLOOK+17, MSGLOOK+19
BLRI	ACCLOOK+1~, ACCLOOK+9, WRT+1~, WRT+2, WRT+3, MSGLOOK+1~, MSGLOOK+12*
BLRIDA	ACCLOOK+11~, ACCLOOK+12, ACCLOOK+13, ACCLOOK+14, MSGLOOK+15~, MSGLOOK+16, MSGLOOK+17, MSGLOOK+18
BLRIEN	ACCLOOK+1~, ACCLOOK+5, ACCLOOK+6, ACCLOOK+9, MSGLOOK+1~, MSGLOOK+5, MSGLOOK+6, MSGLOOK+8, MSGLOOK+12
BLRIN	LEDI+2~, LEDI+4, LEDI+5, LEDI+6, EDHL+1~, EDHL+9, EDHL+10, EDHL+12
BLRM	ACCLOOK+1~, EDHL+1~, EDHL+14*, EDHL+15, EDHL+16, EDHL+18, EDHL+19, EDHL+20, EDHL+23, MSGLOOK+1~
BLRMA	LEDI+9, LEDI+10, CALLHL+3, EDHL+22~, EDHL+23, EDHL+24, EDHL+25
>> BLRMF	MAIN+1*, MAIN+2, MAIN+6
>> BLRMSG	MAIN+7*, MAIN+8
BLRMT	ACCLOOK+1~, ACCLOOK+2, ACCLOOK+4, ACCLOOK+5, MSGLOOK+1~, MSGLOOK+4, MSGLOOK+6, MSGLOOK+7, MSGLOOK+8, MSGLOOK+9 , MSGLOOK+13!
>> BLROBR	EDHL+17, EDHL+18, EDHL+19
>> BLROBR(	SETOBR+6*
BLRON	EDHL+1~, EDHL+4*, EDHL+5, EDHL+9
BLRP	EDHL+1~, EDHL+2*, EDHL+3, EDHL+9
>> BLRRF	MAIN+3*, MAIN+4, LOOP+4, LOOP+7
>> BLRRL	REF+4*, REF+5, REF+6
>> BLRRLE	REF+6*, REF+7
>> BLRRUN	REF+9*, REF+10
>> BLRSCR	REF+7*, REF+8, REF+9, ZERO+1, ZERO+2, ZERO+3, ZERO+4
BLRUIF	LOOP+7, LOOP+8, LOOP+9, SM~, SM+1, SM+2, SM+6
>> BLRVDA	LOOP+4*, LOOP+7
>> BLRVQ	LOOP+4, LOOP+5, SM+4
BLRY	EDHL+1~, EDHL+12*, EDHL+13, EDHL+14
BLRYN	LEDI+2~, LEDI+6, LEDI+7, LEDI+9, EDHL+1~, EDHL+20, EDHL+21
C	ACC~, ACC+3
CD	ADDACC+1~, ADDACC+9*, ADDACC+11
CDT	MSGLOOK~, MSGLOOK+8
CODE	SETOBR+1~, SETOBR+4*, SETOBR+6
D	ACC~, ACC+3
>> DA	LOOP+7, LOOP+10, SM+6, SM+7
DESC	SETOBR+1~, SETOBR+5*, SETOBR+6
>> DIC	LOOP+3, LOOP+10, SM+3, SM+7
DIR	ASK+3!, ASKF+3!, ASKM+3!, EDITRFL+1!, RFL+5!, ASKA+1!, ASKA+4!, ASKP+1!, ASKP+4!, ASKO+1! , ASKO+4!, ASKAC+1!, ASKAC+4!, ERFL+3!, CMSG+1!, SAMEACC+1!, ACC+1!
DIR("A"	ASK+1, ASKF+1, ASKM+1, RFL+6, ASKA+2, ASKP+2, ASKO+2, ASKAC+2, ERFL+4, CMSG+2 , SAMEACC+2, ACC+4
DIR(0	ASK+1, ASKF+1, ASKM+1, EDITRFL+2, RFL+6, ASKA+2, ASKP+2, ASKO+2, ASKAC+2, ERFL+4 , CMSG+2, SAMEACC+2, ACC+2*
>> DIRUT	EDITRFL+4, SAMEACC+4
DS	ADDACC+1~, ADDACC+10*, ADDACC+11
DUZ	CALLHL+2
DUZ(2	REF+4
IN	RFL~, RFL+6, CMSG~, CMSG+2
IOF	LOOP+6, SM+5
M	CHKMSG~, CHKMSG+2
MDA	SETOBR+1~, SETOBR+2*, SETOBR+3, SETOBR+4, SETOBR+5, SETOBR+6
MI	CHKMSG+1~, CHKMSG+2*, CHKMSG+3, CHKMSG+4
MSG	SETOBR~, SETOBR+2, SETOBR+3, SETOBR+4, SETOBR+5, SETOBR+6
OBR	ADDACC~, UPACC~
OBR(	ADDACC+6, ADDACC+7, ADDACC+8, ADDACC+9, ADDACC+10, ADDACC+13, UPACC+2, UPACC+3
ON	MSGLOOK~, MSGLOOK+8
ORIGDUZ	CALLHL+1~, CALLHL+2*, CALLHL+4
PRM	ACC+1!, ACC+3*, ACC+4
PT	MSGLOOK~, MSGLOOK+6
RD	WRT~, WRT+2, WRT+3
RDA	ADDACC+1~, ADDACC+6, ADDACC+7, ADDACC+8, ADDACC+9, ADDACC+10, ADDACC+13
RY	ERFL~, ERFL+2, ADDACC~, ADDACC+6, ADDACC+7, ADDACC+8, ADDACC+9, ADDACC+10, ADDACC+13, UPACC~ , UPACC+2, UPACC+3, UPACC+4
SAME	ADDACC+1~, ADDACC+2*, ADDACC+3, ADDACC+4
SCR	ZERO~
T	ACC~, ACC+3
U	CHKMSG+4, REF+4, REF+6, SETOBR+6, ADDACC+7, ADDACC+9, ADDACC+10, ADDACC+13, UPACC+3
UDA	UPACC+1~, UPACC+2*, UPACC+3, UPACC+4
UIF	REF~, REF+1, REF+9
>> Y	ASK+4, ASKF+4, ASKM+4, EDITRFL+5, RFL+8, ASKA+5, ASKP+5, ASKO+5, ASKCDT+4, ASKCDT+5 , ASKAC+5, ERFL+6, CMSG+4, SAMEACC+5, ACC+6

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLMV

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: