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 |
