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

Package: Surgery

Routine: SROPS


Information

SROPS ;B'HAM ISC/MAM - SELECT CASE ; [ 07/8/03 12:10 PM ]

Source Information

Source file <SROPS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 ^SROP1  (NEW,SEL)^SROPER  ^SRSKILL  
VA FileMan 2 ^DIC  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 32

Package Total Caller Graph
Surgery 30 SR BLOOD PRODUCT VERIFICATION  SROABRT  SROACOD  SROANES  SROANES MED  SROANES-D  SROANR  SROARET  
SROARPT  SROCMPS  SROCOMP  SROMEN-ANES  SROMEN-ANES TECH  SROMEN-OP  SROMEN-OPINFO  SROMEN-OUT  
SROMEN-PACU  SROMEN-POST  SROMEN-REFER  SROMEN-REST  SROMEN-STAFF  SROMEN-START  SROMEN-VERF  SROMENU  
SRONIN  SRONRPT  SROP  SROPRPT  SROTRPT  SROVER  
IFCAP 1 PRCPCSOR  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
STL
ADT
OPT
FUTURE ; is this a future case? if so, OK to proceed?
LIST ; list cases
CASE
LOCK ; case locked?
OTHER ; other operations
LOOP ; break procedure
END
HDR ; print heading

External References

Name Field # of Occurrence
^DIC SROPS+2
^DIR FUTURE+4
^SROP1 CASE+2
NEW^SROPER OPT+2
SEL^SROPER LIST+6
^SRSKILL END
DEM^VADPT SROPS+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SROPS+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ADT+2
Function Call: WRITE
  • Prompt: !!,"There are no cases entered for "_VADM(1)_".",!!,"Press RETURN to continue "
  • Line Location: ADT+2
Function Call: WRITE
  • Prompt: !,CNT,". ENTER NEW SURGICAL CASE"
  • Line Location: ADT+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: FUTURE+3
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: FUTURE+3
Function Call: WRITE
  • Prompt: !,CNT_". "
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: ?14,SROPS(1)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Condition for execution: $D(SROPS(4))
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " * DIED "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *"
  • Condition for execution: X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Routine Call
  • DIC
  • Line Location:
    • SROPS+2
Routine Call
  • DIR
  • Line Location:
    • FUTURE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] FUTURE+2, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+7, CASE+1, LOCK+1, OTHER+1
OTHER+2
^SRF("ADT" ADT

Label References

Name Line Occurrences
ADT ADT+1, FUTURE+5
CASE FUTURE+3
END SROPS+2, ADT+1, ADT+2, OPTFUTURE+4
FUTURE ADT+1
HDR STLADT+1, FUTURE+3, FUTURE+5, LIST+6
LIST ADT
LOCK CASE+2
LOOP CASE+2
OPT OPT+1
OTHER CASE+1

Naked Globals

Name Field # of Occurrence
^( LIST+2
^(30 LIST+3
^(31 LIST+4
^(37 LIST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT ADT*, ADT+3*, OPT+1, OPT+2, LIST+7*, CASE+4
>> DFN SROPS+3*, ADT
DIC SROPS+2!*
DIC("A" SROPS+2*
DIC(0 SROPS+2*
DIR FUTURE+3!, FUTURE+4!
DIR("A" FUTURE+4*
DIR("B" FUTURE+4*
DIR(0 FUTURE+4*
DT FUTURE+2
DTIME ADT+2, OPT
>> DTOUT FUTURE+4
>> DUOUT FUTURE+4
DUZ("SAV" STL
>> I CASE+1*
IOF ENDHDR+1
IOSL LIST+6
>> LOOP LOOP+1*
>> M CASE+2*, LOOP+1
MM CASE+2!, LOOP+1*
MMM CASE+2!, LOOP+1*
>> PRCP("I" FUTURE+1
>> SRBACK ADT*, ADT+1, LIST+6*
>> SRCASE( ADT+3*, OPT+1, OPT+3, CASE+4*
>> SRCASE(1 ADT+2
>> SRDT ADT*, CASE+4
>> SRLONG OTHER+1*, OTHER+2
SRNEWOP STL!, ADT+1, ADT+2, ADT+3, OPT+1, OPT+2
>> SRNONOR LIST+1
>> SROP ADT*, FUTURE+2*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+7, CASE+1, CASE+4
OTHER+1, OTHER+2
>> SROPER CASE+1*, CASE+2*, LOCK+1*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS CASE+2!
SROPS( LOOP+1*
SROPS(1 CASE+2*, CASE+3
SROPS(2 CASE+3
SROPS(3 CASE+3
SROPS(4 CASE+3
>> SROTHER CASE+1*, OTHER+1*, OTHER+2
SRSCAN LIST+2*!, LIST+3, LIST+4
>> SRSDATE FUTURE+2*, LIST+7*, CASE
>> SRSOUT SROPS+2*, ADTADT+1, OPT*, LIST+6
SRTN ADTADT+1, OPT+3*, FUTURE+2, FUTURE+5!, LIST+6, LOCK+1, END!
>> VA("PID" HDR+1
>> VADM(1 ADT+2, HDR+1
>> VADM(6 HDR+1
>> X ADT+2*, OPT*, OPT+1, OPT+2, OPT+3, HDR+1*
>> Y SROPS+2, SROPS+3, FUTURE+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All