Routine: ACHSCPTA

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	3	($$EBB,$$PB,$$USR)^ACHS ^ACHSCPTB ^ACHSVAR
IHS VA Utilities	3	$$DIR^XBDIR VIEWR^XBLM EN^XBVK
VA Fileman	2	WAIT^DICD ^DIR

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR

Contract Health Management Information System

($$EBB,$$PB,$$USR)^ACHS ^ACHSCPTB ^ACHSVAR

IHS VA Utilities

$$DIR^XBDIR VIEWR^XBLM EN^XBVK

VA Fileman

WAIT^DICD ^DIR

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSRPTCPTREV

Package

Total

Caller Graph

Contract Health Management Information System

ACHSRPTCPTREV

Name	Comments	DBIA/ICR reference
END	;
HELP	;
ZTLOAD	;Loads Taskman
SELBEG	;
CPTCODE	;
DOS	;Select Dates of Service
DEVICE	;Device Selection
SELEND	;
ENTCODE	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+7
HOME^%ZIS	DEVICE+8, ZTLOAD+5, END+2
^%ZTLOAD	ZTLOAD+3
$$EBB^ACHS	SELEND+3
$$PB^ACHS	DEVICE+3
$$USR^ACHS	ACHSCPTA+4
^ACHSCPTB	DEVICE+9
^ACHSVAR	END+2
WAIT^DICD	DEVICE+9
^DIR	ENTCODE+2, DEVICE+8
$$DIR^XBDIR	CPTCODE+2, SELBEG+1, SELEND+1
VIEWR^XBLM	DEVICE+5
EN^XBVK	DEVICE+5, END+2
$$FMTE^XLFDT	SELEND+1
$$REPEAT^XLFSTR	HELP+1, HELP+2, HELP+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?15,"*** CPT Code Summary for ",$P($G(^DIC(4,ACHSFAC,0)),U)," ***",! Line Location: ACHSCPTA+5
Function Call: WRITE	Prompt: 7,7,!!?8,$$REPEAT^XLFSTR("*",20) Line Location: HELP+1
Function Call: WRITE	Prompt: " SELECTING CPT CODES ",$$REPEAT^XLFSTR("*",20) Line Location: HELP+2
Function Call: WRITE	Prompt: !!?8,"1. You may enter '??' at any time for a list of valid codes." Line Location: HELP+3
Function Call: WRITE	Prompt: !?8,"2. You may enter CPT CODES by NAME or NUMBER." Line Location: HELP+4
Function Call: WRITE	Prompt: !?8,"3. You may enter from 1 to 10 CPT CODES." Line Location: HELP+5
Function Call: WRITE	Prompt: !?8,"4. Press <RETURN> to terminate the selection process." Line Location: HELP+6
Function Call: WRITE	Prompt: !?8,"5. Enter '^^' at any prompt to EXIT THIS PROGRAM." Line Location: HELP+7
Function Call: WRITE	Prompt: 7,7,!!?8,$$REPEAT^XLFSTR("*",61) Line Location: HELP+8
Function Call: WRITE	Prompt: !! Line Location: HELP+9
Function Call: WRITE	Prompt: 7,7,!!?15,"That's 10!" Line Location: ENTCODE+4
Function Call: WRITE	Prompt: *7,!!?22,"At least one entry is required.",!?10,"Please select a CPT CODE or enter '^^' to exit this program.",! Line Location: ENTCODE+7
Function Call: WRITE	Prompt: *7,!!?20,"This report may take awhile to compile.",!?15," 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+8
Routine Call	%ZIS Line Location: DEVICE+8 ZTLOAD+5 END+2
Routine Call	DIR Line Location: ENTCODE+2 DEVICE+8
Routine Call	%ZIS Line Location: DEVICE+7

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	ACHSCPTA+5
^TMP("ACHSCPT"	ACHSCPTA+3!

Name	Line Occurrences
CPTCODE	ENTCODE+3, SELBEG+2, DEVICE+8
DOS	CPTCODE+4, ENTCODE+3, ENTCODE+4
END	CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, DEVICE+4, DEVICE+5, DEVICE+8
ENTCODE	ENTCODE+8
SELBEG	SELEND+2
SELEND	SELEND+3

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEVICE+3, DEVICE+4, DEVICE+5, ZTLOAD+2
>> %ZIS	DEVICE+6*
>> ACHS	HELP+10, ENTCODE+4, ENTCODE+5
>> ACHSBEG	SELBEG+1*, SELEND+3
ACHSCODE	CPTCODE+1!, ENTCODE+3, ENTCODE+7!
ACHSCODE(	ENTCODE+6*
ACHSCODE(0	CPTCODE+4*
>> ACHSEND	SELEND+1*, SELEND+3
>> ACHSFAC	ACHSCPTA+4*, ACHSCPTA+5
>> ACHSQIO	ZTLOAD+1*
>> ACHSUSR	ACHSCPTA+4*
C	END+1!
DIR	HELP+11!, DEVICE+2!, END+1!
DIR("A"	ENTCODE+1*
DIR(0	ENTCODE+1, DEVICE+8
DIROUT	CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, END+1!
>> DIRUT	ENTCODE+3
DT	SELEND+1
DTOUT	CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, DEVICE+4, END+1!
DUOUT	CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, DEVICE+4, END+1!
DUZ(2	ACHSCPTA+4
I	END+1!
IO("Q"	DEVICE+9, ZTLOAD+4!
IO("S"	DEVICE+9
IOM	ZTLOAD+1
ION	ZTLOAD+1
IOSL	ZTLOAD+1
IOST	ZTLOAD+1
>> POP	DEVICE+8
U	ACHSCPTA+5, DEVICE+4
Y	CPTCODE+2*, CPTCODE+4, ENTCODE+6, ENTCODE+7, DEVICE+8, END+1!
>> ZTDESC	ZTLOAD+1*
>> ZTIO	ZTLOAD+1*
>> ZTRTN	ZTLOAD+1*
>> ZTSAVE(	ZTLOAD+2*
ZTSK	ZTLOAD+4!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSCPTA

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

Local Variables

Legend: