Routine: LRCAPPH4

Information

LRCAPPH4 ;DALOI/RSH/FHS-PRINT CPT CODES ;1-OCT-1998

Name	Comments	DBIA/ICR reference
EN	;
ASK	;
ACTIVE	;Search ^LAM( and find INVALID CPT CODES
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"
IO
END	;
HDR	;
CNTR

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