Prompt: !,"Edit (S)PECIMEN COUNT, (R)EPEAT, (Q)C COUNT (X)REFERENCE OR (O)THER",!
Line Location: N+0
Function Call: READ
Prompt: "(S/R/Q/O/X): Q// "
Formatting: ?15
Timeout: DTIME
Variable: X
Line Location: N+1
Function Call: WRITE
Prompt: !!,"Choose the type of count to be edited.",!,"SPECIMEN COUNT- the count of actual patient specimens.",!,"REPEAT COUNT- repeats done for this procedure.",!,"QC COUNT- quality control count.",!,"OTHER - referral",!
Line Location: N+2
Function Call: READ
Prompt: "Enter a positive or negative amount: 1// "
Formatting: !
Timeout: DTIME
Variable: LRA
Line Location: NUM+0
Function Call: WRITE
Prompt: *7," ??",!?5,"Enter the amount to add or subtract from this CAP code.",!?5,"Entry must be a whole number."