Routine: BNIGVL

Package	Total	Call Graph
VA Fileman	7	^%DT (NOW,YX)^%DTC (,IX)^DIC FILE^DICN ^DIE (,IX1)^DIK ^DIR
Computerized Public Health Activity Data	4	(,XIT,XIT1)^BNIGVL1 (COUNT,SAVE,TITLE)^BNIGVL3 ^BNIGVL4 (SHOW,SHOWP,SHOWR)^BNIGVLS
IHS VA Utilities	3	^XBDBQUE ^XBFMK GUIR^XBLM
Kernel	2	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Computerized Public Health Activity Data	5	BNIGE BNIGVLP1 BNIGVLP2 BNIGVLP8 BNIGVLS

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
D11
D12
D13
BN
GUIEP	;EP - called from taskman
GETDATE1	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
DEL	;EP DELETE LOG ENTRY IF ONE EXISTS AND USER "^" OUT
ADD1	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
RS	;
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
TITLE	;
BDMG(BNIGBD,BNIGED,BNIGRPT,BNIGTITL)	;PEP - gui call
INFORM	;EP
INTRO	;
COUNT	;count only or detailed report
PAUSE	;EP
ZIS	;call to XBDBQUE
ED	;get ending date
SCREEN	;
ENDLOG	;-- write the end of the log
START	;
ADD	;EP
XIT	;
XIT1	;
GETDATES	;
TEST	;
SAVE	;
TYPE	;--- get type of report
D1	;if visit, no prev defined report used

External References

Name	Field # of Occurrence
^%DT	BD+8, ED+8
NOW^%DTC	BDMG+17, ENDLOG+1
YX^%DTC	ADD1+2
^%ZTLOAD	BDMG+31
^BNIGVL1	GUIEP+1
XIT^BNIGVL1	XIT+1
XIT1^BNIGVL1	XIT1+1
COUNT^BNIGVL3	BN
SAVE^BNIGVL3	SAVE+1
TITLE^BNIGVL3	TITLE+1
^BNIGVL4	SCREEN+2
SHOW^BNIGVLS	ZIS+4
SHOWP^BNIGVLS	ZIS+4
SHOWR^BNIGVLS	ZIS+4
^DIC	ADD1+2
IX^DIC	ADD+8
FILE^DICN	BDMG+23
^DIE	ENDLOG+4
^DIK	DEL+1
IX1^DIK	GUIEP+11
^DIR	BD+4, ED+4, ZIS+7, ADD+5, PAUSE+2, EOP+5
^XBDBQUE	ZIS+13, BROWSE+2
^XBFMK	BDMG+28
GUIR^XBLM	GUIEP+4
$$FMTE^XLFDT	ED+12, BDMG+13
$$NOW^XLFDT	BDMG+31

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?((80-$L(BNIGLHDR))/2),BNIGLHDR Line Location: GETDATES+1
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: !,"Enter the month/4 digit year in the format 03/2005. Slash is required and ",!,"4 digit year is required.",! Line Location: BD+7
Function Call: WRITE	Prompt: !!,"Enter a month and 4 digit year. Date must be in the past. E.g. 04/2005 or 01/2000." Line Location: BD+9
Function Call: WRITE	Prompt: !!,"No future dates allowed!",! Line Location: BD+10
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !,"Enter the month/4 digit year in the format 03/2005. Slash is required and ",!,"4 digit year is required.",! Line Location: ED+7
Function Call: WRITE	Prompt: !!,"Enter a month and 4 digit year. Date must be in the past. E.g. 04/2005 or 01/2000." Line Location: ED+9
Function Call: WRITE	Prompt: !!,"No future dates allowed!",! Line Location: ED+10
Function Call: WRITE	Prompt: !! Line Location: ADD+2
Function Call: WRITE	Prompt: !!,"UNABLE TO CREATE REPORT ENTRY - NOTIFY SITE MANAGER!" Line Location: ADD1+2
Function Call: WRITE	Prompt: !,$$CTR($$LOC(),80),! Line Location: INFORM+3
Function Call: WRITE	Prompt: $$CTR($$USR(),80) Line Location: INFORM+4
Function Call: WRITE	Prompt: !!,$$CTR("CPHAD GENERAL RETRIEVAL PROGRAM",80),! Line Location: INFORM+5
Function Call: WRITE	Prompt: !,X Line Location: INFORM+6
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: ADD1+2
Routine Call	DIR Line Location: BD+4 ED+4 ZIS+7 ADD+5 PAUSE+2 EOP+5
Routine Call	DIC Line Location: ADD+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BNIGUI - [#90512.08]	Classic Fileman Calls
^BNIRTMP - [#90512.88]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BNIGUI - [#90512.08]	GUIEP+9, GUIEP+10
^BNIRTMP - [#90512.88]	D11!, D12!, DEL+1, ADD+12, ADD+13, ADD1+6!, BDMG+14, BDMG+16
^DIC(4 - [#4]	LOC+1
^TMP($J	GUIEP+2!, GUIEP+6, GUIEP+7, GUIEP+13!
^VA(200 - [#200]	ADD1+2, USR+1

Label References

Name	Line Occurrences
$$CTR	INFORM+3, INFORM+4, INFORM+5
$$LOC	INFORM+3
$$USR	INFORM+4
@(	TYPE+4
ADD	ED+14
ADD1	ADD+3, ADD+4, ADD+7
BD	BD+7, BD+9, BD+10
BDMG	TEST+1
BROWSE	ZIS+11
COUNT	D12
D1	ED+15
D11	D12
D12	D13
DEL	ED+14, D11
ED	ED+7, ED+9, ED+10
ENDLOG	GUIEP+12
INFORM	START+3
RS	ED+14, D11
SAVE	D13+1, ZIS+10
SCREEN	D11
TITLE	ED+16, D13
TYPE	ED+16
XIT	START+2, TYPE+4, ZIS+11, ZIS+14, BDMG+32
XIT1	ZIS+5
ZIS	ED+17, D13+1

Naked Globals

Name	Field # of Occurrence
^(0	ADD+12, USR+1, LOC+1, BDMG+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BDMG+18, ENDLOG+2
%DT	BD+8!, ED+8!
>> %H	ADD1+2*
>> BDMGIEN	BDMG+27*
>> BNIDATA	GUIEP+7, GUIEP+8, GUIEP+9
>> BNIDSP	GUIEP+5
BNIGBD	BD+2, BD+11, ED+12, BDMG~, BDMG+1, BDMG+13
>> BNIGBDD	ED+12, BDMG+13
BNIGCAND	ED+15, ADD+1!, ADD+10*
>> BNIGCNTL	SCREEN+1*
>> BNIGCTYP	ZIS+6, ADD+12, BDMG+14, BDMG+15, BDMG+21
>> BNIGDONE	ZIS+3*
BNIGDTR	START+1!, ED+13
BNIGED	ED+2, ED+11, ED+12, BDMG~, BDMG+2, BDMG+13
>> BNIGEDD	ED+12, BDMG+13
>> BNIGEP1	ADD+4, ADD+8
>> BNIGLHDR	GETDATES+1*
>> BNIGNCAN	ADD+3
BNIGOPT	ZIS+1!, ZIS+9*, ZIS+11
>> BNIGPCNT	TYPE+1, BDMG+10
>> BNIGPTCT	TYPE+1, BDMG+10
>> BNIGPTVS	START+4, BDMG+9
BNIGQUIT	START+1!, ED+14!, ED+16!, D11!, D12!, D13!, ZIS+8, ZIS+10, ADD+6, ADD+9* , ADD1+2*
BNIGRPT	D11, D12, DEL+1, ADD+10, ADD+12, ADD+13, ADD1+3, ADD1+6, BDMG~, BDMG+3 , BDMG+14, BDMG+16
>> BNIGSEAT	ADD+4
>> BNIGSORT	ADD+12, BDMG+14, BDMG+15*
>> BNIGSORV	ADD+12, BDMG+14, BDMG+15*
>> BNIGSPAG	ADD+12, BDMG+14
>> BNIGTCW	D12, ZIS+2, ADD+13, INFORM+1, BDMG+16*
BNIGTITL	BDMG~, BDMG+4*
BNIGTYPE	TYPE+2!, TYPE+3, TYPE+4, BDMG+11!, BDMG+12
>> BNIGUI	RS+1, BDMG+6*
>> BNIIEN	BDMG+1, BDMG+2, BDMG+3, BDMG+25, BDMG+26*, BDMG+27, GUIEP+9, GUIEP+10, GUIEP+11, ENDLOG+3
>> BNIIOSL	RS+1*
>> BNINOW	BDMG+18, BDMG+21, ENDLOG+2, ENDLOG+3
BNIOPT	BDMG+7~, BDMG+8*, BDMG+21
>> C	GUIEP+6, GUIEP+9, GUIEP+10
>> D	ADD+8*
D0	BDMG+19!
DA	BD+4!, ED+4!, ZIS+7!, DEL+1!, ADD+8!, ADD1+2!, ADD1+4!, BDMG+24!, GUIEP+11, ENDLOG+3* , ENDLOG+5!
DD	ADD1+4!, BDMG+19!
DFOUT	EOP+4!
DIADD	ADD1+2!, ADD1+4!, BDMG+22, BDMG+24!
DIC	DEL+1!, ADD+8!, ADD1+2!, ADD1+4!, BDMG+19!, BDMG+22*, BDMG+24!
DIC("A"	ADD+8*
DIC("DR"	ADD1+2, BDMG+21
DIC("S"	ADD+8*
DIC(0	ADD+8, ADD1+2, BDMG+22*
DIE	ENDLOG+3*, ENDLOG+5!
DIK	DEL+1!, GUIEP+11
DINUM	ADD1+4!
DIR	BD+4!, ED+4!, ZIS+7!, ADD+5!, PAUSE+2!, EOP+3~, BDMG+19!
DIR("?"	BD+3, ED+3
DIR("A"	BD+3, ED+3, ZIS+7, ADD+5, PAUSE+2*
DIR("B"	ZIS+7, ADD+5
DIR(0	BD+3, ED+3, ZIS+7, ADD+5, PAUSE+2, EOP+5
DIRUT	BD+5, ED+5, ZIS+8, ADD+5, ADD+6, PAUSE+2, EOP+4!
DLAYGO	ADD1+2!, ADD1+4!, BDMG+22, BDMG+24!
DLOUT	EOP+4!
DR	ADD+8!, ADD1+2!, ADD1+4!, ENDLOG+3*, ENDLOG+5!
DT	BD+10, ED+10, GUIEP+10
DTOUT	EOP+4!
DUOUT	ADD+5, PAUSE+2, EOP+4!
DUZ	ADD1+2, USR+1, BDMG+21
DUZ(2	LOC+1
IO	PAUSE+1
IO("S"	EOP+2
IO(0	PAUSE+1
IOF	INFORM+2
IOM	ZIS+2, CTR+1, GUIEP+3*
IOSL	RS+1
IOST	PAUSE+1, EOP+1
>> IOT	EOP+2
J	INFORM+6*, INFORM+7!
T	INFORM+6*, INFORM+7!
U	DEL+1, ADD+12, ADD+13, ADD1+2, USR+1, LOC+1, BDMG+14, BDMG+16
X	BD+6, BD+8, ED+6, ED+8, ADD+13, ADD1+2, ADD1+4!, INFORM+6, INFORM+7!, CTR~ , CTR+1, BDMG+16, BDMG+20, GUIEP+6, GUIEP+7, GUIEP+9
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+12*
>> XBRC	ZIS+12, BROWSE+2
>> XBRP	ZIS+12, BROWSE+1
>> XBRX	ZIS+12, BROWSE+2
Y	BD+7, BD+8, BD+9, BD+10, BD+11, ED+7, ED+8, ED+9, ED+10, ED+11 , ZIS+9, ADD+7, ADD+9, ADD+10, ADD1+2, ADD1+3, ADD1+4!, CTR~, CTR+1, BDMG+25 , BDMG+26
>> ZTDESC	BDMG+31*
>> ZTDTH	BDMG+31*
>> ZTIO	BDMG+31*
>> ZTQUEUED	EOP+2
>> ZTREQ	GUIEP+14*
>> ZTRTN	BDMG+31*
ZTSAVE	BDMG+29!
ZTSAVE("*"	BDMG+29*

Marked Items

Name	Field # of Occurrence
$T(@T+J	INFORM+6

Customize PDF page

Package: Computerized Public Health Activity Data

Routine: BNIGVL

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items