Routine: ACHSVDV1

Package	Total	Call Graph
Contract Health Management Information System	5	YN^ACHS READ^ACHSFU (A1,END)^ACHSVDV L^ACHSVDV1 (,AGRDSP)^ACHSVDV2
VA Fileman	3	^DIC ^DIE ^DIR
IHS VA Utilities	2	$$DIR^XBDIR $$EXTSET^XBFUNC
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR

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

Entry Points

Name	Comments	DBIA/ICR reference
MP	;EP -- ITSC/SET/JVK ACHS3.111 FIND MEDICARE PROVIDER INFO
END	;
SBD	;
SBT	;EP
ASK2	;
L1	;
NEW	;
L	;EP
ASK1	;
MPADD	;
L2	;
A4	;EP
A7	;
A6	;
A9	;
A8	;
NEW1	;
MPEDIT	;
MPDSP	;DISPLAY MEDICARE PROVIDER INFO
L3	;

External References

Name	Field # of Occurrence
YN^ACHS	NEW+7, NEW+9
READ^ACHSFU	L3+3, NEW+4, NEW1+2, MPADD+2, MPEDIT+2
A1^ACHSVDV	A4+5, A6+3, A7+3, A8+3, A9+2, A9+5
END^ACHSVDV	A4+5, A6+3, A7+3, A8+3
L^ACHSVDV1	A4+7
^ACHSVDV2	A9+3
AGRDSP^ACHSVDV2	A6+5, A7+5, A8+5
^DIC	NEW1+8, MPADD+7, MPEDIT+9
^DIE	NEW1+13, MPADD+12, MPEDIT+14
^DIR	L2+7
$$DIR^XBDIR	A4+4, A6+2, A7+2, A8+2, A9+1, A9+4, ASK1+1, ASK2+1
$$EXTSET^XBFUNC	MP+6
$$FMTE^XLFDT	SBD+1, MP+7
$$UP^XLFSTR	NEW+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$J(C,4),?4,$J($P(^(0),U),15) Line Location: L2+4
Function Call: WRITE	Prompt: !,$J(C,2),?3,$J($P(^(0),U),18) Line Location: L2+5
Function Call: WRITE	Prompt: !!,"Which one: " Line Location: L3+2
Function Call: WRITE	Prompt: !!?3,"Enter 1 thru ",C Line Location: L3+5
Function Call: WRITE	Prompt: !!,"Enter 1 thru ",C Line Location: L3+7
Function Call: WRITE	Prompt: ?22,$$FMTE^XLFDT($P(D,U)),?35,$$FMTE^XLFDT($P(D,U,2)),?49,$E($P(^AUTTVNDR(ACHSPROV,"CN",N,0),U,5),1,30) Line Location: SBD+1
Function Call: WRITE	Prompt: @IOF,!!?5,"Contract Number",?22,"Begin Date",?35,"Ending Date",?49,"Description of Service",!?5,"---------------",?22,"------------",?35,"------------",?49,"-------------------------" Line Location: SBT+1
Function Call: WRITE	Prompt: !!,"Want to Enter a New Contract? NO// " Line Location: NEW+3
Function Call: WRITE	Prompt: !!,"Enter CONTRACT NUMBER: " Line Location: NEW1+1
Function Call: WRITE	Prompt: !!,"Enter New Contract Number " Line Location: NEW1+4
Function Call: WRITE	Prompt: ! Line Location: NEW1+11
Function Call: WRITE	Prompt: @IOF Line Location: MP+1
Function Call: WRITE	Prompt: !!,"Item",?6,"Medicare Number",?23,"Begin Date",?37,"End Date",?51,"Description",!,"----",?6,"---------------",?23,"------------",?37,"------------",?51,"-------------------------",! Line Location: MPDSP+1
Function Call: WRITE	Prompt: !!,"Enter the Medicare NUMBER: " Line Location: MPADD+1
Function Call: WRITE	Prompt: !!,"Enter New Number " Line Location: MPADD+4
Function Call: WRITE	Prompt: ! Line Location: MPADD+10
Function Call: WRITE	Prompt: !!,"Which item: " Line Location: MPEDIT+1
Function Call: WRITE	Prompt: !!?3,"Enter 1 thru ",CT Line Location: MPEDIT+4
Function Call: WRITE	Prompt: !!,"Enter 1 thru ",CT Line Location: MPEDIT+6
Function Call: WRITE	Prompt: ! Line Location: MPEDIT+12
Routine Call	DIE Line Location: NEW1+13 MPADD+12 MPEDIT+14
Routine Call	DIC Line Location: NEW1+8 MPADD+7 MPEDIT+9
Routine Call	DIR Line Location: L2+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTVNDR - [#9999999.11]	A4+1, L1+1, L2+1, L2+2, L2+5, L3+1, SBD+1, NEW1+6, MP+3, MP+4 , MPADD+5
^XUSEC("ACHSZMGR"	L3+1

Label References

Name	Line Occurrences
A6	A4+1, A4+5
A7	A6+1, A6+3
A8	A7+1, A7+3
A9	A8+1, A8+3
ASK1	MP+8, MP+9
ASK2	ASK1+2
END	L3+1, L3+4, NEW+2, NEW+5, NEW+8, NEW1+15, ASK1+2, ASK2+2, MPADD+3, MPADD+14 , MPEDIT+3, MPEDIT+16, MPEDIT+17
L1	L2+2
L2	L2+2, L2+8
L3	L1+2, L2+6, L3+5, L3+7
MPADD	ASK1+3, MPADD+4, MPADD+8, MPEDIT+10
MPDSP	MP+1
MPEDIT	ASK2+3, MPEDIT+4, MPEDIT+5, MPEDIT+6
NEW	L3+1, L3+6, NEW+7, NEW+9, NEW1+3, NEW1+5, NEW1+9
NEW1	NEW1+4
SBD	L2+5
SBT	L2+5, L2+7

Naked Globals

Name	Field # of Occurrence
^(0	L2+5, NEW1+6, MPADD+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A("DISPLAY"	A4+6*, L3+1
>> ACHSACO	A4+6, L+2, L2+5, L2+6
>> ACHSAGTP	A6+4, A7+4, A8+4*
>> ACHSBDT	MP+5*, MP+7
ACHSBPFL	A4+2!, A8+4*, END+1!
ACHSCTFL	A4+2!, A4+6*, END+1!, NEW+2
>> ACHSDES	MP+5, MP+6, MP+7
>> ACHSDSP(	MP+4*, MP+5, MPEDIT+7
>> ACHSEDT	MP+5*, MP+7
>> ACHSMP	MP+2, MP+3, MP+4
>> ACHSMPN	MP+5*, MP+7
ACHSPAFL	A4+2!, A7+4*, END+1!
>> ACHSPROV	A4+1, A4+6, L1+1, L2+1, L2+2, L2+5, L3+1, SBD+1, NEW1+6, NEW1+7 , NEW1+12, MP+3, MP+4, MPADD+5, MPADD+6, MPADD+11, MPEDIT+8, MPEDIT+13
ACHSRQFL	A4+2!, A6+4*, END+1!
>> ACHSRT("BPA"	A8+1
>> ACHSRT("PA"	A7+1
>> ACHSRT("RQ"	A6+1
C	L+1, L2+5, L2+6, L3+1, L3+5, L3+7, END+1!, NEW+1
C(	L2+5*, L3+8
>> CT	MP+2, MP+5, MP+7, MP+8, MP+9, MPEDIT+4, MPEDIT+6
>> D	L2+5*, SBD+1
DA	L3+8, NEW+2, NEW+8, NEW1+10, NEW1+14!, MPADD+9, MPADD+13!, MPEDIT+11, MPEDIT+15!
DA(1	NEW1+7, NEW1+12, MPADD+6, MPADD+11, MPEDIT+8, MPEDIT+13
>> DIC	NEW1+7, MPADD+6, MPEDIT+8*
>> DIC(0	NEW1+7, MPADD+6, MPEDIT+8*
DIE	NEW1+12, NEW1+14!, MPADD+11, MPADD+13!, MPEDIT+13*, MPEDIT+15!
DIE("NO^"	NEW1+12, MPADD+11, MPEDIT+13*
DIR	L2+7!
DIR(0	L2+7*
>> DR	NEW1+12, MPADD+11, MPEDIT+13*
DT	L+1
>> DTOUT	A4+5, A6+3, A7+3, A8+3, A9+2
>> DUOUT	A4+5, A6+3, A7+3, A8+3, A9+2, L3+4, NEW+5, NEW1+3, ASK1+2, ASK2+2 , MPADD+3, MPEDIT+3
DUZ	L3+1
>> E	L+1*
>> F	L2+6
>> I	L2+5, MP+3, MP+4, MP+5
IOF	SBT+1, MP+1
>> L	L+1, L2+5
N	L1+3, L2+1, L2+2, L2+5, END+1!, SBD+1
>> P	A4+6*
S	L+1, L1+1, L1+2, L2+1, L2+5, END+1!
U	L2+5, L3+1, SBD+1, MP+5, MPEDIT+7
>> X	NEW1+7, MPADD+6, MPEDIT+7*
>> Y	A4+4, A4+5, A6+2, A6+3, A7+2, A7+3, A8+2, A8+3, A9+1, A9+2 , L2+7, L3+5, L3+6, L3+7, L3+8, NEW+6, NEW+7, NEW+8, NEW+9, NEW1+4 , NEW1+5, NEW1+7, NEW1+9, NEW1+10, ASK1+1, ASK1+2, ASK1+3, ASK2+1, ASK2+2, ASK2+3 , MPADD+4, MPADD+6, MPADD+8, MPADD+9, MPEDIT+4, MPEDIT+5, MPEDIT+6, MPEDIT+7, MPEDIT+10, MPEDIT+11 , MPEDIT+17

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVDV1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: