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

Package: Surgery

Routine: SROALNC


Information

SROALNC ;BIR/ADM - LIST OF CASES WITHOUT CPT CODE ;11/13/07

Source Information

Source file <SROALNC.m>

Entry Points

Name Comments DBIA/ICR reference
UTL ; set up TMP global
SRSD
CASE
PRINT ; print case info
OTHER ; other operations
LOOP ; break procedures
PAGE
HDR ; print heading
TOT
GRAND

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SRTN,?18,SRANM_" "_VA("PID"),?53,SRATYPE,?67,SRSTATUS,!,SRDT,?18,SROPS(1),!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?18,SROPS(I),!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"If you want to continue the listing, press the 'Enter' key.",!,"Type '^' to return to the menu."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF,!,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J("PAGE "_SRPAGE,9)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,">>> "_SRSS
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR "_SRSS_": ",TOT
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",GRAND
  • Line Location: GRAND+0
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR ALL SPECIALTIES: ",GRAND
  • Line Location: GRAND+1
Info |  Source |  Entry Points |  Interaction Calls