Routine: LRBEECPT

Package	Total	Call Graph
VA Fileman	6	NOW^%DTC EN^DDIOL ^DIC UPDATE^DIE ($$GET1,GETS)^DIQ ^DIR
DRG Grouper	1	$$CPT^ICPTCOD
Lab Service	1	AAMA^LRBEECP1

Package	Total	Caller Graph
Lab Service	1	LRED CPT

Entry Points

Name	Comments	DBIA/ICR reference
DEFH(LRBETST,LRBETSTN)
GCPT(CPT,TDAT)	; Get the CPT/HCPCS Code
SCPT(LRBEAR2)	; Set the CPT code in File #60
WORK(LRBEY)	; Start getting the CPT/HCPCS Codes
KLL	; Kill all variable
ADAT(LRBEMSG)	; Ask for date
SAR(LRBETST,LRBEAR2)	; Setup Array for Specimen
SPEC(LRBETST)	; Get the Specimen and CPT of the Test
DCPT(LRBETST,LRBETSTN)
STRT	; Start the routine
ACPT(LRBEMSG,DCPT)	; Ask for CPT/HCPCS Code
DISCPT(LRBEAR2)
RCPT(LRBEMSG,DCPT)	; Ask for Required default CPT/HCPCS Code
TST	; Ask the user for the test to work on.
DHCPCS(LRBETST,LRBETSTN)
WMSG(LRBEDESC,LRBEFLG)	; Write Message
DEFC(LRBETST,LRBETSTN)	; Get the Default CPT

External References

Name	Field # of Occurrence
NOW^%DTC	ADAT+2
EN^DDIOL	STRT+6, STRT+8, DISCPT+2, DISCPT+6, DISCPT+7, DISCPT+12, DISCPT+13, DISCPT+14, DISCPT+15, DISCPT+16 , DISCPT+19, DISCPT+20, DISCPT+21, DISCPT+22, DISCPT+25, DISCPT+26, DISCPT+27, DISCPT+28, DISCPT+31, DISCPT+32 , DISCPT+33, WMSG+6
^DIC	TST+1
UPDATE^DIE	SCPT+25
$$GET1^DIQ	DHCPCS+4, DCPT+4
GETS^DIQ	SAR+2
^DIR	STRT+7, ACPT+3, ADAT+5, RCPT+3, DISCPT+35
$$CPT^ICPTCOD	SPEC+16, DHCPCS+9, DCPT+9, GCPT+1
AAMA^LRBEECP1	WORK+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WORK+3
Function Call: WRITE	Prompt: ! Line Location: WORK+4
Function Call: WRITE	Prompt: ! Line Location: WORK+5
Routine Call	DIE Line Location: SCPT+25
Routine Call	DIC Line Location: TST+1
Routine Call	DIR Line Location: STRT+7 ACPT+3 ADAT+5 RCPT+3 DISCPT+35

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	SCPT+18

Label References

