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 |  All
Print Page as PDF
Routine: BMCVDVD

Package: Referred Care Information System

Routine: BMCVDVD


Information

BMCVDVD ; IHS/OIT/FCJ - CHECK FOR DUPLICATES WHEN ENTERING NEW VENDOR ; [ 10/31/2003 12:11 PM ]

Source Information

Source file <BMCVDVD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 $$DIR^XBDIR  
Referred Care Information System 1 (A1,A1A)^BMCVDV  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Referred Care Information System 2 BMCVDV  BMCVDVA  

Entry Points

Name Comments DBIA/ICR reference
1304
EDIT1 ;
END ;
1302
1110
EDIT ;
1303
GETD ;
1125
VCHK ;
CHECK ;
WRITE ;
EDIT0 ;
GETADDR ;
1102
CHOOSE ;
1116
MESSAGE ;EP
EP ;
DELETE ;

External References

Name Field # of Occurrence
A1^BMCVDV EP+1, END+2
A1A^BMCVDV WRITE+2, EDIT+10
^DIE EDIT1+1, GETADDR+6
^DIK DELETE+8
$$GET1^DIQ VCHK+4
^DIR EDIT+6, CHOOSE+4, DELETE+3, MESSAGE+3
$$DIR^XBDIR GETADDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Vendor address incomplete.",!,"Please make sure that at least street, city, and state are complete"
  • Line Location: EP+10
Function Call: WRITE
  • Prompt: !!?12,*7,*7,"***** The EIN you have entered for this VENDOR is a *****",!?11,"***** duplicate of the EIN for the following VENDOR(S) *****",!!
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: !,$P(^AUTTVNDR(Z,0),U,1),?40,$P(BMCZEIN(Z),U)
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !!?20,"** Duplicate EIN's are NOT ALLOWED! **",!?24,"You MUST enter a UNIQUE EIN or",!?25,"a SUFFIX to an existing EIN."
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !!!,"Entry for "_$P(^AUTTVNDR(BMCPROV,0),U,1)_" "_$S($D(BMCEINS):BMCEINS,1:BMCEIN)
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: !!,"Edit entry "_$P(^AUTTVNDR(BMCPROV,0),U)_" "_$S($D(BMCEINS):BMCEINS,1:BMCEIN)
  • Line Location: EDIT1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT1+1
Function Call: WRITE
  • Prompt: " ...DELETING..."
  • Line Location: DELETE+7
Function Call: WRITE
  • Prompt: !!,"There is no EIN on file for ",$P(^AUTTVNDR(BMCPROV,0),U,1),".",!,"Please edit to continue this process."
  • Line Location: MESSAGE+2
Function Call: WRITE
  • Prompt: !!!!
  • Line Location: MESSAGE+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETADDR+6
Function Call: WRITE
  • Prompt: !,"Vendor EIN suffix incomplete",!
  • Line Location: 1102+0
Function Call: WRITE
  • Prompt: !,"Vendor FED/NON-FED field incomplete",!
  • Line Location: 1110+0
Function Call: WRITE
  • Prompt: "Vendor Congressional District incomplete",!
  • Line Location: 1116+0
Function Call: WRITE
  • Prompt: "Vendor Geographical Location incomplete",!
  • Line Location: 1125+0
Function Call: WRITE
  • Prompt: !,"Vendor mailing address city incomplete",!
  • Line Location: 1302+0
Function Call: WRITE
  • Prompt: !,"Vendor mailing address state incomplete",!
  • Line Location: 1303+0
Function Call: WRITE
  • Prompt: !,"Vendor mailing address zip incomplete",!
  • Line Location: 1304+0
Routine Call
  • DIE
  • Line Location:
    • EDIT1+1
    • GETADDR+6
