Routine: BLRAG05C

Information

BLRAG05C ; IHS/MSC/SAT - SUPPORT FOR LABORATORY ACCESSION GUI RPCS ; 17-Oct-2014 09:22 ; MKK

Source Information

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
Kernel	2	$$DT^XLFDT $$HLNAME^XLFNAME
DRG Grouper	1	$$ICDDX^ICDEX
IHS VA Utilities	1	^XBFMK

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRRLEV2 BLRRLEVT

Entry Points

Name	Comments	DBIA/ICR reference
PATADD(PAT)	;-- return insured address
ADDDX(TSTDA)	;-- add the diagnosis to the test since it is not there, this happens when they want all dx for mult accessions
HL7	;-- setup hl7 lines
SETINS
BILL	;-- this is where we ask billing type
INSTYP(TDA)	;-- get insurance type
HLSET(BLRINS)	;-- setup hl7 variables
ENDDX
SETDX
GT1ADD(PH)	;-- return insured address
INSADD(INSI)	;-- return the insurance address is HL7 format
DX(PAT)	;-- get the diagnosis for billing

Name	Field # of Occurrence
$$FIND1^DIC	DX+19
$$GET1^DIQ	DX+20, SETINS+47, HLSET+32
^DIR	DX+31
$$ICDDX^ICDEX	BILL+6, DX+39
^XBFMK	DX+16
$$DT^XLFDT	DX+24, DX+27
$$HLNAME^XLFNAME	SETINS+48, SETINS+54, SETINS+61, HLSET+33

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You have already selected this Diagnosis" Line Location: DX+41
Function Call: WRITE	Prompt: !,"Patient Insurance has not been Sequenced, changing Bill Type to Patient" Line Location: SETINS+4
Function Call: WRITE	Prompt: !,"The entry for "_$G(BLRRL("INSE"))_" for this patient does not have a valid pointer to the INSURER file, this needs to be fixed to proceed" Line Location: SETINS+15
Routine Call	DIC Line Location: DX+19
Routine Call	DIR Line Location: DX+31

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^ICDS - [#80.4]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	SETINS+54, SETINS+56, GT1ADD+2
^AUTNINS - [#9999999.18]	SETINS+36, SETINS+39, SETINS+40, SETINS+43, SETINS+44, INSADD+2, HLSET+23, HLSET+26, HLSET+27, HLSET+30 , HLSET+31
^AUTTRLSH - [#9999999.36]	SETINS+21, HLSET+9
^DIC(5 - [#5]	INSADD+5, PATADD+5, GT1ADD+5
^DPT - [#2]	SETINS+48, SETINS+49, SETINS+61, SETINS+63, PATADD+2, HLSET+33, HLSET+34

Name	Line Occurrences
$$GT1ADD	SETINS+55
$$INSADD	SETINS+41, HLSET+28
$$PATADD	SETINS+45, SETINS+46, SETINS+62
ADDDX	DX+35, SETDX
DX	ENDDX
ENDDX	DX+40
HL7	SETINS+51
HLSET	HL7+3
INSTYP	SETINS+57, SETINS+67
SETDX	BILL+7
SETINS	BILL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	INSADD+1~, INSADD+7, INSADD+8, PATADD+1~, PATADD+7, PATADD+8, GT1ADD+1~, GT1ADD+7*, GT1ADD+8
>> AGINS(	HL7+2
BLRADX	BILL+4, DX+1!, DX+3, DX+36!, SETDX
>> BLRAGDX	BILL+3, BILL+6
>> BLRAGINS	SETINS+11, SETINS+12, SETINS+13, SETINS+19, SETINS+20, SETINS+21, SETINS+30, SETINS+31, SETINS+32, SETINS+52 , HLSET+2, HLSET+3, HLSET+4, HLSET+7, HLSET+8, HLSET+9, HLSET+18, HLSET+19, HLSET+20
>> BLRDX(	DX+43*, ADDDX+2, ADDDX+4
BLRDXA	DX+1!
BLRDXA(	DX+40, DX+42*
BLRDXS	BILL+6, DX+1!, DX+39, DX+43, SETDX+2, SETDX+3
BLRINS	SETINS+10*, HLSET~, HLSET+1
>> BLRJK	BILL+3*, BILL+6
>> BLRRL(	ADDDX+5, ADDDX+6, ADDDX+7, ADDDX+8, SETINS+1, SETINS+11, SETINS+13, SETINS+14, SETINS+18, SETINS+19 , SETINS+20, SETINS+21, SETINS+22, SETINS+23, SETINS+24, SETINS+25, SETINS+26, SETINS+27, SETINS+28, SETINS+29* , SETINS+30, SETINS+31, SETINS+32, SETINS+34, SETINS+36, SETINS+37, SETINS+39, SETINS+40, SETINS+41, SETINS+42* , SETINS+43, SETINS+44, SETINS+45, SETINS+46, SETINS+47, SETINS+48, SETINS+49, SETINS+52, SETINS+53, SETINS+54* , SETINS+55, SETINS+56, SETINS+58, SETINS+59, SETINS+60, SETINS+61, SETINS+62, SETINS+63, SETINS+64, SETINS+65 , SETINS+66, SETINS+68, SETINS+69, INSTYP+1, INSTYP+2, INSTYP+3, INSTYP+4, INSTYP+5, INSTYP+6, INSTYP+7* , INSTYP+8, INSTYP+9, INSTYP+10, HLSET+2, HLSET+4, HLSET+6, HLSET+7, HLSET+8, HLSET+9, HLSET+10* , HLSET+11, HLSET+12, HLSET+13, HLSET+14, HLSET+15, HLSET+16, HLSET+17, HLSET+18, HLSET+19, HLSET+20* , HLSET+21, HLSET+23, HLSET+25, HLSET+26, HLSET+27, HLSET+28, HLSET+29, HLSET+30, HLSET+31, HLSET+32* , HLSET+33, HLSET+34
>> BLRRL("BILL T	YPE" , BILL+1, SETINS+5, SETINS+6, SETINS+16, SETINS+17, SETINS+18, HLSET+6
>> BLRRL("DX"	SETDX+2, SETDX+3
>> BLRRL("INSCOV"	SETINS+6, SETINS+17
>> BLRRL("INSE"	SETINS+12, HLSET+3
>> BLRRL("INSTYP"	INSTYP+10*
>> BLRRL("PAT"	ENDDX, SETINS+46
>> BLRRL("RLE"	SETINS+24, SETINS+25, SETINS+26, SETINS+27, SETINS+28, SETINS+29, HLSET+12, HLSET+13, HLSET+14, HLSET+15 , HLSET+16, HLSET+17
>> BLRRLCDT	SETINS+1*
>> BLRSEQ(1	SETINS+3
>> BLRTSTDA	DX+35, SETDX, SETINS+1, SETINS+11, SETINS+13, SETINS+14, SETINS+18, SETINS+19, SETINS+20, SETINS+21 , SETINS+22, SETINS+23, SETINS+24, SETINS+25, SETINS+26, SETINS+27, SETINS+28, SETINS+29, SETINS+30, SETINS+31 , SETINS+32, SETINS+34, SETINS+36, SETINS+37, SETINS+39, SETINS+40, SETINS+41, SETINS+42, SETINS+43, SETINS+44 , SETINS+45, SETINS+46, SETINS+47, SETINS+48, SETINS+49, SETINS+52, SETINS+53, SETINS+54, SETINS+55, SETINS+56 , SETINS+57, SETINS+58, SETINS+59, SETINS+60, SETINS+61, SETINS+62, SETINS+63, SETINS+64, SETINS+65, SETINS+66 , SETINS+67, SETINS+68, SETINS+69, HLSET+2, HLSET+4, HLSET+6, HLSET+7, HLSET+8, HLSET+9, HLSET+10 , HLSET+11, HLSET+12, HLSET+13, HLSET+14, HLSET+15, HLSET+16, HLSET+17, HLSET+18, HLSET+19, HLSET+20 , HLSET+21, HLSET+23, HLSET+25, HLSET+26, HLSET+27, HLSET+28, HLSET+29, HLSET+30, HLSET+31, HLSET+32 , HLSET+33, HLSET+34
CTY	INSADD+1~, INSADD+4, INSADD+7, PATADD+1~, PATADD+4, PATADD+7, GT1ADD+1~, GT1ADD+4*, GT1ADD+7
DATA	INSADD+1~, INSADD+2, INSADD+3, INSADD+4, INSADD+5, INSADD+6, PATADD+1~, PATADD+2, PATADD+3, PATADD+4 , PATADD+5, PATADD+6, GT1ADD+1~, GT1ADD+2*, GT1ADD+3, GT1ADD+4, GT1ADD+5, GT1ADD+6
>> DFN	SETINS
DIC	DX+1!
>> DIR("A"	DX+30*
>> DIR("S"	DX+24, DX+27
>> DIR(0	DX+29*
>> DXCNT	DX+43, SETDX+2, SETDX+5*
DXS	ADDDX+3~, ADDDX+4*, ADDDX+5, ADDDX+6, ADDDX+7, ADDDX+8
HLDA	HL7+1~, HL7+2*, HL7+3
ICD10DT	DX+14~, DX+20, DX+21, DX+24, DX+27
ICD10PTR	DX+14~, DX+19*, DX+20
>> INSCNT	HLSET+1, HLSET+2, HLSET+3, HLSET+4, HLSET+6, HLSET+7, HLSET+8, HLSET+9, HLSET+10, HLSET+11 , HLSET+12, HLSET+13, HLSET+14, HLSET+15, HLSET+16, HLSET+17, HLSET+18, HLSET+19, HLSET+20, HLSET+21 , HLSET+23, HLSET+25, HLSET+26, HLSET+27, HLSET+28, HLSET+29, HLSET+30, HLSET+31, HLSET+32, HLSET+33 , HLSET+34, HLSET+35
INSI	INSADD~, INSADD+2
PAT	DX~, SETINS*, SETINS+45, SETINS+47, SETINS+48, SETINS+49, SETINS+61, SETINS+62, SETINS+63, PATADD~ , PATADD+2, HLSET+32, HLSET+33, HLSET+34
PH	GT1ADD~, GT1ADD+2
ST	INSADD+1~, INSADD+5, INSADD+7, PATADD+1~, PATADD+5, PATADD+7, GT1ADD+1~, GT1ADD+5*, GT1ADD+7
STR	INSADD+1~, INSADD+3, INSADD+7, PATADD+1~, PATADD+3, PATADD+7, GT1ADD+1~, GT1ADD+3*, GT1ADD+7
TDA	ADDDX+1~, ADDDX+2*, ADDDX+4, ADDDX+5, ADDDX+6, INSTYP~, INSTYP+1, INSTYP+2, INSTYP+3, INSTYP+4 , INSTYP+5, INSTYP+6, INSTYP+7, INSTYP+8, INSTYP+9, INSTYP+10
TSTDA	ADDDX~, ADDDX+5, ADDDX+6, ADDDX+7, ADDDX+8
U	SETDX+2, SETDX+3, ADDDX+5, ADDDX+6, ADDDX+7, ADDDX+8, SETINS+11, SETINS+12, SETINS+13, SETINS+19 , SETINS+20, SETINS+21, SETINS+30, SETINS+31, SETINS+32, SETINS+36, SETINS+39, SETINS+40, SETINS+42, SETINS+43 , SETINS+44, SETINS+46, SETINS+48, SETINS+49, SETINS+52, SETINS+54, SETINS+56, SETINS+58, SETINS+59, SETINS+61 , SETINS+63, SETINS+68, SETINS+69, INSADD+3, INSADD+4, INSADD+5, INSADD+6, INSADD+7, PATADD+3, PATADD+4 , PATADD+5, PATADD+6, PATADD+7, GT1ADD+3, GT1ADD+4, GT1ADD+5, GT1ADD+6, GT1ADD+7, HLSET+2, HLSET+3 , HLSET+4, HLSET+7, HLSET+8, HLSET+9, HLSET+18, HLSET+19, HLSET+20, HLSET+23, HLSET+26, HLSET+27 , HLSET+29, HLSET+30, HLSET+31, HLSET+33, HLSET+34
>> Y	DX+34, DX+39, DX+40, DX+42
ZIP	INSADD+1~, INSADD+6, INSADD+7, PATADD+1~, PATADD+6, PATADD+7, GT1ADD+1~, GT1ADD+6*, GT1ADD+7

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAG05C

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: