Routine: XBEHRCK

Information

XBEHRCK ;IHS/SET/GTH - EHR ENVIRONMENT CHECK ; [ 05/11/2004 ]

Source Information

Source file <XBEHRCK.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZTLOAD $$VERSION^XPDUTL
VA Fileman	2	(,IX)^DIC DT^DICRW
IHS VA Utilities	1	^XBKVAR
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
ZTM	;EP - Taskman entry point
SINGLE(K)	; Get holders of a single key K.
RSLT(%)	;S ^(0)=$G(^TMP("XBEHRCK",$J,0))+1,^(^(0))=%
PCHK(XBEH)	; ----------------------------------------------------- ; Determine if patch XBEH was installed, where XBEH is ; the name of the INSTALL. E.g "AVA93.212".
VCHK(XBEHPRE,XBEHVER,XBEHNAME)	; ----------------------------------------------------- ; Check versions needed. ; Modifies XBEHNEED ;
RXCK	;
ENV	; NamespaceVersionPatch
QUE	;
POST	; -----------------------------------------------------
DUPCHK(X)	; ----------------------------------------------------- ; Check PACKAGE file for duplicate entries of namespace X.
ASKDEV	;EP

External References

Name	Field # of Occurrence
^%ZIS	ASKDEV+2
HOME^%ZIS	ASKDEV+6
^%ZTLOAD	QUE+3
^DIC	PCHK+17, PCHK+21
IX^DIC	PCHK+9, DUPCHK+5
DT^DICRW	ENV+116
^XBKVAR	ENV+116
^XMD	POST+5
$$VERSION^XPDUTL	VCHK+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,% Line Location: RSLT+4
Function Call: WRITE	Prompt: !,"REPORT IS QUEUED!" Line Location: ASKDEV+6
Routine Call	%ZIS Line Location: ASKDEV+6
Routine Call	DIC Line Location: PCHK+17 PCHK+21
Routine Call	%ZIS Line Location: ASKDEV+2
Routine Call	DIC Line Location: PCHK+9 DUPCHK+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(9.4 - [#9.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	ZTM+17, ZTM+18, DUPCHK+7
^PS(59.7 - [#59.7]	RXCK+2, RXCK+15
^TMP("XBEHRCK"	ZTM+1!, POST+6!, RSLT+2, RSLT+3
^VA(200 - [#200]	ZTM+7
^XUSEC(	SINGLE+3, SINGLE+4

Label References

Name	Line Occurrences
ASKDEV	ENV+117, ASKDEV+5
DUPCHK	PCHK+13
PCHK	VCHK+21
POST	ZTM+32
QUE	ASKDEV+5
RSLT	ENV+115, ZTM+9, ZTM+10, ZTM+21, ZTM+25, ZTM+27, ZTM+29, RXCK+5, RXCK+9, RXCK+13 , RXCK+17, VCHK+6, VCHK+12, VCHK+17, PCHK+4, PCHK+11, PCHK+18, PCHK+22, PCHK+23, DUPCHK+8 , DUPCHK+9, DUPCHK+10, POST+7, POST+8
RXCK	ZTM+24
SINGLE	POST+3
VCHK	ZTM+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RSLT~, RSLT+3, RSLT+4
>> %ZIS	ASKDEV+2*
>> %ZIS("IOPAR"	ASKDEV+4*
>> D	PCHK+8, DUPCHK+4
DA	DUPCHK+3~
DIC	PCHK+5~, PCHK+8, PCHK+16, PCHK+20, DUPCHK+3~, DUPCHK+4
DIC(0	PCHK+8, DUPCHK+4
DIFROM	POST+4~
DUZ	ENV+115, ZTM+7, POST+2
IO	ZTM+4
IO("Q"	ASKDEV+5, ASKDEV+6
ION	ASKDEV+3
IOP	ASKDEV+1!, ASKDEV+3*, ASKDEV+5!
>> IOPAR	ASKDEV+4
K	SINGLE~, SINGLE+3, SINGLE+4
>> POP	ENV+117, ASKDEV+2
PS	RXCK+2~*, RXCK+3, RXCK+7, RXCK+11
U	ZTM+7, ZTM+19, RXCK+2
X	ZTM+7, ZTM+9, PCHK+5~, PCHK+7, PCHK+11, PCHK+13, PCHK+16, PCHK+18, PCHK+20, PCHK+22 , DUPCHK~, DUPCHK+7, DUPCHK+9
XBEH	ZTM+2~, ZTM+12*, PCHK~, PCHK+4, PCHK+7, PCHK+12, PCHK+16, PCHK+18, PCHK+20, PCHK+22 , PCHK+23
XBEH(0	ZTM+13*, ZTM+14, ZTM+16, VCHK+18, VCHK+20, VCHK+21
XBEHC	ZTM+3~, ZTM+5*
XBEHMSG	RXCK+4, RXCK+5, RXCK+8, RXCK+9, RXCK+12, RXCK+13, RXCK+16, RXCK+17, VCHK+4~, VCHK+9* , VCHK+10, VCHK+11, VCHK+12, VCHK+14, VCHK+15, VCHK+16*, VCHK+17
XBEHNAME	ZTM+3~, ZTM+17, ZTM+18, ZTM+19*, ZTM+20, VCHK~, VCHK+5, VCHK+7, VCHK+9
XBEHNEED	ZTM+2~, ZTM+28, ZTM+29
XBEHNEED(	ZTM+29, VCHK+18, PCHK+12, PCHK+18, PCHK+22
XBEHNEED("Pha	rmacy Data Management Manual Matching Process must be completed." , RXCK+14, rmacy Data Management Orderable Item Auto Create" , RXCK+10, rmacy Data Management" , RXCK+6, rmacy Dosage Conversion must be completed." , RXCK+18
XBEHNS	ZTM+3~, ZTM+14*, ZTM+15, ZTM+17, ZTM+20
XBEHOK	ZTM+2~, ZTM+5, ZTM+25, ZTM+26, VCHK+14, PCHK+12, PCHK+18, PCHK+22*
XBEHPKG	ZTM+3~, ZTM+6, VCHK+5, VCHK+7
XBEHPRE	VCHK~, VCHK+8, VCHK+9, VCHK+10, VCHK+11, VCHK+16
XBEHV	VCHK+4~, VCHK+8*, VCHK+10, VCHK+13, VCHK+15
XBEHVER	ZTM+3~, ZTM+16*, ZTM+20, VCHK~, VCHK+9, VCHK+13, VCHK+16
XMDUZ	POST+1~, POST+2*
XMSUB	POST+1~, POST+2*
XMTEXT	POST+1~, POST+2*
XMY	POST+1~
XMY(	POST+2, SINGLE+4
XMY(1	POST+2*
Y	PCHK+5~, PCHK+10, PCHK+16, PCHK+18, PCHK+20, PCHK+22, DUPCHK+6, SINGLE+1~, SINGLE+2, SINGLE+4
>> ZTDESC	QUE+1*
>> ZTQUEUED	ENV+118, ASKDEV+5
>> ZTRTN	QUE+1*
>> ZTSAVE("IOP"	QUE+2*

Name	Field # of Occurrence
$T(	ZTM+10, POST+2
$T(ENV+XBEH	ZTM+12, ZTM+13

Customize PDF page

Package: IHS VA Utilities

Routine: XBEHRCK

Call Graph Total: 7