Routine: ACHSVND

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	4	($$PB,ERPT,FMT,RTRN)^ACHS (BRPT,READ)^ACHSFU FY^ACHSUF ^ACHSVAR
IHS VA Utilities	3	$$C^XBFUNC VIEWR^XBLM EN^XBVK

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSVENDPRT

Entry Points

Name	Comments	DBIA/ICR reference
END	;
HDR	;
K	;
DEV	;
START	;EP - TaskMan.
L2	;
L1	;
TYPE	;EN - ADDED FOR ACHS3.112

External References

Name	Field # of Occurrence
^%ZIS	DEV+5
HOME^%ZIS	DEV+6, K+3
^%ZISC	DEV+9
^%ZTLOAD	DEV+12
$$PB^ACHS	DEV+1
ERPT^ACHS	K+2
FMT^ACHS	L2+8
RTRN^ACHS	L2+11, END+2
BRPT^ACHSFU	START+2
READ^ACHSFU	TYPE+5
FY^ACHSUF	ACHSVND+3
^ACHSVAR	K+3
$$C^XBFUNC	HDR+5
VIEWR^XBLM	DEV+3
EN^XBVK	DEV+3, K+2
$$FMTE^XLFDT	L2+8
$$REPEAT^XLFSTR	L2+9, HDR+5, HDR+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select Vendor Status Type:" Line Location: TYPE+1
Function Call: WRITE	Prompt: !!,?5,"1. Active" Line Location: TYPE+2
Function Call: WRITE	Prompt: !,?5,"2. Inactive" Line Location: TYPE+3
Function Call: WRITE	Prompt: !,?5,"3. Both//" Line Location: TYPE+4
Function Call: WRITE	Prompt: !!,*7,"Enter only '1' through '3'." Line Location: TYPE+9
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+9
Function Call: WRITE	Prompt: !,$P(ACHS11,U),?15,$E($P(^AUTTVNDR(DA,0),U),1,30),?50,$E($P(ACHS13,U),1,30),!,$E($P(ACHS13,U,2),1,15),?18,$S($P(ACHS13,U,3)]"":$P(^DIC(5,$P(ACHS13,U,3),0),U,2),1:""),?24,$P(ACHS13,U,4) Line Location: L2+7
Function Call: WRITE	Prompt: ?35,$$FMTE^XLFDT($P(^(0),U,3)),?52 Line Location: L2+8
Function Call: WRITE	Prompt: ?66,$P(ACHS11,U,9),!,$$REPEAT^XLFSTR("-",80) Line Location: L2+9
Function Call: WRITE	Prompt: !!,"NUMBER OF VENDORS = ",ACHSRCT Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: @IOF,!,$$C^XBFUNC("CONTRACT HEALTH MANAGEMENT SYSTEM",80),!?24,ACHSRTNM_"PROVIDER LISTING",?71,"Page",$J(ACHSPG,3),!,ACHSLOC,!,ACHSTIME,!!,$$REPEAT^XLFSTR("*",80),! Line Location: HDR+5
Function Call: WRITE	Prompt: "EIN NUMBER",?15,"PROVIDER",?50,"ADDRESS",!,"CITY",?18,"STATE",?24,"ZIP",?35,"LAST PAY DATE",?52,"YTD PAID",?66,"PHONE #",!,$$REPEAT^XLFSTR("*",80),! Line Location: HDR+6
Routine Call	%ZIS Line Location: DEV+6 K+3
Routine Call	%ZIS Line Location: DEV+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSVPMT - [#9002075]	L2+8
^AUTTVNDR - [#9999999.11]	L2+4, L2+5, L2+6, L2+7
^AUTTVNDR("B"	L1+1, L2+1
^DIC(5 - [#5]	L2+7

Label References

Name	Line Occurrences
DEV	DEV+9, DEV+13
END	L1+2
HDR	START+3, L2+11
K	TYPE+6, DEV+2, DEV+3, DEV+6, DEV+15, L2+11
L1	L2+2, L2+4, L2+5
L2	L2+12
START	DEV+7
TYPE	TYPE+7, TYPE+9

Naked Globals

Name	Field # of Occurrence
^(0	L2+8
^(11	L2+6
^(13	L2+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+1, DEV+2, DEV+3, DEV+11
>> %ZIS	DEV+4*
>> ACHS11	L2+6*, L2+7, L2+9
>> ACHS13	L2+6*, L2+7
>> ACHSBM	L2+11
>> ACHSCFY	L2+8
>> ACHSIO	ACHSVND+4*
>> ACHSLOC	HDR+5
>> ACHSNAME	START+1, L1+1, L1+2, L2+1
>> ACHSPG	HDR+1*, HDR+5
>> ACHSQUIT	TYPE+6
>> ACHSRCT	START+1, L2+10, END+1
>> ACHSRPT	TYPE+10*, L2+4, L2+5, HDR+3
>> ACHSRTNM	HDR+3*, HDR+5
>> ACHSTIME	HDR+5
DA	START+1, L2+1, L2+2, L2+4, L2+5, L2+6, L2+7, L2+8, K+1!
>> DTOUT	DEV+2, L2+11
>> DUOUT	TYPE+7, DEV+2, L2+11
DUZ(2	L2+8
IO	ACHSVND+4
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOF	END+3, HDR+5
IOST	DEV+9
>> POP	DEV+6
U	DEV+2, L2+4, L2+5, L2+7, L2+8, L2+9
>> X	L2+8*
>> Y	TYPE+8*, TYPE+9, TYPE+10
>> ZTDESC	DEV+10*
>> ZTQUEUED	K+3
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, DEV+14!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVND

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: