Routine: ACHSVLB

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC $$FMTE^XLFDT
VA Fileman	2	^DIC ^DIE
Contract Health Management Information System	1	(LINES,SLV)^ACHSFU
IHS VA Utilities	1	$$DIR^XBDIR

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC $$FMTE^XLFDT

VA Fileman

^DIC ^DIE

Contract Health Management Information System

(LINES,SLV)^ACHSFU

IHS VA Utilities

$$DIR^XBDIR

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSLBL

Package

Total

Caller Graph

Contract Health Management Information System

ACHSLBL

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; Display Batches for Printing of Labels.
CVT	;
DEV	;
A2A	; Print Test Label.
A2C	;
PRINT	; For Multiple Labels Across.
A1	;
A3	;
A2	;
MODE	;
H	;EP - From DIR.
SEL	; If user did not select a batch, ask if want to select Vendor(s).
CEND	;
END	;
DOCS	;
START	;
PR1	;
DIS1	;
DIS2	;
CPY	;
CVT1	;
D2	;

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+2
LINES^ACHSFU	A2+7
SLV^ACHSFU	DEV+3
^DIC	SEL+5
^DIE	A2+4
$$DIR^XBDIR	MODE+2, CPY+1, DOCS+1, A3+1, DIS2+7, CEND+2, SEL+1
$$FMTE^XLFDT	DIS2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Print number of copies by [S]election",!?5,"or by number of [D]ocuments to be printed?" Line Location: MODE+1
Function Call: WRITE	Prompt: !,$E(ACHS("*"),1,24) Line Location: A2C+1
Function Call: WRITE	Prompt: ?(B+1),$E(ACHS("*"),1,24) Line Location: A2C+1
Function Call: WRITE	Prompt: ?(B+1),$E(ACHS("*"),1,24) Line Location: A2C+1
Function Call: WRITE	Prompt: ?(B+1),$E(ACHS("*"),1,24) Line Location: A2C+1
Function Call: WRITE	Prompt: ! Line Location: A2C+2
Function Call: WRITE	Prompt: !,A(1) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,B(1) Line Location: PRINT+11
Function Call: WRITE	Prompt: !,C(1) Line Location: PRINT+15
Function Call: WRITE	Prompt: ! Line Location: PRINT+19
Function Call: WRITE	Prompt: $G(D(1)) Line Location: PRINT+20
Function Call: WRITE	Prompt: ?(B+1),$G(D(2)) Condition for execution: ACHSTOTL>1 Line Location: PRINT+20
Function Call: WRITE	Prompt: ?(2*B+1),$G(D(3)) Condition for execution: ACHSTOTL>2 Line Location: PRINT+20
Function Call: WRITE	Prompt: ?(3*B+1),$G(D(4)) Condition for execution: ACHSTOTL>3 Line Location: PRINT+20
Function Call: WRITE	Prompt: ! Line Location: PRINT+21
Function Call: WRITE	Prompt: !!?10,"---------------------------------------------------------",!?10,"ITM #",?19,"D A T E",?30,"FIRST DOC #",?45,"LAST DOC #",?60,"# DOC'S",!?10,"---------------------------------------------------------",!! Line Location: DIS2+6
Function Call: WRITE	Prompt: ?10,$J(ACHS,3),?17,$$FMTE^XLFDT($P(^ACHS(7,ACHSRR,0),U,2)),?30,$P(ACHSWORK(ACHS),U,2),?45,$P(ACHSWORK(ACHS),U,3),?61,$J($P(ACHSWORK(ACHS),U,4),3),! Line Location: DIS2+9
Function Call: WRITE	Prompt: !!,"No 'Batches' on File for Printing Labels.",! Line Location: CEND+1
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIE Line Location: A2+4
Routine Call	DIC Line Location: SEL+5
Routine Call	%ZIS Line Location: DEV+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(7 - [#9002067]	DIS1+1, DIS2+1, DIS2+2, DIS2+4, DIS2+8, DIS2+9, D2+1
^ACHSF - [#9002080]	A2+6, D2+1
^AUTTVNDR - [#9999999.11]	PRINT+2, PR1+1, D2+1, SEL+5
^DIC(5 - [#5]	PR1+2
^TMP("ACHSVLB"	A1+1!, A1+3, CVT1+1, CVT1+3, CVT1+4, CVT1+5, END+1!, PRINT+2, D2+1, SEL+5

Label References

Name	Line Occurrences
A1	CPY+2, DOCS+2, A3+1
A2	A2C+3
A2A	A3+1
A2C	A2C+5
CEND	DIS1+2, DIS2+7
CPY	MODE+3
CVT	CPY+3
CVT1	CVT1+4, CVT1+6
DEV	CVT1+2
DIS1	DIS2+2
DIS2	DIS2+2, DIS2+10
DISP	A1+2
DOCS	MODE+3
END	A1+3, MODE+3, CPY+2, DOCS+2, DEV+4, A2+5, A3+1
PR1	PRINT+2
PRINT	START+2, PRINT+23
SEL	CEND+1, CEND+4

Name	Field # of Occurrence
^(	CVT1+5, PRINT+2, DIS2+4, D2+1
^(0	PR1+2
^(1	A2+6
^(13	PRINT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRINT+20*
>> %ZIS	DEV+2*
A	END+1!, A2A+4, A2C+1, PRINT+2, PR1+1, PR1+2, PR1+4, PR1+6, DIS2+3, DIS2+4 , DIS2+8
A(	PR1+1, PR1+3, PR1+4*
A(1	PRINT+7
A(2	PRINT+8
A(3	PRINT+9
A(4	PRINT+10
ACHS	CVT+1, CVT1+4, CVT1+5, END+1!, A2C+1, A2C+2, PRINT+21, DISP+1, DIS2+5, DIS2+6 , DIS2+7, DIS2+8, DIS2+9, CEND+1, CEND+2
ACHS("*"	A2C+1
ACHS("CPY"	CPY+1*, CVT1+4
ACHS("DOC"	DOCS+1*, CVT1+5
ACHS("I"	PRINT+2*
ACHS("TEST"	A2A+3!, A2C+3, A2C+4*
ACHSHS	A2+6*, END+1!, A2A+4, PRINT+6
>> ACHSI	DIS2+4*
ACHSNOLA	A2+6*, END+1!, A2A+4, PRINT+2
ACHSPPC	A1+3, A2+2, END+1!
ACHSPPO	END+1!, A2A+2, PRINT+5
ACHSRR	END+1!, DISP+1, DIS2+1, DIS2+2, DIS2+4, DIS2+8, DIS2+9, CEND+5*, D2+1
ACHSTOTL	END+1!, PRINT+1, PRINT+2, PRINT+3, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14 , PRINT+16, PRINT+17, PRINT+18, PRINT+20, PR1+1, PR1+2, PR1+3, PR1+4, PR1+5, PR1+6
ACHSVNDR	CVT+1, CVT1+1, CVT1+2, CVT1+3, CVT1+5, END+1!
ACHSVS	A2+6*, END+1!, A2C+2, PRINT+21
ACHSWORK	END+1!, DISP+2!
ACHSWORK(	DIS2+8*, DIS2+9, CEND+5
ACHSX	CVT1+4, CVT1+5, START+1, END+1!, PRINT+2
B	END+1!, A2A+4, A2C+1, PRINT+6, PRINT+8, PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14 , PRINT+16, PRINT+17, PRINT+18, PRINT+20
B(	PR1+1, PR1+6
B(1	PRINT+11
B(2	PRINT+12
B(3	PRINT+13
B(4	PRINT+14
C	END+1!
C(	PR1+1, PR1+2, PR1+4, PR1+6
C(1	PRINT+15
C(2	PRINT+16
C(3	PRINT+17
C(4	PRINT+18
D	END+1!
D(	PRINT+20, PR1+5, PR1+6
D(1	PRINT+20
D(2	PRINT+20
D(3	PRINT+20
D(4	PRINT+20
DA	CVT1+3, CVT1+4, CVT1+5, A2+3, END+1!, PRINT+2, PRINT+22, PR1+1, D2+1
DIC	END+1!, SEL+3~, SEL+4*
DIC(0	SEL+4*
DIE	A2+3*, END+1!
DR	A2+3*, END+1!
>> DTOUT	MODE+3, CPY+2, DOCS+2, A3+1, CEND+3, SEL+2
>> DUOUT	MODE+3, CPY+2, DOCS+2, A3+1, DIS2+7, CEND+3, SEL+2
DUZ(2	A2+3, A2+6
IO	A2A+1, PRINT+4
IO("S"	A1+3, DEV+3, A2+2, A2A+2, PRINT+5
IO(0	A1+3, A2+1
IOP	DEV+1!
J	END+1!
P	END+1!
>> POP	DEV+4
R	END+1!, DISP+1, DIS1+1, DIS1+2, DIS2+1, D2+1*
U	A2+6, PR1+1, PR1+2, PR1+4, PR1+6, DIS2+8, DIS2+9, CEND+5, D2+1, SEL+5
>> Y	MODE+2, MODE+3, A2+5, CEND+2, CEND+4, CEND+5, SEL+5

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSVLB

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: