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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSVDV

Package: Contract Health Management Information System

Routine: ACHSVDV


Information

ACHSVDV ; IHS/ITSC/PMF - 1/2 VIEW/EDIT PROVIDER-VENDOR FILE ;

Source Information

Source file <ACHSVDV.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Contract Health Management Information System 8 (FMT,SHDR)^ACHS  LINES^ACHSFU  ^ACHSUCN  A1^ACHSURT  ^ACHSVAR  A4^ACHSVDV1  (17,EDIT)^ACHSVDVA  (,MESSAGE)^ACHSVDVD  
IHS VA Utilities 4 $$VAL^XBDIQ1  $$DIR^XBDIR  $$EXTSET^XBFUNC  EN^XBVK  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Contract Health Management Information System 5 ACHSMGP  ACHSVDV1  ACHSVDVA  ACHSVDVD  ACHSZMGP  

Entry Points

Name Comments DBIA/ICR reference
END ;EP
HDR ;
A1 ;EP
A3 ;
A2 ;EP
A1A ;EP

External References

Name Field # of Occurrence
FMT^ACHS A2+52
SHDR^ACHS HDR+2
LINES^ACHSFU A1+1
^ACHSUCN A2+13
A1^ACHSURT A2+11, A2+15
^ACHSVAR END+2
A4^ACHSVDV1 A2+54, A3+3
17^ACHSVDVA A2+57
EDIT^ACHSVDVA A3+3
^ACHSVDVD A1+8
MESSAGE^ACHSVDVD A2+3
^DIC A1+4
$$VAL^XBDIQ1 A2+35, A2+36, A2+37, A2+38
$$DIR^XBDIR A3+2
$$EXTSET^XBFUNC A2+31
EN^XBVK END+2
$$FMTE^XLFDT A2+12
$$REPEAT^XLFSTR A2+53, HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," 1) ",$P(^AUTTVNDR(ACHSPROV,0),U),?46," 2) EIN No: ",$P(ACHS11,U),$S($P(ACHS11,U,2)]"":"-"_$P(ACHS11,U,2),1:"")
  • Line Location: A2+21
Function Call: WRITE
  • Prompt: !," 3) Status: ",$S(+$P(ACHS0,U,5):"IN",1:""),"ACTIVE"
  • Line Location: A2+22
Function Call: WRITE
  • Prompt: ?46," 4) Contracts: ",$S(ACHSACO="N":"NONE ACTIVE",+C>0:"ACTIVE="_+C,1:"NONE")
  • Line Location: A2+23
Function Call: WRITE
  • Prompt: !," 5) UPIN: ",$P(ACHS17,U),?46," 6) Rate Quotation: ",$S('$D(ACHSRT("RQ")):"NONE",'$D(ACHSRT("RQ","ACTIVE")):"NONE ACTIVE",ACHSRT("RQ","ACTIVE")>0:"ACTIVE="_+$P(ACHSRT("RQ","ACTIVE"),U,1),1:"")
  • Line Location: A2+25
Function Call: WRITE
  • Prompt: !," 7) Type of Business: "
  • Line Location: A2+26
Function Call: WRITE
  • Prompt: $P($G(^AUTTTOB(X,0)),U)
  • Line Location: A2+28
Function Call: WRITE
  • Prompt: ?46," 8) Agreement: ",$S('$D(ACHSRT("PA")):"NONE",'$D(ACHSRT("PA","ACTIVE")):"NONE ACTIVE",ACHSRT("PA","ACTIVE")>0:"ACTIVE="_+$P(ACHSRT("PA","ACTIVE"),U,1),1:"")
  • Line Location: A2+29
Function Call: WRITE
  • Prompt: ?46,"10) BPA: ",$S('$D(ACHSRT("BPA")):"NONE",'$D(ACHSRT("BPA","ACTIVE")):"NONE ACTIVE",ACHSRT("BPA","ACTIVE")>0:"ACTIVE="_+$P(ACHSRT("BPA","ACTIVE"),U,1),1:"")
  • Line Location: A2+34
Function Call: WRITE
  • Prompt: !,"11) E-Mail: ",$$VAL^XBDIQ1(9999999.11,ACHSPROV,2103)
  • Line Location: A2+35
Function Call: WRITE
  • Prompt: ?46,"12) DUNS: ",$$VAL^XBDIQ1(9999999.11,ACHSPROV,.07)
  • Line Location: A2+36
Function Call: WRITE
  • Prompt: !,"13) Direct Participant: ",$$VAL^XBDIQ1(9999999.11,ACHSPROV,2104)
  • Line Location: A2+37
Function Call: WRITE
  • Prompt: !,"14) Direct E-Mail: ",$$VAL^XBDIQ1(9999999.11,ACHSPROV,2105)
  • Line Location: A2+38
Function Call: WRITE
  • Prompt: !!,"**** MAILING/BILLING ADDRESS ****",?44,"**** PROVIDER LOCATION ADDRESS ****"
  • Line Location: A2+39
Function Call: WRITE
  • Prompt: !,"15) Street: ",$P(ACHS13,U),?46,"16) Street: ",$E($P(ACHS13,U,6),1,17)
  • Line Location: A2+40
Function Call: WRITE
  • Prompt: !?6,"City: ",$P(ACHS13,U,2),?52,"City: ",$P(ACHS13,U,7),!?5,"State: ",ACHSMS,?26,"Zip: ",$P(ACHS13,U,4),?51,"State: ",ACHSBS
  • Line Location: A2+42
Function Call: WRITE
  • Prompt: !?5,"Phone: ",$P(ACHS11,U,9),?26,"Fax: ",$P(ACHS11,U,14),?48,"Zip Code: ",$P(ACHS13,U,9),!?6,"Attn: ",$P(ACHS13,U,5)
  • Line Location: A2+43
Function Call: WRITE
  • Prompt: !,"17) Vendor Type: ",ACHSVT
  • Line Location: A2+44
Function Call: WRITE
  • Prompt: ?46,"18) Fed/Non-Fed: ",$S($P(ACHS11,U,10)=1:"NON-FED",$P(ACHS11,U,10)=2:"FED",$P(ACHS11,U,10)="":"")
  • Line Location: A2+47
Function Call: WRITE
  • Prompt: !,"19) Specialty: ",$S($P(ACHS11,U,4):$P(^DIC(7,$P(ACHS11,U,4),0),U),1:"")
  • Line Location: A2+48
Function Call: WRITE
  • Prompt: ?46,"20) Geographic Loc: ",$S($P(ACHS11,U,25)="":"",$P(ACHS11,U,25):$P(^AUTTGL($P(ACHS11,U,25),0),U))
  • Line Location: A2+50
Function Call: WRITE
  • Prompt: !?2,"Last Payment Date: ",ACHSLAD,?45,"Current FYTD Paid: "
  • Line Location: A2+51
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("*",79)
  • Line Location: A2+53
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("*",79)
  • Line Location: HDR+3
Routine Call
  • DIC
  • Line Location:
    • A1+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSVPMT - [#9002075] A2+6, A2+7
^AUTTGL - [#9999999.79] A2+50
^AUTTTOB - [#9999999.76] A2+28
^AUTTVNDR - [#9999999.11] A1A+1*, A1A+2*, A2+2, A2+3, A2+21, A2+31, A2+32
^AUTTVTYP - [#9999999.34] A2+8
^DIC(5 - [#5] A2+17, A2+19
^DIC(7 - [#7] A2+48
^XUSEC("ACHSZMGR" A1+2, A2+54

Label References

Name Line Occurrences
A1 A2+57, A3+3
A2 A2+57
A3 A3+4
END A1+6, A3+3
HDR A1+1, A2+4

Naked Globals

Name Field # of Occurrence
^(0 A2+7
^(11 A2+2
^(13 A2+2
^(17 A2+2
^(23 A2+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A2+6*, A2+7
>> ACHMP A2+31*
>> ACHS0 A2+2*, A2+22
>> ACHS11 A2+2*, A2+5, A2+21, A2+27, A2+43, A2+47, A2+48, A2+50
>> ACHS13 A2+2*, A2+16, A2+18, A2+40, A2+42, A2+43
>> ACHS17 A2+2*, A2+25
>> ACHSACO A2+12*, A2+23
ACHSBPFL A3+1!
>> ACHSBS A2+18*, A2+19*, A2+42
>> ACHSCFY A2+7
ACHSCTFL A3+1!
ACHSCTNA A2+10!, A2+14!
>> ACHSDAP A2+5*, A2+7*, A2+52
>> ACHSDISP A2+5*
>> ACHSEDOS A2+9*
>> ACHSLAD A2+5*, A2+7*, A2+12*, A2+51
>> ACHSMP A2+31*, A2+32*, A2+33
>> ACHSMS A2+16*, A2+17*, A2+42
ACHSPAFL A3+1!
>> ACHSPROV A1+7*, A1A+1, A1A+2, A2+1, A2+2, A2+3, A2+6, A2+12, A2+21, A2+31
, A2+32, A2+35, A2+36, A2+37, A2+38
ACHSRQFL A3+1!
ACHSRT A2+10!, A2+14!
ACHSRT("BPA" A2+34
ACHSRT("PA" A2+29
ACHSRT("RQ" A2+24*, A2+25
>> ACHSVT A2+5*, A2+8*, A2+44, A2+57
C A2+23, END+1!
D END+1!
D0 END+1!
DA END+1!
DI END+1!
DIC A1+2*, A1+5!, END+1!
DIC("A" A1+2*
DIC(0 A1+2*, A1+3
DLAYGO A1+3*, A1+5!
DR END+1!
DT A2+9
>> DTOUT A3+3
>> DUOUT A3+3
DUZ A1+2, A2+54
DUZ(2 A2+6, A2+7
L END+1!
P A2+12*, END+1!
S END+1!
U A2+3, A2+5, A2+7, A2+8, A2+16, A2+17, A2+18, A2+19, A2+21, A2+22
, A2+25, A2+27, A2+28, A2+29, A2+31, A2+34, A2+40, A2+42, A2+43, A2+47
, A2+48, A2+50
X A2+27*, A2+28, A2+52*, END+1!, HDR+1*
>> X2 A2+52*
>> Y A1+6, A1+7, A2+57, A3+2*, A3+3, HDR+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 |  Naked Globals |  Local Variables |  All