LRBEECPT ;DALOI/JAH - Edit CPT associated with CIDC; 3/29/05
Source file <LRBEECPT.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^LAB(60 - [#60] | Classic Fileman Calls, GETS^DIQ |