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

Package: Surgery

Routine: SROWL0


Information

SROWL0 ;B'HAM ISC/MAM - EDIT OR DELETE WAITING LIST ; 16 OCT 1989 08:00

Source Information

Source file <SROWL0.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  ^DIE  ^DIK  D^DIQ  
Surgery 2 WL^SROPCE1  ^SRSKILL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROW-DELETE  SROW-EDIT  

Entry Points

Name Comments DBIA/ICR reference
END
DIK ; delete entry
EDIT
DIE
LIST
DEL
ARRAY ; set array containing waiting list info
LOOP ; break procedure if greater than 36 characters

External References

Name Field # of Occurrence
NOW^%DTC DIE+1
^DIC EDIT+1
^DIE DIE+2
^DIK DIK+4
D^DIQ ARRAY+2
WL^SROPCE1 DIE+2
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: @IOF,!,"Procedures entered on the Waiting List for "_SRSDPT,!!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !!,"There are no entries on the Waiting List for "_SRSDPT_".",!!
  • Line Location: LIST+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!!,"Select Number: "
  • Line Location: LIST+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the entry you want to "_$S(SRDEL:"delete",1:"edit")_". Enter '^'",!,"to quit this option.",!!,"Press RETURN to continue "
  • Line Location: LIST+5
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: DIK+1
Function Call: WRITE
  • Prompt: !!,"Enter 'NO' if you have made a mistake and do not want to remove this",!,"procedure from the list, or 'YES' to delete the entry."
  • Line Location: DIK+2
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: DIK+3
Function Call: WRITE
  • Prompt: !!,SRSDPT_" has been removed from the Waiting List."
  • Line Location: DIK+5
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,CNT_". "_SRSNM,?40,"Date Entered on List:",?66,SRDT,!,?3,SROP(1),?40,"Tentative Operation Date: ",?66,SROPDT
  • Line Location: ARRAY+5
Function Call: WRITE
  • Prompt: !,?3,SROP(2)
  • Line Location: ARRAY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ARRAY+7
Routine Call
  • DIE
  • Line Location:
    • DIE+2
Routine Call
  • DIC
  • Line Location:
    • EDIT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRO(133.8 - [#133.8] LIST+1, ARRAY+1, ARRAY+2
^SRO(137.45 - [#137.45] ARRAY+1

Label References

Name Line Occurrences
ARRAY LIST+1
DIE LIST+3, DIK+2
DIK DIE
END EDIT+1, LIST+2, LIST+4, DIE+3, DIK+1, DIK+3
LIST LIST+5
LOOP ARRAY+3

Naked Globals

Name Field # of Occurrence
^(0 ARRAY+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DIE+1
>> CNT LIST+1*, ARRAY+1*, ARRAY+4, ARRAY+5
DA DIE+2!*, DIK+4*
DA(1 DIE+2*, DIK+4*
>> DFN EDIT+1*, LIST+1
DIC EDIT+1!*
DIC("A" EDIT+1*
DIC(0 EDIT+1*
DIE DIE+2!*
>> DIK DIK+4*
DR DIE+2!*
DR(2 DIE+2*
DTIME LIST+4, LIST+5, DIK+1, END
>> I LIST+1*
IOF EDIT+1, LIST, END+1
>> LOOP LOOP+1*
>> M ARRAY+3*, LOOP+1
MM ARRAY+3!, LOOP+1*
MMM ARRAY+3!, LOOP+1*
>> SRDEL DEL*, EDIT*, EDIT+1, LIST+5, DIE
>> SRDT ARRAY+2*, ARRAY+4, ARRAY+5
>> SRNOW DIE+1*
>> SROFN LIST+1*, DIE+1*, DIE+2, ARRAY+2, ARRAY+4
SROP ARRAY+3!
SROP( LOOP+1*
SROP(1 ARRAY+3*, ARRAY+5
SROP(2 ARRAY+6
>> SROPDT ARRAY+2*, ARRAY+4, ARRAY+5
>> SROPER ARRAY+2*, ARRAY+3*, ARRAY+4, LOOP+1*
>> SRSDPT EDIT+1*, LIST, LIST+2, DIK+5
>> SRSNM ARRAY+1*, ARRAY+4, ARRAY+5
>> SRSOUT EDIT+1*, LIST+4*, DIK+1*, END
>> SRSS LIST+1*, DIE+1*, DIE+2, ARRAY+1, ARRAY+2, ARRAY+4
SRW LIST+1!, LIST+3*, LIST+6*, DIE+1, DIK+4
SRW( LIST+5, DIE+1, DIK+4, ARRAY+4*
SRW(1 LIST+2
SRW(2 LIST+3
>> SRYN DIK+1*, DIK+2*, DIK+3
>> X LIST+4*, LIST+5*, LIST+6, END*
>> Y EDIT+1, ARRAY+2*
>> Y(0 EDIT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All