Routine: BLRLUAC1

Information

BLRLUAC1 ; IHS/OIT/MKK - IHS LRUPAC 1, main driver ; 22-Oct-2013 09:22 ; MKK

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$DT,$$FMADD,$$FMDIFF,$$FMTE,$$HTFM,$$NOW)^XLFDT $$LJ^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR
IHS Changes To Lab	1	(HEADERDT,PRESSKEY)^BLRGMENU
IHS VA Utilities	1	^XBFMK
Lab Service	1	(B,V)^LRU
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
IHS Changes To Lab	6	BLRLUAC3 BLRLUAC4 BLRLUAC5 BLRLUAC6 BLRLUAC7 BLRLUAC8

Entry Points

Name	Comments	DBIA/ICR reference
TOPOGSRT	; EP - Topography File sort
SETXTMPN(XTMPNODE)	; EP -- Set the node for the ^BLRLUPAC global
TGETDATA	; EP - Tasked GETDATA
CHORDSRT	; EP - CH Hospital Location sort
DONEGETD	; EP - Compilation DONE; send E-mail
PROGEND(MSG)	; EP -- Routine Ends
LDORDSRT	; EP - Lab Data Hospital Location File Sort
STORERRS(LRDFN,LRSS,LRIDT,DATANAME,LAB60IEN,ERRMSG)	; EP -- Store DATANAME Errors
BBDATA	; EP - "BB" Data
VFORDSRT	; EP - V File - Hospital Location File sort
INSTFSRT	; EP - Institution File sort
TASKDATI	; EP - Tasked Initialization of variables
CHDATA	; EP - "CH" Data
LATSTSRT	; EP - V File - Laboratory Test File sort
NOTHING	; EP - No Data Found
SENDMAIL(STR)	; EP - SEND MAIL when tasked GETDATA complete
GETBBIEN(VBBIEN)	; EP -- Get V BLOOD BANK IEN, if it exists
EP	; EP
GETACCSA()	; EP -- Get Accession Area
GETDATER()	; EP - Get Date Range
GETVMIEN(VMICIEN)	; EP - Get V MICRO IEN, if it exists
MIDATA	; EP - "MI" Data
TASKEDGD	; EP - Setup routine for TaskMan

External References

Name	Field # of Occurrence
^%ZTLOAD	TASKEDGD+13
HEADERDT^BLRGMENU	GETACCSA+1, GETDATER+1, NOTHING+1
PRESSKEY^BLRGMENU	TASKEDGD+15, PROGEND+2
$$GET1^DIQ	GETACCSA+12, GETACCSA+16, GETACCSA+20
^DIR	GETACCSA+6
B^LRU	GETDATER+2
V^LRU	PROGEND+3
^XBFMK	GETACCSA+3
$$DT^XLFDT	TGETDATA+27, TASKDATI+1
$$FMADD^XLFDT	TASKDATI+2, TASKDATI+6, TASKDATI+7, SENDMAIL+15
$$FMDIFF^XLFDT	DONEGETD+11
$$FMTE^XLFDT	DONEGETD+7, DONEGETD+10, DONEGETD+13
$$HTFM^XLFDT	TASKDATI+10, DONEGETD+9
$$NOW^XLFDT	SENDMAIL+5
$$LJ^XLFSTR	DONEGETD+10
^XMD	SENDMAIL+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Queuing Compilation",! Line Location: TASKEDGD+3
Function Call: WRITE	Prompt: !,?4,"Job ",ZTSK," Queued",! Line Location: TASKEDGD+14
Function Call: WRITE	Prompt: !,?4,MSG," Routine Ends.",! Line Location: PROGEND+1
Routine Call	DIR Line Location: GETACCSA+6

FileNo	Call Tags
^LRO(68 - [#68]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVBB - [#9000010.31]	BBDATA+8, GETBBIEN+3, GETBBIEN+5
^AUPNVBB("AC"	GETBBIEN+2
^AUPNVLAB - [#9000010.09]	CHORDSRT+9, CHORDSRT+13
^AUPNVLAB("B"	CHORDSRT+8
^AUPNVMIC - [#9000010.25]	MIDATA+8, GETVMIEN+3, GETVMIEN+5
^AUPNVMIC("AC"	GETVMIEN+2
^AUPNVSIT - [#9000010]	VFORDSRT+2
^BLRLUPAC(	TGETDATA+26, TGETDATA+27, TASKDATI+12!, TOPOGSRT+1, TOPOGSRT+2, TOPOGSRT+3, LATSTSRT+1, LATSTSRT+2, LATSTSRT+3, INSTFSRT+12* , INSTFSRT+13, INSTFSRT+14, LDORDSRT+14, LDORDSRT+15, LDORDSRT+16, VFORDSRT+7, VFORDSRT+8, VFORDSRT+9, STORERRS+4, STORERRS+6 , STORERRS+7, STORERRS+8, NOTHING+3!
^LAB(60 - [#60]	CHDATA+11
^LR - [#63]	TGETDATA+4, TGETDATA+6, TGETDATA+8, TGETDATA+9, CHDATA+4, INSTFSRT+6, MIDATA+3, LDORDSRT+8, BBDATA+3
^SC - [#44]	INSTFSRT+8
^SC("C"	LDORDSRT+9
^XTMP("BLRLUPAC"	SENDMAIL+15, SENDMAIL+16, SENDMAIL+17, SENDMAIL+18

Label References

Name	Line Occurrences
$$GETACCSA	EP+11
$$GETDATER	EP+13
@(	TGETDATA+22
DONEGETD	TGETDATA+29
GETBBIEN	BBDATA+5
GETVMIEN	MIDATA+5
INSTFSRT	CHDATA+18, MIDATA+16, BBDATA+16
LATSTSRT	CHDATA+16, MIDATA+14, BBDATA+14
LDORDSRT	TGETDATA+23
PROGEND	GETACCSA+7, GETACCSA+13, GETACCSA+17, GETACCSA+21, GETDATER+4, NOTHING+2
SENDMAIL	DONEGETD+20
STORERRS	CHDATA+12, CHORDSRT+11, INSTFSRT+10, MIDATA+6, LDORDSRT+12, VFORDSRT+5, BBDATA+6
TASKDATI	TGETDATA+2
TASKEDGD	EP+15
TOPOGSRT	CHDATA+15, MIDATA+13, BBDATA+13
VFORDSRT	CHORDSRT+14, MIDATA+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLRDUZ	EP+1~, TASKEDGD+1~, TASKEDGD+8*, SENDMAIL+3
CNT	EP+1~, TGETDATA+24, TASKDATI+9
>> COLLDTT	GETVMIEN+3, GETVMIEN+4, GETBBIEN+3, GETBBIEN+4
COMPDATE	EP+1~, TGETDATA+16*, CHDATA+1
DATANAME	EP+1~, CHDATA+3, CHDATA+4, CHDATA+5, CHDATA+10, CHDATA+12, CHORDSRT+3, INSTFSRT+3, LDORDSRT+12, VFORDSRT+4 , STORERRS~, STORERRS+8
DATASTR	INSTFSRT+1~, INSTFSRT+6*, INSTFSRT+7
DATETIME	EP+1~, TGETDATA+26, TGETDATA+27, TASKDATI+11*, TASKDATI+12, DONEGETD+13, SENDMAIL+15, SENDMAIL+16, SENDMAIL+17, SENDMAIL+18 , TOPOGSRT+1, TOPOGSRT+2, TOPOGSRT+3, LATSTSRT+1, LATSTSRT+2, LATSTSRT+3, INSTFSRT+12, INSTFSRT+13, INSTFSRT+14, LDORDSRT+14 , LDORDSRT+15, LDORDSRT+16, VFORDSRT+7, VFORDSRT+8, VFORDSRT+9, STORERRS+4, STORERRS+6, STORERRS+7, STORERRS+8, NOTHING+3
DFN	EP+1~, TGETDATA+6*, GETVMIEN+2, GETBBIEN+2
DINVBEG	EP+1~, TGETDATA+8, TASKDATI+7*
DINVEND	EP+2~, TGETDATA+7, TASKDATI+6*
>> DIR("A"	GETACCSA+5*
>> DIR(0	GETACCSA+4*
>> DIRUT	GETACCSA+7
DNHOLDER	CHORDSRT+1~, CHORDSRT+3, CHORDSRT+11, INSTFSRT+1~, INSTFSRT+3, INSTFSRT+6, INSTFSRT+10, VFORDSRT+1~, VFORDSRT+4*, VFORDSRT+5
DUZ	TASKEDGD+8
ERRMSG	STORERRS~, STORERRS+6, STORERRS+7, STORERRS+8
ERRORS	EP+2~, GETACCSA+13, GETACCSA+17, GETACCSA+21
F44IEN	EP+2~, INSTFSRT+8, LDORDSRT+8, LDORDSRT+9, LDORDSRT+12, LDORDSRT+15, LDORDSRT+16, VFORDSRT+2*, VFORDSRT+5, VFORDSRT+8 , VFORDSRT+9
FILE4IEN	EP+2~, INSTFSRT+5, INSTFSRT+7, INSTFSRT+8*, INSTFSRT+10, INSTFSRT+13, INSTFSRT+14
>> FLAG	GETVMIEN+1, GETVMIEN+2, GETVMIEN+6, GETVMIEN+7, GETBBIEN+1, GETBBIEN+2, GETBBIEN+6, GETBBIEN+7
HEADER	EP+2~
HEADER(1	EP+9*
IOP	TASKEDGD+1~, TASKEDGD+12*
L60DESC	EP+2~
LAB60IEN	EP+2~, CHDATA+11, CHDATA+12, TOPOGSRT+3, LATSTSRT+2, LATSTSRT+3, CHORDSRT+8, CHORDSRT+11, INSTFSRT+10, INSTFSRT+14 , MIDATA+9, LDORDSRT+1, LDORDSRT+12, LDORDSRT+16, VFORDSRT+5, VFORDSRT+9, BBDATA+9*, STORERRS~, STORERRS+7, STORERRS+8
LABTEST	EP+3~
LOCPIECE	EP+3~, LDORDSRT+3~, LDORDSRT+6*, LDORDSRT+8
LOGOFF	EP+3~, DONEGETD+9*, DONEGETD+10, DONEGETD+11
LOGON	EP+3~, TASKDATI+10*, TASKDATI+11, DONEGETD+10, DONEGETD+11
LRAA	EP+3~
LRAD	EP+3~
LRAN	EP+3~
LRAS	EP+3~, TGETDATA+12, TGETDATA+13, CHORDSRT+9, MIDATA+3, GETVMIEN+5, BBDATA+3*, GETBBIEN+5
>> LRBLNOW	SENDMAIL+5*
LRDFN	EP+4~, TGETDATA+4, TGETDATA+6, TGETDATA+8, TGETDATA+9, TASKDATI+4, CHDATA+4, CHDATA+12, CHORDSRT+11, INSTFSRT+6 , INSTFSRT+10, MIDATA+3, MIDATA+6, LDORDSRT+8, LDORDSRT+12, VFORDSRT+5, BBDATA+3, BBDATA+6, STORERRS~, STORERRS+8
LRDFNCNT	EP+4~, TASKDATI+9*
LRIDT	EP+4~, TGETDATA+7, TGETDATA+8, TGETDATA+9, TGETDATA+20, CHDATA+4, CHDATA+12, CHORDSRT+11, INSTFSRT+6, INSTFSRT+10 , MIDATA+3, MIDATA+6, LDORDSRT+8, LDORDSRT+12, VFORDSRT+5, BBDATA+3, BBDATA+6, STORERRS~, STORERRS+8
LRIDT(	TGETDATA+20*
>> LRLDT	TASKDATI+6, DONEGETD+7, CHDATA+1, TOPOGSRT+1, LATSTSRT+1, INSTFSRT+12, MIDATA+1, LDORDSRT+14, VFORDSRT+7, BBDATA+1 , STORERRS+4
>> LRSDT	TASKDATI+7, DONEGETD+7, CHDATA+1, TOPOGSRT+1, LATSTSRT+1, INSTFSRT+12, MIDATA+1, LDORDSRT+14, VFORDSRT+7, BBDATA+1 , STORERRS+4
LRSS	GETACCSA+20, GETACCSA+23, TGETDATA+8, TGETDATA+9, TGETDATA+22, TASKDATI+4, CHDATA+4, CHDATA+12, CHORDSRT+11, INSTFSRT+6 , INSTFSRT+10, MIDATA+6, LDORDSRT+6, LDORDSRT+8, LDORDSRT+12, VFORDSRT+5, BBDATA+6, STORERRS~, STORERRS+8
LRSSOCNT	EP+4~
MSG	PROGEND~, PROGEND+1
NOW	SENDMAIL+14*, SENDMAIL+16, SENDMAIL+17, SENDMAIL+18, INSTFSRT+1~
>> ORDCNT	TASKDATI+9*
PURGDATE	EP+4~, TASKDATI+2*
SELLRSS	EP+5~, GETACCSA+23*, TASKDATI+4
SELRAA	EP+4~, GETACCSA+9*, GETACCSA+12, GETACCSA+16, GETACCSA+20
SELRAAAB	EP+5~, GETACCSA+12*, TGETDATA+13, DONEGETD+5, TOPOGSRT+1, LATSTSRT+1, INSTFSRT+12, LDORDSRT+14, VFORDSRT+7, STORERRS+4
SELRAAAN	EP+5~, GETACCSA+16*, DONEGETD+5
SOMEDATA	EP+5~, TGETDATA+26, TGETDATA+27, TASKDATI+9, DONEGETD+15, CHDATA+14, MIDATA+12, BBDATA+12
SPECNAME	EP+5~
SPECTYPE	EP+5~, TGETDATA+18*, TOPOGSRT+2, TOPOGSRT+3, LATSTSRT+3
SPTKNDAT	EP+6~, TGETDATA+15*, TGETDATA+20, MIDATA+1, GETVMIEN+4, BBDATA+1, GETBBIEN+4
SRCHDN	EP+6~, CHDATA+10*, CHDATA+11
STR	EP+6~, DONEGETD+1~, DONEGETD+20, SENDMAIL~, MIDATA+8, MIDATA+9, MIDATA+10, BBDATA+8, BBDATA+9, BBDATA+10 , STORERRS+1~
STR(1	DONEGETD+3*, SENDMAIL+7
STR(10	DONEGETD+13*
STR(11	DONEGETD+16*
STR(12	DONEGETD+17*
STR(13	DONEGETD+18*
STR(2	DONEGETD+4*
STR(3	DONEGETD+5*
STR(4	DONEGETD+6*
STR(5	DONEGETD+7*
STR(6	DONEGETD+8*
STR(7	DONEGETD+10*
STR(8	DONEGETD+11*
STR(9	DONEGETD+12*
STR0	EP+6~, TGETDATA+9*, TGETDATA+10, TGETDATA+12, TGETDATA+15, TGETDATA+16, TGETDATA+18
TESTLOC	EP+6~
TODAY	EP+6~, TASKDATI+1*, TASKDATI+2, SENDMAIL+15
VBBIEN	EP+6~, BBDATA+5, BBDATA+6, BBDATA+8, GETBBIEN~, GETBBIEN+1, GETBBIEN+2, GETBBIEN+3, GETBBIEN+5, GETBBIEN+6 , GETBBIEN+7*
VISITIEN	EP+7~, CHORDSRT+13, MIDATA+10, VFORDSRT+2, BBDATA+10*
VLABCNT	EP+7~, CHORDSRT+7*
VLABFND	EP+7~, CHORDSRT+7, CHORDSRT+8, CHORDSRT+9, CHORDSRT+11, CHORDSRT+13
VLABIEN	EP+7~, CHORDSRT+7, CHORDSRT+8, CHORDSRT+9
VMICIEN	EP+6~, MIDATA+5, MIDATA+6, MIDATA+8, GETVMIEN~, GETVMIEN+1, GETVMIEN+2, GETVMIEN+3, GETVMIEN+5, GETVMIEN+6 , GETVMIEN+7*
XMDUZ	SENDMAIL+1~, SENDMAIL+9*
XMMG	SENDMAIL+1~, SENDMAIL+13, SENDMAIL+18
XMSUB	SENDMAIL+1~, SENDMAIL+7*
XMTEST	SENDMAIL+1~
>> XMTEXT	SENDMAIL+8*
XMY	SENDMAIL+1~
XMY(	SENDMAIL+3*
XMZ	SENDMAIL+1~, SENDMAIL+10*, SENDMAIL+13, SENDMAIL+17
XTMPNODE	EP+7~, SETXTMPN~, SETXTMPN+1*
>> Y	GETACCSA+7, GETACCSA+9, GETDATER+4
ZTDESC	TASKEDGD+1~, TASKEDGD+6*
ZTDTH	TASKEDGD+1~, TASKEDGD+10*
ZTIO	TASKEDGD+1~, TASKEDGD+11*
>> ZTQUEUED	TGETDATA+1
>> ZTREQ	TGETDATA+1*
ZTRTN	TASKEDGD+1~, TASKEDGD+5*
ZTSAVE	TASKEDGD+1~
ZTSAVE("*"	TASKEDGD+9*
ZTSK	TASKEDGD+1~, TASKEDGD+14

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRLUAC1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: