Routine: ACHSCPTD

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

Package

Total

Call Graph

Contract Health Management Information System

($$EBB,$$LOC,$$PB,$$USR)^ACHS ^ACHSCPTE ^ACHSCPTG ^ACHSVAR

IHS VA Utilities

$$DIR^XBDIR $$C^XBFUNC VIEWR^XBLM EN^XBVK

Kernel

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

VA Fileman

WAIT^DICD ^DIR

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHSCPTF ACHSCPTI ACHSRPTCPTVNDR

Package

Total

Caller Graph

Contract Health Management Information System

ACHSCPTF ACHSCPTI ACHSRPTCPTVNDR

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

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+7
HOME^%ZIS	DEVICE+8, ZTLOAD+5, END+2
^%ZTLOAD	ZTLOAD+3
$$EBB^ACHS	SELEND+3
$$LOC^ACHS	ACHSCPTD+5
$$PB^ACHS	DEVICE+3
$$USR^ACHS	ACHSCPTD+4
^ACHSCPTE	DEVICE+9
^ACHSCPTG	DEVICE+9
^ACHSVAR	END+2
WAIT^DICD	DEVICE+9
^DIR	ENTCODE+2, REPTYP+7, DEVICE+8
$$DIR^XBDIR	VENDOR+2, SELVNDR+1, CPTCODE+2, SELBEG+1, SELEND+1
$$C^XBFUNC	ACHSCPTD+5
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: !!!!,$$C^XBFUNC("*** CPT Code Summary for "_$$LOC^ACHS_" ***",80) Line Location: ACHSCPTD+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 REPTYP+7 DEVICE+8
Routine Call	%ZIS Line Location: DEVICE+7

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ACHSCPT"	ACHSCPTD+3!

Label References

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

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	ACHSCPTD+6*
>> ACHSQIO	ZTLOAD+1*
>> ACHSRTYP	REPTYP+9*, DEVICE+5, DEVICE+9, ZTLOAD+1
>> ACHSUSR	ACHSCPTD+4*
>> ACHSVEN	SELVNDR+1*
ACHSVNDR	VENDOR+1!
ACHSVNDR(0	VENDOR+4*
C	END+1!
DIR	HELP+11!, REPTYP+1!, DEVICE+2!, END+1!
DIR("?"	REPTYP+3, REPTYP+4, REPTYP+5, REPTYP+6
DIR("A"	ENTCODE+1, REPTYP+2
DIR("B"	REPTYP+2*
DIR(0	ENTCODE+1, REPTYP+2, DEVICE+8*
DIROUT	VENDOR+3, SELVNDR+2, CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, REPTYP+8, END+1!
DIRUT	ENTCODE+3, END+1!
DT	SELEND+1
DTOUT	VENDOR+3, SELVNDR+2, CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, REPTYP+8, DEVICE+4, END+1!
DUOUT	VENDOR+3, SELVNDR+2, CPTCODE+3, ENTCODE+3, SELBEG+2, SELEND+2, REPTYP+8, DEVICE+4, END+1!
DUZ(2	ACHSCPTD+6
I	END+1!
IO("Q"	DEVICE+9, ZTLOAD+4!
IO("S"	DEVICE+9, DEVICE+10
IOM	ZTLOAD+1
ION	ZTLOAD+1
IOSL	ZTLOAD+1
IOST	DEVICE+10, ZTLOAD+1
>> POP	DEVICE+8
U	DEVICE+4
>> Y	VENDOR+2, VENDOR+4, CPTCODE+2, CPTCODE+4, ENTCODE+6, ENTCODE+7, REPTYP+9, DEVICE+8
>> 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: ACHSCPTD

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: