Routine: BLRRLEVN

Information

BLRRLEVN ;cmi/anch/maw - BLR Reference Lab Non LEDI Manifest Build ; 12-Apr-2016 14:25 ; MAW

Source Information

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
IHS Changes To Lab	4	($$CODE,$$NOMAP,TMPSET)^BLRRLEVT (INS,PATBILL)^BLRRLHL ADDDX^BLRRLHL2 PRT^BLRSHPM
VA Fileman	3	FILE^DIE $$GET1^DIQ ^DIR
DRG Grouper	2	$$ICDDX^ICDCODE $$ICDDX^ICDEX
Kernel	2	$$FMTE^XLFDT EN^XQOR
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRAG05D BLRRLEVT
Lab Service	2	LROE LRPHSET
Automated Lab Instruments	1	LA7SMP

Entry Points

Name	Comments	DBIA/ICR reference
ASKCOP(CP)	;-- ask the number of copies
RSHPYN()	;-- ask whether to reship
GETCOP(DZ2)	;-- get number of copies
WORD()	;-- reship which order
SHIPMAN(ORD,RE,SHP)	;-- get data needed for HL7 message and manifest
ORDP(OA,ON)	;-- get the ordering provider based on order number
PRTLC(ORD,ACC,DF,LOC,ODT,PRV,TST)	;-- printout the lab collect information
SETFLG(OI,AD)	;-- set the flag as accessioned
IMP(D)	;PEP - which coding system should be used:
RESHIP	;-- reship a non ledi order
KVAR
BLRVARS(OI,OR,UID,ACC,CD,TS,SM,SP,OP,AR,UG,OD,LC,PI)
SAMP(A,D,N,SPC)	;-- get collection sample
TEST(A,D,N)	;-- get the test based on acc passed in

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	PRTLC+4
$$CODE^BLRRLEVT	BLRVARS+17
$$NOMAP^BLRRLEVT	SHIPMAN+35
TMPSET^BLRRLEVT	BLRVARS+54
INS^BLRRLHL	BLRVARS+39
PATBILL^BLRRLHL	BLRVARS+42
ADDDX^BLRRLHL2	BLRVARS+34
PRT^BLRSHPM	SHIPMAN+47
FILE^DIE	SETFLG+4
$$GET1^DIQ	BLRVARS+27, BLRVARS+29, BLRVARS+30, BLRVARS+31, BLRVARS+32, PRTLC+3, PRTLC+7, PRTLC+8
^DIR	ASKCOP+3, RSHPYN+3, WORD+2
$$ICDDX^ICDCODE	PRTLC+12
$$ICDDX^ICDEX	PRTLC+11
$$VAL^XBDIQ1	ORDP+4, ORDP+5, ORDP+6
$$FMTE^XLFDT	PRTLC+6
EN^XQOR	SHIPMAN+37, SHIPMAN+38

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Printing Shipping Manifests for Reference Lab..." Line Location: SHIPMAN+45
Function Call: WRITE	Prompt: !,"Printing manifest for order # "_ORD Line Location: SHIPMAN+46
Function Call: WRITE	Prompt: !!,"Information for this accession:" Line Location: PRTLC+15
Function Call: WRITE	Prompt: !,NM,?35,CHT,?50,"Requesting Loc: "_RLOC Line Location: PRTLC+16
Function Call: WRITE	Prompt: !,"Date Ordered: "_ORDT,?50,"UID: "_ACC Line Location: PRTLC+17
Function Call: WRITE	Prompt: !,"Lab Order # "_ORD,?40,"Provider: "_PRVE Line Location: PRTLC+18
Function Call: WRITE	Prompt: !,?3,TSTE Line Location: PRTLC+19
Function Call: WRITE	Prompt: !,?10,"DX: "_ICDE Line Location: PRTLC+20
Function Call: WRITE	Prompt: !! Line Location: PRTLC+21
Function Call: WRITE	Prompt: !,"Error setting accession flag in the BLR REFERENCE LAB ORDER/ACCESSION file" Line Location: SETFLG+6
Function Call: WRITE	Prompt: !,"Order Number does not exist" Line Location: RESHIP+4
Function Call: WRITE	Prompt: !,$S($G(RESHIP):"Reshipping order: "_RORD,1:"Reprinting Order: "_RORD) Line Location: RESHIP+6
Function Call: WRITE	Prompt: ! Line Location: RSHPYN+1
Routine Call	DIE Line Location: SETFLG+4
Routine Call	DIR Line Location: ASKCOP+3 RSHPYN+3 WORD+2

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	GET1^DIQ
^LAB(60 - [#60]	GET1^DIQ
^BLRRLO - [#9009026.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRRL - [#9009026]	BLRVARS+13
^BLRRLO - [#9009026.3]	SHIPMAN+5, SHIPMAN+7, SHIPMAN+8, BLRVARS+3, BLRVARS+28, BLRVARS+46, BLRVARS+47, BLRVARS+48, PRTLC+9
^BLRRLO("ACC"	PRTLC+2
^BLRRLO("B"	SHIPMAN+4, RESHIP+4
^BLRSITE - [#9009029]	SHIPMAN+34, GETCOP+2, BLRVARS+12, ORDP+2
^ICDS - [#80.4]	IMP+10, IMP+11
^ICDS("F"	IMP+7, IMP+9
^ICDS(0	PRTLC+11, PRTLC+12
^LAB(60 - [#60]	SHIPMAN+33, BLRVARS+14
^LAB(61 - [#61]	BLRVARS+11
^LAB(62.05 - [#62.05]	BLRVARS+23
^LR - [#63]	SHIPMAN+28
^LRO(68 - [#68]	SHIPMAN+11, SHIPMAN+15, SHIPMAN+21, SHIPMAN+26, SHIPMAN+27, BLRVARS+15, SAMP+3, SAMP+5, TEST+3, TEST+4 , TEST+5
^LRO(69 - [#69]	SHIPMAN+16, SHIPMAN+19, SHIPMAN+31, SHIPMAN+32, ORDP+3
^TMP("BLRRL"	KVAR+3!

Name	Line Occurrences
$$ASKCOP	SHIPMAN+43
$$GETCOP	SHIPMAN+42
$$ORDP	SHIPMAN+22
$$RSHPYN	RESHIP+5
$$SAMP	SHIPMAN+29
$$TEST	SHIPMAN+23
$$WORD	RESHIP+2
BLRVARS	SHIPMAN+36
KVAR	SHIPMAN+48
SETFLG	SHIPMAN+10
SHIPMAN	RESHIP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	SAMP~, SAMP+3, SAMP+5, TEST~, TEST+3, TEST+4, TEST+5
AA	SHIPMAN+1~, SHIPMAN+12*, SHIPMAN+15, SHIPMAN+21, SHIPMAN+23, SHIPMAN+26, SHIPMAN+27, SHIPMAN+29
AC	SHIPMAN+1~, SHIPMAN+7*, SHIPMAN+11, SHIPMAN+36
ACC	SHIPMAN+1~, SHIPMAN+15*, SHIPMAN+36, BLRVARS~, BLRVARS+4, PRTLC~, PRTLC+2, PRTLC+17
AD	SHIPMAN+1~, SHIPMAN+13*, SHIPMAN+15, SHIPMAN+21, SHIPMAN+23, SHIPMAN+26, SHIPMAN+27, SHIPMAN+29, SETFLG~, SETFLG+2
ADA	SHIPMAN+1~, SHIPMAN+5*, SHIPMAN+7, SHIPMAN+8, SHIPMAN+10
AGINS	KVAR+1!
AGINSN1	KVAR+1!
AGINSNN	KVAR+1!
AN	SHIPMAN+1~, SHIPMAN+14*, SHIPMAN+15, SHIPMAN+21, SHIPMAN+23, SHIPMAN+26, SHIPMAN+27, SHIPMAN+29
AOD	BLRVARS+43~, BLRVARS+48*, BLRVARS+49, BLRVARS+50, BLRVARS+51
AR	BLRVARS~, BLRVARS+15
AREA	SHIPMAN+1~, SHIPMAN+33*, SHIPMAN+36
BDA	BLRVARS+43~, BLRVARS+44*, BLRVARS+45
>> BLRALTDZ	SHIPMAN+33, SHIPMAN+34, BLRVARS+12, ORDP+2
BLRCM	BLRVARS+43~, BLRVARS+46*, BLRVARS+47, BLRVARS+48, BLRVARS+52, BLRVARS+53
BLRINSS	KVAR+1!
BLROI	SHIPMAN+1~, SHIPMAN+4*, SHIPMAN+5, SHIPMAN+7, SHIPMAN+8, SHIPMAN+10, SHIPMAN+36
>> BLROPT	BLRVARS+6
BLRRDA	KVAR+1!
BLRRL	BLRVARS+2!, BLRVARS+54, KVAR+2!
BLRRL(	BLRVARS+44, BLRVARS+45, BLRVARS+52
BLRRL("ABBR"	BLRVARS+15*
BLRRL("ACC"	BLRVARS+4*
BLRRL("BILL T	YPE" , BLRVARS+29*, BLRVARS+35, BLRVARS+41
BLRRL("CDT"	BLRVARS+7*
BLRRL("CLIENT"	BLRVARS+28*
BLRRL("COMMENT"	BLRVARS+53*
BLRRL("LOC"	BLRVARS+27*
BLRRL("LRTS"	BLRVARS+8*
BLRRL("ODT"	BLRVARS+25*
BLRRL("ORD"	BLRVARS+26*
BLRRL("ORDP"	BLRVARS+9*
BLRRL("ORDPNM"	BLRVARS+30*
BLRRL("ORDPNPI"	BLRVARS+31*
BLRRL("ORDPUPIN"	BLRVARS+32*
BLRRL("PAT"	BLRVARS+3*, BLRVARS+36, BLRVARS+39
BLRRL("RL"	BLRVARS+12*, BLRVARS+13, BLRVARS+17
BLRRL("RLE"	BLRVARS+13*, BLRVARS+21
BLRRL("SAMP"	BLRVARS+10*
BLRRL("SHIPCOND"	BLRVARS+19*
BLRRL("SRC"	BLRVARS+11*
BLRRL("TCNM"	BLRVARS+20, BLRVARS+22
BLRRL("TCODE"	BLRVARS+18*, BLRVARS+20
BLRRL("TCODEE"	BLRVARS+17*, BLRVARS+18, BLRVARS+19
BLRRL("TNAME"	BLRVARS+14*, BLRVARS+20
BLRRL("TST"	BLRVARS+16*
BLRRL("UID"	BLRVARS+5*
BLRRL("URG"	BLRVARS+24*
BLRRL("URGHL"	BLRVARS+23*
BLRRLC	BLRVARS+2!
BLRTS	BLRVARS+33*, KVAR+1!
BLRTSTDA	BLRVARS+33*, KVAR+1!
CD	BLRVARS~, BLRVARS+7
CDT	SHIPMAN+1~, SHIPMAN+21*, SHIPMAN+36
CHT	PRTLC+1~, PRTLC+4*, PRTLC+16
>> COP	SHIPMAN+43*, SHIPMAN+47
COPI	SHIPMAN+42, SHIPMAN+43, GETCOP+1~, GETCOP+2, GETCOP+3
CP	ASKCOP~, ASKCOP+2
D	SAMP~, SAMP+3, SAMP+5, TEST~, TEST+3, TEST+4, TEST+5, IMP~, IMP+5*, IMP+14 , IMP+15, IMP+16
DF	PRTLC~, PRTLC+3, PRTLC+4
DFN	KVAR+1!
>> DIC	SHIPMAN+37, SHIPMAN+38
DIR	ASKCOP+4!, RSHPYN+5!, WORD+3!
DIR("A"	ASKCOP+1, RSHPYN+2, WORD+1*
DIR("B"	ASKCOP+2*
DIR(0	ASKCOP+1, RSHPYN+2, WORD+1*
>> DIRUT	ASKCOP+5, RSHPYN+4, WORD+4
DOB	KVAR+1!
DT	PRTLC+11, PRTLC+12, IMP+5
DUZ(2	SHIPMAN+33, SHIPMAN+34, SHIPMAN+42, BLRVARS+12, ORDP+2, PRTLC+4
DZ2	GETCOP~, GETCOP+2
FDA	SETFLG+1~
FDA(	SETFLG+3*
FERR	SETFLG+1~
FERR(1	SETFLG+5
FIENS	SETFLG+1~, SETFLG+2*, SETFLG+3
FLG	SHIPMAN+2~, SHIPMAN+6, SHIPMAN+8, SHIPMAN+9
ICD	PRTLC+1~, PRTLC+9*, PRTLC+11, PRTLC+12
ICDE	PRTLC+1~, PRTLC+13*, PRTLC+20
IDT	SHIPMAN+1~, SHIPMAN+27*, SHIPMAN+28
INA	KVAR+2!
INSCNT	KVAR+1!
INSGEND	KVAR+1!
IO	PRTLC+14
LA7RT	SHIPMAN+1~, SHIPMAN+11*, SHIPMAN+12, SHIPMAN+13, SHIPMAN+14
LC	BLRVARS~, BLRVARS+27
LDFN	SHIPMAN+1~, SHIPMAN+26*, SHIPMAN+28
LOC	SHIPMAN+2~, SHIPMAN+31*, SHIPMAN+35, SHIPMAN+36, PRTLC~, PRTLC+5
>> LRORD	BLRVARS+37*
>> LRQUIET	SETFLG+5
>> LRUID	BLRVARS+6, BLRVARS+38
N	SAMP~, SAMP+3, SAMP+5, TEST~, TEST+3, TEST+4, TEST+5
NM	PRTLC+1~, PRTLC+3*, PRTLC+16
NPI	ORDP+1~, ORDP+6*, ORDP+8
OA	SHIPMAN+1~, SHIPMAN+17*, SHIPMAN+19, SHIPMAN+22, SHIPMAN+31, SHIPMAN+32, ORDP~, ORDP+3
OD	BLRVARS~, BLRVARS+25
ODT	SHIPMAN+1~, SHIPMAN+19*, SHIPMAN+36, PRTLC~, PRTLC+6
OI	BLRVARS~, BLRVARS+3, BLRVARS+28, BLRVARS+29, BLRVARS+46, BLRVARS+47, BLRVARS+48, PRTLC+1~, PRTLC+2*, PRTLC+9 , SETFLG~, SETFLG+2
ON	SHIPMAN+1~, SHIPMAN+18*, SHIPMAN+19, SHIPMAN+22, SHIPMAN+31, SHIPMAN+32, ORDP~, ORDP+3
OP	BLRVARS~, BLRVARS+9
OPI	SHIPMAN+2~, SHIPMAN+32*, SHIPMAN+36
OR	BLRVARS~, BLRVARS+26, BLRVARS+34, BLRVARS+37
ORD	SHIPMAN~, SHIPMAN+4, SHIPMAN+16, SHIPMAN+36, SHIPMAN+46, PRTLC~, PRTLC+18
ORDN	SHIPMAN+1~, SHIPMAN+16*, SHIPMAN+17, SHIPMAN+18
ORDP	SHIPMAN+1~, SHIPMAN+22*, SHIPMAN+36
ORDT	PRTLC+1~, PRTLC+6*, PRTLC+17
PAT	BLRVARS+36*, BLRVARS+40!
PI	BLRVARS~, BLRVARS+30, BLRVARS+31, BLRVARS+32
PRT	SHIPMAN+2~, SHIPMAN+3, SHIPMAN+39, SHIPMAN+44
PRV	ORDP+1~, ORDP+8, ORDP+9, ORDP+10, PRTLC~, PRTLC+7
PRVE	ORDP+1~, ORDP+4, ORDP+7, ORDP+8, PRTLC+1~, PRTLC+7*, PRTLC+18
PRVI	ORDP+1~, ORDP+3*, ORDP+4, ORDP+5, ORDP+6
PTYP	ORDP+1~, ORDP+2*, ORDP+8, ORDP+9
QS	BLRVARS+43~, BLRVARS+50*, BLRVARS+52, BLRVARS+53
RDX	PRTLC+1~, PRTLC+10, PRTLC+11, PRTLC+12*, PRTLC+13
RE	SHIPMAN~, SHIPMAN+9, SHIPMAN+10, SHIPMAN+37, SHIPMAN+38, SHIPMAN+47
RESHIP	RESHIP+1~, RESHIP+5*, RESHIP+6, RESHIP+7
RL	SHIPMAN+2~, SHIPMAN+34*, SHIPMAN+35
RLOC	PRTLC+1~, PRTLC+5*, PRTLC+16
RORD	RESHIP+1~, RESHIP+2*, RESHIP+3, RESHIP+4, RESHIP+6, RESHIP+7
RS	BLRVARS+43~, BLRVARS+51*, BLRVARS+52, BLRVARS+53
RSC	BLRVARS+43~, BLRVARS+49*, BLRVARS+52, BLRVARS+53
SAM	SAMP+1~, SAMP+2, SAMP+3, SAMP+5, SAMP+6
SAMP	SHIPMAN+1~, SHIPMAN+29*, SHIPMAN+36
SDA	SAMP+1~, SAMP+3*, SAMP+5
SEX	KVAR+1!
SHP	SHIPMAN~, SHIPMAN+38
SM	BLRVARS~, BLRVARS+10
SP	BLRVARS~, BLRVARS+11
SPC	SAMP~
SPEC	SHIPMAN+1~, SHIPMAN+28*, SHIPMAN+29, SHIPMAN+36
TDA	TEST+1~, TEST+3*, TEST+4, TEST+5
TEST	SHIPMAN+1~, SHIPMAN+23, SHIPMAN+24, SHIPMAN+25, SHIPMAN+33, SHIPMAN+35, SHIPMAN+36, BLRVARS+17
TS	BLRVARS~, BLRVARS+8, BLRVARS+14, BLRVARS+16, BLRVARS+33, BLRVARS+42, BLRVARS+45, BLRVARS+47, BLRVARS+52
TST	TEST+1~, TEST+2, TEST+4, TEST+6, PRTLC~, PRTLC+8
TSTE	PRTLC+1~, PRTLC+8*, PRTLC+19
U	SHIPMAN+7, SHIPMAN+8, SHIPMAN+19, SHIPMAN+24, SHIPMAN+25, SHIPMAN+26, SHIPMAN+27, SHIPMAN+28, SHIPMAN+31, SHIPMAN+32 , SHIPMAN+33, SHIPMAN+34, GETCOP+2, BLRVARS+3, BLRVARS+11, BLRVARS+13, BLRVARS+14, BLRVARS+15, BLRVARS+18, BLRVARS+19 , BLRVARS+20, BLRVARS+23, BLRVARS+28, BLRVARS+47, BLRVARS+49, BLRVARS+50, BLRVARS+51, BLRVARS+52, BLRVARS+53, SAMP+5 , TEST+5, TEST+6, ORDP+2, ORDP+3, ORDP+9, PRTLC+13, IMP+10, IMP+11
UG	BLRVARS~, BLRVARS+23, BLRVARS+24
UID	BLRVARS~, BLRVARS+5, BLRVARS+6, BLRVARS+38
UPIN	ORDP+1~, ORDP+5*, ORDP+8
URG	SHIPMAN+1~, SHIPMAN+24, SHIPMAN+36, TEST+5, TEST+6
X	SHIPMAN+37, SHIPMAN+38, IMP+6~, IMP+9, IMP+10, IMP+11, IMP+13, IMP+14, IMP+15, IMP+16
Y	ASKCOP+6, IMP+6~, IMP+8, IMP+15, IMP+16, IMP+17, IMP+18, RSHPYN+6, RSHPYN+7, WORD+5 , WORD+6
Z	IMP+6~
Z(	IMP+11*, IMP+13, IMP+15, IMP+16, IMP+17
Z(0	IMP+17

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLEVN

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: