Routine: BLRRLEDI

Package	Total	Call Graph
VA Fileman	4	^DIC (,FILE,UPDATE)^DIE ^DIK ^DIR
DRG Grouper	2	$$ICDDX^ICDCODE $$ICDDX^ICDEX
IHS Patient Registration	1	^AGINS
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
IHS Changes To Lab	5	BLRAG05 BLRAGUT3 BLRRLEVT BLRRLHL BLRUTIL6
IHS Laboratory Point of Care	1	BLRPOC2
Lab Service	1	LR7OF1

Entry Points

Name	Comments	DBIA/ICR reference
FNDSEQ(BN,PTI,POL,CDT)	;-- find the category prioritization
DXV(RI)	;-- display the diagnosis and ask if they want to delete or add
ACC(AC,OR,PAT,CDT)	;-- add the accession number to the order
COINS(IN)	;-- clean out insurances before reselecting
ORD(OR,PAT)	;-- lets create the order stub here
DX(OR)	;-- lets add/edit diagnosis here
BILL(BTP,OR,AC,CDT)	;-- this is where we ask billing type
BTP(OR,BT)	;-- file the bill type
SEQINS(BINS,PT,RLCDT)	;-- lets go through sequencing insurers
EORD	;-- Edit the Order
INS(OR,AC,PAT,CD,ED)	;-- lets get a list of selectable insurances for the patient and if set for auto select pick the first one in sequence
CLIENTG(OR,AC)	;store client account number (GUI)
UPINS(O,A,P,S)	;-- update the entry in the BLR REFERENCE LAB ORDER/ACCESSION file
CLIENT(OR,AC)	;client account number
CLCNT(DZ2)	;-- get the number of client account numbers to see if we need to prompt
DELDX	;-- delete an existing dx in the file

External References

