Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 8 NOW^%DTC  FILE^DICN  FIELD^DID  (,FILE,WP)^DIE  ^DIK  $$GET1^DIQ  EN^DIQ1  ^DIR  
Surgery 7 ^SROERR  ^SROERR0  ICDSRCH^SROICD  ($$LOCK,UNLOCK)^SROUTL  ^SROXRET  ^SRSCG  $$SPIN^SRTOVRF  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SRSCHCA  SRSCHD  SRSCHDC  

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

External References

Name Field # of Occurrence
NOW^%DTC CASE+3
FILE^DICN CASE+1
FIELD^DID OTHDIR+2
^DIE CASE+5, ASURG+5, UPDATE+1, UPDATE+3, OTHER+6
FILE^DIE OTHDIR+5
WP^DIE OTHER+3
^DIK DEL
$$GET1^DIQ DIRYN+2
EN^DIQ1 ASURG+1
^DIR ODP, SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, PCPT+1, DIRYN+4, ASK+1, SPIN+3
^SROERR OTHER+5
^SROERR0 OTHER+6
ICDSRCH^SROICD DIRYN+3
$$LOCK^SROUTL CASE+1
UNLOCK^SROUTL OTHER+4, END
^SROXRET UPDATE+4
^SRSCG END+1
$$SPIN^SRTOVRF SPIN+1

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
Routine Call
  • DIE
  • Line Location:
    • CASE+5
    • ASURG+5
    • UPDATE+1
    • UPDATE+3
    • OTHER+6
Routine Call
  • DIE
  • Line Location:
    • OTHDIR+5
Routine Call
  • DIE
  • Line Location:
    • OTHER+3
Routine Call
  • DIR
  • Line Location:
    • ODP
    • SURG+1
    • ASURG+3
    • SPEC+1
    • OP+1
    • OPD+1
    • PCPT+1
    • DIRYN+4
    • ASK+1
    • SPIN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls,  FIELD^DID,  GET1^DIQ,  WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] CASE+2*, CON+1, SPIN+5*
^SRO(133 - [#133] OTHER+1, OTHDIR+2
^SRO(137.45 - [#137.45] CON+1
^VA(200 - [#200] SURG+1, CON+1

Label References

Name Line Occurrences
ASK OTHDIR+4
ASURG ASURG+4
DEL ASURG+3, SPEC+1, OP+1, OPD+1, PCPT+1, OTHER+2
DIRYN OTHDIR+2
END ODP, SURG+1, DEL
MUST CON+1
ODP ODP+1
OP OP+2, OP+3
OPD OPD+2, OPD+3
OTHDIR OTHER+1, OTHDIR+4
PCPT PCPT+2
SPEC ASURG+2, SPEC+2
SPIN UPDATE+2
SURG SURG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CASE+3
DA CASE+1!, CASE+4*, ASURG+1!*, ASURG+5*!, UPDATE+1*, UPDATE+3!*, OTHER+6*!, DEL*, CON+1!
DD CASE+1!
DIC CASE+1!*, ASURG+1!*
DIC(0 CASE+1*
DIE CASE+3!, CASE+4*, ASURG+5*!, UPDATE+1*, UPDATE+3*, OTHER+6*
>> DIK DEL*
DINUM CASE+1!
DIQ ASURG+1!*
DIQ(0 ASURG+1*
DIR ODP!, SURG+1!, ASURG+3!, SPEC+1!, OP+1!, OPD+1!, PCPT+1!, OTHDIR+2!, ASK!, SPIN+3!
DIR("?" ASK+1*
DIR("A" ODP*, SURG+1*, ASURG+3*, SPEC+1*, OP+1*, OPD+1*, PCPT+1*, OTHDIR+2*, DIRYN+2, ASK*
, SPIN+3*
DIR("B" SURG+1*, ASK*
DIR(0 ODP*, SURG+1*, ASURG+3*, SPEC+1*, OP+1*, OPD+1*, PCPT+1*, OTHDIR+2*, ASK*, SPIN+3*
DLAYGO CASE+1*!
DO CASE+1!
DR CASE+3!, CASE+4*, CASE+5!, ASURG+1!*, ASURG+5*!, UPDATE+1*, UPDATE+3!*, OTHER+6*!
DTIME OPD+6
>> DTOUT ODP, SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, PCPT+1, OTHDIR+2, SPIN+4
>> DUOUT SPIN+4
DUZ CASE+4
>> FLD OTHDIR+2*, OTHDIR+3, OTHDIR+5, DIRYN+1, DIRYN+2
>> I MUST*
IOF MUST+1
SL SPIN+2~, SPIN+4*, SPIN+5
>> SRATTND ASURG+2*, ASURG+5*
>> SRCC MUST+1, OTHER+6, END+1
>> SRCPT PCPT+3*, UPDATE+1, SPIN+1
>> SRDEF DIRYN+2*
>> SRDUOUT OTHER+5
SREQ OTHDIR+2!
SREQ(130 OTHDIR+5*
>> SREQDAY CASE+3*, CASE+4
>> SREQDT MUST+1
>> SRFLD OTHER+1*, OTHDIR+2
>> SRLCK CASE+1*, OTHER+4, END
>> SRLINE MUST*, MUST+1
>> SRNM MUST+1
SRNOCON CASE+3*, UPDATE+4!
>> SROERR OTHER+5*, OTHER+6*
>> SRPRMT DIRYN+2*
>> SRSCON MUST+1, SURG+1, OTHER+6, CON+1
>> SRSCON( CON+1*
>> SRSCON(1 OTHER+6
>> SRSDATE ODP+1, CASE+4
>> SRSDOC SURG+1, SURG+3*, CASE+4, CON+1
>> SRSDPT CASE+1
>> SRSDT1 CASE+4, END+1
>> SRSDT2 CASE+4, END+1
>> SRSEDT END+1*
>> SRSITE OTHER+1, OTHDIR+2
>> SRSITE("DIV" CASE+2
SRSODP ODP~, ODP+2*, CASE+4
>> SRSOP OP+3*, UPDATE+1
>> SRSOPD OPD+4*, UPDATE+1, OTHER+3
>> SRSOPD(1 OTHER+3*
>> SRSOR CASE+4, END+1
>> SRSOUT ODP*, SURG+1*, ASURG+3*, SPEC+1*, OP+1*, OPD+1*, PCPT+1*, OTHER+1, OTHER+2, OTHER+5*
, CON+1, OTHDIR+2*, OTHDIR+4, ASK+1*, END+1
>> SRSS SPEC+3*, UPDATE+1, CON+1
>> SRSSN MUST+1
SRTN CASE+1!*, CASE+2, CASE+4, ASURG+1, ASURG+2, ASURG+5, UPDATE+1, UPDATE+3, OTHER+3, OTHER+4
, OTHER+5, OTHER+6, DEL, CON+1, OTHDIR+5, DIRYN+2, END, SPIN+5
SRTN("END" END+1*
SRTN("OR" END+1*
SRTN("START" END+1*
SRY ASURG+1!, OTHDIR+2!
SRY("TITLE" OTHDIR+2
SRY(130 ASURG+2
U SURG+1
>> X ODP, ODP+1, SURG+1, SURG+2, CASE+1*, ASURG+3, ASURG+4, SPEC+1, SPEC+2, OP+1
, OP+2, OPD+1, OPD+2, OPD+3, OPD+6*, PCPT+1, PCPT+2, OTHDIR+2, OTHDIR+3*, OTHDIR+4
>> Y ODP+1, ODP+2, SURG+2, SURG+3, CASE+1, ASURG+4, ASURG+5, SPEC+2, SPEC+3, OP+3
, OPD+2, OPD+4, PCPT+2, PCPT+3, OTHDIR+4, OTHDIR+5, ASK+1, SPIN+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All