Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRBEECPT

Package: Lab Service

Routine: LRBEECPT


Information

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

Source Information

Source file <LRBEECPT.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call