Name	Field # of Occurrence
^AGINS	INS+6
^DIC	DX+15, EORD+6
^DIE	EORD+11
FILE^DIE	CLIENT+24, CLIENTG+11, BTP+6
UPDATE^DIE	ORD+6, ACC+9, UPINS+6
^DIK	DELDX+10, COINS+6
^DIR	DXV+17, DELDX+4, CLIENT+14, BILL+16, INS+28
$$ICDDX^ICDCODE	DXV+11
$$ICDDX^ICDEX	DXV+10
$$FMTE^XLFDT	INS+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Error adding order number "_OR_" to Reference Lab Order file" Line Location: ORD+7
Function Call: WRITE	Prompt: !,"Error adding accession number "_AC_" to Order "_OR_" in the Reference Lab Order file" Line Location: ACC+10
Function Call: WRITE	Prompt: !,"There are existing Diagnosis attached to this order",! Line Location: DXV+4
Function Call: WRITE	Prompt: !,RCNT_") Dx: "_$P(RDX,U,2),?15,"Text: "_$P(RDX,U,4) Line Location: DXV+13
Function Call: WRITE	Prompt: !,"Please select the appropriate account number for this accession" Line Location: CLIENT+8
Function Call: WRITE	Prompt: !,BLRRLD_") "_$G(BLRCLA(BLRRLD)) Line Location: CLIENT+11
Function Call: WRITE	Prompt: !,"Error adding client account number "_$G(BLRRL("CLIENT"))_" to Order "_OR_" in the Reference Lab Order file" Line Location: CLIENT+25
Function Call: WRITE	Prompt: !,"Error adding client account number "_$G(BLRRL("CLIENT"))_" to Order "_OR_" in the Reference Lab Order file" Line Location: CLIENTG+12
Function Call: WRITE	Prompt: !,"Error adding bill type "_BT_" to Order "_OR_" in the Reference Lab Order file" Line Location: BTP+7
Function Call: WRITE	Prompt: !,"You must select an ICD Diagnosis if Bill Type is Third Party" Line Location: BILL+26
Function Call: WRITE	Prompt: !,"You must select an Insurer if Bill Type is Third Party" Line Location: BILL+27
Function Call: WRITE	Prompt: !,"Patient has No Insurance on file, changing Bill Type to Client" Line Location: INS+8
Function Call: WRITE	Prompt: !,"Now applying Sequenced Insurer to Accession" Line Location: INS+11
Function Call: WRITE	Prompt: !,"Patient Insurance has not been Sequenced, changing Bill Type to Client" Line Location: INS+15
Function Call: WRITE	Prompt: !,BLRRLDA_")"_$P(AGINS(BLRRLDA),U)_$S($P(AGINS(BLRRLDA),U,4)]"":"("_$E($P(AGINS(BLRRLDA),U,4),1,2)_")",1:"") Line Location: INS+23
Function Call: WRITE	Prompt: ?30,"Policy #: "_$P(AGINS(BLRRLDA),U,9) Line Location: INS+24
Function Call: WRITE	Prompt: ?50,"Elg/Exp Date: "_$S($P(AGINS(BLRRLDA),U,5)>0:$$FMTE^XLFDT($P(AGINS(BLRRLDA),U,5)),1:"")_"/"_$S($P(AGINS(BLRRLDA),U,6)>0:$$FMTE^XLFDT($P(AGINS(BLRRLDA),U,6)),1:"") Line Location: INS+25
Function Call: WRITE	Prompt: !,"Error adding insurance to Order "_OR_" in the Reference Lab Order file" Line Location: UPINS+7
Routine Call	DIE Line Location: ORD+6 ACC+9 UPINS+6
Routine Call	DIE Line Location: EORD+11
Routine Call	DIE Line Location: CLIENT+24 CLIENTG+11 BTP+6
Routine Call	DIR Line Location: DXV+17 DELDX+4 CLIENT+14 BILL+16 INS+28
Routine Call	DIC Line Location: DX+15 EORD+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BLRRLO - [#9009026.3]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNICP - [#9000035]	FNDSEQ+6
^AUPNICP("EFF"	FNDSEQ+2, FNDSEQ+4
^BLRRL - [#9009026]	CLIENT+6
^BLRRLO - [#9009026.3]	ACC+6, DX+5, DXV+5, DXV+7, CLIENTG+8, BILL+8, BILL+24, EORD+12, COINS+4
^BLRRLO("ACC"	UPINS+3
^BLRRLO("B"	ORD+1, ACC+3, DX+4, CLIENT+21, CLIENTG+7, BTP+2, BILL+8, BILL+23, UPINS+2
^BLRSITE - [#9009029]	CLIENT+5, CLCNT+3, BILL+4, BILL+15, INS+10
^ICDS(0	DXV+10, DXV+11

Label References

Name	Line Occurrences
$$BTP	BILL+3, BILL+11, BILL+19, INS+9, INS+16
$$CLCNT	CLIENT+3, CLIENTG+2
$$CLIENTG	CLIENT+1
$$DXV	DX+7
$$FNDSEQ	SEQINS+8
$$ORD	ACC+4
BILL	BILL+27
CLIENT	CLIENT+18
COINS	EORD+17
DELDX	DX+8
DX	DX+8, DX+18, BILL+26
EORD	EORD+19
INS	BILL+25, EORD+18
SEQINS	INS+13
UPINS	INS+20, INS+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	UPINS~, UPINS+3
AC	ACC~, ACC+8, ACC+10, CLIENT~, CLIENT+1, CLIENT+18, CLIENTG~, BILL~, BILL+25, BILL+27 , INS~, INS+20, INS+33
ACC	EORD+2~, EORD+14*, EORD+18
AGINS	INS+3!, INS+13
AGINS(	INS+21, INS+23, INS+24, INS+25, INS+32
AGINS(1	INS+7
AGINSN	INS+3!
AGINSNN	INS+3!
BDA	INS+2~, INS+17, INS+19, SEQINS+3~, SEQINS+4, SEQINS+6, SEQINS+7, SEQINS+10, COINS+1~, COINS+4* , COINS+5
BDAC	INS+2~, INS+4, INS+17, INS+18
BINI	SEQINS+5~, SEQINS+6*, SEQINS+8
BINS	SEQINS~
BINS(	SEQINS+4, SEQINS+6, SEQINS+7, SEQINS+10
BINS(""	SEQINS+1
>> BLRAGUI	CLIENT+1
>> BLRALTDZ	CLIENT+5, CLCNT+3, BILL+4, BILL+15, INS+10
>> BLRBT	BILL+3
>> BLRCLA(	CLIENT+10, CLIENT+11, CLIENT+16, CLCNT+5*
BLRCLC	CLCNT+1~, CLCNT+2, CLCNT+4, CLCNT+5, CLCNT+6
BLRCLCNT	CLIENT+2~, CLIENT+3, CLIENT+4, CLIENT+7, CLIENT+13, CLIENTG+1~, CLIENTG+2
BLRDFLG	DX+3!, DX+7*, DX+8, DX+9
>> BLRDXS	DX+6, DX+17, BILL+24*, BILL+26
>> BLRGUI	BILL+1, BILL+6
>> BLRINS	BILL+3, BILL+5, BILL+28, INS+31, INS+32
>> BLRINSS	BILL+27, UPINS+8*
BLRNUM	INS+2~, INS+22*, INS+27
>> BLRRL("BILL T	YPE" , BILL+3, BILL+4, BILL+5, BILL+18*, BILL+22, BILL+26, BILL+27, INS+7
>> BLRRL("CLIENT"	CLIENT+5, CLIENT+6, CLIENT+16, CLIENT+17, CLIENT+18, CLIENT+23, CLIENT+25, CLIENTG+3, CLIENTG+4, CLIENTG+10
>> BLRRL("RL"	CLIENT+6
>> BLRRLCLA	CLIENT+19, CLIENTG+3, CLIENTG+5
>> BLRRLCLT	CLIENT+17, CLIENTG+4
BLRRLD	CLIENT+9~, CLIENT+10*, CLIENT+11
BLRRLDA	CLCNT+1~, CLCNT+3, CLCNT+5, INS+2~, INS+21, INS+22, INS+23, INS+24, INS+25
BLRRLDAT	DXV+3!
BLRRLDAT(	DXV+8*, DELDX+7
BLRRLDAT(""	DELDX+3
BLRSEQ	SEQINS+2!
BLRSEQ(	INS+17, INS+19, SEQINS+10*
BLRSEQ(1	INS+14
>> BLRTS	DX+14
BN	FNDSEQ~, FNDSEQ+11
BT	BTP~, BTP+4, BTP+5, BTP+7, BILL+3, BILL+7~, BILL+11, BILL+19, INS+2~, INS+9* , INS+16*
BTP	BILL~, BILL+3, BILL+10, BILL+11, BILL+27
CD	INS~, INS+12*, INS+13
CDT	ACC~, ACC+2, BILL~, BILL+8, BILL+9, BILL+25, FNDSEQ~, EORD+2~, EORD+16, EORD+18
>> DA	DELDX+7, EORD+9, EORD+12, EORD+17, COINS+5*
>> DA(1	DX+10, DELDX+9, COINS+3*
DAT	DELDX+1~, DELDX+6*, DELDX+7
DATA	EORD+2~, EORD+12*, EORD+13, EORD+14, EORD+15, EORD+16
>> DFN	BILL+25, INS+5*
DIC	DX+13, EORD+1!, EORD+5, EORD+8
DIC("A"	DX+12, EORD+4
DIC("DR"	DX+14*
DIC(0	DX+11, EORD+3
DIE	EORD+1!, EORD+8*
>> DIK	DELDX+8, COINS+2
DIR	DXV+14!, DELDX+2!, CLIENT+12!, BILL+12!, BILL+21!, INS+26!
DIR("A"	DXV+15, DELDX+3, CLIENT+13, BILL+14, INS+27*
DIR("B"	DXV+16, BILL+15
DIR(0	DXV+15, DELDX+3, CLIENT+13, BILL+13, INS+27*
DIRUT	DXV+18, DELDX+5, CLIENT+15, BILL+12!, BILL+17, INS+26!, INS+29
>> DR	EORD+10*
DT	ACC+2, DXV+10, DXV+11, BILL+9, INS+12
DTOUT	BILL+12!, INS+26!
DUOUT	BILL+12!, INS+26!
DUZ(2	CLIENT+3, CLIENT+5, CLIENTG+2, BILL+4, BILL+15, INS+10
DXD	DELDX+1~
DZ2	CLCNT~, CLCNT+3
ED	INS~, INS+27
EFF	FNDSEQ+1~, FNDSEQ+2*, FNDSEQ+3, FNDSEQ+4
FDA	ORD+2~, ACC+1~, CLIENT+20~, CLIENTG+6~, BTP+1~, UPINS+1~
FDA(	ORD+4, ORD+5, ACC+8, CLIENT+23, CLIENTG+10, BTP+5, UPINS+5*
FERR	ORD+2~, ACC+1~, CLIENT+20~, CLIENTG+6~, BTP+1~, UPINS+1~
FERR(1	ORD+7, ACC+10, CLIENT+25, BTP+7, UPINS+7
FI	ACC+1~, ACC+3, ACC+4, ACC+5, ACC+6, ACC+7, ACC+11, CLIENT+20~, CLIENT+21, CLIENT+22 , CLIENT+26, CLIENTG+6~, CLIENTG+7, CLIENTG+8, CLIENTG+9, CLIENTG+13, BTP+1~, BTP+2, BTP+3, BTP+8 , UPINS+1~, UPINS+2, UPINS+3*, UPINS+4
FIENS	ORD+2~, ORD+3, ACC+1~, ACC+7, ACC+8, CLIENT+20~, CLIENT+22, CLIENT+23, CLIENTG+6~, CLIENTG+9 , CLIENTG+10, BTP+1~, BTP+3, BTP+5, UPINS+1~, UPINS+4, UPINS+5
FIENS(1	ORD+8
IN	COINS~, COINS+2, COINS+3, COINS+4
INSS	INS+2~, INS+19, INS+20, INS+32, INS+33
O	UPINS~, UPINS+2
OR	ORD~, ORD+1, ORD+4, ORD+7, ACC~, ACC+3, ACC+4, ACC+10, DX~, DX+4 , DX+8, DX+18, CLIENT~, CLIENT+1, CLIENT+18, CLIENT+21, CLIENT+25, CLIENTG~, CLIENTG+7, BTP~ , BTP+2, BTP+7, BILL~, BILL+3, BILL+8, BILL+11, BILL+19, BILL+23, BILL+25, BILL+26 , BILL+27, INS~, INS+9, INS+16, INS+20, INS+33, UPINS+7
ORD	EORD+2~, EORD+13*, EORD+18
ORI	ACC+1~, DX+2~, DX+4, DX+5, DX+7, DX+10, DX+13, DXV+5, DXV+7, DELDX+8 , DELDX+9, BILL+7~, BILL+23, BILL+24
P	UPINS~
PAT	ORD~, ORD+5, ACC~, ACC+4, ACC+6, INS~, INS+5, INS+13, INS+20, INS+33 , EORD+2~, EORD+15*, EORD+18
POL	FNDSEQ~, FNDSEQ+12
POLI	SEQINS+5~, SEQINS+7*, SEQINS+8
PT	SEQINS~, SEQINS+8
PTI	FNDSEQ~, FNDSEQ+2, FNDSEQ+4, FNDSEQ+10
RCNT	DXV+1~, DXV+2, DXV+6, DXV+8, DXV+13
RDA	DXV+1~, DXV+5*, DXV+7, DXV+8
RDATA	DXV+1~, DXV+7*, DXV+10, DXV+11
RDX	DXV+1~, DXV+10, DXV+11, DXV+13
RI	DXV~
RLCDT	SEQINS~, SEQINS+8
S	UPINS~, UPINS+5
SEQ	SEQINS+5~, SEQINS+8*, SEQINS+9, SEQINS+10
SQDA	FNDSEQ+1~, FNDSEQ+4*, FNDSEQ+6
SQDATA	FNDSEQ+5~, FNDSEQ+6*, FNDSEQ+7, FNDSEQ+8, FNDSEQ+9, FNDSEQ+13
SQINS	FNDSEQ+5~, FNDSEQ+8*, FNDSEQ+11
SQPAT	FNDSEQ+5~, FNDSEQ+7*, FNDSEQ+10
SQPOL	FNDSEQ+5~, FNDSEQ+9*, FNDSEQ+12
SQPRI	FNDSEQ+1~, FNDSEQ+4, FNDSEQ+13*, FNDSEQ+14
U	ACC+6, DXV+10, DXV+11, DXV+13, CLIENT+6, CLIENTG+8, BILL+4, BILL+8, BILL+15, INS+10 , INS+23, INS+24, INS+25, SEQINS+6, SEQINS+7, FNDSEQ+7, FNDSEQ+8, FNDSEQ+9, FNDSEQ+13, EORD+13 , EORD+14, EORD+15, EORD+16
Y	DX+16, DXV+19, DELDX+6, CLIENT+16, BILL+17!*, BILL+19, INS+30, INS+31, EORD+7, EORD+9
Y(0	BILL+17*, BILL+18

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLEDI

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: