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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SROAOPS

Package: Surgery

Routine: SROAOPS


Information

SROAOPS ;BIR/MAM - OTHER PROCEDURES ; 17 MAR 1992 1:30 pm [ 12/15/98 12:51 PM ]

Source Information

Source file <SROAOPS.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 FILE^DICN  ^DIE  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  

Entry Points

Name Comments DBIA/ICR reference
OTHER ; other procedures
ASK
END
HELP
SETOP ; set other operative info
RANGE ; range of numbers
ONE ; edit one procedure
HDR

External References

Name Field # of Occurrence
FILE^DICN ONE+3
^DIE ONE+1, ONE+4
^DIR ONE+2
$$CPT^ICPTCOD SETOP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1. Other Procedure (1):"
  • Line Location: OTHER+5
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH(1),"^")
  • Line Location: OTHER+5
Function Call: WRITE
  • Prompt: !," CPT Code:"
  • Line Location: OTHER+6
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH("1A"),"^")
  • Line Location: OTHER+6
Function Call: WRITE
  • Prompt: !!,"2. Other Procedure (2):"
  • Line Location: OTHER+7
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH(2),"^")
  • Line Location: OTHER+7
Function Call: WRITE
  • Prompt: !," CPT Code:"
  • Line Location: OTHER+8
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH("2A"),"^")
  • Line Location: OTHER+8
Function Call: WRITE
  • Prompt: !!,"3. Other Procedure (3):"
  • Line Location: OTHER+9
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH(3),"^")
  • Line Location: OTHER+9
Function Call: WRITE
  • Prompt: !," CPT Code:"
  • Line Location: OTHER+10
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH("3A"),"^")
  • Line Location: OTHER+10
Function Call: WRITE
  • Prompt: !!,"4. Other Procedure (4):"
  • Line Location: OTHER+11
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH(4),"^")
  • Line Location: OTHER+11
Function Call: WRITE
  • Prompt: !," CPT Code:"
  • Line Location: OTHER+12
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH("4A"),"^")
  • Line Location: OTHER+12
Function Call: WRITE
  • Prompt: !!,"5. Other Procedure (5):"
  • Line Location: OTHER+13
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH(5),"^")
  • Line Location: OTHER+13
Function Call: WRITE
  • Prompt: !," CPT Code:"
  • Line Location: OTHER+14
Function Call: WRITE
  • Prompt: ?25,$P(SRAOTH("5A"),"^")
  • Line Location: OTHER+14
Function Call: WRITE
  • Prompt: !
  • Line Location: OTHER+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OTHER+15
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF,!!!!!,"Enter the number or range of numbers you want to edit. Examples of proper",!,"responses are listed below."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"1. Enter 'A' to update all information.",!!,"2. Enter a number (1-5) to update one specific procedure. For example, ",!," enter '1' to update Other Procedure (1)."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"3. Enter a range of numbers, separated by a ':' to update more than one",!," procedure. For example, enter '1:2' to enter Other Procedure (1) and",!," Other Procedure (2)."
  • Line Location: HELP+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: @IOF,!,SRANAME,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+0
Routine Call
  • DIE
  • Line Location:
    • ONE+1
    • ONE+4
Routine Call
  • DIR
  • Line Location:
    • ONE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] OTHER+1*, OTHER+3, SETOP+1

Label References

Name Line Occurrences
END ASK+1, ASK+2
HDR OTHER+4, ASK+3
HELP ASK+1, ASK+2
ONE ASK+4, RANGE+1
OTHER ASK+1, ASK+2, ASK+3, ASK+4
RANGE ASK+3
SETOP OTHER+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT OTHER+3*, END!, SETOP+1*
>> CURLEY RANGE+1*
DA ONE+1*, ONE+2!, ONE+3!, ONE+4*
DA(1 ONE+1*, ONE+3*, ONE+4*
DD ONE+3!
DIC ONE+3!*
DIC(0 ONE+3*
DIE ONE+1!*, ONE+4!*
DINUM ONE+3!
DIR ONE+2!
DIR("A" ONE+2*
DIR(0 ONE+2*
DO ONE+3!
DR ONE+1!*, ONE+4!*
DTIME ASK, HELP+3
>> I OTHER+2*
IOF HELP, HDR
>> KAREN ASK+4*, RANGE+1*, ONE+1, ONE+2
>> MOE OTHER+15*, HDR*
>> OPS OTHER+3*, SETOP+1
>> OTHER SETOP+1*
>> SHEMP RANGE+1*
>> SRANAME HDR
SRAOTH OTHER+2!, END!
SRAOTH( OTHER+2*, ASK+1, SETOP+1*, ONE+1
SRAOTH("1A" OTHER+6
SRAOTH("2A" OTHER+8
SRAOTH("3A" OTHER+10
SRAOTH("4A" OTHER+12
SRAOTH("5A" OTHER+14
SRAOTH(1 OTHER+5
SRAOTH(2 OTHER+7
SRAOTH(3 OTHER+9
SRAOTH(4 OTHER+11
SRAOTH(5 OTHER+13
>> SRSOUT ASK+1, ASK+2, HELP+3*, RANGE+1
>> SRTN OTHER+1, OTHER+3, SETOP+1, ONE+1, ONE+3, ONE+4
>> X ASK*, ASK+1, ASK+2*, ASK+3, ASK+4, HELP+3*, SETOP+1*, RANGE+1, ONE+3*
>> Y ASK+2*, SETOP+1*, ONE+2, ONE+3, ONE+4
>> Z ASK+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All