Name	Line Occurrences
$$ACPT	SPEC+11, DHCPCS+5
$$ADAT	SPEC+21, DHCPCS+12, DCPT+12
$$DCPT	DEFC+3
$$DHCPCS	DEFH+3
$$GCPT	SPEC+22, DHCPCS+14, DCPT+14
$$RCPT	DCPT+5
DEFC	WORK+5
DEFH	WORK+4
DISCPT	WORK+8
KLL	STRT+9
SAR	SPEC+3
SCPT	DISCPT+36
SPEC	WORK+3
TST	STRT+5
WMSG	SPEC+12, SPEC+23, SPEC+24, SPEC+25, DEFH+5, DEFH+9, DEFH+10, DEFH+11, DEFC+5, DEFC+9 , DEFC+10, DEFC+11
WORK	TST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADAT+6
A	SPEC+1~, SPEC+4, SPEC+5, SPEC+6, SPEC+7, SPEC+8, SAR+1~, SAR+3, SAR+4, SAR+6 , SAR+8
B	SAR+1~, SAR+5*, SAR+6, SAR+7
CPT	GCPT~, GCPT+1
DCPT	ACPT~, ACPT+2, RCPT~, RCPT+2
DIC	STRT+1~, TST+1*, TST+2!, KLL+1!
DIC(0	TST+1*
DIR	STRT+1~, ACPT+1~, ADAT+1~, RCPT+1~, DISCPT+1~, KLL+1!
DIR("A"	ACPT+3, ADAT+4, RCPT+3, DISCPT+35
DIR("B"	ACPT+2, ADAT+3, RCPT+2, DISCPT+35
DIR(0	STRT+7, ACPT+3, ADAT+3, RCPT+3, DISCPT+35*
DIRUT	ACPT+1~, ADAT+1~, RCPT+1~
DTOUT	ACPT+1~, ACPT+4, ADAT+1~, ADAT+5, RCPT+1~, RCPT+4
DUOUT	ACPT+1~, ACPT+4, ADAT+1~, ADAT+5, RCPT+1~, RCPT+4
LRBEALO	DISCPT+1~, DISCPT+5, DISCPT+11, DISCPT+16
LRBEAR	STRT+2~, SAR+1~, KLL+2!
LRBEAR(	SAR+3, SAR+4, SAR+5, SAR+7
LRBEAR2	STRT+2~, WORK+8, DISCPT~, DISCPT+36, SCPT~, SAR~, KLL+2!
LRBEAR2(	SAR+8*
LRBEAR2("TEST"	WORK+2, SPEC+19, SPEC+20, SPEC+26, SPEC+28, SPEC+29, DEFH+7, DEFH+12, DHCPCS+13, DEFC+7 , DEFC+12, DCPT+13, DISCPT+3, DISCPT+4, DISCPT+7, DISCPT+8, DISCPT+9, DISCPT+10, DISCPT+17, DISCPT+23 , DISCPT+29, SCPT+4, SCPT+5, SCPT+7, SCPT+9, SCPT+12, SCPT+13, SCPT+22
LRBEARP	STRT+2~, KLL+2!
LRBEAX	SPEC+1~, SPEC+22, SPEC+23, SPEC+24, SPEC+25, SPEC+26, SPEC+27, DEFH+1~, DEFH+3, DEFH+4 , DEFH+5, DEFH+6, DEFH+7, DEFH+8, DEFH+9, DEFH+10, DEFH+11, DEFH+12, DEFC+1~, DEFC+3 , DEFC+4, DEFC+5, DEFC+6, DEFC+7, DEFC+8, DEFC+9, DEFC+10, DEFC+11, DEFC+12, DISCPT+1~ , DISCPT+3, DISCPT+4, DISCPT+7, DISCPT+8, DISCPT+9, DISCPT+10, DISCPT+17, DISCPT+23, DISCPT+29, SCPT+1~ , SCPT+4, SCPT+5, SCPT+6, SCPT+7, SCPT+8, SCPT+9, SCPT+10, SCPT+12, SCPT+13, SCPT+18 , SCPT+20, SCPT+22, KLL+1!
LRBEBX	DISCPT+1~, DISCPT+8, DISCPT+9, DISCPT+10, SCPT+1~, SCPT+11, SCPT+12*, SCPT+13, SCPT+18, SCPT+20 , SCPT+22
LRBECPT	SPEC+1~, SPEC+11, SPEC+12, SPEC+13, SPEC+14, SPEC+15, SPEC+17, SPEC+18, SPEC+19, SPEC+22 , DHCPCS+1~, DHCPCS+5, DHCPCS+6, DHCPCS+7, DHCPCS+8, DHCPCS+10, DHCPCS+11, DHCPCS+14, DCPT+1~, DCPT+5 , DCPT+6, DCPT+7, DCPT+8, DCPT+10*, DCPT+11, DCPT+14
LRBEDCPT	SPEC+2~, SPEC+8, SPEC+11, SPEC+12, SPEC+13, SPEC+16, SPEC+17, DHCPCS+1~, DHCPCS+4, DHCPCS+5 , DHCPCS+7, DHCPCS+9, DHCPCS+10, DHCPCS+11, DCPT+1~, DCPT+4*, DCPT+5, DCPT+7, DCPT+9, DCPT+10 , DCPT+11
LRBEDEL	SCPT+2~, SCPT+14*, SCPT+15, SCPT+17, SCPT+24
LRBEDESC	SPEC+2~, SPEC+16, SPEC+17, DHCPCS+1~, DHCPCS+9, DHCPCS+10, DCPT+1~, DCPT+9*, DCPT+10, WMSG~ , WMSG+3, WMSG+5
LRBEDT	SPEC+1~, SPEC+21, SPEC+22, SPEC+27, SPEC+29, DHCPCS+1~, DHCPCS+12, DHCPCS+13, DHCPCS+14, DCPT+1~ , DCPT+12*, DCPT+13, DCPT+14
LRBEFIL	SPEC+1~, DHCPCS+1~, DHCPCS+3, DHCPCS+4, DCPT+1~, DCPT+3, DCPT+4
LRBEFIL1	SCPT+1~, SCPT+3*, SCPT+6, SCPT+8, SCPT+10
LRBEFIL2	SCPT+1~, SCPT+3*, SCPT+23, SCPT+24
LRBEFLD	SPEC+1~, DHCPCS+1~, DHCPCS+3, DHCPCS+4, DCPT+1~, DCPT+3, DCPT+4
LRBEFLG	WMSG~, WMSG+2, WMSG+3, WMSG+4, WMSG+5
LRBEMSG	STRT+2~, SPEC+1~, SPEC+10, SPEC+11, DHCPCS+1~, DHCPCS+2, DHCPCS+5, DCPT+1~, DCPT+2*, DCPT+5 , ACPT~, ACPT+3, ADAT~, ADAT+3, RCPT~, RCPT+3, KLL+2!
LRBEPNL	STRT+1~, TST+3, TST+4, WORK+6
LRBEQT	SPEC+2~, SPEC+9, SPEC+13, SPEC+14, SPEC+19, SPEC+26, DEFH+1~, DEFH+2, DEFH+4, DEFH+7 , DEFH+8, DEFH+12, DHCPCS+1~, DEFC+1~, DEFC+2, DEFC+4, DEFC+7, DEFC+8, DEFC+12, DCPT+1~ , DISCPT+1~, DISCPT+2, DISCPT+3, DISCPT+4*, DISCPT+34, KLL+1!
LRBEQUIT	STRT+1~, STRT+3, STRT+4, STRT+5, STRT+7, TST+5, WORK+3, WORK+4, WORK+5, WORK+6 , WORK+8, SPEC+4, SPEC+9, SPEC+11, SPEC+21, SPEC+22, DEFH+2, DEFH+4, DHCPCS+5, DHCPCS+12 , DEFC+2, DEFC+4, DCPT+5, DCPT+12, ACPT+4, ADAT+5, RCPT+4
LRBESEQ	SCPT+1~, SCPT+18*, SCPT+21
LRBESP	SPEC+1~, SPEC+5*, SPEC+7, SPEC+8, SPEC+18
LRBESPE	SPEC+1~, SPEC+7*, SPEC+10, SPEC+20, SPEC+27, SPEC+28
LRBESPI	SPEC+1~, SPEC+6*, SPEC+18, SPEC+19, SPEC+20, SPEC+26, SPEC+28, SPEC+29
LRBETCPT	SAR+1~, SAR+4, SAR+7, SAR+8
LRBETNAM	SAR+1~, SAR+4*, SAR+8
LRBETNUM	SCPT+19, SCPT+20, SCPT+21, SAR+1~, SAR+4, SAR+7*, SAR+8
LRBETST	STRT+2~, WORK+1*, WORK+2, WORK+3, WORK+4, WORK+5, WORK+7, SPEC~, SPEC+3, SPEC+18 , SPEC+19, SPEC+20, SPEC+26, SPEC+28, SPEC+29, DEFH~, DEFH+3, DEFH+7, DEFH+12, DHCPCS~ , DHCPCS+4, DHCPCS+13, DEFC~, DEFC+3, DEFC+7, DEFC+12, DCPT~, DCPT+4, DCPT+13, SAR~ , SAR+2, KLL+2!
LRBETSTN	STRT+2~, WORK+1*, WORK+4, WORK+5, WORK+7, DEFH~, DEFH+3, DHCPCS~, DHCPCS+2, DEFC~ , DEFC+3, DCPT~, DCPT+2, KLL+2!
LRBEX	SCPT+1~, SCPT+5, SCPT+6, SCPT+7, SCPT+8, SCPT+9, SCPT+10, SCPT+13, SCPT+14, SCPT+16 , SCPT+23
LRBEXIEN	SCPT+2~, SCPT+16, SCPT+20, SCPT+23, SCPT+24
LRBEXMSG	SPEC+2~, WMSG+1~, WMSG+2, WMSG+3, WMSG+4, WMSG+5, WMSG+6
LRBEXX	SCPT+1~, SCPT+22*, SCPT+24
LRBEY	STRT+1~, TST+5*, WORK~, WORK+1, WORK+2
LRERR	SCPT+1~
LRFDA	SCPT+1~
LRFDA(99	SCPT+6, SCPT+8, SCPT+10, SCPT+23, SCPT+24*
>> LRFDAIEN	SCPT+16*
>> LRFDAIEN(	SCPT+21*
LRX	SPEC+2~, SPEC+3
LRX(	SPEC+4, SPEC+5, SPEC+7, SPEC+8
TDAT	GCPT~, GCPT+1
U	WORK+1, SPEC+15, SPEC+16, SPEC+20, SPEC+23, SPEC+24, SPEC+25, SPEC+26, SPEC+28, SPEC+29 , DEFH+6, DEFH+9, DEFH+10, DEFH+11, DHCPCS+9, DHCPCS+13, DEFC+6, DEFC+9, DEFC+10, DEFC+11 , DCPT+9, DCPT+13, ACPT+4, RCPT+4, DISCPT+7, DISCPT+14, DISCPT+15, DISCPT+20, DISCPT+21, DISCPT+26 , DISCPT+27, SCPT+6, SCPT+8, SCPT+10, SCPT+14, SCPT+16, SCPT+23, SCPT+24, SAR+4
X	STRT+1~, ACPT+1~, ACPT+4, ACPT+6, ADAT+1~, ADAT+3, RCPT+1~, RCPT+4, RCPT+5, DISCPT+1~ , DISCPT+9, DISCPT+14, DISCPT+15, DISCPT+17, DISCPT+18, DISCPT+20, DISCPT+21, DISCPT+23, DISCPT+24, DISCPT+26 , DISCPT+27, DISCPT+29, DISCPT+30, DISCPT+32, KLL+1!
Y	STRT+1~, STRT+5, STRT+7, TST+2, TST+5, ACPT+1~, ACPT+5, ACPT+7, ACPT+8, ADAT+1~ , ADAT+5, ADAT+6, RCPT+1~, RCPT+6, RCPT+7, DISCPT+1~, DISCPT+10, DISCPT+13, DISCPT+36, KLL+1!
Y(0	TST+4

Customize PDF page

Package: Lab Service

Routine: LRBEECPT

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

Local Variables

Legend: