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: SROACC

Package: Surgery

Routine: SROACC


Information

SROACC ;B'HAM ISC/MAM - CPT ACCURACY ; [ 09/22/98 11:19 AM ]

Source Information

Source file <SROACC.m>

Entry Points

Name Comments DBIA/ICR reference
BEG
START
ASK
ALL
DEV
EN ; entry when queued
END
HELP
HDR ; print heading
SPEC
MSP
CTD()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Report to Check CPT Coding Accuracy"
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: @IOF,!,"Print the Report of CPT Coding Accuracy for which cases ?",!!,"1. O.R. Surgical Procedures",!,"2. Non-O.R. Procedures",!,"3. Both O.R. Surgical Procedures and Non-O.R. Procedures (All Specialties)"
  • Line Location: ASK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ALL+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to print the report for all codes, or 'NO'",!,"to select a specific CPT Code.",!!,"Press RETURN to continue "
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: ALL+4
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: WRITE
  • Prompt: !!,"Enter '1' or press <RET> to include only OR surgical procedure cases on the",!,"report. Enter '2' to include only non-OR procedure cases on the report."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"Enter '3' to include cases for both OR surgical procedures and non-OR",!,"procedures on the report."
  • Line Location: HELP+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
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+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"DATE REVIEWED:"
  • 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",!,?20,"SPECIALTY"
  • 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 sort the report by specialty, or 'NO'",!,"to sort the report by date only.",!!,"Press RETURN to continue "
  • Line Location: SPEC+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: MSP+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSP+2
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to sort the report by specialty, or 'NO'",!,"to sort the report by date only.",!!,"Press RETURN to continue "
  • Line Location: MSP+2
Info |  Source |  Entry Points |  Interaction Calls