Routine: BNIRP1

Package	Total	Call Graph
VA Fileman	7	^%DT (C,COMMA,NOW)^%DTC ^DIC FILE^DICN ^DIE IX1^DIK ^DIR
IHS VA Utilities	5	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK GUIR^XBLM EN^XBVK
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
PCC Medical Query	1	^AMQQGTX0

Package	Total	Caller Graph
Computerized Public Health Activity Data	1	BNIGU

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
DT(D)	;EP
LHDR1	;
SUB	;
BNIG(BNIERR,BNIJOB,BNIBTH,BNIGBD,BNIGED,BNILIST,BNIRDT,BNIGPRVT,BNIGSUB,BNIGPRVS)	;PEP - gui call
GUIEP	;EP - called from taskman
USR()	;EP - Return name of current user from ^VA(200.
DISC	;
LHDR	;
PRINT	;EP - called from xbdbque
D	;;DATE OF ACTIVITY
SET	;
G	;;GROUP SERVED
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
INFORM	;
APRV	;all providers
OPRV	;one provider
DATE(D)	;EP
DPRV	;discipline
E	;;ACTIVITY SETTING
ZIS	;call to XBDBQUE
P	;;PUBLIC HEALTH CONCERN
ED	;get ending date
ENDLOG	;-- write the end of the log
TPRV	;taxonomy of providers
HEADER	;
S	;;SPECIFIC HEALTH TOPIC
R	;;GPRA ELEMENT
XIT	;
C(X,X2,X3)	;
PROC1	;
HEAD1	;
START	;
PROCESS	;EP - called from xbdbque
PROV	;
GPRA(R)	;
EOP	;EP - End of page.
LIST	;
LISTP	;
GETDATES	;
T	;;TYPE OF ACTIVITY

External References

Name	Field # of Occurrence
^%DT	BD+8, ED+8
C^%DTC	ED+13, BNIG+15
COMMA^%DTC	C+1
NOW^%DTC	BNIG+19, ENDLOG+1
^%ZTLOAD	BNIG+33
^AMQQGTX0	TPRV+4, DPRV+4
^DIC	OPRV+1, TPRV+3, DPRV+3
FILE^DICN	BNIG+25
^DIE	ENDLOG+4
IX1^DIK	GUIEP+12
^DIR	BD+4, ED+4, PROV+4, SUB+4, LIST+2, LHDR+2, HEADER+2, EOP+5
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	SET+9, SET+11, SET+13, SET+15, SET+17, LISTP+5, LISTP+6, LISTP+7, LISTP+8
$$VALI^XBDIQ1	DISC+1, SET+20, GPRA+1, BNIG+13
^XBFMK	BNIG+30
GUIR^XBLM	GUIEP+4
EN^XBVK	XIT+1
$$FMADD^XLFDT	PROCESS+3
$$FMTE^XLFDT	ED+12, DATE+3, DT+2, LHDR1+3, LHDR1+8, HEAD1+3, HEAD1+7, BNIG+14
$$NOW^XLFDT	BNIG+33
$$REPEAT^XLFSTR	LHDR1+10, HEAD1+9

Interaction Calls

Name	Line Occurrences
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: !!,$P(^DIC(7,BNIPRV,0),U) Line Location: PRINT+6
Function Call: WRITE	Prompt: !!,$P(^VA(200,BNIPRV,0),U) Line Location: PRINT+7
Function Call: WRITE	Prompt: !!!,"GRAND TOTALS:",?55,$$C(BNIGTOTR,0,8),?68,$$C(BNIGTOTT,2,12) Line Location: PRINT+13
Function Call: WRITE	Prompt: ! Line Location: PRINT+15
Function Call: WRITE	Prompt: ! Line Location: LHDR+2
Function Call: WRITE	Prompt: "ZZZZZZZ",! Line Location: LHDR1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BNIGPG,! Line Location: LHDR1+3
Function Call: WRITE	Prompt: !,$$CTR("* Computerized Public Health Actvity Datasystem *",80) Line Location: LHDR1+4
Function Call: WRITE	Prompt: !,$$CTR("* Activity Time by Person Performing Activity *",80) Line Location: LHDR1+5
Function Call: WRITE	Prompt: !,$$CTR("* Record Listing *",80) Line Location: LHDR1+6
Function Call: WRITE	Prompt: !,$$CTR($P(^DIC(4,DUZ(2),0),U),80) Line Location: LHDR1+7
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: LHDR1+8
Function Call: WRITE	Prompt: !!,"DATE",?10,"PROVIDER",?30,"Hrs",?37,"SETTING",?59,"ACTIVITY",?75,"GPRA" Line Location: LHDR1+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: LHDR1+10
Function Call: WRITE	Prompt: ! Line Location: LHDR1+11
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: "ZZZZZZZ",! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BNIGPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,$$CTR("* Computerized Public Health Actvity Datasystem *",80) Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$$CTR("* Activity Time by Person Performing Activity *",80) Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$$CTR($P(^DIC(4,DUZ(2),0),U),80) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,$$CTR(X_$P(Y,";;",2),80) Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",80) Line Location: HEAD1+9
Function Call: WRITE	Prompt: !?55,"# RECORDS",?73,"Hrs" Line Location: HEAD1+10
Function Call: WRITE	Prompt: !?55,"---------",?73,"---" Line Location: HEAD1+11
Function Call: WRITE	Prompt: ! Line Location: HEAD1+12
Function Call: WRITE	Prompt: !!,"At the prompt enter provider names or enter a taxonomy by ",!,"prefacing the taxonomy name with a '[' e.g. [LAM PROVIDERS",! Line Location: TPRV+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: TPRV+3
Function Call: WRITE	Prompt: !!,"At the prompt enter provider disciplines or enter a taxonomy of disciplines",!,"by prefacing the taxonomy name with a '[' e.g. [LAM PHYSICIANS.",! Line Location: DPRV+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: DPRV+3
Function Call: WRITE	Prompt: !!,"All providers will be included." Line Location: DPRV+6
Function Call: WRITE	Prompt: !!,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,$$CTR("TIME SPENT BY PERSON PERFORMING ACTIVITY") Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will tally up all time spent by the person performing" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"the activity. You can optionally subtotal by other data elements." Line Location: INFORM+5
Function Call: WRITE	Prompt: ! Line Location: INFORM+6
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIC Line Location: OPRV+1 TPRV+3 DPRV+3
Routine Call	DIR Line Location: BD+4 ED+4 PROV+4 SUB+4 LIST+2 LHDR+2 HEADER+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^BNIGUI - [#90512.08]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	BNIG+9, BNIG+12
^BNIGUI - [#90512.08]	GUIEP+10, GUIEP+11
^BNIREC - [#90510]	PROC1+1, LISTP+5, LISTP+9, LISTP+10, LISTP+12
^BNIREC("B"	PROCESS+5, PROCESS+6
^BNISHT - [#90511.02]	SET+22, SET+24, GPRA+3
^DIC(4 - [#4]	LHDR1+7, HEAD1+6, LOC+1
^DIC(7 - [#7]	PRINT+6
^TMP($J	GUIEP+2!, GUIEP+5, GUIEP+8
^VA(200 - [#200]	PRINT+7, LHDR1+3, HEAD1+3, USR+1, BNIG+13
^XTMP("BNIRP1"	PROCESS+3, SET+1, LISTP+2, LISTP+3, LISTP+16!

Label References

Name	Line Occurrences
$$C	PRINT+8, PRINT+11, PRINT+13
$$CTR	LHDR1+4, LHDR1+5, LHDR1+6, LHDR1+7, LHDR1+8, HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+8 , INFORM+2, INFORM+3
$$DATE	PRINT+11
$$DT	LISTP+5
$$GPRA	LISTP+6
$$LOC	INFORM+2
@(	PROV+7
BD	BD+7, BD+9, BD+10
DISC	PROC1+5
ED	ED+7, ED+9, ED+10
ENDLOG	GUIEP+13
EOP	PRINT+15
GETDATES	PROV+5
HEAD1	HEADER+1
HEADER	PRINT+2, PRINT+5, PRINT+10, PRINT+12
INFORM	START+1
LHDR	LISTP+1, LISTP+4, LISTP+11
LHDR1	LHDR+1
LISTP	PRINT+14
PROC1	PROCESS+6
PROCESS	GUIEP+1
PROV	PROV+8, SUB+5, TPRV+5
SET	PROC1+7, DISC+3
SUB	LIST+3
XIT	ZIS+3, TPRV+3, DPRV+3, BNIG+34

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+2!, BNIG+20, ENDLOG+2
%DT	BD+8!, ED+8!
>> A	BNIG+13*
>> BNIBG	BNIG+3, BNIG+15
BNIBTH	BNIG~, BNIG+2, BNIG+22
>> BNID	LISTP+2*, LISTP+3
BNIDATA	GUIEP+7~, GUIEP+8, GUIEP+9, GUIEP+10
>> BNIED	BNIG+4
BNIERR	BNIG~
BNIGBD	BD+2, BD+11, ED+12, ED+13, LHDR1+8, HEAD1+7, BNIG~, BNIG+14
>> BNIGBDD	ED+12, BNIG+14
BNIGDATA	PROCESS+2!
BNIGDATA(	SET+4, SET+5, SET+6, SET+28, SET+29*, PRINT+4, PRINT+8, PRINT+9, PRINT+11
BNIGDISP	DPRV+2!, DPRV+5!, DPRV+6!, DPRV+8!
BNIGED	ED+2, ED+11, ED+12, PROCESS+5, LHDR1+8, HEAD1+7, BNIG~, BNIG+14
>> BNIGEDD	ED+12, BNIG+14
>> BNIGIEN	BNIG+29*
>> BNIGPG	PRINT+1, LHDR+1, LHDR1+1, LHDR1+3, HEADER+1, HEAD1+1*, HEAD1+3
BNIGPROV	TPRV+6!
BNIGPRVS	PROV+2!, PROV+8!, PROC1+6, DISC+2, OPRV+2!, APRV+1!, TPRV+1!, TPRV+5, DPRV+2!, DPRV+5! , DPRV+6!, BNIG~, BNIG+6!, BNIG+7!, BNIG+10!
BNIGPRVS(	PROC1+6, DISC+2, OPRV+3, BNIG+9, BNIG+13*
BNIGPRVS("*"	TPRV+6, DPRV+6
BNIGPRVT	PROV+2, PROV+6, PROV+7, PROV+8!, PROC1+5, PRINT+6, PRINT+7, BNIG~, BNIG+6, BNIG+7 , BNIG+10
>> BNIGQUIT	PROV+1, PROV+8, PRINT+1, PRINT+4, PRINT+5, PRINT+9, PRINT+10, PRINT+12, LISTP+2, LISTP+3 , LISTP+4, LISTP+10, LISTP+11, LHDR+2, HEADER+2, OPRV+2, DPRV+5
>> BNIGSD	ED+13, PROCESS+4, PROCESS+5, PROCESS+6, BNIG+15
BNIGSUB	SUB+1!, SUB+6*, SET+8, SET+10, SET+12, SET+14, SET+16, SET+18, SET+19, SET+25 , PRINT+11, HEAD1+8, BNIG~
BNIGTAXZ	BNIG+7!, BNIG+10!
BNIGTAXZ(	BNIG+9, BNIG+12
>> BNIGTOTR	PROCESS+1, SET+2, PRINT+13
>> BNIGTOTT	PROCESS+1, SET+3, PRINT+13
>> BNIGUI	LHDR1+2
>> BNIH	PROCESS+1*, SET+1, LISTP+2, LISTP+3, LISTP+16
>> BNIIEN	BNIG+1, BNIG+2, BNIG+3, BNIG+4, BNIG+5, BNIG+27, BNIG+28*, BNIG+29, GUIEP+10, GUIEP+11 , GUIEP+12, ENDLOG+3
>> BNIJ	PROCESS+1*, SET+1, LISTP+2, LISTP+3, LISTP+16
BNIJOB	BNIG~, BNIG+1, BNIG+22
BNILIST	LIST+1!, LIST+4*, SET+1, PRINT+14, BNIG~, BNIG+5
>> BNINOW	BNIG+20, BNIG+23, ENDLOG+2, ENDLOG+3
BNIOPT	BNIG+17~, BNIG+18*, BNIG+23
>> BNIPRV	PROC1+3, PROC1+4, PROC1+6, DISC+1, DISC+2, SET+4, SET+5, SET+6, SET+28, SET+29 , PRINT+4*, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11
>> BNIR	PROCESS+6, PROC1+1, SET+1, SET+9, SET+11, SET+13, SET+15, SET+17, SET+20, LISTP+3 , LISTP+5, LISTP+6, LISTP+7, LISTP+8, LISTP+9, LISTP+10, LISTP+12, GPRA+1
BNIRDT	BNIG~
>> BNIREC	PROC1+1*, PROC1+2, PROC1+3, SET+1, SET+3, SET+6, SET+26, SET+29
>> BNIS	PRINT+9*, PRINT+11
>> BNIX	LISTP+10*, LISTP+12
>> C	GUIEP+5, GUIEP+6, GUIEP+10, GUIEP+11
D	DATE~, DATE+1, DATE+3, DT~, DT+1, DT+2
D0	BNIG+21!
DA	BD+4!, ED+4!, PROV+4!, SUB+4!, LIST+2!, TPRV+3!, DPRV+3!, BNIG+26!, GUIEP+12, ENDLOG+3 , ENDLOG+5!
DD	BNIG+21!
DFOUT	EOP+4!
DIADD	BNIG+24*, BNIG+26!
DIC	OPRV+1!, TPRV+3!, DPRV+3!, BNIG+21!, BNIG+24, BNIG+26!
DIC("A"	OPRV+1*
DIC("DR"	BNIG+23*
DIC("S"	TPRV+3, DPRV+3
DIC(0	OPRV+1, TPRV+3, DPRV+3, BNIG+24
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+12*
DIR	BD+4!, ED+4!, PROV+3!, PROV+4!, SUB+2!, SUB+4!, LIST+2!, LHDR+2!, HEADER+2!, EOP+3~ , EOP+4!, EOP+5!
DIR("?"	BD+3, ED+3
DIR("A"	BD+3, ED+3, PROV+4, SUB+4, LIST+2*
DIR("B"	PROV+4, SUB+4, LIST+2*
DIR(0	BD+3, ED+3, PROV+4, SUB+2, SUB+3, LIST+2, LHDR+2, HEADER+2, EOP+5*
DIRUT	BD+5, ED+5, PROV+5, SUB+5, LIST+3, XIT+2!, EOP+4!
DLAYGO	BNIG+24*, BNIG+26!
DLOUT	EOP+4!
DR	ENDLOG+3*, ENDLOG+5!
DT	BD+10, ED+10, PROCESS+3, LHDR1+3, HEAD1+3, GUIEP+11
DTOUT	LHDR+2, HEADER+2, EOP+4!
DUOUT	EOP+4!
DUZ	LHDR1+3, HEAD1+3, USR+1, BNIG+23
DUZ(2	LHDR1+7, HEAD1+6, LOC+1
H	XIT+2!
IO	LHDR+2, HEADER+2
IO("Q"	XIT+2!
IO("S"	EOP+2
IO(0	LHDR+2, HEADER+2
IOF	LHDR1+1, HEAD1+1, INFORM+1
IOM	CTR+1, GUIEP+3*
IOSL	PRINT+5, PRINT+10, PRINT+12, LISTP+4, LISTP+11
IOST	LHDR+2, HEADER+2, EOP+1
M	XIT+2!
POP	XIT+2!
R	GPRA~
S	XIT+2!
TS	XIT+2!
U	PROC1+3, SET+1, SET+3, SET+5, SET+6, SET+22, SET+24, SET+26, SET+28, SET+29 , PRINT+6, PRINT+7, PRINT+8, PRINT+11, LISTP+5, GPRA+3, LHDR1+3, LHDR1+7, HEAD1+3, HEAD1+6 , USR+1, LOC+1
X	BD+6, BD+8, ED+6, ED+8, ED+13, SET+9, SET+11, SET+13, SET+15, SET+17* , SET+20, SET+21, SET+22, SET+23, SET+24, SET+26, SET+27, SET+28, SET+29, GPRA+1* , GPRA+2, GPRA+3, C~, C+2, LHDR1+8, HEAD1+7, HEAD1+8, XIT+2!, TPRV+3, DPRV+3* , CTR~, CTR+1, BNIG+8~, BNIG+9, BNIG+11~, BNIG+12, BNIG+15, BNIG+22, GUIEP+5, GUIEP+8
X1	ED+13, XIT+2!, BNIG+15
X2	ED+13, C~, XIT+2!, BNIG+15
X3	C~
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	BD+7, BD+8, BD+9, BD+10, BD+11, ED+7, ED+8, ED+9, ED+10, ED+11 , PROV+6, SUB+6, LIST+4, LHDR+2, HEADER+2, HEAD1+8, XIT+2!, OPRV+2, OPRV+3, TPRV+3 , TPRV+4, DPRV+3, DPRV+4, CTR~, CTR+1, BNIG+8~, BNIG+9, BNIG+11~, BNIG+12*, BNIG+13 , BNIG+27, BNIG+28
Z	BNIG+11~, BNIG+13*
>> ZTDESC	BNIG+33*
>> ZTDTH	BNIG+33*
>> ZTIO	BNIG+33*
ZTQUEUED	XIT+2!, EOP+2
>> ZTREQ	GUIEP+14*
>> ZTRTN	BNIG+33*
ZTSAVE	BNIG+31!
ZTSAVE("*"	BNIG+31*
ZTSK	XIT+2!

Marked Items

Name	Field # of Occurrence
$T(@BNIGSUB	HEAD1+8

Customize PDF page

Package: Computerized Public Health Activity Data

Routine: BNIRP1

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 1

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