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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROERR1

Package: Surgery

Routine: SROERR1


Information

SROERR1 ;B'HAM/ADM - ORDER ENTRY ROUTINE ; 25 JUNE 1992 10:00 AM

Source Information

Source file <SROERR1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 1 DEM^VADPT  
Surgery 1 STATUS^SROERR0  
VA Fileman 1 D^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROERR  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
OPTM ; find begin and end times
SCHED ; find scheduling times
LOOP ; break procedure if greater than J characters
CON

External References

Name Field # of Occurrence
D^DIQ SROERR1+6, SROERR1+17, SCHED+1, SCHED+2, OPTM+1, OPTM+2
STATUS^SROERR0 SROERR1+3
DEM^VADPT SROERR1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Patient: "_SRNAME,?40,"ID#: "_VA("PID"),?65,"Age: "_SRAGE,!,"Ward: "_SRWARD,?40,"Surgical Case #"_SRTN_SRSTAT,!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,"Ward: "_SRWARD,?40,"Surgical Case #"_SRTN_SRSTAT
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Date of Operation: "_SRSDATE,?40,"Estimated Case Length: "_SRLENGTH
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"Scheduled Start Time: "_SRST,?40,"Scheduled End Time: "_SRET
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"Cancel Date: "_SRCAN,?34,"Cancel Reason: "_SREAS
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Time Operation Began: "_SRSTART,?40,"Time Operation Ended: "_SREND
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"Operating Room: "_$P(^SC($P(^SRS(SROR,0),"^"),0),"^")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"Surgical Specialty: "_SRSNM,!,"Surgeon: "_SROSUR,?40,"Attending: "_SROATT,!,"Preoperative Diagnosis: "_SRDIAG
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,"Principal Procedure:",?22,SROPS(1)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROPS(2)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,?22,SROP(CNT)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,"Case Schedule Order: "_SRORDER
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,"Requested Anesthesia Technique: "_SRANES
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !!,"Blood Requested: ",?18,BLOOD(1)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?18,BLOOD(2)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,?18,BLOOD(2)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,"Restraints: ",?18,SREST(1)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ", "_SREST(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ", "_SREST(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ", "_SREST(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,^SRF(SRTN,5,X,0)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,"Concurrent Case #"_SRSCON,!,SROPS(1)
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: CON+1
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: CON+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SROERR1+2
^SC - [#44] PRINT+7
^SRF - [#130] SROERR1+4, SROERR1+5, SROERR1+6, SROERR1+7, SROERR1+10, SROERR1+11, SROERR1+12, SROERR1+13, SROERR1+14, SROERR1+15
, SROERR1+16, SROERR1+17, PRINT+6, PRINT+15, CON, SCHED+1, SCHED+2, OPTM+1, OPTM+2
^SRO(132.05 - [#132.05] SROERR1+12
^SRO(135 - [#135] SROERR1+17
^SRO(137.45 - [#137.45] SROERR1+4
^SRS - [#131.7] PRINT+7
^VA(200 - [#200] SROERR1+9

Label References

Name Line Occurrences
LOOP SROERR1+8, CON
OPTM SROERR1+16
SCHED SROERR1+15

Naked Globals

Name Field # of Occurrence
^( SROERR1+2, SROERR1+5
^("CON" CON
^(0 SROERR1+13
^(30 SROERR1+17
^(33 SROERR1+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A SROERR1+11*
BLOOD SROERR1+13!
BLOOD( SROERR1+13*
BLOOD(0 PRINT+13
BLOOD(1 PRINT+13
BLOOD(2 PRINT+13
BLOOD(3 PRINT+13
>> CNT SROERR1+7*, SROERR1+12*, SROERR1+13*, PRINT+10*
>> DFN SROERR1+2*
>> I SROERR1+12*, SROERR1+13*, PRINT+10*, PRINT+15*
IOF PRINT+1
IOST PRINT+1, PRINT+2
>> J SROERR1+8*, CON*, LOOP+1
>> LINE PRINT+1*
>> LOOP LOOP+1*
>> M SROERR1+8*, CON*, LOOP+1
MM SROERR1+8!, SROERR1+13*, LOOP+1*
MMM SROERR1+8!, CON, LOOP+1*
>> ORAGE SROERR1+2
>> ORSTS SROERR1+15, PRINT+4, PRINT+5, PRINT+11
>> ORVP SROERR1+2
>> SR("1.0" SROERR1+11*
>> SRAGE SROERR1+2*, PRINT+1
>> SRANES SROERR1+11*, PRINT+12
>> SRCAN SROERR1+17*, PRINT+5
>> SRDIAG SROERR1+10*, PRINT+8
>> SREAS SROERR1+17*, PRINT+5
>> SREND PRINT+6, OPTM+2*
SREST SROERR1+12!
SREST( SROERR1+12*
SREST(0 PRINT+14
SREST(1 PRINT+14
SREST(2 PRINT+14
SREST(3 PRINT+14
SREST(4 PRINT+14
>> SRET PRINT+4, SCHED+2*
>> SRFIND SCHED+1*, SCHED+2*, OPTM+1*, OPTM+2*
>> SRLENGTH SROERR1+14*, PRINT+3
>> SRNAME SROERR1+2*, PRINT+1
>> SROATT SROERR1+5*, SROERR1+9*, PRINT+8
SROERR SROERR1+3*!
SROP SROERR1+7!
SROP( SROERR1+7*, PRINT+10
SROP(0 PRINT+10
SROP(1 PRINT+10
>> SROPER SROERR1+7*, SROERR1+8*, CON*, LOOP+1*
SROPS SROERR1+8!, CON!
SROPS( LOOP+1*
SROPS(1 SROERR1+8*, PRINT+9, CON*, CON+1
SROPS(2 PRINT+9, CON+1
SROPS(3 PRINT+9, CON+1
SROPS(4 PRINT+9
SROPS(5 PRINT+9
>> SROR SROERR1+6*, PRINT+7
>> SRORDER SROERR1+15*, PRINT+11
>> SROSUR SROERR1+5*, SROERR1+9*, PRINT+8
SRSCON CON!*, CON+1
>> SRSDATE SROERR1+6*, PRINT+3
>> SRSNM SROERR1+4*, PRINT+8
>> SRSS SROERR1+4*
>> SRSSN SROERR1+2*
>> SRST PRINT+4, SCHED+1*
>> SRSTART PRINT+6, OPTM+1*
>> SRSTAT SROERR1+3*, PRINT+1, PRINT+2
>> SRSTATUS SROERR1+3
>> SRTN SROERR1+3, SROERR1+4, SROERR1+5, SROERR1+6, SROERR1+7, SROERR1+10, SROERR1+11, SROERR1+12, SROERR1+13, SROERR1+14
, SROERR1+15, SROERR1+16, SROERR1+17, PRINT+1, PRINT+2, PRINT+6, PRINT+15, CON, SCHED+1, SCHED+2
, OPTM+1, OPTM+2
>> SRWARD SROERR1+2*, PRINT+1, PRINT+2
>> VA("PID" SROERR1+2, PRINT+1
>> VADM(1 SROERR1+2
>> X SROERR1+7*, SROERR1+12*, SROERR1+13*, SROERR1+17*, PRINT+15*
>> Y SROERR1+6*, SROERR1+12*, SROERR1+13*, SROERR1+17*, SCHED+1*, SCHED+2*, OPTM+1*, OPTM+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All