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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BINDC1

Package: Immunization Tracking

Routine: BINDC1


Information

BINDC1 ;IHS/CMI/MWR - EDIT NDC NUMBERS.; MAY 10, 2010

Source Information

Source file <BINDC1.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
Immunization Tracking 8 (DIC,DIE,FILE)^BIFMAN  $$LMVER^BILOGO  (HDR,INIT,TEXT3,TEXT33)^BINDC  CHGORDR^BINDC2  ($$CODE,$$MNAME,$$VNAME,ERRCD)^BIUTL2  DIRZ^BIUTL3  ($$PAD,SETVARS,TITLE)^BIUTL5  WL^BIW  
Registration 3 TERM^VALM0  (CLEAR,FULL)^VALM1  EN^VALM2  
IHS VA Utilities 1 ^XBKVAR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Immunization Tracking 2 BINDC  BINDC2  

Entry Points

Name Comments DBIA/ICR reference
RESET ;EP
TEXT2 ;EP
INACTA1 ;EP
PRINTX(BILINL,BITAB) ;EP
INACTLN ;EP
LINE(BIIEN,BILINE,BIENT) ;EP
CHGORDR ;EP
EDITFM(BIDA) ;EP
INIT ;EP
TEXT1 ;EP
ADDFM ;EP
WRITE(BILINE,BIVAL,BIBLNK,BIENT) ;EP
INACTA ;EP
EDITNDC(BINEW) ;EP

External References

Name Field # of Occurrence
DIC^BIFMAN ADDFM+39
DIE^BIFMAN EDITFM+19
FILE^BIFMAN ADDFM+43
$$LMVER^BILOGO INIT+4
HDR^BINDC RESET+4
INIT^BINDC RESET+4
TEXT3^BINDC INACTA+4
TEXT33^BINDC INACTA+12
CHGORDR^BINDC2 CHGORDR+2
$$CODE^BIUTL2 INIT+20, LINE+28, EDITFM+13
$$MNAME^BIUTL2 INIT+22, LINE+42, EDITFM+15
$$VNAME^BIUTL2 INIT+19, LINE+24, EDITFM+12
ERRCD^BIUTL2 EDITNDC+18, EDITNDC+21, EDITNDC+22, EDITNDC+24, ADDFM+45, EDITFM+6, EDITFM+7
DIRZ^BIUTL3 ADDFM+17, INACTA+9, INACTA+16, INACTLN+14
$$PAD^BIUTL5 LINE+18, LINE+25, LINE+31, LINE+36, LINE+44
SETVARS^BIUTL5 ADDFM+3
TITLE^BIUTL5 ADDFM+6, ADDFM+23, ADDFM+36, EDITFM+10, INACTA+4, INACTA+12
WL^BIW WRITE+9
^DIR ADDFM+11, ADDFM+30, INACTA+6, INACTA+13
TERM^VALM0 RESET+3
CLEAR^VALM1 ADDFM+23, ADDFM+36
FULL^VALM1 EDITNDC+10, EDITNDC+28, ADDFM+23, ADDFM+36, INACTA+4
EN^VALM2 EDITNDC+15
^XBKVAR INACTLN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDFM+30
Function Call: WRITE
  • Prompt: !?5," NDC Code: ",$P(BI0,U)
  • Line Location: EDITFM+11
Function Call: WRITE
  • Prompt: !?5," Vaccine: ",$S(BIVACP:$$VNAME^BIUTL2(BIVACP),1:"Not recorded")
  • Line Location: EDITFM+12
Function Call: WRITE
  • Prompt: !?5," CVX: ",$S(BIVACP:$$CODE^BIUTL2(BIVACP,6),1:"")
  • Line Location: EDITFM+13
Function Call: WRITE
  • Prompt: !?5," Product: ",$P(BI0,U,4)
  • Line Location: EDITFM+14
Function Call: WRITE
  • Prompt: !?5," Manufacturer: "
  • Line Location: EDITFM+15
Function Call: WRITE
  • Prompt: $$MNAME^BIUTL2(+$P(BI0,U,3))
  • Condition for execution: +$P(BI0,U,3)
  • Line Location: EDITFM+15
Function Call: WRITE
  • Prompt: !?5,"Active Status: ",$S($P(BI0,U,6):"Inactive",1:"Active"),!!!
  • Line Location: EDITFM+16
Function Call: WRITE
  • Prompt: !!?5,"Done. ",M," NDC Numbers have been Inactivated."
  • Line Location: INACTLN+14
Function Call: WRITE
  • Prompt: !,T,$P(X,";;",2)
  • Line Location: PRINTX+3
Routine Call
  • DIR
  • Line Location:
    • ADDFM+11
    • ADDFM+30
    • INACTA+6
    • INACTA+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BINDC - [#9002084.95] INIT+15, INIT+16!, INIT+18, LINE+8, EDITNDC+24, EDITFM+7, EDITFM+8, INACTLN+6, INACTLN+7, INACTLN+9
, INACTLN+11, INACTLN+13*
^BINDC("B" ADDFM+21, ADDFM+22
^TMP("BINDC" INIT+7!

Label References

Name Line Occurrences
ADDFM EDITNDC+9
EDITFM EDITNDC+27, ADDFM+33, ADDFM+48
INACTA1 INACTA+5, INACTA+12
INACTLN INACTA+19
LINE INIT+45
PRINTX TEXT1+15, TEXT2+10
RESET EDITNDC+10, EDITNDC+18, EDITNDC+21, EDITNDC+22, EDITNDC+24, EDITNDC+29, INACTA+10, INACTA+17, INACTA+20
TEXT1 ADDFM+7
WRITE INIT+38, LINE+50

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BI0 LINE+7~, LINE+8*, LINE+17, LINE+21, LINE+34, LINE+40, LINE+47, EDITFM+8~*, EDITFM+9, EDITFM+11
, EDITFM+14, EDITFM+15, EDITFM+16
BIACT INIT+17~, INIT+23*, INIT+25, INIT+34
BIBLNK WRITE~, WRITE+9
>> BICOLL INIT+10*, INIT+29
BICVX INIT+17~, INIT+20*, LINE+28~*, LINE+29*, LINE+30
BIDA EDITNDC+5~, EDITNDC+23~*, EDITNDC+24, EDITNDC+27, ADDFM+4~, ADDFM+22*, ADDFM+31!, ADDFM+33, ADDFM+47*, ADDFM+48
, EDITFM~, EDITFM+6, EDITFM+7, EDITFM+8, EDITFM+19
BIENT INIT+8~*, INIT+38, INIT+45, LINE~, LINE+11*, LINE+14, LINE+50, WRITE~, WRITE+9
>> BIENTRY ADDFM+13*, ADDFM+15, ADDFM+21, ADDFM+22, ADDFM+24, ADDFM+37, ADDFM+43
BIIEN INIT+14~*, INIT+15*, INIT+16, INIT+18, INIT+34, LINE~, LINE+8, LINE+11
>> BIINACT INIT+12*, INIT+25, INIT+52
BILINE INIT+8~*, INIT+38, INIT+45, INIT+48, LINE~, LINE+50, WRITE~, WRITE+8, WRITE+9
BILINL PRINTX~, PRINTX+1
BIMAN INIT+17~, INIT+22*, INIT+29, INIT+30, LINE+39~, LINE+40*, LINE+41*, LINE+42*, LINE+43
BINDC INIT+7!, INIT+17~, INIT+18*, INIT+29, INIT+30
BINDC( LINE+11*, EDITNDC+22, EDITNDC+23
BINEW EDITNDC~, EDITNDC+8
BIPOP ADDFM+17~, EDITFM+19, INACTA+7*, INACTA+14*
BIPROD INIT+17~, INIT+21*, INIT+29, INIT+30, LINE+34~*, LINE+35
BITAB PRINTX~, PRINTX+2*
BITMP INIT+7!, INIT+8~
BITMP( INIT+34*, INIT+36, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45
BIVAC ADDFM+41~*, ADDFM+43
BIVACP INIT+17~, INIT+18*, INIT+19, INIT+20, LINE+21~*, LINE+23, LINE+24, LINE+28, EDITFM+9~*, EDITFM+12
, EDITFM+13
BIVAL WRITE~, WRITE+9
BIVNAM INIT+17~, INIT+19*, INIT+29, INIT+30
DIR ADDFM+4~, ADDFM+9~, INACTA+5~
DIR("?" ADDFM+10*, ADDFM+28*, INACTA1+4*, INACTA1+5*
DIR("A" ADDFM+9*, ADDFM+29*, INACTA1+3*
DIR("B" ADDFM+29*, INACTA1+3*
DIR(0 ADDFM+9*, ADDFM+29*, INACTA1+2*
>> DIRUT ADDFM+12, ADDFM+31, INACTA+7, INACTA+14
>> DR EDITFM+18*, EDITFM+19
DT INACTLN+9
I PRINTX+2~*, PRINTX+3*
J INIT+43~*, INIT+44, INIT+45
K INIT+42~*, INIT+43, INIT+44, INIT+45
L INIT+41~*, INIT+42, INIT+43, INIT+44, INIT+45
M INIT+40~*, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45, INACTLN+5~*, INACTLN+13*, INACTLN+14
N INIT+36~*, INIT+38, INIT+40, INIT+41, INIT+42, INIT+43, INIT+44, INIT+45, INACTLN+5~*, INACTLN+6*
, INACTLN+7, INACTLN+9, INACTLN+11, INACTLN+13
P INIT+44~*, INIT+45
T PRINTX+2~*, PRINTX+3
U INIT+18, INIT+21, INIT+22, INIT+23, LINE+17, LINE+21, LINE+34, LINE+40, LINE+47, EDITFM+9
, EDITFM+11, EDITFM+14, EDITFM+15, EDITFM+16
>> VALM("TITLE" INIT+4*
>> VALMBCK RESET+2*, RESET+3*
>> VALMCNT INIT+48*, INIT+49, INIT+52
>> VALMQUIT RESET+2
>> VALMSG INIT+3*, INIT+53*
VALMY EDITNDC+14~, EDITNDC+18
VALMY(0 EDITNDC+20
W INIT+17~, INIT+29*, INIT+30*, INIT+34
X INIT+17~, INIT+29*, INIT+30*, INIT+34, LINE+7~, LINE+14*, LINE+17*, LINE+18*, LINE+23*, LINE+24*
, LINE+25*, LINE+30*, LINE+31*, LINE+35*, LINE+36*, LINE+43*, LINE+44*, LINE+47*, LINE+50, PRINTX+2~
, PRINTX+3*
>> XQORNOD(0 EDITNDC+15
Y INIT+17~, INIT+18*, INIT+21, INIT+22, INIT+23, INIT+29*, INIT+30*, INIT+34, INIT+52~*, INIT+53
, LINE+7~, EDITNDC+20~*, EDITNDC+21, EDITNDC+22, EDITNDC+23, ADDFM+4~, ADDFM+5, ADDFM+12*, ADDFM+13, ADDFM+17*
, ADDFM+31, ADDFM+33*, ADDFM+39, ADDFM+40!, ADDFM+41!, ADDFM+43, ADDFM+45*, ADDFM+47, ADDFM+48*, INACTA+5~
, INACTA+8, INACTA+15
Z INIT+17~, INIT+29*, INIT+30*, INIT+34

Marked Items

Name Field # of Occurrence
$T(@BILINL+I PRINTX+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All