Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRBEECPT

Package: Lab Service

Routine: LRBEECPT


Information

LRBEECPT ;VA/DALOI/JAH - Edit CPT associated with CIDC; 3/29/05

Source Information

Source file <LRBEECPT.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All