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

Package: Surgery

Routine: SRSRQST


Information

SRSRQST ;BIR/MAM,ADM - MAKE OPERATION REQUESTS ;11/01/01 9:40 AM

Source Information

Source file <SRSRQST.m>

Entry Points

Name Comments DBIA/ICR reference
MUST
SURG ; surgeon
CASE
ASURG ; attending surgeon
SPEC ; surgical specialty
OP ; principal operative procedure
OPD ; Principal Preoperative Diagnosis
LP ; LATERALITY OF PROCEDURE
PAS ; Planned Admission Status
PCPT ; Planned Principal Procedure Code (CPT)
UPDATE
OTHER ; other required fields
DEL
END
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
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: !,?20,"OPERATION REQUEST: REQUIRED INFORMATION",!!,SRNM_" ("_SRSSN_")",?65,SREQDT,!,SRLINE,!
  • Line Location: MUST+1
Function Call: WRITE
  • Prompt: !!,"To make an operation request, a Surgeon MUST be selected. Enter '^' to exit.",!
  • Line Location: SURG+2
Function Call: WRITE
  • Prompt: !!,"To make an operation request, Attending Surgeon MUST be selected. Enter '^' to exit.",!
  • Line Location: ASURG+2
Function Call: WRITE
  • Prompt: !,"Surgical Specialty: "_$P(^SRO(137.45,SRSS,0),"^")
  • Line Location: SPEC+1
Function Call: WRITE
  • Prompt: !!,"To make an operation request, a Surgical Specialty MUST be selected. Enter '^'",!,"to exit.",!
  • Line Location: SPEC+3
Function Call: WRITE
  • Prompt: !,"Principal Operative Procedure: "_SRSOP
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: !!,"Principal procedure must not contain an up-arrow (^).",!
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: !,"Principal Preoperative Diagnosis MUST be entered",!,"before proceeding with this request. 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: !
  • Line Location: LP+1
Function Call: WRITE
  • Prompt: !!,"To make an operation request, Laterality Of Procedure MUST be entered. Enter '^' to exit.",!
  • Line Location: LP+2
Function Call: WRITE
  • Prompt: !!,"To make an operation request, Planned Admission Status field MUST be entered. Enter '^' to exit.",!
  • Line Location: PAS+2
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",!,"request.",!
  • Line Location: OTHDIR+4

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