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
Print Page as PDF
Routine: SROACC0

Package: Surgery

Routine: SROACC0


Information

SROACC0 ;BIR/MAM - CPT ACCURACY SORT BY SPECIALTY ;05/13/99 2:33 PM

Source Information

Source file <SROACC0.m>

Entry Points

Name Comments DBIA/ICR reference
DEV
EN ; entry when queued
END
HDR ; print heading
SPEC
MSP
OPER
OPERT ; patch SR*3*142 changes
OTHER ; other procedures
OTHERT ; other procedures - file #136
OMOD ; Other procedure CPT modifiers - file #136
PMOD ; principle procedure CPT modifiers - file #136
LOOP ; break CPT line greater than 50 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?126,"PAGE",!,?58,"SURGICAL SERVICE",?126,$J(SRPAGE,4),!,?51,"REPORT OF CPT CODING ACCURACY",?100,"REVIEWED BY:"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?100,"DATE REVIEWED:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$S(SRFLG=1:"O.R. SURGICAL PROCEDURES",SRFLG=2:"NON-O.R. PROCEDURES",1:"O.R. SURGICAL PROCEDURES AND NON-O.R. PROCEDURES")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,?1,"PROCEDURE DATE",?20,"PATIENT",?60,"PROCEDURES",?111,"SURGEON/PROVIDER",!,?3,"CASE #",?22,"ID#",?111,"ATTEND SURG/PROV"
  • Line Location: HDR+6
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SPEC+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to print the report for all specialties, or 'NO'",!,"to select a specific Surgical Specialty.",!!,"Press RETURN to continue "
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: SPEC+3
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: MSP+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSP+3
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to print the report for all specialties, or 'NO'",!,"to select a specific Medical Specialty.",!!,"Press RETURN to continue "
  • Line Location: MSP+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: MSP+4
Info |  Source |  Entry Points |  Interaction Calls