Routine: BWGRVL

Information

BWGRVL ; IHS/CMI/LAB - WH VISIT GENERAL RETRIEVAL DRIVER ROUTINE ;15-Feb-2003 21:51;PLS

Source Information

Source file <BWGRVL.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	5	DD^%DT (C,YX)^%DTC (,IX)^DIC ^DIK ^DIR
Women's Health	4	(XIT,XIT1)^BWGRVL1 (COUNT,SAVE,TITLE)^BWGRVL3 ^BWGRVL4 (SHOW,SHOWP,SHOWR)^BWGRVLS
IHS VA Utilities	1	^XBDBQUE

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Women's Health	4	BWGR REPORT GENERAL RETRIEVAL BWGRVLP1 BWGRVLP2 BWGRVLS

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
PP13
PP12
PP11
RTYPE	;get report type - patient list or procedure list
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
PS0	;
PS1	;EP
D11
PS	;--- process report when search template used
PP	;patient lister
RP	;visit/pt search template
D12
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.
D13
INFORM	;EP
INTRO	;
COUNT	;count only or detailed report
PAUSE	;EP
ZIS	;call to XBDBQUE
ED	;get ending date
SCREEN	;
START	;
PP1	;if patient, no prev defined report used
XIT	;
TITLE	;
SAVE	;
ADD	;EP
XIT1	;
GETDATES	;
ADD1	;
PS13
TYPE	;--- get type of report (patient, date range or search template)
PS12
D1	;if visit, no prev defined report used

External References

Name	Field # of Occurrence
DD^%DT	ED+5
C^%DTC	ED+5
YX^%DTC	ADD1+2
XIT^BWGRVL1	XIT+1
XIT1^BWGRVL1	XIT1+1
COUNT^BWGRVL3	COUNT+1
SAVE^BWGRVL3	SAVE+1
TITLE^BWGRVL3	TITLE+1
^BWGRVL4	SCREEN+2
SHOW^BWGRVLS	ZIS+4
SHOWP^BWGRVLS	ZIS+4
SHOWR^BWGRVLS	ZIS+4
^DIC	PS0+1, RP+1, ADD1+2
IX^DIC	ADD+8
^DIK	DEL+1
^DIR	RTYPE+2, TYPE+6, BD+1, ED+1, ZIS+7, ADD+5, PAUSE+2, EOP+5
^XBDBQUE	ZIS+13, BROWSE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RP+1
Function Call: WRITE	Prompt: !!?((80-$L(BWGRLHDR))/2),BWGRLHDR Line Location: GETDATES+1
Function Call: WRITE	Prompt: !!,"This is a required response. Remember, if you are using a Search Template of",!,"WH Procedures, the Date Range entered here must correspond to the date range" Line Location: GETDATES+2
Function Call: WRITE	Prompt: !,"used to generate the template or be a subset of that date range.",! Line Location: GETDATES+3
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
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("WOMEN'S HEALTH GENERAL RETRIEVAL PROGRAM",80),! Line Location: INFORM+5
Function Call: WRITE	Prompt: !,X Line Location: INFORM+7
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Routine Call	DIC Line Location: PS0+1 RP+1 ADD1+2
Routine Call	DIR Line Location: RTYPE+2 TYPE+6 BD+1 ED+1 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
^BWGRTRPT - [#9002086.88]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BWGRTRPT - [#9002086.88]	PP+3, PP11!, PP12!, PS12!, D11!, D12!, DEL+1, ADD+12, ADD+13, ADD1+6!
^DIC(4 - [#4]	LOC+1
^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+9
ADD	PP+1, PS1+1, ED+7
ADD1	ADD+3, ADD+4, ADD+7
BD	ED+2, ED+3
BROWSE	ZIS+11
COUNT	PP12, PS12, D12
D1	ED+8
D11	D12
D12	D13
DEL	PP+1, PP11, BD+2, ED+7, D11
GETDATE1	PP+6, PP11+3
INFORM	START+3
PP1	PP+2
PP11	PP11+4, PP12
PP12	PP13
PS	PS1+1, PS12
PS0	PS+2
PS12	PS13
RS	RP+4, ED+7, D11
SAVE	PP13+1, D13+1, ZIS+10
SCREEN	PP11, D11
TITLE	PP+7, PP13, PS13, ED+9, D13
TYPE	PP+1, PP+7, PP11, ED+9
XIT	START+2, RTYPE+3, TYPE+7, TYPE+9, ZIS+11, ZIS+14
XIT1	ZIS+5
ZIS	PP+8, PP13+1, PS13+1, ED+10, D13+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	ADD1+2*
>> BWGRBD	BD+3*, ED+1, ED+5
>> BWGRBDD	PP+3, PP11+4, ED+5*
BWGRCAND	PP+2, PP+3, ED+8, ADD+1!, ADD+10*
>> BWGRCNTL	SCREEN+1*
>> BWGRCTYP	ZIS+6, ADD+12*
>> BWGRD	ED+5*
>> BWGRDONE	ZIS+3*
BWGRDTR	START+1!, PP+4*, PP11+1, ED+6
>> BWGRED	ED+4*, ED+5
>> BWGREDD	PP+3, PP11+4, ED+5*
>> BWGREP1	ADD+4, ADD+8
>> BWGRLHDR	GETDATES+1*
>> BWGRNCAN	ADD+3
BWGROPT	ZIS+1!, ZIS+9*, ZIS+11
>> BWGRPCNT	TYPE+1*
>> BWGRPTCT	TYPE+1*
>> BWGRPTVS	RTYPE+1, RTYPE+4, TYPE+4, TYPE+5, TYPE+6, TYPE+8
>> BWGRQMAN	PS+1
BWGRQUIT	START+1!, PP+1!, PP+7!, PP11!, PP12!, PP13!, PS+3, PS1+1, PS12!, PS13! , PS0+2, RP+2, ED+7!, ED+9!, D11!, D12!, D13!, ZIS+8, ZIS+10, ADD+6 , ADD+9, ADD1+2
>> BWGRRPT	PP+3, PP11, PP12, PS12, D11, D12, DEL+1, ADD+10, ADD+12, ADD+13 , ADD1+3, ADD1+6
>> BWGRSEAT	PS0+3, RP+3, ADD+4
>> BWGRSORT	ADD+12*
>> BWGRSORV	ADD+12*
>> BWGRSPAG	ADD+12*
>> BWGRTCW	PP12, PS12, D12, ZIS+2, ADD+13, INFORM+1
BWGRTYPE	TYPE+2!, TYPE+8*, TYPE+9
>> D	ADD+8*
DA	RTYPE+2!, PS0+1!, RP+1!, ZIS+7!, DEL+1*!, ADD+8!, ADD1+2!, ADD1+4!
DD	ADD1+4!
DFOUT	EOP+4!
DIADD	ADD1+2*!, ADD1+4!
DIC	PS0+1!, RP+1!, DEL+1!, ADD+8!, ADD1+2!, ADD1+4!
DIC("A"	PS0+1, RP+1, ADD+8*
DIC("DR"	ADD1+2*
DIC("S"	PS0+1, RP+1, ADD+8*
DIC(0	PS0+1, RP+1, ADD+8, ADD1+2
DICR	PS0+1!, RP+1!
DIK	DEL+1*!
DINUM	ADD1+4!
DIR	RTYPE+2!, TYPE+3!, TYPE+6!, BD+1!, ED+1!, ZIS+7!, ADD+5!, PAUSE+2!, EOP+3~
DIR("A"	RTYPE+2, TYPE+6, BD+1, ED+1, ZIS+7, ADD+5, PAUSE+2*
DIR("B"	RTYPE+2, TYPE+4, TYPE+5, ZIS+7, ADD+5*
DIR(0	RTYPE+2, TYPE+4, TYPE+5, BD+1, ED+1, ZIS+7, ADD+5, PAUSE+2, EOP+5*
DIRUT	RTYPE+3, TYPE+6, TYPE+7, PP+3, PP11+4, BD+1, BD+2, ED+1, ED+2, ZIS+8 , ADD+5, ADD+6, PAUSE+2*, EOP+4!
DLAYGO	ADD1+2*!, ADD1+4!
DLOUT	EOP+4!
DR	PS0+1!, RP+1!, ADD+8!, ADD1+2!, ADD1+4!
DTOUT	EOP+4!
DUOUT	TYPE+6, BD+1, ED+1, ADD+5, PAUSE+2, EOP+4!
DUZ	ADD1+2, USR+1
DUZ(2	LOC+1
IO	PAUSE+1
IO("S"	EOP+2
IO(0	PAUSE+1
IOF	INFORM+2
IOM	ZIS+2, CTR+1
IOST	PAUSE+1, EOP+1
>> IOT	EOP+2
J	INFORM+7*, INFORM+8!
T	INFORM+7*, INFORM+8!
U	PP+3, DEL+1, ADD+12, ADD+13, ADD1+2, USR+1, LOC+1
X	TYPE+3!, BD+1!, ED+1!, ED+5, ADD+13, ADD1+2, ADD1+4!, INFORM+7*, INFORM+8!, CTR~ , CTR+1
>> X1	ED+5*
>> X2	ED+5*
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+12*
>> XBRC	ZIS+12, BROWSE+2
>> XBRP	ZIS+12, BROWSE+1
>> XBRX	ZIS+12, BROWSE+2
Y	RTYPE+4, TYPE+3!, TYPE+8, PS0+2, PS0+3, RP+2, RP+3, BD+1!, BD+3, ED+1! , ED+3, ED+4, ED+5*, ZIS+9, ADD+7, ADD+9, ADD+10, ADD1+2, ADD1+3, ADD1+4! , CTR~, CTR+1
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Women's Health

Routine: BWGRVL

Call Graph Total: 10

Caller Graph Total: 4