Routine Call
  • DIR
  • Line Location:
    • EDIT+6
    • CHOOSE+4
    • DELETE+3
    • MESSAGE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTVNDR - [#9999999.11] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTVNDR - [#9999999.11] EP+3, EP+4, EP+9, EP+13, EP+20, WRITE+5, CHOOSE+1, EDIT1+1, DELETE+2, MESSAGE+2
^AUTTVNDR("C" EP+15, EP+16, EP+17, EP+19
^AUTTVNDR("E" GETD+2, GETD+3, GETD+4, GETD+6
^XUSEC("BMCZVEN" CHECK+1

Label References

Name Line Occurrences
@( VCHK+5
CHOOSE EDIT+2
DELETE CHOOSE+7
EDIT CHOOSE+6, DELETE+5
EDIT0 CHECK+1
EDIT1 EDIT0+4, MESSAGE+3
END EP+3, CHECK+1, EDIT+8, DELETE+9
EP EP+10, EDIT1+3
GETADDR EP+10
GETD EP+14, EP+15, EP+17
MESSAGE EP+5
WRITE EP+19, GETD+2, GETD+4, GETD+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VCHK+3*, VCHK+4, VCHK+5
>> %(0 EDIT+2
>> BMCDFLG WRITE+1, WRITE+2, CHECK+1, EDIT+2, EDIT+8, EDIT+10, EDIT0+1, EDIT0+2
BMCEIN EP+4*, EP+5, EP+15, EP+16, EP+17, EP+19, EP+21, EP+22, GETD+1, CHOOSE+1
, EDIT1+1, EDIT1+2!, DELETE+2, END+1!
BMCEINS GETD+1*, GETD+2, GETD+3, GETD+4, GETD+6, CHOOSE+1, EDIT1+1, EDIT1+2!, DELETE+2, END+1!
BMCPROV EP+1, EP+3, EP+4, EP+9, EP+13, EP+21, EP+22, GETD+6, EDIT0+1!, EDIT0+2!
, CHOOSE+1, EDIT1+1!, DELETE+2, DELETE+6, MESSAGE+2, END+1!, GETADDR+6
BMCSUFF EP+13*, EP+14, EP+21, EP+22, GETD+1, EDIT1+2!, END+1!
BMCTST VCHK+2*, VCHK+4, VCHK+6!
>> BMCUFF EP+20*, EP+22
>> BMCVFLG VCHK+1*, 1102*, 1110*, 1116*, 1125*, 1302*, 1303*, 1304*
>> BMCYAYA EP+9*, EP+10
BMCZEIN EP+2!, WRITE+1, WRITE+2, EDIT1+2!, END+1!
BMCZEIN( EP+21*, EP+22*, GETD+6*, WRITE+5
DA EDIT1+1*, EDIT1+2!, DELETE+6*, END+1!, GETADDR+6*
DIC EDIT1+2!
DIE EDIT1+1*, EDIT1+2!, GETADDR+6*
DIK EDIT1+2!, DELETE+6*
DIR EDIT+3!, EDIT+7!, CHOOSE+2!, CHOOSE+5!, EDIT1+2!, DELETE+1!, DELETE+4!, MESSAGE+3!
DIR("A" EDIT+4*, DELETE+2*, MESSAGE+3*
DIR("B" EDIT+4*, CHOOSE+3*, DELETE+2*
DIR(0 EDIT+4*, CHOOSE+3*, DELETE+2*, MESSAGE+3*
>> DIROUT CHOOSE+6
>> DIRUT EDIT+8, EDIT0+1, CHOOSE+6
>> DR EDIT1+1*, GETADDR+6*
>> DTOUT EP+10, GETADDR+3*, GETADDR+5
>> DUOUT EP+10, CHOOSE+6, GETADDR+5
DUZ CHECK+1
IO MESSAGE+1
IOST MESSAGE+3
U EP+4, EP+10, EP+13, EP+20, WRITE+5, CHOOSE+1, EDIT1+1, DELETE+2, MESSAGE+2, VCHK+2
>> VAL VCHK+4*, VCHK+5
X EP+16*, EP+17, EP+18*, EP+19*, EP+20, EP+21, EP+22, GETD+1*, GETD+3*, GETD+4
, GETD+5*, GETD+6*, EDIT1+2!, END+1!
>> Y CHECK+1*, EDIT+10, EDIT0+2, EDIT0+3*, CHOOSE+7, EDIT1+1, DELETE+5, MESSAGE+3*, GETADDR+2*, GETADDR+3
, VCHK+2
Z WRITE+4*, WRITE+5*, EDIT1+2!, END+1!
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 |  All