Routine: BLRLDFIS

Package	Total	Call Graph
VA Fileman	3	$$FIND1^DIC UPDATE^DIE $$GET1^DIQ
IHS Changes To Lab	2	(EEP,HEADERDT)^BLRGMENU ($$GETACCCP,MAILALMI)^BLRUTIL3
Kernel	1	$$NOW^XLFDT
Lab Service	1	^LRWU4

Entry Points

Name	Comments	DBIA/ICR reference
STORDATA	; EP - Store the Data
CHEK69	; EP
PEP	; EP
EEP	; Ersatz EP
OTHRSEGS(IEN0,IEN1,IEN2)	; EP - Store Other Data
CHKERRS(ERRS,SUBJECT)	; EP - If ERRS array is empty, just return zero, otherwise send MailMan message and return 1
INITVARS()	; EP - Initialization of variables
ICOMDATA	; EP - Retreive necessary data from the Incoming HL7 message in the UNIVERSAL INTERFACE (#4001) file. ; Note that BLRLINKU routine stores the data in the ^TMP global when called earlier in the BLRLINK3 routine, ; which means no need to re-examine 4001.
NOTFOUND(SUBJECT)	; EP - If could not retrieve IEN, send Message
EP	; EP
TESTSTOR	; EP - Test the STORDATA routine
RETDATA(UID)	; EP - Given UID, retrieve all the informatoin that's available in ^BLRMULDA global

External References

Name	Field # of Occurrence
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	CHEK69+13
$$GETACCCP^BLRUTIL3	INITVARS+8
MAILALMI^BLRUTIL3	CHKERRS+19, NOTFOUND+8
$$FIND1^DIC	STORDATA+5, STORDATA+16, STORDATA+25
UPDATE^DIE	STORDATA+2, STORDATA+13, STORDATA+22, STORDATA+34
$$GET1^DIQ	INITVARS+5, INITVARS+14, INITVARS+17, INITVARS+20
^LRWU4	TESTSTOR+3
$$NOW^XLFDT	TESTSTOR+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?4,"Invalid Accession. Routine Ends.",! Line Location: TESTSTOR+6
Function Call: WRITE	Prompt: ?4,LRODT,?14,LRSPN,?24,LROT,?34,$P(STR,"^"),?44,$P(STR,"^",2),! Line Location: CHEK69+24
Routine Call	DIE Line Location: STORDATA+2 STORDATA+13 STORDATA+22 STORDATA+34
Routine Call	DIC Line Location: STORDATA+5 STORDATA+16 STORDATA+25

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
^BLRTXLOG - [#9009022]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	TESTSTOR+9
^LRO(68 - [#68]	INITVARS+11, TESTSTOR+5, TESTSTOR+8, TESTSTOR+9, TESTSTOR+10
^LRO(69 - [#69]	CHEK69+16, CHEK69+18, CHEK69+20, CHEK69+21
^TMP("BLR"	ICOMDATA+3

Label References

Name	Line Occurrences
$$CHKERRS	STORDATA+3, STORDATA+14, STORDATA+23, STORDATA+35
$$INITVARS	PEP+3
ICOMDATA	INITVARS+27
NOTFOUND	STORDATA+6, STORDATA+17, STORDATA+26
OTHRSEGS	STORDATA+37
STORDATA	PEP+5, TESTSTOR+14

Naked Globals

Name	Field # of Occurrence
^(	INITVARS+11, TESTSTOR+8
^(3	INITVARS+11, TESTSTOR+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDALVR	PEP+1
>> APCDALVR("APCDTLNC"	INITVARS+23
>> APCDALVR("APCDTLPV"	INITVARS+24
>> APCDALVR("APCDTRES"	INITVARS+3
>> BLRLOGDA	PEP+1, INITVARS+5, INITVARS+14, INITVARS+17
>> CNT	CHEK69+15, CHEK69+25
>> DATALN	TESTSTOR+9*
>> DILOCKTM	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
>> DISYS	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
DT	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
DTIME	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
DUZ	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
ERRS	STORDATA+2!, STORDATA+13!, STORDATA+22!, STORDATA+34!, CHKERRS~, CHKERRS+1, CHKERRS+11
>> F60IEN	INITVARS+17*, INITVARS+18, INITVARS+20, ICOMDATA+3
FDA	STORDATA+1!, STORDATA+8!, STORDATA+19!, STORDATA+28!
FDA(	STORDATA+1, STORDATA+9, STORDATA+10, STORDATA+11, STORDATA+20, STORDATA+29, STORDATA+30, STORDATA+31, STORDATA+32*
>> FIRST	TESTSTOR+9*, TESTSTOR+10
>> HEADER(1	CHEK69+3*
>> HEADER(2	CHEK69+5*
>> HEADER(3	CHEK69+6*
>> HEADER(4	CHEK69+7, CHEK69+8, CHEK69+9, CHEK69+10, CHEK69+11*
>> ICD	INITVARS+1, INITVARS+24, INITVARS+25, STORDATA+31, TESTSTOR+12
IEN0	STORDATA+5*, STORDATA+6, STORDATA+9, STORDATA+10, STORDATA+11, STORDATA+16, STORDATA+20, STORDATA+25, STORDATA+29, STORDATA+30 , STORDATA+31, STORDATA+32, STORDATA+37, OTHRSEGS~
IEN1	STORDATA+16*, STORDATA+17, STORDATA+20, STORDATA+25, STORDATA+26, STORDATA+29, STORDATA+30, STORDATA+31, STORDATA+32, STORDATA+37 , OTHRSEGS~
IEN2	STORDATA+25*, STORDATA+29, STORDATA+30, STORDATA+31, STORDATA+32, STORDATA+37, OTHRSEGS~
IO	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
>> IOBS	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
IOF	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
IOM	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
ION	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
>> IOS	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
IOSL	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
IOST	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
>> IOT	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
>> IOXY	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
LN	CHKERRS+3~, CHKERRS+8, CHKERRS+13, CHKERRS+15*, CHKERRS+16, NOTFOUND+1~
>> LOCDN	INITVARS+1, INITVARS+20, INITVARS+21, STORDATA+20, STORDATA+25, STORDATA+26
>> LOINC	INITVARS+1, INITVARS+23, ICOMDATA+5, STORDATA+30, TESTSTOR+9
>> LRAA	INITVARS+8, INITVARS+11, TESTSTOR+5, TESTSTOR+8, TESTSTOR+9, TESTSTOR+10
>> LRAD	INITVARS+8, INITVARS+11, TESTSTOR+5, TESTSTOR+8, TESTSTOR+9, TESTSTOR+10
>> LRAN	INITVARS+8, INITVARS+11, TESTSTOR+5, TESTSTOR+8, TESTSTOR+9, TESTSTOR+10
>> LRAS	INITVARS+5, INITVARS+6, INITVARS+8, STORDATA+10, CHKERRS+6, NOTFOUND+4, TESTSTOR+8
>> LRDFN	INITVARS+11, INITVARS+12, STORDATA+1, STORDATA+5, STORDATA+6, TESTSTOR+8
>> LRIDT	INITVARS+11, INITVARS+12, STORDATA+9, STORDATA+16, STORDATA+17, TESTSTOR+8
>> LRODT	CHEK69+15, CHEK69+16, CHEK69+18, CHEK69+20, CHEK69+21, CHEK69+24
>> LROT	CHEK69+19, CHEK69+20, CHEK69+21, CHEK69+24
>> LRSPN	CHEK69+17, CHEK69+18, CHEK69+20, CHEK69+21, CHEK69+24
MSGARRAY	CHKERRS+3~, CHKERRS+19, NOTFOUND+1~, NOTFOUND+8
MSGARRAY(	CHKERRS+16*
MSGARRAY(1	CHKERRS+5, NOTFOUND+3
MSGARRAY(2	CHKERRS+6, NOTFOUND+4
MSGARRAY(3	CHKERRS+7, NOTFOUND+5
MSGARRAY(4	CHKERRS+12*
>> NOTE	INITVARS+1*
>> REFLABF	PEP+1, INITVARS+27
>> RESULTDT	INITVARS+1, INITVARS+14, INITVARS+15, ICOMDATA+4, STORDATA+29, TESTSTOR+10, TESTSTOR+11*
>> SNOMED	INITVARS+1, STORDATA+32, TESTSTOR+12
>> STR	ICOMDATA+3, ICOMDATA+4, ICOMDATA+5, CHEK69+21, CHEK69+22, CHEK69+24
STR1	CHKERRS+3~, CHKERRS+11, CHKERRS+12, CHKERRS+14, CHKERRS+16, NOTFOUND+1~
SUBJECT	CHKERRS~, CHKERRS+18, CHKERRS+19, NOTFOUND~, NOTFOUND+7, NOTFOUND+8
U	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
UID	INITVARS+11, ICOMDATA+3, STORDATA+11, CHKERRS+7, NOTFOUND+5, TESTSTOR+8, RETDATA~, RETDATA+1
>> X	INITVARS+8*, INITVARS+9
>> XPARSYS	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1
>> XQXFLG	PEP+1, TESTSTOR+1, RETDATA+1, CHEK69+1

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRLDFIS

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: