Routine: LRCAPPH4

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR
Lab Service	1	(EN,END)^LRCAPPH3
VA Fileman	1	^DIR

Package	Total	Caller Graph
Lab Service	1	LRCAPCPTI

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
END	;
HDR	;
ACTIVE	;Search ^LAM( and find INVALID CPT CODES
CNTR
IO
ASK	;
DQ(LRNX)	; ; LRNODE= subscripted data storage array root ; ie ^TMP("LRCAPPH",$J OR X("LR" ; ^TMP("LRCAPPH",$J,0)="KERNEL DELETE DATE^REPORT DATE^REPORT NAME"

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,$$CJ^XLFSTR("This option will print CPT CODE that have inactive",IOM) Line Location: EN+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("date in the WKLD CODE(#64) ONLY",IOM) Line Location: EN+4
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("It DOES NOT provide a inactive CPT code list from",IOM) Line Location: EN+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("the CPT (#81) file. ",IOM) Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: ACTIVE+3
Function Call: WRITE	Prompt: ! Line Location: IO+6
Function Call: WRITE	Prompt: !,@LRNODE Line Location: IO+10
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: @IOF,!! Line Location: HDR+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+7
Function Call: WRITE	Prompt: $$CJ^XLFSTR(LRPTNM,IOM),! Line Location: CNTR+0
Function Call: WRITE	Prompt: $$CJ^XLFSTR(LRPDT_" Page: "_LRPAGE,IOM) Line Location: CNTR+1
Function Call: WRITE	Prompt: !,LRLINE,!! Line Location: CNTR+2
Routine Call	DIR Line Location: ASK+2 HDR+4
Routine Call	%ZIS Line Location: ASK+4

Name	Field # of Occurrence
%ZIS	ASK+4!*
DIR	ASK+1!, ASK+2!, END+6!, HDR+3~
DIR(0	ASK+1, HDR+4
DIRUT	ASK+3, END+6!, HDR+5
>> DTOUT	ASK+3
DUOUT	ASK+3, END+6!
IO	IO
IO("Q"	ASK+6
IOF	EN+3, END+2, HDR+6, HDR+7
IOM	EN+3, EN+4, EN+5, EN+6, DQ+6, IO+12, END+1, CNTR, CNTR+1
ION	ASK+7
IOSL	IO+11
IOST	END+2, HDR+2
>> LRACT	ACTIVE+1*
>> LRDBUG	END+5
LREND	EN+1~, EN+2, ACTIVE+1, ACTIVE+4, DQ+4~, DQ+6, IO+8, IO+9, IO+11, END+1 , END+8, HDR+1, HDR+2, HDR+5*, HDR+6
LRION	ASK+7*, ASK+9, ASK+10!
LRLINE	DQ+6*, END+6!, CNTR+2
LRNODE	DQ+7, DQ+8, DQ+9, DQ+10, DQ+11, IO+1, IO+2, IO+8, IO+10, END+6!
LRNX	DQ~, DQ+7, DQ+8, IO+8
LRNXL	DQ+7*, IO+8, END+6!
LRPAGE	DQ+6, END+6!, HDR+2, HDR+7, CNTR+1
LRPDT	DQ+5, IO+4, IO+5*, END+7!, CNTR+1
LRPTNM	DQ+11, IO+3, END+7!, CNTR
LRREC	IO+2*, IO+3, IO+4, END+6!
LRT	END+7!
LRX	END+6!
POP	ASK+5, END+7!
U	IO+3, IO+4
>> Y	ASK+3
ZTDESC	ASK+7*, END+7!
ZTIO	ASK+7*, END+7!
>> ZTQUEUED	DQ+5, IO+12
>> ZTREQ	DQ+5*
ZTRTN	ASK+7*, END+7!
ZTSAVE	END+7!
>> ZTSK	ASK+9, END+1