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 ;06/20/06

Source Information

Source file <SRSCHUN.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 7 NOW^%DTC  FILE^DICN  FIELD^DID  (,FILE,WP)^DIE  ^DIK  EN^DIQ1  ^DIR  
Surgery 5 ^SROERR  ^SROERR0  ($$LOCK,UNLOCK)^SROUTL  ^SROXRET  ^SRSCG  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SRSCHCA  SRSCHD  SRSCHDC  

Entry Points

Name Comments DBIA/ICR reference
CASE ; create case in SURGERY file
SURG ; surgeon
END
UPDATE ; update case in SURGERY file
OPD ; Principal Preoperative Diagnosis
OTHER ; other required fields
DEL
ASURG ; attending surgeon
ASK
MUST
CON ; request concurrent case
SPEC ; surgical specialty
OTHDIR ; call to reader for site specific required fields
OP ; principal operative procedure

External References

Name Field # of Occurrence
NOW^%DTC CASE+3
FILE^DICN CASE+1
FIELD^DID OTHDIR+1
^DIE CASE+4, ASURG+5, UPDATE+1, UPDATE+2, OTHER+6
FILE^DIE OTHDIR+3
WP^DIE OTHER+3
^DIK DEL
EN^DIQ1 ASURG+1
^DIR SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, OTHDIR+1, ASK+1
^SROERR OTHER+5
^SROERR0 OTHER+6
$$LOCK^SROUTL CASE+1
UNLOCK^SROUTL OTHER+4, END
^SROXRET UPDATE+3
^SRSCG END+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: !!,"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: !!,"It is mandatory that you provide this information before proceeding with this",!,"option.",!
  • Line Location: OTHDIR+2
Function Call: WRITE
  • Prompt: !!,"No surgical case has been scheduled.",!
  • Line Location: END+1
Routine Call
  • DIE
  • Line Location:
    • CASE+4
    • ASURG+5
    • UPDATE+1
    • UPDATE+2
    • OTHER+6
Routine Call
  • DIE
  • Line Location:
    • OTHDIR+3
Routine Call
  • DIR
  • Line Location:
    • SURG+1
    • ASURG+3
    • SPEC+1
    • OP+1
    • OPD+1
    • OTHDIR+1
    • ASK+1
Routine Call
  • DIE
  • Line Location:
    • OTHER+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
ASK OTHDIR+2
ASURG ASURG+4
DEL ASURG+3, SPEC+1, OP+1, OPD+1, OTHER+2
END SURG+1, DEL
MUST CON+1
OP OP+2, OP+3
OPD OPD+2, OPD+3
OTHDIR OTHER+1, OTHDIR+2
SPEC ASURG+2, SPEC+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+2!*, 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+2*, OTHER+6*
>> DIK DEL*
DINUM CASE+1!
DIQ ASURG+1!*
DIQ(0 ASURG+1*
DIR SURG+1!, ASURG+3!, SPEC+1!, OP+1!, OPD+1!, OTHDIR+1!, ASK!
DIR("?" ASK+1*
DIR("A" SURG+1*, ASURG+3*, SPEC+1*, OP+1*, OPD+1*, OTHDIR+1*, ASK*
DIR("B" ASK*
DIR(0 SURG+1*, ASURG+3*, SPEC+1*, OP+1*, OPD+1*, OTHDIR+1*, ASK*
DLAYGO CASE+1*!
DO CASE+1!
DR CASE+3!, CASE+4*!, ASURG+1!*, ASURG+5*!, UPDATE+1*, UPDATE+2!*, OTHER+6*!
DTIME OPD+6
>> DTOUT SURG+1, ASURG+3, SPEC+1, OP+1, OPD+1, OTHDIR+1
DUZ CASE+4
>> FLD OTHDIR+1*, OTHDIR+3
>> I MUST*
IOF MUST+1
>> SRATTND ASURG+2*, ASURG+5*
>> SRCC MUST+1, OTHER+6, END+1
>> SRDUOUT OTHER+5
SREQ OTHDIR+1!
SREQ(130 OTHDIR+3*
>> SREQDAY CASE+3*, CASE+4
>> SREQDT MUST+1
>> SRFLD OTHER+1*, OTHDIR+1
>> SRLCK CASE+1*, OTHER+4, END
>> SRLINE MUST*, MUST+1
>> SRNM MUST+1
SRNOCON CASE+3*, UPDATE+3!
>> SROERR OTHER+5*, OTHER+6*
>> SRSCON MUST+1, OTHER+6, CON+1
>> SRSCON( CON+1*
>> SRSCON(1 OTHER+6
>> SRSDATE CASE+4
>> SRSDOC 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+1
>> SRSITE("DIV" CASE+2
>> SRSOP OP+3*, UPDATE+1
>> SRSOPD OPD+4*, UPDATE+1, OTHER+3
>> SRSOPD(1 OTHER+3*
>> SRSOR CASE+4, END+1
>> SRSOUT SURG+1*, ASURG+3*, SPEC+1*, OP+1*, OPD+1*, OTHER+1, OTHER+2, OTHER+5*, CON+1, OTHDIR+1*
, OTHDIR+2, 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+2, OTHER+3, OTHER+4
, OTHER+5, OTHER+6, DEL, CON+1, OTHDIR+3, END
SRTN("END" END+1*
SRTN("OR" END+1*
SRTN("START" END+1*
SRY ASURG+1!, OTHDIR+1!
SRY("TITLE" OTHDIR+1
SRY(130 ASURG+2
>> X 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*, OTHDIR+1, OTHDIR+2
>> Y SURG+2, SURG+3, CASE+1, ASURG+4, ASURG+5, SPEC+2, SPEC+3, OP+3, OPD+2, OPD+4
, OTHDIR+2, OTHDIR+3, ASK+1
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