Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BNIE

Package: Computerized Public Health Activity Data

Routine: BNIE


Information

BNIE ; IHS/CMI/LAB - Data entry for BNI ;

Source Information

Source file <BNIE.m>

Call Graph

Call Graph Total: 20

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  

Caller Graph

Caller Graph Total: 1

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~

Marked Items

Name Field # of Occurrence
$T(TEXT+J START+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All