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

Call Graph Total: 13

Package Total Call Graph
VA FileMan 7 NOW^%DTC  FILE^DICN  FIELD^DID  (,FILE,WP)^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Surgery 6 ^SROERR  ICDSRCH^SROICD  ($$LOCK,UNLOCK)^SROUTL  ^SROXRET  ^SRSRQST1  $$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 SRSCONR  SRSMREQ  SRSWREQ  

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

External References

Name Field # of Occurrence
NOW^%DTC CASE+3
FILE^DICN CASE
FIELD^DID OTHDIR+2
^DIE CASE+4, UPDATE, UPDATE+1, UPDATE+3, OTHER+4
FILE^DIE OTHDIR+5
WP^DIE OTHER+3
^DIK DEL
$$GET1^DIQ DIRYN+2
^DIR SURG+1, ASURG+1, SPEC+2, OP+2, OPD+1, LP+1, PAS+1, PCPT+1, DIRYN+4, ASK+1
, SPIN+3
^SROERR OTHER+5
ICDSRCH^SROICD DIRYN+3
$$LOCK^SROUTL CASE+1
UNLOCK^SROUTL OTHER+7, END
^SROXRET UPDATE+4
^SRSRQST1 OTHER+6
$$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: !,?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
Routine Call
  • DIE
  • Line Location:
    • CASE+4
    • UPDATE
    • UPDATE+1
    • UPDATE+3
    • OTHER+4
Routine Call
  • DIE
  • Line Location:
    • OTHDIR+5
Routine Call
  • DIE
  • Line Location:
    • OTHER+3
Routine Call
  • DIR
  • Line Location:
    • SURG+1
    • ASURG+1
    • SPEC+2
    • OP+2
    • OPD+1
    • LP+1
    • PAS+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*, UPDATE+4*, SPIN+5*
^SRO(133 - [#133] OTHER+1, OTHDIR+2
^SRO(137.45 - [#137.45] SPEC+1, CON+1
^VA(200 - [#200] CON+1

Label References

Name Line Occurrences
ASK OTHDIR+4
ASURG ASURG+2
DEL ASURG+1, SPEC+2, OP+2, OPD+1, LP+1, PAS+1, PCPT+1, OTHER+2
DIRYN OTHDIR+2
END SURG+1
LP LP+2
MUST CON+1
OP SPEC+1, OP+3
OPD OP+1, OPD+2, OPD+3
OTHDIR OTHER+1, OTHDIR+4
PAS PAS+2
PCPT PCPT+2
SPEC SPEC+3
SPIN UPDATE+2
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+3!*, OTHER+4*!, DEL*, CON+1!
DD CASE!
DIC CASE!*
DIC(0 CASE*
DIE CASE+3!, CASE+4*, UPDATE*, UPDATE+1!*, UPDATE+3*, OTHER+4*
>> DIK DEL*
DINUM CASE!
DIR SURG+1!, ASURG+1!, SPEC+2!, OP+2!, OPD+1!, LP+1!, PAS+1!, PCPT+1!, OTHDIR+2!, ASK!
, SPIN+3!
DIR("?" ASK+1*
DIR("A" SURG+1*, ASURG+1*, SPEC+2*, OP+2*, OPD+1*, LP+1*, PAS+1*, PCPT+1*, OTHDIR+2*, DIRYN+2
, ASK*, SPIN+3*
DIR("B" ASK*
DIR(0 SURG+1*, ASURG+1*, SPEC+2*, OP+2*, OPD+1*, LP+1*, PAS+1*, PCPT+1*, OTHDIR+2*, ASK*
, SPIN+3*
DLAYGO CASE*!
DO CASE!
DR CASE+3!, CASE+4*!, UPDATE*, UPDATE+1!*, UPDATE+3!*, OTHER+4*!
DTIME OPD+6
>> DTOUT SURG+1, ASURG+1, SPEC+2, OP+2, OPD+1, LP+1, PAS+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+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
>> SRCPT PCPT+3*, UPDATE, 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+7, END
>> SRLINE MUST*, MUST+1
>> SRLP LP+3*, UPDATE
>> SRNM MUST+1
SRNOCON CASE+3*, UPDATE+4!
>> SRPAS PAS+3*, UPDATE
>> SRPRMT DIRYN+2*
>> 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+2
>> SRSITE("DIV" CASE+2, UPDATE+4
>> 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*, LP+1*, PAS+1*, PCPT+1*, OTHER+1, OTHER+2
, OTHER+5*, DEL, END+1*, CON+1, OTHDIR+2*, OTHDIR+4, 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+3, UPDATE+4, OTHER+3, OTHER+4
, OTHER+7, DEL, END, CON+1, OTHDIR+5, DIRYN+2, SPIN+5
>> SRWL SPEC+1, OP+1, UPDATE+1
SRY OTHDIR+2!
SRY("TITLE" OTHDIR+2
>> 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*, LP+1, LP+2, PAS+1, PAS+2, PCPT+1, PCPT+2, OTHDIR+2
, OTHDIR+3*, OTHDIR+4
>> Y SURG+2, SURG+3, CASE, ASURG+2, ASURG+3, SPEC+3, SPEC+4, OP+4, OPD+2, OPD+4
, LP+2, LP+3, PAS+2, PAS+3, 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