Routine: BNIRP6

Package	Total	Call Graph
VA Fileman	6	^%DT (C,COMMA,NOW)^%DTC 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

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LHDR1	;
GUIEP	;EP - called from taskman
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
D(D)	;EP
LHDR	;
PRINT	;EP - called from xbdbque
SET	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
BNIG(BNIERR,BNIJOB,BNIBTH,BNIGBD,BNIGED,BNILIST,BNIRDT)	;PEP - gui call
INFORM	;
DATE(D)	;EP
ZIS	;call to XBDBQUE
ED	;get ending date
ENDLOG	;-- write the end of the log
HEADER	;
XIT	;
C(X,X2,X3)	;
PROC1	;
HEAD1	;
START	;
PROCESS	;EP - called from xbdbque
GPRA(R)	;
LIST	;
LISTP	;
GETDATES	;

External References

Name	Field # of Occurrence
^%DT	BD+8, ED+8
C^%DTC	ED+13, BNIG+7
COMMA^%DTC	C+1
NOW^%DTC	BNIG+11, ENDLOG+1
^%ZTLOAD	BNIG+25
FILE^DICN	BNIG+17
^DIE	ENDLOG+4
IX1^DIK	GUIEP+12
^DIR	BD+4, ED+4, LIST+2, LHDR+2, HEADER+2, EOP+5
^XBDBQUE	ZIS+2
$$VAL^XBDIQ1	SET+4, LISTP+5, LISTP+6, LISTP+7, LISTP+8
$$VALI^XBDIQ1	PROC1+3, GPRA+1
^XBFMK	BNIG+22
GUIR^XBLM	GUIEP+4
EN^XBVK	XIT+1
$$FMADD^XLFDT	PROCESS+3
$$FMTE^XLFDT	ED+12, DATE+3, D+2, LHDR1+3, LHDR1+8, HEAD1+3, HEAD1+7, BNIG+6
$$NOW^XLFDT	BNIG+25
$$REPEAT^XLFSTR	LHDR1+10, HEAD1+8

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: !!!,"GRAND TOTALS:",?55,$$C(BNIGTOTR,0,8),?68,$$C(BNIGTOTT,2,12) Line Location: PRINT+8
Function Call: WRITE	Prompt: ! Line Location: PRINT+10
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 for GPRA Elements *",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 for GPRA Elements *",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: !,$$REPEAT^XLFSTR("-",80) Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,?1,"SPECIFIC HEALTH TOPIC (GPRA RELATED)",?55,"# RECORDS",?73,"Hrs" Line Location: HEAD1+9
Function Call: WRITE	Prompt: !?55,"---------",?73,"---" Line Location: HEAD1+10
Function Call: WRITE	Prompt: ! Line Location: HEAD1+11
Function Call: WRITE	Prompt: !!,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,$$CTR("TIME SPENT for GPRA Elements") Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will only look at Specific Health Topics that are GPRA" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"related." Line Location: INFORM+5
Function Call: WRITE	Prompt: ! Line Location: INFORM+6
Routine Call	DIE Line Location: ENDLOG+4
Routine Call	DIR Line Location: BD+4 ED+4 LIST+2 LHDR+2 HEADER+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^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]	PROC1+5, GPRA+3
^DIC(4 - [#4]	LHDR1+7, HEAD1+6, LOC+1
^TMP($J	GUIEP+2!, GUIEP+5, GUIEP+8
^VA(200 - [#200]	LHDR1+3, HEAD1+3, USR+1
^XTMP("BNIRP6"	PROCESS+3, SET+1, LISTP+2, LISTP+3, LISTP+16!

Label References

Name	Line Occurrences
$$C	PRINT+6, PRINT+8
$$CTR	LHDR1+4, LHDR1+5, LHDR1+6, LHDR1+7, LHDR1+8, HEAD1+4, HEAD1+5, HEAD1+6, HEAD1+7, INFORM+2 , INFORM+3
$$D	LISTP+5
$$GPRA	LISTP+6
$$LOC	INFORM+2
BD	BD+7, BD+9, BD+10
ED	ED+7, ED+9, ED+10
ENDLOG	GUIEP+13
EOP	PRINT+10
GETDATES	LIST+3
HEAD1	HEADER+1
HEADER	PRINT+2, PRINT+4, PRINT+7
INFORM	START+1
LHDR	LISTP+1, LISTP+4, LISTP+11
LHDR1	LHDR+1
LISTP	PRINT+9
PROC1	PROCESS+6
PROCESS	GUIEP+1
SET	PROC1+6
XIT	ZIS+3, BNIG+26

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+12, ENDLOG+2
%DT	BD+8!, ED+8!
>> BNIBG	BNIG+3, BNIG+7
BNIBTH	BNIG~, BNIG+2, BNIG+14
>> 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+6
>> BNIGBDD	ED+12, BNIG+6
BNIGDATA	PROCESS+2!
BNIGDATA(	SET+6, SET+7, SET+8*, PRINT+3, PRINT+6
BNIGED	ED+2, ED+11, ED+12, PROCESS+5, LHDR1+8, HEAD1+7, BNIG~, BNIG+6
>> BNIGEDD	ED+12, BNIG+6
>> BNIGIEN	BNIG+21*
>> BNIGPG	PRINT+1, LHDR+1, LHDR1+1, LHDR1+3, HEADER+1, HEAD1+1*, HEAD1+3
>> BNIGQUIT	PRINT+1, PRINT+3, PRINT+4, PRINT+7, LISTP+2, LISTP+3, LISTP+4, LISTP+10, LISTP+11, LHDR+2 , HEADER+2*
>> BNIGSD	ED+13, PROCESS+4, PROCESS+5, PROCESS+6, BNIG+7
>> BNIGTOTR	PROCESS+1, SET+2, PRINT+8
>> BNIGTOTT	PROCESS+1, SET+3, PRINT+8
>> 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+19, BNIG+20*, BNIG+21, GUIEP+10, GUIEP+11 , GUIEP+12, ENDLOG+3
>> BNIJ	PROCESS+1*, SET+1, LISTP+2, LISTP+3, LISTP+16
BNIJOB	BNIG~, BNIG+1, BNIG+14
BNILIST	LIST+1!, LIST+4*, SET+1, PRINT+9, BNIG~, BNIG+5
>> BNINOW	BNIG+12, BNIG+15, ENDLOG+2, ENDLOG+3
BNIOPT	BNIG+9~, BNIG+10*, BNIG+15, BNIG+25
>> BNIPRV	SET+4, SET+5, SET+6, SET+7, SET+8, PRINT+3*, PRINT+5, PRINT+6
>> BNIR	PROCESS+6, PROC1+1, PROC1+3, SET+1, SET+4, 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, SET+1, SET+3, SET+8
>> BNIX	LISTP+10*, LISTP+12
>> C	GUIEP+5, GUIEP+6, GUIEP+10, GUIEP+11
D	DATE~, DATE+1, DATE+3, D~, D+1, D+2
D0	BNIG+13!
DA	BD+4!, ED+4!, LIST+2!, BNIG+18!, GUIEP+12, ENDLOG+3, ENDLOG+5!
DD	BNIG+13!
DFOUT	EOP+4!
DIADD	BNIG+16*, BNIG+18!
DIC	BNIG+13!, BNIG+16*, BNIG+18!
DIC("DR"	BNIG+15*
DIC(0	BNIG+16*
DIE	ENDLOG+3*, ENDLOG+5!
>> DIK	GUIEP+12*
DIR	BD+4!, ED+4!, LIST+2!, LHDR+2!, HEADER+2!, EOP+3~, EOP+4!, EOP+5!
DIR("?"	BD+3, ED+3
DIR("A"	BD+3, ED+3, LIST+2*
DIR("B"	LIST+2*
DIR(0	BD+3, ED+3, LIST+2, LHDR+2, HEADER+2, EOP+5
DIRUT	BD+5, ED+5, LIST+3, XIT+2!, EOP+4!
DLAYGO	BNIG+16*, BNIG+18!
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+15
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+4, PRINT+7, 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+5, SET+1, SET+3, SET+7, SET+8, PRINT+6, 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, PROC1+3, PROC1+4, PROC1+5, GPRA+1, GPRA+2 , GPRA+3, C~, C+2, LHDR1+8, HEAD1+7, XIT+2!, CTR~, CTR+1, BNIG+7, BNIG+14* , GUIEP+5*, GUIEP+8
X1	ED+13, XIT+2!, BNIG+7
X2	ED+13, C~, XIT+2!, BNIG+7
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 , LIST+4, LHDR+2, HEADER+2, XIT+2!, CTR~, CTR+1, BNIG+19, BNIG+20
>> ZTDESC	BNIG+25*
>> ZTDTH	BNIG+25*
>> ZTIO	BNIG+25*
ZTQUEUED	XIT+2!, EOP+2
>> ZTREQ	GUIEP+14*
>> ZTRTN	BNIG+25*
ZTSAVE	BNIG+23!
ZTSAVE("*"	BNIG+23*
ZTSK	XIT+2!

Customize PDF page

Package: Computerized Public Health Activity Data

Routine: BNIRP6

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: