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

Package: Surgery

Routine: SROACC1


Information

SROACC1 ;BIR/MAM - CPT ACCURACY ALL CODES AND SPECIALTIES ;05/13/99 3:24 PM

Source Information

Source file <SROACC1.m>

Entry Points

Name Comments DBIA/ICR reference
MORE ; print CPT description and get cases
SRTN
LOOP ; break procedure greater than 50 characters
DESC ; print description
PRINT ; print each case
UTIL ; set ^TMP("SR")
LINE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SROACC1+7
Function Call: WRITE
  • Prompt: !!,?(132-$L(CPT1)\2),CPT1
  • Line Location: DESC+2
Function Call: WRITE
  • Prompt: !,?50,"PRINCIPAL PROCEDURES"
  • Line Location: DESC+3
Function Call: WRITE
  • Prompt: !,?54,"OTHER PROCEDURES"
  • Line Location: DESC+4
Function Call: WRITE
  • Prompt: !,?(132-$L(Y)\2),Y
  • Line Location: DESC+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: DESC+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DESC+6
Function Call: WRITE
  • Prompt: !,SRDT,?20,SRNAME,?60,SROP(1),?111,SRSUR,!,?3,SRTN,?20,VA("PID")
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?60,SROP(2)
  • Condition for execution: $D(SROP(2))
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?111,SRATT,!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: "NON-O.R."
  • Condition for execution: SRFLG=3&(SRNON)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?60,SROP(3)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?111,SRATT,!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?111,SRATT,!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?60,SROPT(LOOP)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: LINE+0
Info |  Source |  Entry Points |  Interaction Calls