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

Package: Surgery

Routine: SRSCHUN


Information

SRSCHUN ;BIR/ADM - MAKE UNREQUESTED OPERATION ; Jul 31, 2014@14:41

Source Information

Source file <SRSCHUN.m>

Entry Points

Name Comments DBIA/ICR reference
MUST
ODP
SURG ; surgeon
CASE ; create case in SURGERY file
ASURG ; attending surgeon
SPEC ; surgical specialty
OP ; principal operative procedure
OPD ; Principal Preoperative Diagnosis
PCPT ; Planned Principal Procedure Code (CPT)
UPDATE ; update case in SURGERY file
OTHER ; other required fields
DEL
CON ; request concurrent case
OTHDIR ; call to reader for site specific required fields
DIRYN ; call ^DIR if not FILE 80 or ICD-9 FILE 80 (added for SR*3.0*177)
ASK
END
SPIN ; spinal level free-text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MUST+1
Function Call: WRITE
  • Prompt: !,?29,$S(SRSCON=1:"FIRST",1:"SECOND")_" CONCURRENT CASE"
  • Condition for execution: $D(SRCC)
  • Line Location: MUST+1
Function Call: WRITE
  • Prompt: !,?14,"SCHEDULE UNREQUESTED OPERATION: REQUIRED INFORMATION",!!,SRNM_" ("_$G(SRSSN)_")",?65,SREQDT,!,SRLINE,!
  • Line Location: MUST+1
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+1
Function Call: WRITE
  • Prompt: !!,"To create a surgical case, a surgeon MUST be selected. Enter '^' to exit.",!
  • Line Location: SURG+2
Function Call: WRITE
  • Prompt: !,"Attending Surgeon: "_SRATTND,!
  • Line Location: ASURG+2
Function Call: WRITE
  • Prompt: !!,"An Attending Surgeon must be entered when creating a case. Enter '^' to exit.",!
  • Line Location: ASURG+4
Function Call: WRITE
  • Prompt: !!,"To create a surgical case, a surgical specialty MUST be selected. Enter '^'",!,"to exit.",!
  • Line Location: SPEC+2
Function Call: WRITE
  • Prompt: !!,"Principal procedure must not contain an up-arrow (^).",!
  • Line Location: OP+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: !!,"Press RETURN to continue "
  • Line Location: OPD+6
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: !!,"It is mandatory that you provide this information before proceeding with this",!,"option.",!
  • Line Location: OTHDIR+4
Function Call: WRITE
  • Prompt: !!,"No surgical case has been scheduled.",!
  • Line Location: END+1

FileMan Files Accessed Via FileMan Db Call

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