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 |  Marked Items |  All
Print Page as PDF
Routine: SROERR

Package: Surgery

Routine: SROERR


Information

SROERR ;B'HAM ISC/MAM,ADM - ORDER ENTRY ROUTINE ;01/22/99 9:47 AM

Source Information

Source file <SROERR.m>

Call Graph

Call Graph Total: 22

Package Total Call Graph
Surgery 14 MSG^SRHLZIU  (,STATUS)^SROERR0  ^SROERR1  ^SROERR2  ^SROP1  SERR^SROPFSS  ^SROVAR  ^SRSCONR  
ST^SRSCOR  CHANGE^SRSDT  ^SRSKILL  ^SRSMREQ  (DEL,UPDATE)^SRSUPRQ  ^SRSWREQ  
VA Fileman 4 ^%DTC  ^DIC  ^DIE  D^DIQ  
Kernel 1 $$VERSION^XPDUTL  
Order Entry Results Reporting 1 (FILE,ST)^ORX  
Registration 1 DEM^VADPT  
Uncategorized 1 (DEL,NEW)^VPRSR  

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Surgery 12 SR SURGERY REQUEST  SRONEW  SRONOP1  SROPDEL  SRSCAN2  SRSCHC1  SRSCHCC  SRSCHDC  
SRSCHUN  SRSCONR  SRSCRAP  SRSRQST  

Entry Points

Name Comments DBIA/ICR reference
LOC
EN ; entry for OE/RR, process order actions
END
EDIT ; edit requested case
CREATE ; create order in ORDER file (100)
REQ
DETAIL
PURGE ; purge order from ORDER file
ADD ; add new requests to ORDER file (100)
DEL ; delete from ORDER file (100) and call CoreFLS API
PRESS
8
DISPLAY
LOOP ; break case information if longer than 70 characters

External References

Name Field # of Occurrence
^%DTC REQ+2
^DIC CREATE+15, LOC
^DIE REQ+3
D^DIQ DISPLAY+1, ADD+1
FILE^ORX REQ+3
ST^ORX PURGE+4, DEL+8
MSG^SRHLZIU CREATE+11, PURGE+1, DEL+5
^SROERR0 EN+1
STATUS^SROERR0 CREATE+11, REQ+1
^SROERR1 DETAIL+2
^SROERR2 DETAIL+1
^SROP1 CREATE+3
SERR^SROPFSS CREATE+10
^SROVAR 8+4
^SRSCONR ADD+7
ST^SRSCOR CREATE+9, DEL+4
CHANGE^SRSDT EDIT+5
^SRSKILL END
^SRSMREQ ADD+5
DEL^SRSUPRQ 8+6, EDIT+3
UPDATE^SRSUPRQ EDIT+4
^SRSWREQ ADD+6
DEM^VADPT 8+4
DEL^VPRSR PURGE+2, DEL+6
NEW^VPRSR CREATE+12
$$VERSION^XPDUTL CREATE+13, PURGE+3, DEL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Not allowed on Surgical Requests !"
  • Line Location: 8+1
Function Call: WRITE
  • Prompt: !!,"Cannot update/delete case not in 'REQUESTED' status !"
  • Line Location: 8+2
Function Call: WRITE
  • Prompt: !!,"You must hold the 'SROREQ' key to perform this function !"
  • Line Location: 8+3
Function Call: READ
  • Timeout: DTIME
  • Variable: Z
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"If you want to delete this request, enter '1'. Enter '2' if you only want",!,"to update the general information about this case, or '3' to change the date",!,"for which this case is requested."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: " ** DIED: "_Y_" **"
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: !!,SRSDT,?11,SROPS(1)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,?11,SROPS(2)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,?11,SROPS(2)
  • Line Location: DISPLAY+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PRESS+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DETAIL+0
Function Call: WRITE
  • Prompt: " ** DIED: "_Y_" **"
  • Line Location: ADD+1
Function Call: WRITE
  • Prompt: !!,"Add New Surgery Requests",!!!,"1. Make Operation Requests",!,"2. Make a Request from the Waiting List",!,"3. Make a Request for Concurrent Cases"
  • Line Location: ADD+2
Function Call: READ
  • Timeout: DTIME
  • Variable: Z
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !!,"If you want to make a new operation request, enter '1'. Enter '2' if you want",!,"to make a request from the surgery waiting list, or '3' to make a request for",!,"concurrent cases."
  • Line Location: ADD+4
Routine Call
  • DIE
  • Line Location:
    • REQ+3
Routine Call
  • DIC
  • Line Location:
    • CREATE+15
    • LOC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] Classic Fileman Calls
^DIC(42 - [#42] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] LOC
^DPT - [#2] LOC, DISPLAY+1, ADD+1
^ORD(100.99 - [#100.99] CREATE+14
^SRF - [#130] CREATE+5, CREATE+8, DISPLAY, DISPLAY+2, DETAIL+1, PURGE+4, DEL+3, DEL+8
^SRO(133 - [#133] CREATE+1, DEL+1
^XUSEC("SROREQ" 8+3

Label References

Name Line Occurrences
ADD 8+4, ADD+4
DETAIL 8
DISPLAY 8+5, 8+6
EDIT 8+5, EDIT+2
END 8+6, EDIT+1, EDIT+3, EDIT+4, DISPLAY+1, PRESS, DETAIL+1, DETAIL+2, ADD+3, ADD+5
, ADD+6, ADD+7
LOC REQ
LOOP DISPLAY+3
PRESS 8+3, ADD+4
PURGE EN+2

Naked Globals

Name Field # of Occurrence
^( DISPLAY+1, ADD+1
^(0 PURGE+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA REQ+3!*
>> DFN CREATE+12, REQ, LOC, 8+4*, DISPLAY+1, PURGE+2, DEL+6
DIC CREATE+15!*, LOC!*
DIC(0 CREATE+15*
DIE REQ+3!*
DR REQ+3!*
DT REQ+2
DTIME EDIT+1, PRESS, DETAIL, ADD+3
DUZ 8+3
DYNOTE CREATE+2~
IOF DISPLAY+1, ADD+1
IOST DETAIL
>> LOOP LOOP+1*
>> M DISPLAY+3*, LOOP+1
MM DISPLAY+3!, LOOP+1*
MMM DISPLAY+3!, LOOP+1*
>> ORACTION EN+1, EN+2, 8, 8+1, 8+2, 8+4, 8+5, 8+6
>> OREND 8*, DETAIL*
>> ORGY EN+1*
ORIFN REQ+3!, DEL+8*!
>> ORL REQ, LOC+1*
>> ORNP REQ*
>> ORNXT 8
>> ORPCL CREATE+15*, 8+4*
>> ORPK REQ*, EN+1, DISPLAY, DETAIL+1, PURGE+1, PURGE+2, PURGE+4
>> ORPURG REQ+2*
>> ORSLST( 8
>> ORSTRT REQ*, REQ+2
>> ORSTS 8+2, PURGE+4*, DEL+8*
>> ORTX REQ+1*
>> ORVP REQ*, 8+4, DISPLAY, ADD+1
>> SRDFN DISPLAY*
SRDYNOTE DEL+2~, DEL+3*, DEL+4
SREVENT CREATE+11~*, PURGE+1~*, DEL+5~*
>> SRL LOC*, LOC+1
>> SRNM DISPLAY*, DISPLAY+1
SROERR CREATE+11*, CREATE+12, CREATE+13!, REQ+1*, REQ+3!, EN+1*
SROP CREATE+2~, CREATE+3*
SROPER CREATE+2~, CREATE+3*, CREATE+4, CREATE+7, CREATE+8, DISPLAY+2*, DISPLAY+3*, LOOP+1*
SROPS DISPLAY+3!
SROPS( LOOP+1*
SROPS(1 DISPLAY+3*, DISPLAY+4
SROPS(2 DISPLAY+4
SROPS(3 DISPLAY+4
>> SRSDATE REQ, DISPLAY*, DISPLAY+2
>> SRSDOC REQ
>> SRSDT DISPLAY+2*, DISPLAY+4
>> SRSITE CREATE+1, 8+4, DEL+1
>> SRSOP REQ+1
SRSTATUS CREATE+11, CREATE+12, REQ+1, PURGE+1~*, DEL+5~*
SRTN CREATE+3, CREATE+5, CREATE+8, CREATE+9, CREATE+10, CREATE+11, REQ, REQ+1, REQ+3, END!
, DISPLAY*, DISPLAY+2, DETAIL+1*, DEL+3, DEL+4, DEL+5, DEL+6, DEL+8
SRTYPE CREATE+2~, CREATE+3*, CREATE+7*, CREATE+8*, DEL+2~, DEL+4*
>> VA("PID" DISPLAY+1, ADD+1
>> VADM(1 DISPLAY, ADD+1
>> X CREATE+15*, REQ+2, LOC*, PRESS*, DETAIL*
>> X1 REQ+2*
>> X2 REQ+2*
>> XQORNOD 8+4
>> Y CREATE+15, LOC, DISPLAY+1*, ADD+1*
>> Z EDIT+1*, EDIT+2, EDIT+3, EDIT+4, EDIT+5, ADD+3*, ADD+4, ADD+5, ADD+6, ADD+7

Marked Items

Name Field # of Occurrence
$T(DEL^VPRSR PURGE+2, DEL+6
$T(NEW^VPRSR CREATE+12
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 |  Marked Items |  All