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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SRONEW

Package: Surgery

Routine: SRONEW


Information

SRONEW ;BIR/MAM - ENTER A NEW CASE ;11/01/2011

Source Information

Source file <SRONEW.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
Surgery 17 ^SRCUSS  RISK^SROAUTL3  ^SROBLOD  ^SROERR  $$ICDSTR^SROICD  ^SROP  ^SROPCE1  ^SROPROC  
($$LOCK,UNLOCK)^SROUTL  EN2^SROVAR  KEY^SROXPR  ^SROXRET  $$CHKS^SRSCOR  $$DSMP^SRSDT  ^SRSKILL  CC^SRSREQ  
$$SPIN^SRTOVRF  
VA FileMan 6 ^%DT  ^DIC  FILE^DICN  (,WP)^DIE  ^DIK  ^DIR  
Kernel 1 T0^%ZOSV  

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

Package Total Caller Graph
Surgery 2 SROALNO  SROP  

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

External References

Name Field # of Occurrence
^%DT DATE
T0^%ZOSV RT+1
^DIC DOCSPEC
FILE^DICN CASE+1
^DIE CASE+4, UPDATE+1, UPDATE+5, UPDATE+6, DIEDIE+2, DIE+8, DIE+9
WP^DIE UPDATE+3
^DIK DEL
^DIR DEAD+3, ODP+1, OPD+1, ASURG+1, PCPT+1, SPIN+3
^SRCUSS DIE+4
RISK^SROAUTL3 DIE+4
^SROBLOD DIE
^SROERR DIE+10
$$ICDSTR^SROICD DIE+1
^SROP DEAD
^SROPCE1 DIE+4
^SROPROC OP
$$LOCK^SROUTL CASE+1
UNLOCK^SROUTL DIE+10
EN2^SROVAR DIE+2
KEY^SROXPR DOC+3
^SROXRET UPDATE+7
$$CHKS^SRSCOR DIE+3, DIE+5
$$DSMP^SRSDT CASE+4
^SRSKILL DEADEND
CC^SRSREQ CON+3
$$SPIN^SRTOVRF DIE+4, SPIN+1

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
Routine Call
  • DIC
  • Line Location:
    • DOC
    • SPEC
Routine Call
  • DIE
  • Line Location:
    • CASE+4
    • UPDATE+1
    • UPDATE+5
    • UPDATE+6
    • DIE
    • DIE+2
    • DIE+8
    • DIE+9
Routine Call
  • DIE
  • Line Location:
    • UPDATE+3
Routine Call
  • DIR
  • Line Location:
    • DEAD+3
    • ODP+1
    • OPD+1
    • ASURG+1
    • PCPT+1
    • SPIN+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] CASE+2*, CASE+3*, UPDATE+7*, DIE+7, CON+2, SPIN+5*
^SRF("AC" CON+1
^TMP("CSLSUR1" DIE+5*

Label References

Name Line Occurrences
ASURG ASURG+2
CON ODP+4
CONT DATE+1, CONT+2
DATE DATE+1
DEL CASE+1, ASURG+1, SPECPCPT+1
DOC DOC+1, DOC+3
END DATE+1, DATE+2, ODP+1, ODP+4, OPOPD+1, DOC
ODP ODP+2
OPD OPD+2, OPD+3
PCPT PCPT+2
RT DIE+2
SPEC SPEC+1
SPIN UPDATE+2

Naked Globals

Name Field # of Occurrence
^( CON+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE!*
%DT("A" DATE*
>> BLOOD DIE
>> CROSSM DIE
DA DOC+2*, DOC+3!, CASE+1!, CASE+4*, UPDATE+1*, UPDATE+5*, UPDATE+6!*, DIE!*, DIE+2*, DIE+4*
DIE+8*, DIE+9*, DEL*
DD CASE+1!
>> DFN ODP+4, CASE+1
DIC DOC*, DOC+3!, CASE+1!*, SPEC!*
DIC("A" DOC*!, SPEC*
DIC("S" SPEC*
DIC(0 DOC*, CASE+1*, SPEC*
DIE CASE+4!*, UPDATE+1*, UPDATE+5*, UPDATE+6*, DIE!*, DIE+2*, DIE+4*, DIE+8*, DIE+9*
>> DIK DEL*
DINUM CASE+1!
DIR DEAD+2!, DEAD+3!, ODP+1!, OPD+1!, ASURG+1!, PCPT+1!, SPIN+3!
DIR("A" DEAD+2*, DEAD+3*, ODP+1*, OPD+1*, ASURG+1*, PCPT+1*, SPIN+3*
DIR("B" DEAD+3*
DIR(0 DEAD+3*, ODP+1*, OPD+1*, ASURG+1*, PCPT+1*, SPIN+3*
DO CASE+1!
DR CASE+4!*, UPDATE+1*!, UPDATE+5!*, UPDATE+6!*, DIE!*, DIE+2*, DIE+4!*, DIE+8*, DIE+9*
DTIME CONT+1
>> DTOUT DEAD+4, ODP+1, OPD+1, DOCASURG+1, SPECPCPT+1, SPIN+4
>> DUOUT DEAD+4, SPIN+4
IOF DEAD+1, DEAD+4
>> RESTRICT DOC+3*
SL SPIN+2~, SPIN+4*, SPIN+5
>> SPD DIE+3*, DIE+5
>> SRATTND ASURG+3*, UPDATE+1
>> SRCPT PCPT+3*, UPDATE+1, SPIN+1
SRCTN ODP+4!, DIE+6, DIE+7, DIE+8, DIE+9, CON+3
SRCTN( DIE+7*, DIE+8
SRCTN(10 DIE+7*, DIE+8
SRCTN(11 DIE+7*, DIE+8
>> SRDEATH DEAD+1*, DEAD+2
>> SRDT CON+1*
SRICDV DIE+1~*
SROK DOC+3!
>> SRPRIN OP+1*, CASE+4
>> SRSC1 ODP+4*
>> SRSCC ODP+4*, CON+1*, CON+2
>> SRSCON CON+1*, CON+2*, CON+3*
>> SRSDATE DATE+2*, ODP+2, CASE+4, CON+1
SRSDOC DOC*, DOC+2*, DOC+3!, CASE+4
>> SRSDPT ODP+4*, CON+2
>> SRSITE("DIV" CASE+2, UPDATE+7
SRSODP ODP~, ODP+3*, CASE+4
>> SRSOP OP+1
>> SRSOPD OPD+4*, UPDATE+1, UPDATE+3
>> SRSOPD(1 UPDATE+3*
>> SRSOUT DEAD*, DEAD+4*, ODP+1*, OPOPD+1*, DOC*, ASURG+1*, SPEC*, PCPT+1*
>> SRSS SPEC+2*, UPDATE+1
SRTN CASE+1!*, CASE+2, CASE+3, CASE+4, UPDATE+1, UPDATE+3, UPDATE+5, UPDATE+6, UPDATE+7, DIE
DIE+1, DIE+2, DIE+3, DIE+4, DIE+5, DIE+8, DIE+9, DIE+10, DEL, END!
SPIN+5
>> SRYN DATE+1, CONT+1*, CONT+2*
>> ST DIE+2*
>> VA("PID" DEAD+1
>> VADM(1 DEAD+1, DEAD+5
>> VADM(6 DEAD
>> X DEAD*, DEAD+1, ODP+1, ODP+2, OPD+1, OPD+2, OPD+3, DOCDOC+1, CASE+1*
ASURG+1, ASURG+2, SPECSPEC+1, PCPT+1, PCPT+2
>> XRTL RT+1
>> XRTN RT+1*
>> Y DEAD+4, DATEDATE+1, DATE+2, ODP+2, ODP+3, OPD+2, OPD+4, DOC+1, DOC+2
DOC+3*, CASE+1, ASURG+2, ASURG+3, SPEC+1, SPEC+2, PCPT+2, PCPT+3, 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 |  Naked Globals |  Local Variables  | All