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

Package: Surgery

Routine: SRONAN1


Information

SRONAN1 ;BIR/MAM - ANNUAL REPORT NON-O.R. PROCEDURES ;12/16/98 11:46 AM

Source Information

Source file <SRONAN1.m>

Entry Points

Name Comments DBIA/ICR reference
SET ; set local variables
UTIL ; set ^TMP("SR",$J
CPT ; get procedure name and code
PRINT ; print CPT info
SUM ; print summary
HDR1 ; print heading to screen
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SRCPT,?66,^TMP("SR",$J,SRSS,SRCPT)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,SRSS,?42,"TOTAL NON-O.R. PROCEDURES: ",?67,^TMP("SR",$J,SRSS)
  • Line Location: SUM+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: @IOF,!,?22,"ANNUAL REPORT OF NON-O.R. PROCEDURES"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,?27,"SUMMARY OF ALL SPECIALTIES"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO,!
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST,?65,"REVIEWED BY:",!,?32,"SURGICAL SERVICE",!,?22,"ANNUAL REPORT OF NON-O.R. PROCEDURES",?65,"DATE REVIEWED:"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?27,"SUMMARY OF ALL SPECIALTIES"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"CPT - PROCEDURE",?30,"SPECIALTY",?65,"TOTAL"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6
Info |  Source |  Entry Points |  Interaction Calls