Routine: ACHSYDRV

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	2	($$LOC,$$USR,ERPT)^ACHS BRPT^ACHSFU
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	WAIT^DICD

Entry Points

Name	Comments	DBIA/ICR reference
P2	;
P1	;
END	;
BADTOTL	;
BAD1	;
HEADER	;Prints heading
LSTUSED	;CHECKS LAST USED DATE IN ^ACHSF(DUZ(2),"VB"
BADEIN	; Print list of Vendors with no EIN on file
LST2	;
TOTL	;
PRINT	;
BADHEAD	;Prints heading of missing EIN's
VNDR	;
DEVICE	;Device Selection
LSTEND	;
CALC	;EP - From TaskMan ; E is EIN, V is IEN
CHECK1	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+3
HOME^%ZIS	DEVICE+4, DEVICE+11
^%ZISC	END+2
^%ZTLOAD	DEVICE+9
$$LOC^ACHS	HEADER+6, BADHEAD+5
$$USR^ACHS	ACHSYDRV+7
ERPT^ACHS	END+4
BRPT^ACHSFU	PRINT+1
WAIT^DICD	DEVICE+5
$$DIR^XBDIR	DEVICE+4, P2+8, TOTL+3, BAD1+6, BADTOTL+3
$$HTE^XLFDT	HEADER+4, BADHEAD+3
$$REPEAT^XLFSTR	HEADER+10, HEADER+12, BADHEAD+10, BADHEAD+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?18,"This report will generate a list of VENDORS whose",!?18,"file contains either a DUPLICATE or MISSING EIN." Line Location: ACHSYDRV+8
Function Call: WRITE	Prompt: *7,!!?18,"Since this report may take awhile to compile",!?18,"it is recommended that you QUEUE to a PRINTER.",! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED - REQUEST ABORTED" Line Location: DEVICE+4
Function Call: WRITE	Prompt: ! Line Location: P1+4
Function Call: WRITE	Prompt: !?12,ACHSEIN,?30,$E($P(^TMP("ACHSYDRV",$J,ACHSEIN,ACHSVNDR),U),1,30) Line Location: P2+4
Function Call: WRITE	Prompt: !!?1,"TOTAL",?30,C Line Location: TOTL+2
Function Call: WRITE	Prompt: !!,"Good for YOU!! All VENDORS in your file have EIN's!" Line Location: BADEIN+3
Function Call: WRITE	Prompt: !! Line Location: BADEIN+4
Function Call: WRITE	Prompt: !?12,$P(^AUTTVNDR(ACHSBAD,0),U) Line Location: BAD1+3
Function Call: WRITE	Prompt: !!?1,"TOTAL",?12,C Line Location: BADTOTL+2
Function Call: WRITE	Prompt: @IOF Line Location: BADTOTL+4
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"*",ACHSDAT Line Location: HEADER+5
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X,!! Line Location: HEADER+7
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE Line Location: HEADER+9
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("*",80) Line Location: HEADER+10
Function Call: WRITE	Prompt: !!?12,"VENDOR EIN",?30,"VENDOR NAME",?66,"LAST USED" Line Location: HEADER+11
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("~",80),! Line Location: HEADER+12
Function Call: WRITE	Prompt: @IOF Line Location: BADHEAD+1
Function Call: WRITE	Prompt: !,"*",ACHSDAT Line Location: BADHEAD+4
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: BADHEAD+6
Function Call: WRITE	Prompt: ?71,ACHSTIM,"",!,"User: ",ACHSUSR,?70,"Device:",IO,"*",!! Line Location: BADHEAD+7
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE Line Location: BADHEAD+9
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("*",80) Line Location: BADHEAD+10
Function Call: WRITE	Prompt: !!?8,"The following do(es) not have an EIN entry in the VENDOR FILE." Line Location: BADHEAD+11
Function Call: WRITE	Prompt: !?25,"PLEASE validate and correct." Line Location: BADHEAD+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("~",80),! Line Location: BADHEAD+13
Function Call: WRITE	Prompt: ?65,$E(ACHSLUDT,4,5),"-",$E(ACHSLUDT,6,7),"-",$E(ACHSLUDT,2,3) Line Location: LSTEND+4
Routine Call	%ZIS Line Location: DEVICE+4 DEVICE+11
Routine Call	%ZIS Line Location: DEVICE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSF - [#9002080]	LSTUSED+2, LST2+1, LSTEND+2
^AUTTLOC - [#9999999.06]	ACHSYDRV+7
^AUTTVNDR - [#9999999.11]	CALC+5, VNDR+5, BAD1+3
^TMP("ACHSYDRV"	END+1!, CALC+3!, CALC+5, CALC+6, CHECK1+1, VNDR+1, VNDR+3!, VNDR+6, VNDR+7!, PRINT+5 , P1+1, P2+1, P2+4, BADEIN+3, BAD1+1

Label References

Name	Line Occurrences
BAD1	BAD1+7
BADHEAD	BADEIN+2, BAD1+5, BAD1+6
BADTOTL	BAD1+2
CALC	DEVICE+5
CHECK1	VNDR+2
DEVICE	DEVICE+4
END	DEVICE+4, PRINT+5, BADEIN+3, BADTOTL+5
HEADER	PRINT+3, P2+7, P2+8
LST2	LST2+4
LSTEND	LST2+2
LSTUSED	P2+6
P1	P2+2
P2	P2+10
PRINT	CALC+6, CHECK1+2
TOTL	P1+2
VNDR	VNDR+3, VNDR+8

Naked Globals

Name	Field # of Occurrence
^(0	VNDR+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEVICE+8*
>> %ZIS	DEVICE+2*
ACHSBAD	END+1!, BADEIN+5, BAD1+1, BAD1+2, BAD1+3
ACHSDAT	END+1!, HEADER+4, HEADER+5, BADHEAD+3, BADHEAD+4
>> ACHSDTSV	LST2+3*, LSTEND+2
ACHSEIN	END+1!, PRINT+2, P1+1, P1+2, P1+4, P2+1, P2+4, P2+9
ACHSFAC	ACHSYDRV+7*, END+1!
ACHSLUDT	CALC+2~, LSTEND+1, LSTEND+2, LSTEND+4
ACHSNODE	CALC+2~, LSTUSED+1, LST2+1, LST2+2, LST2+3
ACHSPAGE	END+1!, PRINT+2, BADEIN+1, HEADER+3, HEADER+9, BADHEAD+2, BADHEAD+9
ACHSQIO	DEVICE+7*, END+1!
ACHSSAVE	END+1!
ACHSSKIP	END+1!, PRINT+2, P1+4, P2+9
ACHSTIM	END+1!, HEADER+4, BADHEAD+3, BADHEAD+7
ACHSUSR	ACHSYDRV+7*, END+1!, BADHEAD+7
ACHSVNDR	END+1!, P1+3, P2+1, P2+2, P2+4, LSTUSED+2, LST2+1
C	END+1!, PRINT+4, P2+5, TOTL+2, BADEIN+5, BAD1+4, BADTOTL+2
DIR	END+1!
DIROUT	END+1!
DIRUT	END+1!
DTOUT	END+1!
DUOUT	END+1!
DUZ(2	ACHSYDRV+7, LSTUSED+2, LST2+1, LSTEND+2
E	CALC+3!, CALC+7, CHECK1+1, CHECK1+2!, VNDR+1, VNDR+3, VNDR+6, VNDR+7
I	END+1!
IO	P2+3, TOTL+1, BADEIN+3, BADTOTL+1, HEADER+1, BADHEAD+7, LSTEND+3
IO("Q"	DEVICE+5, DEVICE+10!
IO("S"	DEVICE+5, P2+8, TOTL+3, BAD1+6, BADTOTL+3
IOF	BADTOTL+4, HEADER+2, BADHEAD+1
IOM	DEVICE+7
ION	DEVICE+7
>> IOPAR	DEVICE+7
IOSL	DEVICE+7, P2+7, P2+8, BAD1+5, BAD1+6
IOST	DEVICE+7, P2+7, P2+8, TOTL+3, BAD1+5, BAD1+6, BADTOTL+3
>> POP	DEVICE+4
U	ACHSYDRV+7, DEVICE+7, CALC+5, VNDR+5, P2+4, BAD1+3, LSTEND+2
V	CALC+3!, CALC+4, CALC+5, CHECK1+2!, CHECK1+3, VNDR+1, VNDR+2, VNDR+3, VNDR+5, VNDR+6 , VNDR+7
>> X	VNDR+4, VNDR+5, VNDR+6, HEADER+6, HEADER+7, HEADER+8, HEADER+9, BADHEAD+5, BADHEAD+6, BADHEAD+8 , BADHEAD+9
>> Y	DEVICE+4, HEADER+4, BADHEAD+3*
>> ZTDESC	DEVICE+7*
>> ZTIO	DEVICE+7*
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
>> ZTRTN	DEVICE+7*
>> ZTSAVE(	DEVICE+8*
ZTSK	DEVICE+10!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSYDRV

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: