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 |  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: BNIG

Package: Computerized Public Health Activity Data

Routine: BNIG


Information

BNIG ; IHS/CMI/LAB - group entry for bni ;

Source Information

Source file <BNIG.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 8 ^DDS  (REFRESH,REQ,UNED)^DDSUTL  ($$GET,PUT)^DDSVAL  ^DIC  FILE^DICN  ^DIE  (,IX1)^DIK  ^DIR  
IHS VA Utilities 1 EN^XBVK  
Kernel 1 $$FMTE^XLFDT  
Registration 1 (CLEAR,FULL)^VALM1  

Entry Points

Name Comments DBIA/ICR reference
MNTH ;
GROUP ;
ASPOST ;EP - called from screenman
EOJ ;EOJ CLEANUP
GSPOST ;EP - called from screenman
GETSITE ;
YR ;
AGR ;
SHTPOST ;EP - called from screenman
COMM(I) ;EP - called from screen on dd 90510 field .16
TEXT ;
CHECKREC ;
DATE(D) ;
SHT(G) ;EP - called from screenman screen
TOAPOST ;EP - called from screenman
PAUSE ;EP
GHCPOST ;EP - called from screenman
START1 ;
START ; Write Header
DELR ;
ADDR1 ;
SHTSCR(I) ;EP - called from screen on dd 90510 FIELD .12
ADDR ;
ADDQ ;

External References

Name Field # of Occurrence
^DDS ADDR1+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
FILE^DICN ADDR+3, GROUP+10
^DIE GROUP+14
^DIK DELR+1
IX1^DIK GROUP+21
^DIR MNTH+2, YR+6, ADDR1+7, GROUP+3, ADDQ+4, PAUSE+1
CLEAR^VALM1 EOJ+1
FULL^VALM1 AGR+1
EN^XBVK EOJ+2
$$FMTE^XLFDT YR+3

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: AGR+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 Group 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: !!,"I will now create an individual activity record for the following:"
  • Line Location: GROUP+1
Function Call: WRITE
  • Prompt: !?5,$P(^VA(200,$P(^BNIGROUP(BNIGR,16,X,0),U),0),U)
  • Line Location: GROUP+2
Function Call: WRITE
  • Prompt: !!,"No records created."
  • Line Location: GROUP+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Creating record for ",$P(^VA(200,BNIPRV,0),U)," failed!! Deleting Record.",!
  • Line Location: GROUP+11
Function Call: WRITE
  • Prompt: !,"Records created."
  • Line Location: GROUP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: GETSITE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDQ+2
Function Call: WRITE
  • Prompt: !!,"You must enter at least one participating individual."
  • Line Location: CHECKREC+15
Routine Call
  • DIE
  • Line Location:
    • GROUP+14
Routine Call
  • DDS
  • Line Location:
    • ADDR1+1
Routine Call
  • DIC
  • Line Location:
    • GETSITE+2
Routine Call
  • DIR
  • Line Location:
    • MNTH+2
    • YR+6
    • ADDR1+7
    • GROUP+3
    • ADDQ+4
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(10 - [#10] REQ^DDSUTL,  UNED^DDSUTL
^DIC(12 - [#12] REQ^DDSUTL,  UNED^DDSUTL
^DIC(4 - [#4] REQ^DDSUTL,  UNED^DDSUTL
^DIC(6 - [#6] REQ^DDSUTL,  UNED^DDSUTL
^DIC(8 - [#8] REQ^DDSUTL,  UNED^DDSUTL
^BNIREC - [#90510] Classic Fileman Calls
^BNIGROUP - [#90510.5] Classic Fileman Calls
^BNISITE - [#90512.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] COMM+6, COMM+7
^AUTTCOM - [#9999999.05] COMM+5
^BNIAS - [#90511.05] ASPOST+1, ASPOST+3, ASPOST+4, CHECKREC+13, CHECKREC+14
^BNIGHC - [#90511.01] GHCPOST+1, GHCPOST+3, GHCPOST+4, CHECKREC+5, CHECKREC+6
^BNIGROUP - [#90510.5] GROUP+2, GROUP+5, GROUP+6, GROUP+15, GROUP+16, GROUP+17, GROUP+18, GROUP+19, CHECKREC+1, CHECKREC+3
, CHECKREC+5, CHECKREC+7, CHECKREC+9, CHECKREC+11, CHECKREC+13, CHECKREC+15
^BNIGS - [#90511.04] GSPOST+1, GSPOST+3, GSPOST+4, CHECKREC+11, CHECKREC+12
^BNIREC - [#90510] GROUP+15*, GROUP+16*, GROUP+17*, GROUP+19*, GROUP+20*
^BNISHT - [#90511.02] SHT+4, GHCPOST+10, SHTPOST+1, SHTPOST+3, SHTPOST+4, SHTSCR+2, CHECKREC+7, CHECKREC+8
^BNISHT("AA" SHT+3
^BNISITE - [#90512.01] COMM+3, CHECKREC+3
^BNISITE(0 START1+1
^BNITOA - [#90511.03] TOAPOST+1, TOAPOST+3, TOAPOST+4, CHECKREC+9, CHECKREC+10
^DD(90510 CHECKREC+2
^DIC(4 - [#4] GETSITE+2
^VA(200 - [#200] GROUP+2, GROUP+7, GROUP+11

Label References

Name Line Occurrences
$$SHT GHCPOST+8, GHCPOST+11
ADDQ START1+5
ADDR1 ADDR1+5
CHECKREC ADDR1+4
DELR ADDR1+5
EOJ START+1, START1+1, START1+4, MNTH+3, ADDR+4, ADDR1+2, ADDR1+5, GROUP+4, GROUP+11, GROUP+24
GETSITE START1+3
MNTH YR+7, YR+11
PAUSE START1+1, MNTH+3, YR+7, ADDR+4, ADDR1+2, ADDR1+5, GROUP+4, GROUP+11, GROUP+23
START1 START1+6
YR YR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BNIA ADDR1+5, ADDR1+6*, ADDR1+8*, ADDR1+9*
>> BNIADDQ START1+6, ADDR1+1, ADDQ+1*, ADDQ+6*
>> BNIDATE MNTH+1*, YR+10*, YR+11, ADDR+1, GROUP+8
>> BNIGR ADDR+6*, ADDR1+1, GROUP+2, GROUP+5, GROUP+6, GROUP+15, GROUP+16, GROUP+17, GROUP+18, GROUP+19
, CHECKREC+1, CHECKREC+3, CHECKREC+5, CHECKREC+7, CHECKREC+9, CHECKREC+11, CHECKREC+13, CHECKREC+15, DELR+1
>> BNIMNTH MNTH+1*, MNTH+4*, YR+10
>> BNIPER YR+2*
>> BNIPRV GROUP+6*, GROUP+7, GROUP+9, GROUP+11
>> BNIR GROUP+13*, GROUP+14, GROUP+15, GROUP+16, GROUP+17, GROUP+19, GROUP+20, GROUP+21
>> BNISITE START1+4, GETSITE+1*, GETSITE+4*, COMM+1, COMM+3, CHECKREC+3
>> BNISMGNC GHCPOST+5*, GHCPOST+8, GHCPOST+10, GHCPOST+11, SHTSCR+1, SHTSCR+2
>> BNIVDT YR+2*
>> BNIW GROUP+18*, GROUP+19, GROUP+20
>> BNIX GROUP+5*, GROUP+6
>> BNIYR MNTH+1*, YR+1*, YR+9*, YR+10
>> BNIZ GROUP+15*, GROUP+16*, GROUP+17*
C COMM+2~, COMM+5*, COMM+7
D DATE~, DATE+1
D0 ADDR+3!, GROUP+10!
DA MNTH+2!, ADDR1+1*, ADDR1+7!, GROUP+3!, GROUP+14*!, GROUP+21*, 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
, DELR+1*!
DD ADDR+3!, GROUP+10!
>> DDSFILE ADDR1+1*
DIADD ADDR+1*, ADDR+3!, GROUP+8*, GROUP+10!
DIC ADDR+1!*, ADDR+3!, GROUP+8!*, GROUP+10!, GETSITE+2!*
DIC("A" GETSITE+2*
DIC("B" GETSITE+2*
DIC("DR" ADDR+2*, GROUP+9*
DIC(0 ADDR+1*, GROUP+8*, GETSITE+2*
DIE ADDR+3!, GROUP+10!, GROUP+14*!, 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
DIK GROUP+21*, DELR+1*!
>> DIMSG ADDR1+2
DIR MNTH+2!, YR+3!, YR+6!, ADDR1+6!, ADDR1+7!, GROUP+3!, ADDQ+3!, ADDQ+4!, PAUSE+1!
DIR("?" YR+5*
DIR("A" MNTH+2*, YR+4*, ADDR1+7*, GROUP+3*, ADDQ+4*, PAUSE+1*
DIR("B" YR+3*, ADDR1+7*, GROUP+3*, ADDQ+4*
DIR(0 MNTH+2*, YR+3*, ADDR1+7*, GROUP+3*, ADDQ+4*, PAUSE+1*
>> DIRUT MNTH+3, YR+7, ADDR1+8, GROUP+4, ADDQ+5, PAUSE+1*
DLAYGO ADDR+1*, ADDR+3!, GROUP+8*, GROUP+10!
DO ADDR+3!, GROUP+10!
DR ADDR+3!, ADDR1+1*, GROUP+10!, GROUP+14*!
DR(2 GROUP+14*
DT YR+3, YR+11, ADDR+2, GROUP+9, GROUP+20
>> DUOUT PAUSE+1
DUZ ADDR+2, GROUP+9
DUZ(2 ADDR+2, GROUP+9, GETSITE+2
>> F CHECKREC+1*, CHECKREC+2
G SHT~, SHT+1, SHT+3
I SHTSCR~, SHTSCR+2, COMM~
IOF START+2
J START+3*, START+4!
>> Q ADDR1+5, CHECKREC+1*, CHECKREC+2*, CHECKREC+4*, CHECKREC+6*, CHECKREC+8*, CHECKREC+10*, CHECKREC+12*, CHECKREC+14*, CHECKREC+15*
U GROUP+2, GROUP+6, GROUP+7, GROUP+11, GROUP+15, GROUP+16, GROUP+17, GETSITE+2, 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, COMM+3, COMM+5, CHECKREC+1, CHECKREC+2
, CHECKREC+3, CHECKREC+5, CHECKREC+6, CHECKREC+7, CHECKREC+8, CHECKREC+9, CHECKREC+10, CHECKREC+11, CHECKREC+12, CHECKREC+13
, CHECKREC+14
X START+3*, START+4!, ADDR+1*, ADDR+3!, GROUP+2*, GROUP+8*, GROUP+10!, 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, CHECKREC+5*, CHECKREC+6, CHECKREC+7*, CHECKREC+8, CHECKREC+9*, CHECKREC+10, CHECKREC+11*, CHECKREC+12, CHECKREC+13*
, CHECKREC+14
>> Y MNTH+4, YR+8, YR+9, ADDR+4, ADDR+6, ADDR1+9, GROUP+11, GROUP+13, GETSITE+3, GETSITE+4
, ADDQ+6, COMM+5
Z GHCPOST+6~, GHCPOST+7*, GHCPOST+8, GHCPOST+9, GHCPOST+10, COMM+2~, COMM+3*, COMM+4, COMM+6, COMM+7

Marked Items

Name Field # of Occurrence
$T(TEXT+J START+3
Info |  Source |  Call 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