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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SRONEW

Package: Surgery

Routine: SRONEW


Information

SRONEW ;BIR/MAM - ENTER A NEW CASE; NOVEMBER 1, 2011

Source Information

Source file <SRONEW.m>

Entry Points

Name Comments DBIA/ICR reference
DEAD
DATE
ODP
OP
OPD ; Principal Preoperative Diagnosis
DOC
CASE ; create case in SURGERY file
ASURG ; attending surgeon
SPEC
PCPT ; Planned Principal Procedure Code (CPT)
UPDATE ; update case in SURGERY file
DIE
DEL
END
CONT ; continue new entry ?
RT ;start RT logging
CON ; check for concurrent case
SPIN ; spinal level free-text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")_" * Died "_SRDEATH_" *"
  • Line Location: DEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"When entering a new surgery case, a date MUST be entered. If you do not",!,"know the date of operation, enter this patient on the Waiting List."
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"The Desired Procedure Date MUST be entered and should be greater than or equal to date of operation. Enter '^' to exit.",!
  • Line Location: ODP+2
Function Call: WRITE
  • Prompt: !!,"A Principal Preoperative Diagnosis must be entered",!,"when creating a new case. Enter '^' to exit.",!
  • Line Location: OPD+2
Function Call: WRITE
  • Prompt: !,"The Principal Preoperative Diagnosis cannot contain a semicolon (;).",!,"Please re-enter the Diagnosis, using commas in place of the semicolons."
  • Line Location: OPD+3
Function Call: WRITE
  • Prompt: !!,"The information entered into the Principal Preoperative Diagnosis field",!,"has been transferred into the Indications for Operation field.",!,"The Indications for Operation field can be updated later if necessary.",!
  • Line Location: OPD+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DOC+0
Function Call: WRITE
  • Prompt: !!,"A Surgeon must be entered when creating a case. Enter '^' to exit.",!
  • Line Location: DOC+1
Function Call: WRITE
  • Prompt: !!,"The person you selected does not have the appropriate keys necessary to be",!,"entered as a surgeon. Please make another selection.",!
  • Line Location: DOC+3
Function Call: WRITE
  • Prompt: !!,"An Attending Surgeon must be entered when creating a case. Enter '^' to exit.",!
  • Line Location: ASURG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SPEC+0
Function Call: WRITE
  • Prompt: !!,"To create a surgical case, a Surgical Specialty MUST be selected. Enter '^'",!,"to exit.",!
  • Line Location: SPEC+1
Function Call: WRITE
  • Prompt: !!,"To make an operation request, Planned Principal Procedure Code field MUST be entered. Enter '^' to exit.",!
  • Line Location: PCPT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: UPDATE+5
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to re-enter a date and continue creating a new",!,"case, or 'NO' to leave this option."
  • Line Location: CONT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls,  WP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call