Routine: ACHSVDV

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

Package

Total

Call Graph

Contract Health Management Information System

(FMT,SHDR)^ACHS LINES^ACHSFU ^ACHSUCN A1^ACHSURT ^ACHSVAR A4^ACHSVDV1 (17,EDIT)^ACHSVDVA (,MESSAGE)^ACHSVDVD

IHS VA Utilities

$$VAL^XBDIQ1 $$DIR^XBDIR $$EXTSET^XBFUNC EN^XBVK

Kernel

$$FMTE^XLFDT $$REPEAT^XLFSTR

VA Fileman

^DIC

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

Package

Total

Caller Graph

Contract Health Management Information System

ACHSMGP ACHSVDV1 ACHSVDVA ACHSVDVD ACHSZMGP

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

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

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

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

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

Local Variables

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

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVDV

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: