Routine: LRCAPPH3

Information

LRCAPPH3 ;DALOI/FHS/PC - CHECK CPT CODE AND FILE POINTERS ; 5/1/99

Source Information

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIK GETS^DIQ
Kernel	2	^%ZISC ($$FMTE,$$NOW)^XLFDT
DRG Grouper	1	$$CPT^ICPTCOD
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRCAPPH4

Entry Points

Name	Comments	DBIA/ICR reference
AA
LAM	;Look for inactive Codes and broken pointers.
CK	;
EN	;
END	;Called from LRCAPPH4
MSG2(MSGTYPE)	;
MAIL2	;Send message to G.LMI local mail group
LAB	;Look for inactive Codes in ^LAB
EN0	;Entry point for scan 64, scan 60, and mail reports to G.LMI
MSG	;
IACPT(LRBETST,LRBECDT,LRSPEC)	; Get inactive specimen CPT
ACTIVE	;Print only WKLD CODES that have associated test assigned
MAIL	;Send message to G.LMI local mail group
TST
MSGSET(SUB,TXT)	;SUB=subscript - TXT = array containing the message

Name	Field # of Occurrence
^%DT	EN+3, EN+6
^%ZISC	END+6
^DIC	CK+12
^DIK	LAM+9
GETS^DIQ	IACPT+3
$$CPT^ICPTCOD	LAB+16, LAB+19, IACPT+9, CK+6
$$FMTE^XLFDT	EN+6, MSG+19, MAIL+8, MAIL2+4
$$NOW^XLFDT	EN+4, EN+5, MAIL+8, MAIL2+4
^XMD	MAIL+10, MAIL2+6

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Routine Call	DIC Line Location: CK+12

FileNo	Call Tags
60.01	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	LAB+2, LAB+4, LAB+6, LAB+13
^LAM - [#64]	LAM+3, LAM+4, LAM+5, LAM+6, LAM+7!, LAM+10, MSG+2, MSG+8, MSG+17, MSG+18 , TST+1, TST+4
^TMP(	MSGSET+2, MSGSET+4, MSGSET+5
^TMP("LRCAPPH"	EN+1!, EN+4, END+5!, CK+7, MSG+3, MAIL+1, MAIL+4, MAIL+5, MAIL+7*, MSG2+3
^TMP("LRCAPPH60"	EN+5, END+5!, MAIL2+2, MAIL2+3

Name	Line Occurrences
CK	LAM+10
EN	EN0+2
EN0	ACTIVE+2
IACPT	LAB+8
MAIL	EN0+3
MAIL2	EN0+4
MSG	CK+9, CK+13, CK+14
MSG2	LAB+12, LAB+16, LAB+19
MSGSET	AA+20, LAB+20, MSG+11, MSG+21
TST	MSG+7, MSG+16

Name	Field # of Occurrence
^(	TST+4
^(0	MSG+8, MSG+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+3!, EN+6!, EN+7!
A	IACPT+1~, IACPT+4*, IACPT+5, IACPT+6
ARR	IACPT+1~
ARR(	IACPT+6*, IACPT+7, IACPT+8
DA	LAM+8~, LAM+9*, END+2!
DA(1	LAM+9*
DEFAULT	LAB+1~, LAB+13*, LAB+17, LAB+19
DIC	END+2!, CK+2!, CK+10*
DIC("S"	CK+11*
DIC(0	CK+10*
DIE	LAM+8~, END+2!
DIK	LAM+8~, LAM+9*, END+2!
DR	LAM+8~, END+2!
DT	LAB+8
DUZ	MAIL+2~, MAIL2+1~
HCPCS	LAB+1~, LAB+13*, LAB+14, LAB+16
I	END+2!, CK+3, MSGSET+1~, MSGSET+3, MSGSET+4
IOF	END+1
IOST	END+1
LRAAN	AA+2~, AA+3, AA+4, AA+5
LRACT	LAM+4, END+3!, ACTIVE+2*, CK+1
LRBEAR60	IACPT+1~
LRBEAR60(	IACPT+4, IACPT+5, IACPT+6
LRBEAX	IACPT+1~, IACPT+8, IACPT+9, IACPT+10
LRBECDT	IACPT~, IACPT+7, IACPT+9
LRBECPT	LAB+1~, LAB+7!, IACPT+2*
LRBECPT(	LAB+9, LAB+10, IACPT+10*
LRBEIEN	IACPT+1~, IACPT+2*, IACPT+3
LRBETST	IACPT~, IACPT+2, IACPT+10
>> LRC	MAIL+6*, MAIL+7
LRCE	AA+2~, AA+5*, AA+7
LRCMT	END+3!, MSG+3, MSG+4, MSG+6, MSG+9, MSG+10, MSG+14, MSG+15, MSG+19, MSG+20* , MAIL+3, MAIL+4, MAIL+5, MAIL+7, TST+3, TST+6, TST+7, MSGSET+2, MSGSET+4, MSGSET+5 , MSG2+3, MSG2+4, MSG2+5, MSG2+6, MAIL2+3*
LRI	LAM+2~, LAM+3, LAM+4, LAM+5, LAM+6, LAM+7, LAM+9, LAM+10, IACPT+2, END+3! , MSG+2, MSG+4, MSG+8, MSG+17, MSG+18, TST+1, TST+4
LRII	LAM+2~, LAM+5*, LAM+6, LAM+7, LAM+9, LAM+10, END+3!, MSG+8, MSG+17, MSG+18
LRINADT	EN+6*, END+3!, MSG+9
LRINADTX	EN+7*, END+3!, MSG+8, MSG+17
LRJ	LAB+1~, LAB+2*, LAB+4, LAB+6, LAB+8, LAB+9, LAB+10, LAB+13, MSG2+4
LRMSG	LAB+20, END+3!, CK+2!, MSG+1!, MSG+11, MSG+21, MSG2+2!
LRMSG(	MSG+4, MSG+6, MSG+9, MSG+10, MSG+14, MSG+15, MSG+19, MSG+20, TST+3, TST+7 , MSG2+3, MSG2+4, MSG2+6*
LRN	LAB+1~, LAB+4, END+3!, MSG+2, MSG+4, MSG2+4
LRPGDT	EN+3*, END+3!
LRSEP	EN+1!, END+3!
LRSEP(1	EN+1*, AA+20, MSG+10
LRSEP(2	EN+2*, MSG+20
LRSPEC	LAB+1~, LAB+6*, LAB+8, LAB+11, IACPT~, IACPT+2
LRT	TST+2!, TST+4*
LRTST	END+3!, TST+4, TST+5, TST+6, TST+7
LRTXT	AA+2~, AA+6!, AA+7*, AA+9, AA+11, AA+13, AA+15, AA+18, AA+20, END+4!
LRTXT(1	AA+9, AA+11, AA+13, AA+15, AA+18*, AA+20
LRTXT(10	AA+20*
LRTXT(2	AA+16, AA+19
LRX	AA+2~, AA+5, AA+8, AA+10, AA+12, AA+14, AA+17, LAM+10!, END+3!, CK+1 , CK+3
LRX(	CK+3*
LRX(1	CK+5, CK+10
LRX(2	CK+4, CK+11, MSG+6, MSG+15
LRX(4	CK+6, CK+14
LRXDT	LAM+2~, MSG+13~, MSG+18*, MSG+19
LRY	LAM+2~
MSGFLAG	LAB+1~, LAB+3, LAB+20, MSG2+1, MSG2+6
MSGTYPE	LAB+1~, LAB+11, LAB+12, LAB+15, LAB+16, LAB+18*, LAB+19, MSG2~, MSG2+6
SUB	MSGSET~, MSGSET+2, MSGSET+4, MSGSET+5
TXT	MSGSET~
TXT(	MSGSET+3, MSGSET+4
U	EN+4, EN+5, LAM+7, LAB+4, LAB+5, LAB+13, LAB+16, LAB+19, IACPT+10, CK+1 , CK+3, CK+6, CK+8, CK+10, MSG+3, MSG+4, MSG+8, MSG+12, MSG+14, MSG+17 , MSG+18, TST+7, MSGSET+2, MSGSET+5, MSG2+3, MSG2+4
X	EN+3, EN+6, LAB+4, LAB+5, LAB+10, LAB+13, LAB+16, LAB+19, IACPT+1~, IACPT+7 , IACPT+8, END+4!, CK+2!, CK+5, CK+6, CK+7, CK+10, MSG+6, TST+2~, TST+5* , TST+7, MSG2+6
XMDUZ	MAIL+2~, MAIL2+1~
XMSUB	END+4!, MAIL+2~, MAIL+8, MAIL2+1~, MAIL2+4
XMTEXT	END+4!, MAIL+2~, MAIL+9, MAIL2+1~, MAIL2+5
>> XMY("G.LMI"	MAIL+9, MAIL2+5
Y	EN+3, EN+4, EN+5, EN+6, EN+7, LAB+1~, LAB+16, LAB+19, END+4!, CK+2! , CK+6*, CK+8, CK+13, MSG+5
Y(0	CK+8*, MSG+12, MSG+14
>> ZTQUEUED	LAM+3, LAM+6

Customize PDF page

Package: Lab Service

Routine: LRCAPPH3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: