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

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 6 NOW^%DTC  FILE^DICN  FIELD^DID  (,FILE,WP)^DIE  ^DIK  ^DIR  
Surgery 4 ^SROERR  ($$LOCK,UNLOCK)^SROUTL  ^SROXRET  ^SRSRQST1  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SRSCONR  SRSMREQ  SRSWREQ  

Entry Points

Name Comments DBIA/ICR reference
CASE
SURG ; surgeon
END
UPDATE
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
FIELD^DID OTHDIR+1
^DIE CASE+4, UPDATE, UPDATE+1, UPDATE+2, OTHER+4
FILE^DIE OTHDIR+3
WP^DIE OTHER+3
^DIK DEL
^DIR SURG+1, ASURG+1, SPEC+2, OP+2, OPD+1, OTHDIR+1, ASK+1
^SROERR OTHER+5
$$LOCK^SROUTL CASE+1
UNLOCK^SROUTL OTHER+7, END
^SROXRET UPDATE+3
^SRSRQST1 OTHER+6

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: !!,"It is mandatory that you provide this information before proceeding with this",!,"request.",!
  • Line Location: OTHDIR+2
Routine Call
  • DIE
  • Line Location:
    • CASE+4
    • UPDATE
    • UPDATE+1
    • UPDATE+2
    • OTHER+4
Routine Call
  • DIE
  • Line Location:
    • OTHDIR+3
Routine Call
  • DIR
  • Line Location:
    • SURG+1
    • ASURG+1
    • SPEC+2
    • OP+2
    • 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*, UPDATE+3*
^SRO(133 - [#133] OTHER+1, OTHDIR+1
^SRO(137.45 - [#137.45] SPEC+1, CON+1
^VA(200 - [#200] CON+1

Label References

Name Line Occurrences
ASK OTHDIR+2
ASURG ASURG+2
DEL ASURG+1, SPEC+2, OP+2, OPD+1, OTHER+2
END SURG+1
MUST CON+1
OP SPEC+1, OP+3
OPD OP+1, OPD+2, OPD+3
OTHDIR OTHER+1, OTHDIR+2
SPEC SPEC+3
SURG SURG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % CASE+3
DA CASE!, CASE+4*, UPDATE*, UPDATE+1!*, UPDATE+2!*, OTHER+4*!, DEL*, CON+1!
DD CASE!
DIC CASE!*
DIC(0 CASE*
DIE CASE+3!, CASE+4*, UPDATE*, UPDATE+1!*, UPDATE+2*, OTHER+4*
>> DIK DEL*
DINUM CASE!
DIR SURG+1!, ASURG+1!, SPEC+2!, OP+2!, OPD+1!, OTHDIR+1!, ASK!
DIR("?" ASK+1*
DIR("A" SURG+1*, ASURG+1*, SPEC+2*, OP+2*, OPD+1*, OTHDIR+1*, ASK*
DIR("B" ASK*
DIR(0 SURG+1*, ASURG+1*, SPEC+2*, OP+2*, OPD+1*, OTHDIR+1*, ASK*
DLAYGO CASE*!
DO CASE!
DR CASE+3!, CASE+4*!, UPDATE*, UPDATE+1!*, UPDATE+2!*, OTHER+4*!
DTIME OPD+6
>> DTOUT SURG+1, ASURG+1, SPEC+2, OP+2, OPD+1, OTHDIR+1
DUZ CASE+4
>> FLD OTHDIR+1*, OTHDIR+3
>> I MUST*
IOF MUST+1
>> SRATTND ASURG+3*, UPDATE
>> SRCC MUST+1, OTHER+4, OTHER+6, END+1
>> SRCL(16 UPDATE+1
>> SRCL(17 UPDATE+1
>> SRCL(18 UPDATE+1
>> SRCL(19 UPDATE+1
>> SRCL(20 UPDATE+1
>> SRCL(21 UPDATE+1
>> SRCL(22 UPDATE+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+7, END
>> SRLINE MUST*, MUST+1
>> SRNM MUST+1
SRNOCON CASE+3*, UPDATE+3!
>> SRSCON MUST+1, OTHER+4, CON+1
>> SRSCON( CON+1*
>> SRSCON(1 OTHER+4
>> SRSDATE CASE+4
>> SRSDOC SURG+3*, CASE+4, CON+1
>> SRSDPT CASE
>> SRSITE OTHER+1, OTHDIR+1
>> SRSITE("DIV" CASE+2, UPDATE+3
>> SRSOP OP+1, OP+4*, UPDATE, CON+1
>> SRSOPD OPD+4*, UPDATE, OTHER+3
>> SRSOPD(1 OTHER+3*
>> SRSOUT SURG+1*, ASURG+1*, SPEC+2*, OP+2*, OPD+1*, OTHER+1, OTHER+2, OTHER+5*, DEL, END+1*
, CON+1, OTHDIR+1*, OTHDIR+2, ASK+1*
>> SRSS SPEC+1, SPEC+4*, UPDATE, CON+1
>> SRSSN MUST+1
SRTN CASE!*, CASE+1, CASE+2, CASE+4, UPDATE, UPDATE+1, UPDATE+2, UPDATE+3, OTHER+3, OTHER+4
, OTHER+7, DEL, END, CON+1, OTHDIR+3
>> SRWL SPEC+1, OP+1, UPDATE+1
SRY OTHDIR+1!
SRY("TITLE" OTHDIR+1
>> X SURG+1, SURG+2, CASE*, ASURG+1, ASURG+2, SPEC+2, SPEC+3, OP+2, OP+3, OPD+1
, OPD+2, OPD+3, OPD+6*, OTHDIR+1, OTHDIR+2
>> Y SURG+2, SURG+3, CASE, ASURG+2, ASURG+3, SPEC+3, SPEC+4, OP+4, 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