Routine: BNIE

Package	Total	Call Graph
VA Fileman	10	EN^DDIOL ^DDS (REFRESH,REQ,UNED)^DDSUTL ($$GET,PUT)^DDSVAL ^DIC FILE^DICN ^DIE ^DIK EN^DIQ ^DIR
IHS VA Utilities	3	$$VAL^XBDIQ1 ^XBFMK EN^XBVK
Kernel	3	$$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
Computerized Public Health Activity Data	1	^BNIRD

Package	Total	Caller Graph
Computerized Public Health Activity Data	1	BNIGU

Entry Points

Name	Comments	DBIA/ICR reference
MNTH	;
ALLOW(R)	;EP
HDR	;EP -- header code
ASPOST	;EP - called from screenman
EOJ	;EOJ CLEANUP
GSPOST	;EP - called from screenman
BACK	;EP
EXPND	; -- expand code
PAUSE	;EP
EDITX	;
REC	;
GETSITE	;
YR	;
HELP	;EP -- help code
ATIP(X)	;EP - called from input transform on activity time field
SHTPOST	;EP - called from screenman
COMM(I)	;EP - called from screen on dd 90510 field .16
INIT	;EP -- init variables and list array
TEXT	;
CHECKREC	;
DATE(D)	;
SHT(G)	;EP - called from screenman screen
TOAPOST	;EP - called from screenman
EN	; EP -- main entry point for BNI UPDATE ACTIVITY RECORDS
GHCPOST	;EP - called from screenman
START1	;
START	; Write Header
ADD	;EP - ADD a record
DELR	;
WHICH	;
ADDR1	;
SHTSCR(I)	;EP - called from screen on dd 90510 FIELD .12
DISPR	;EP - called from protocol to display a record
ADDR	;
ADDQ	;
DISPX	;
EDIT	;EP
GATHER	;
ADDX	;
EDIT1	;
EDITR	;EP - called from protocol
EXIT	; -- exit code
DELETERX	;
DELETER	;EP - called from protocol to display a record

External References

Name	Field # of Occurrence
^BNIRD	DISPR+7
EN^DDIOL	ATIP+1
^DDS	ADDR1+1, EDIT1+1
REFRESH^DDSUTL	GHCPOST+13, SHTPOST+5, TOAPOST+5, GSPOST+5, ASPOST+5
REQ^DDSUTL	GHCPOST+1, SHTPOST+1, TOAPOST+1, GSPOST+1, ASPOST+1
UNED^DDSUTL	GHCPOST+4, SHTPOST+4, TOAPOST+4, GSPOST+4, ASPOST+4
$$GET^DDSVAL	GHCPOST+7
PUT^DDSVAL	GHCPOST+2, GHCPOST+3, GHCPOST+8, GHCPOST+11, SHTPOST+2, SHTPOST+3, TOAPOST+2, TOAPOST+3, GSPOST+2, GSPOST+3 , ASPOST+2, ASPOST+3
^DIC	GETSITE+2, WHICH+3
FILE^DICN	ADDR+3
^DIE	ADDR+7, EDIT+1
^DIK	DELR+2
EN^DIQ	DELETER+8
^DIR	ADDQ+4, MNTH+2, YR+6, ADDR1+7, PAUSE+1, EDITR+1, EDIT1+7, DISPR+1, DELETER+1, DELETER+9
EN^VALM	EN+2
TERM^VALM0	BACK+1
CLEAR^VALM1	EOJ+1, EN+3, CHECKREC+1
FULL^VALM1	START1+9, ADD+1, CHECKREC+1, EDITR+6, EDITR+8, DISPR+6, DELETER+6
$$VAL^XBDIQ1	REC+6, REC+7, REC+8, REC+9, DELR+1
^XBFMK	WHICH+2
EN^XBVK	EOJ+2
$$FMTE^XLFDT	YR+3
$$REPEAT^XLFSTR	HDR+1, HDR+3, EDITR+7
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(X)\2,X Line Location: START+3
Function Call: WRITE	Prompt: !!,"Site parameters have not been set up. Please see the system manager." Line Location: START1+1
Function Call: WRITE	Prompt: !! Line Location: START1+2
Function Call: WRITE	Prompt: ! Line Location: GETSITE+2
Function Call: WRITE	Prompt: ! Line Location: WHICH+3
Function Call: WRITE	Prompt: ! Line Location: ADDQ+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !! Line Location: ADD+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: YR+8
Function Call: WRITE	Prompt: !!,"Future dates are not allowed!",! Line Location: YR+11
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"CPHAD Record is NOT complete!! Deleting Record.",! Line Location: ADDR+4
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: ADDR1+2
Function Call: WRITE	Prompt: !!,"Deleting CPHAD record for ",$$VAL^XBDIQ1(90510,BNIR,.01) Line Location: DELR+1
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDITR+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: EDITR+3
Function Call: WRITE	Prompt: !,"Not a valid CPHAD RECORD." Line Location: EDITR+5
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: EDITR+7
Function Call: WRITE	Prompt: !,"You are editing the following record:",!!,VALMHDR(4),!,$$REPEAT^XLFSTR("-",80),! Line Location: EDITR+7
Function Call: WRITE	Prompt: ^TMP("BNIRECS",$J,BNIR1,0),!!! Line Location: EDITR+7
Function Call: WRITE	Prompt: !!,"ERROR IN SCREENMAN FORM!! *NOTIFY PROGRAMMER*" Line Location: EDIT1+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DISPR+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DISPR+3
Function Call: WRITE	Prompt: !,"Not a valid CPHAD RECORD." Line Location: DISPR+5
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DELETER+2
Function Call: WRITE	Prompt: !,"No record selected." Line Location: DELETER+3
Function Call: WRITE	Prompt: !,"Not a valid CPHAD RECORD." Line Location: DELETER+5
Function Call: WRITE	Prompt: !! Line Location: DELETER+9
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: ADDR+7 EDIT+1
Routine Call	DDS Line Location: ADDR1+1 EDIT1+1
Routine Call	DIC Line Location: GETSITE+2 WHICH+3
Routine Call	DIR Line Location: ADDQ+4 MNTH+2 YR+6 ADDR1+7 PAUSE+1 EDITR+1 EDIT1+7 DISPR+1 DELETER+1 DELETER+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(11 - [#11]	REQ^DDSUTL, UNED^DDSUTL
^DIC(13 - [#13]	REQ^DDSUTL, UNED^DDSUTL
^DIC(5 - [#5]	REQ^DDSUTL, UNED^DDSUTL
^DIC(7 - [#7]	REQ^DDSUTL, UNED^DDSUTL
^BNIREC - [#90510]	Classic Fileman Calls
^BNISITE - [#90512.01]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BNIAS - [#90511.05]	ASPOST+1, ASPOST+3, ASPOST+4, CHECKREC+14, CHECKREC+15
^BNIGHC - [#90511.01]	GHCPOST+1, GHCPOST+3, GHCPOST+4, CHECKREC+6, CHECKREC+7
^BNIGS - [#90511.04]	GSPOST+1, GSPOST+3, GSPOST+4, CHECKREC+12, CHECKREC+13
^BNIREC - [#90510]	GATHER+8, CHECKREC+2, CHECKREC+4, CHECKREC+6, CHECKREC+8, CHECKREC+10, CHECKREC+12, CHECKREC+14, EDITR+5, DISPR+5 , DELETER+5, ALLOW+2, ALLOW+3
^BNIREC("AE"	GATHER+4, GATHER+5
^BNISHT - [#90511.02]	SHT+4, GHCPOST+10, SHTPOST+1, SHTPOST+3, SHTPOST+4, SHTSCR+2, CHECKREC+8, CHECKREC+9
^BNISHT("AA"	SHT+3
^BNISITE - [#90512.01]	COMM+5, COMM+9, CHECKREC+4, ALLOW+1
^BNISITE(0	START1+1
^BNITOA - [#90511.03]	TOAPOST+1, TOAPOST+3, TOAPOST+4, CHECKREC+10, CHECKREC+11
^DD(90510	CHECKREC+3
^DIC(4 - [#4]	GETSITE+2
^TMP("BNIRECS"	HDR+4!, GATHER+7, GATHER+9, EXIT+1!, EDITR+4, EDITR+7, DISPR+4, DELETER+4
^TMP($J	GATHER+2!
^VA(200 - [#200]	WHICH+3, HDR+2, REC+3

Label References

Name	Line Occurrences
$$ALLOW	GATHER+6
$$DATE	REC+2
$$SHT	GHCPOST+8, GHCPOST+11
ADDQ	START1+7
ADDR1	ADDR1+5
ADDX	MNTH+3, ADDR+4, ADDR1+2, ADDR1+5
BACK	ADDX+1, EDIT1+2, EDITX+1, DISPX+1, DELETERX+1
CHECKREC	ADDR1+4, EDIT1+4
DELETERX	DELETER+2, DELETER+3, DELETER+4, DELETER+5, DELETER+10, DELETER+11
DELR	ADDR1+5, EDIT1+5, DELETER+12
DISPX	DISPR+2, DISPR+3, DISPR+4, DISPR+5
EDIT1	EDIT1+5
EDITX	EDITR+2, EDITR+3, EDITR+4, EDITR+5, EDIT1+5
EN	START1+9
EOJ	START+1, START1+1, START1+4, START1+6, START1+10
EXIT	START1+9
GATHER	INIT+3
GETSITE	START1+3
INIT	BACK+3
MNTH	YR+7, YR+11
PAUSE	START1+1, MNTH+3, YR+7, ADDR+4, ADDR1+2, ADDR1+5, EDITR+2, EDITR+3, EDITR+4, EDITR+5 , EDIT1+2, EDIT1+5, DISPR+2, DISPR+3, DISPR+4, DISPR+5, DELETER+2, DELETER+3, DELETER+4, DELETER+5
REC	GATHER+8
START1	START1+8
WHICH	START1+5
YR	YR+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ATIP+3~, ATIP+4*, ATIP+5
>> BNIA	ADDR1+5, ADDR1+6, ADDR1+8, ADDR1+9, EDIT1+5, EDIT1+6, EDIT1+8, EDIT1+9
>> BNIADDQ	START1+8, ADDQ+1, ADDQ+6, ADDR1+1, EDIT1+1
>> BNIDATE	MNTH+1, YR+10, YR+11, ADDR+1
>> BNIIDAT	GATHER+4*, GATHER+5
BNIKDTIM	EN+5!
>> BNIMNTH	MNTH+1, MNTH+4, YR+10
>> BNIPER	YR+2*
>> BNIPRV	START1+6, WHICH+1, WHICH+5, HDR+2, ADDR+2
BNIR	ADDR+6, ADDR+7, ADDR1+1, CHECKREC+2, CHECKREC+4, CHECKREC+6, CHECKREC+8, CHECKREC+10, CHECKREC+12, CHECKREC+14 , DELR+1, DELR+2, EDITR+4!, EDITR+5!, EDIT+1, EDIT1+1, DISPR+4!, DISPR+5!, DISPR+7, DELETER+4! , DELETER+5!, DELETER+8
>> BNIR1	EDITR+3, EDITR+4, EDITR+7, DISPR+3, DISPR+4, DELETER+3*, DELETER+4
BNIRCNT	HDR+4, INIT+4, GATHER+2, GATHER+4, GATHER+7, GATHER+9, EXIT+1!, BACK+4, EDITR+1, DISPR+1 , DELETER+1
BNIRDEL	EDITR+4!, EDITR+5!, DISPR+4!, DISPR+5!, DELETER+4!, DELETER+5!
BNIREC	GATHER+8, GATHER+10!, REC+2, REC+3, REC+5, DISPR+7
>> BNIRS	GATHER+7*, REC+1
>> BNISITE	START1+4, GETSITE+1, GETSITE+4, COMM+1, COMM+5, COMM+9, CHECKREC+4, ALLOW+1
>> BNISMGNC	GHCPOST+5*, GHCPOST+8, GHCPOST+10, GHCPOST+11, SHTSCR+1, SHTSCR+2
BNIV	GATHER+5*, GATHER+6, GATHER+7, GATHER+8, GATHER+10!, REC+6, REC+7, REC+8, REC+9
>> BNIVDT	YR+2*
BNIX	GATHER+9, GATHER+10!, REC+1, REC+2, REC+4, REC+5, REC+6, REC+7, REC+8, REC+9
>> BNIYR	MNTH+1, YR+1, YR+9*, YR+10
C	GATHER+4*, COMM+2~
D	DATE~, DATE+1
D0	ADDR+3!
DA	ADDQ+4!, GHCPOST+2, GHCPOST+3, GHCPOST+7, GHCPOST+8, GHCPOST+11, SHTPOST+2, SHTPOST+3, TOAPOST+2, TOAPOST+3 , GSPOST+2, GSPOST+3, ASPOST+2, ASPOST+3, MNTH+2!, ADDR+7!, ADDR1+1, ADDR1+7!, DELR+2!, EDIT+1! , EDIT1+1, EDIT1+7!, DELETER+8
DD	ADDR+3!
>> DDSFILE	ADDR1+1, EDIT1+1
DIADD	ADDR+1, ADDR+3!, EDIT+1!
DIC	GETSITE+2!, WHICH+3!, ADDR+1!, ADDR+3!, DELETER+8
DIC("A"	GETSITE+2, WHICH+3
DIC("B"	GETSITE+2, WHICH+3
DIC("DR"	ADDR+2*
DIC(0	GETSITE+2, WHICH+3, ADDR+1*
DIE	GHCPOST+2, GHCPOST+3, GHCPOST+7, GHCPOST+8, GHCPOST+11, SHTPOST+2, SHTPOST+3, TOAPOST+2, TOAPOST+3, GSPOST+2 , GSPOST+3, ASPOST+2, ASPOST+3, ADDR+3!, ADDR+7!, EDIT+1!
DIK	DELR+2*!
>> DIMSG	ADDR1+2, EDIT1+2
DIR	ADDQ+3!, ADDQ+4!, MNTH+2!, YR+3!, YR+6!, ADDR1+6!, ADDR1+7!, PAUSE+1!, EDITR+1!, EDIT1+6! , EDIT1+7!, DISPR+1!, DELETER+1!, DELETER+9!
DIR("?"	YR+5*
DIR("A"	ADDQ+4, MNTH+2, YR+4, ADDR1+7, PAUSE+1, EDITR+1, EDIT1+7, DISPR+1, DELETER+1, DELETER+9
DIR("B"	ADDQ+4, YR+3, ADDR1+7, EDIT1+7, DELETER+9*
DIR(0	ADDQ+4, MNTH+2, YR+3, ADDR1+7, PAUSE+1, EDITR+1, EDIT1+7, DISPR+1, DELETER+1, DELETER+9
>> DIRUT	ADDQ+5, MNTH+3, YR+7, ADDR1+8, PAUSE+1, EDITR+1, EDITR+2, EDIT1+8, DISPR+1, DISPR+2 , DELETER+1, DELETER+2, DELETER+9*, DELETER+10
DLAYGO	ADDR+1*, ADDR+3!
DO	ADDR+3!
DR	ADDR+3!, ADDR+7!, ADDR1+1, EDIT+1!, EDIT1+1
DR(2	ADDR+7, EDIT+1
DT	YR+3, YR+11, ADDR+2
>> DUOUT	PAUSE+1, EDITR+1, DISPR+1, DELETER+1, DELETER+9
DUZ	WHICH+3, ADDR+2, ALLOW+1, ALLOW+2, ALLOW+3
DUZ(2	GETSITE+2, ADDR+2
>> F	CHECKREC+2*, CHECKREC+3
G	SHT~, SHT+1, SHT+3
I	SHTSCR~, SHTSCR+2, COMM~, COMM+9
IOF	START+2, EDITR+7
J	START+3*, START+4!
>> Q	ADDR1+5, CHECKREC+2, CHECKREC+3, CHECKREC+5, CHECKREC+7, CHECKREC+9, CHECKREC+11, CHECKREC+13, CHECKREC+15, EDIT1+5
R	ALLOW~, ALLOW+2, ALLOW+3
U	GETSITE+2, WHICH+3, HDR+2, REC+2, REC+3, REC+5, SHT+4, GHCPOST+1, GHCPOST+3, GHCPOST+4 , GHCPOST+10, SHTPOST+1, SHTPOST+3, SHTPOST+4, TOAPOST+1, TOAPOST+3, TOAPOST+4, GSPOST+1, GSPOST+3, GSPOST+4 , ASPOST+1, ASPOST+3, ASPOST+4, SHTSCR+2, CHECKREC+2, CHECKREC+3, CHECKREC+4, CHECKREC+6, CHECKREC+7, CHECKREC+8 , CHECKREC+9, CHECKREC+10, CHECKREC+11, CHECKREC+12, CHECKREC+13, CHECKREC+14, CHECKREC+15, ALLOW+2, ALLOW+3
>> VALMBCK	BACK+2*
VALMCC	EN+1*, EXIT+2!
>> VALMCNT	INIT+4, INIT+5, BACK+4
VALMHDR	EXIT+2!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
VALMHDR(4	HDR+4, HDR+5, EDITR+7
>> VALMSG	INIT+2, INIT+5
VALMY	EDITR+3!, DISPR+3!, DELETER+3!
X	START+3, START+4!, HDR+5, REC+3, REC+4, HELP+1, SHT+2~, SHT+3, SHT+4, GHCPOST+1 , GHCPOST+2, GHCPOST+3, GHCPOST+4, GHCPOST+5, SHTPOST+1, SHTPOST+2, SHTPOST+3, SHTPOST+4, TOAPOST+1, TOAPOST+2 , TOAPOST+3, TOAPOST+4, GSPOST+1, GSPOST+2, GSPOST+3, GSPOST+4, ASPOST+1, ASPOST+2, ASPOST+3, ASPOST+4 , ADDR+1, ADDR+3!, CHECKREC+6, CHECKREC+7, CHECKREC+8, CHECKREC+9, CHECKREC+10, CHECKREC+11, CHECKREC+12, CHECKREC+13 , CHECKREC+14*, CHECKREC+15, ATIP~, ATIP+1, ATIP+2, ATIP+4
XQORNOD	EDITR+3!, DISPR+3!, DELETER+3!
>> Y	GETSITE+3, GETSITE+4, WHICH+4, WHICH+5, ADDQ+6, MNTH+4, YR+8, YR+9, ADDR+4, ADDR+6 , ADDR1+9, EDITR+3, DISPR+3, DELETER+3, DELETER+11
Z	GHCPOST+6~, GHCPOST+7*, GHCPOST+8, GHCPOST+9, GHCPOST+10, COMM+2~

Customize PDF page

Package: Computerized Public Health Activity Data

Routine: BNIE

Information

Source Information

Call Graph

Call Graph Total: 20

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

Local Variables

Legend:

Marked Items