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

Package: Contract Health Management Information System

Routine: ACHSVDVD


Information

ACHSVDVD ; IHS/ITSC/PMF - CHECK FOR DUPLICATES WHEN ENTERING NEW VENDOR ; [ 10/31/2003 12:11 PM ]

Source Information

Source file <ACHSVDVD.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Contract Health Management Information System 1 (A1,A1A)^ACHSVDV  
IHS VA Utilities 1 $$DIR^XBDIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Contract Health Management Information System 3 ACHSA1  ACHSVDV  ACHSVDVA  

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^ACHSVDV EP+2, END+2
A1A^ACHSVDV WRITE+2, EDIT+10
^DIE EDIT1+1, GETADDR+6
^DIK DELETE+8
$$GET1^DIQ VCHK+7
^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+11
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(ACHSZEIN(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(ACHSPROV,0),U,1)_" "_$S($D(ACHSEINS):ACHSEINS,1:ACHSEIN)
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: !!,"Edit entry "_$P(^AUTTVNDR(ACHSPROV,0),U)_" "_$S($D(ACHSEINS):ACHSEINS,1:ACHSEIN)
  • 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(ACHSPROV,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+4, EP+5, EP+10, EP+14, EP+21, WRITE+5, CHOOSE+1, EDIT1+1, DELETE+2, MESSAGE+2
^AUTTVNDR("C" EP+16, EP+17, EP+18, EP+20
^AUTTVNDR("E" GETD+2, GETD+3, GETD+4, GETD+6
^XUSEC("ACHSZMGR" CHECK+1

Label References

Name Line Occurrences
@( VCHK+8
CHOOSE EDIT+2
DELETE CHOOSE+7
EDIT CHOOSE+6, DELETE+5
EDIT0 CHECK+1
EDIT1 EDIT0+4, MESSAGE+3
END EP+4, CHECK+1, EDIT+8, DELETE+9
EP EP+11, EDIT1+3
GETADDR EP+11
GETD EP+15, EP+16, EP+18
MESSAGE EP+6
WRITE EP+20, GETD+2, GETD+4, GETD+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VCHK+6*, VCHK+7, VCHK+8
>> %(0 EDIT+2
>> ACHSDFLG WRITE+1, WRITE+2, CHECK+1, EDIT+2, EDIT+8, EDIT+10, EDIT0+1, EDIT0+2
ACHSEIN EP+1!, EP+5*, EP+6, EP+16, EP+17, EP+18, EP+20, EP+22, EP+23, GETD+1
, CHOOSE+1, EDIT1+1, EDIT1+2!, DELETE+2, END+1!
ACHSEINS EP+1!, GETD+1*, GETD+2, GETD+3, GETD+4, GETD+6, CHOOSE+1, EDIT1+1, EDIT1+2!, DELETE+2
, END+1!
ACHSPROV EP+2, EP+4, EP+5, EP+10, EP+14, EP+22, EP+23, GETD+6, EDIT0+1!, EDIT0+2!
, CHOOSE+1, EDIT1+1!, DELETE+2, DELETE+6, MESSAGE+2, END+1!, GETADDR+6
ACHSSUFF EP+1!, EP+14*, EP+15, EP+22, EP+23, GETD+1, EDIT1+2!, END+1!
ACHSTST VCHK+5*, VCHK+7, VCHK+10!
ACHSUFF EP+1!, EP+21*, EP+23
>> ACHSVFLG VCHK+4*, 1102*, 1110*, 1116*, 1125*, 1302*, 1303*, 1304*
>> ACHSYAYA EP+10*, EP+11
ACHSZEIN EP+1!, EP+3!, WRITE+1, WRITE+2, EDIT1+2!, END+1!
ACHSZEIN( EP+22*, EP+23*, 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+11, GETADDR+3*, GETADDR+5
>> DUOUT EP+11, CHOOSE+6, GETADDR+5
DUZ CHECK+1
IO MESSAGE+1
IOST MESSAGE+3
U EP+5, EP+11, EP+14, EP+21, WRITE+5, CHOOSE+1, EDIT1+1, DELETE+2, MESSAGE+2, VCHK+5
>> VAL VCHK+7*, VCHK+8
X EP+1!, EP+17*, EP+18, EP+19*, EP+20*, EP+21, EP+22, EP+23, 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+5
Z EP+1!, 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