Routine: BLRF44DR

Information

BLRF44DR ; IHS/MSC/MKK - Hospital Locations (# 44) File Duplicate Abbreviation(s) Report ; [ February 29, 2012 8:00 AM ]

Source Information

Source file <BLRF44DR.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$CJ,$$TRIM)^XLFSTR
IHS Changes To Lab	3	(EEP,HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU HEADONE2^BLRLUAC2 SENDMAIL^BLRUTIL3
IHS VA Utilities	2	^XBFMK $$LOC^XBFUNC
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
TASKIT	; EP - Tasked Report
PEP	; EP
EEP	; EP - Ersatz Entry Point
TASKITIN	; EP - Tasked Initialization of variables
TROUBLE(WOT)	; EP - There are duplicate Abbreviations, which are trouble. Send Alert & MailMan message. ; D SNDALERT^BLRUTIL3(CNT_" Duplicate Abbreviations Exist in HOSPITAL LOCATION (# 44) File.")
HEADONE(HD1)	; EP -- Asks if user wants only 1 header line
TASKLINE	; EP
INITVARS()	; EP
REPORT	; EP
TASKREPT	; EP - Task the report
EP	; EP
DUPLINE	; EP

External References

Name	Field # of Occurrence
^%ZIS	INITVARS+8
^%ZISC	REPORT+12
^%ZTLOAD	TASKREPT+11
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	INITVARS+7
HEADERPG^BLRGMENU	DUPLINE+5
PRESSKEY^BLRGMENU	INITVARS+11, REPORT+14, TASKREPT+13
HEADONE2^BLRLUAC2	INITVARS+14
SENDMAIL^BLRUTIL3	TROUBLE+3
^DIR	HEADONE+5
^XBFMK	HEADONE+1
$$LOC^XBFUNC	TASKITIN+10
$$CJ^XLFSTR	INITVARS+18, INITVARS+19, TASKITIN+10, TASKITIN+11, TASKITIN+12, TASKITIN+15, TASKITIN+16
$$TRIM^XLFSTR	INITVARS+1, TASKITIN+10, TASKITIN+11, TASKITIN+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?4,"Device Not Available. Routine Ends.",!! Line Location: INITVARS+10
Function Call: WRITE	Prompt: ! Line Location: INITVARS+14
Function Call: WRITE	Prompt: IEN Line Location: DUPLINE+6
Function Call: WRITE	Prompt: ?9,$E($P($G(^SC(IEN,0)),"^"),1,38) Line Location: DUPLINE+7
Function Call: WRITE	Prompt: ?44,$S($L($TR(ABBREV," "))>0:ABBREV,1:"<BLANK>") Line Location: DUPLINE+8
Function Call: WRITE	Prompt: ?54,$P($G(^SC(IEN,0)),"^",4) Line Location: DUPLINE+9
Function Call: WRITE	Prompt: ?64,$E($P($G(^DIC(4,+$P($G(^SC(IEN,0)),"^",4),0)),"^"),1,16) Line Location: DUPLINE+10
Function Call: WRITE	Prompt: ! Line Location: DUPLINE+11
Function Call: WRITE	Prompt: !,?4,"Job ",ZTSK," Queued",! Line Location: TASKREPT+12
Routine Call	DIR Line Location: HEADONE+5
Routine Call	%ZIS Line Location: INITVARS+8

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DUPLINE+10, TASKLINE+10
^SC - [#44]	DUPLINE+7, DUPLINE+9, DUPLINE+10, TASKLINE+6, TASKLINE+9, TASKLINE+10
^SC("C"	REPORT+2, REPORT+4, REPORT+5, DUPLINE+4, TASKIT+8, TASKIT+10, TASKIT+11, TASKLINE+4

Name	Line Occurrences
$$INITVARS	EP+4
DUPLINE	REPORT+8
REPORT	EP+5
TASKITIN	TASKIT+5
TASKLINE	TASKIT+14
TROUBLE	TASKIT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBREV	EP+1~, REPORT+1, REPORT+2, REPORT+4, REPORT+5, DUPLINE+2, DUPLINE+4, DUPLINE+8, TASKIT+1~, TASKIT+7* , TASKIT+8*, TASKIT+10, TASKIT+11, TASKLINE+2, TASKLINE+4, TASKLINE+8
BLRDUZ	TASKREPT+1~, TASKREPT+6*
BLRVERN	EP+1~, INITVARS+1*, TASKIT+1~
CNT	EP+1~, INITVARS+26, REPORT+10, DUPLINE+1, DUPLINE+2, TASKIT+1~, TASKIT+16, TASKITIN+26, TASKLINE+1, TASKLINE+2
CURUCI	EP+1~
>> DIR("A"	HEADONE+2*
>> DIR("B"	HEADONE+3*
>> DIR(0	HEADONE+4*
DUZ	TASKREPT+6
HD1	EP+2~, INITVARS+14, DUPLINE+5, HEADONE~, HEADONE+6*
HEADER	EP+2~
HEADER(1	INITVARS+3*
HEADER(2	INITVARS+4*
HEADER(3	INITVARS+5*
HEADER(4	INITVARS+18, INITVARS+19
HEADER(5	INITVARS+20, INITVARS+21, INITVARS+22, INITVARS+23, INITVARS+24*
IEN	EP+1~, REPORT+3, REPORT+4, REPORT+5, DUPLINE+3, DUPLINE+4, DUPLINE+6, DUPLINE+7, DUPLINE+9, DUPLINE+10 , TASKIT+1~, TASKIT+9, TASKIT+10, TASKIT+11, TASKLINE+3, TASKLINE+4, TASKLINE+5, TASKLINE+6, TASKLINE+9, TASKLINE+10
IEN2	EP+1~, REPORT+5, REPORT+6, TASKIT+1~, TASKIT+11, TASKIT+12
IO	INITVARS+12
IOM	TASKITIN+22
IOP	TASKREPT+1~, TASKREPT+10*
IOSL	INITVARS+16
IOST	INITVARS+14, REPORT+14
LINE	TASKIT+1~, TASKITIN+24, TASKLINE+5, TASKLINE+6, TASKLINE+8, TASKLINE+9, TASKLINE+10, TASKLINE+11
LINES	EP+2~, INITVARS+17, DUPLINE+5, DUPLINE+12
MAXLINES	EP+2~, INITVARS+16*, INITVARS+17, DUPLINE+5
MMSGSTR	TASKIT+1~, TASKITIN+1!, TROUBLE+3
MMSGSTR(	TASKLINE+5, TASKLINE+6, TASKLINE+8, TASKLINE+9, TASKLINE+10*
MMSGSTR(1	TASKITIN+3*
MMSGSTR(10	TASKITIN+15, TASKITIN+16
MMSGSTR(11	TASKITIN+17, TASKITIN+18, TASKITIN+19, TASKITIN+20, TASKITIN+21*
MMSGSTR(12	TASKITIN+22*
MMSGSTR(2	TASKITIN+4*
MMSGSTR(3	TASKITIN+5*
MMSGSTR(4	TASKITIN+6*
MMSGSTR(5	TASKITIN+7*
MMSGSTR(6	TASKITIN+10*
MMSGSTR(7	TASKITIN+11*
MMSGSTR(8	TASKITIN+12*
MMSGSTR(9	TASKITIN+14*
PG	EP+2~, INITVARS+26*, DUPLINE+5
>> POP	INITVARS+9
QFLG	EP+2~, INITVARS+26*, REPORT+2, REPORT+10, REPORT+14, DUPLINE+4, DUPLINE+5
WOT	TROUBLE~
>> Y	HEADONE+6
ZTDESC	TASKREPT+1~, TASKREPT+4*
ZTDTH	TASKREPT+1~, TASKREPT+8*
ZTIO	TASKREPT+1~, TASKREPT+9*
>> ZTQUEUED	TASKIT+3
>> ZTREQ	TASKIT+3*
ZTRTN	TASKREPT+1~, TASKREPT+3*
ZTSAVE	TASKREPT+1~
ZTSAVE("*"	TASKREPT+7*
ZTSK	TASKREPT+1~, TASKREPT+12

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRF44DR

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items