Routine: SROAOPS

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIR
DRG Grouper	1	$$CPT^ICPTCOD

Entry Points

Name	Comments	DBIA/ICR reference
END
HELP
ONE	; edit one procedure
SETOP	; set other operative info
RANGE	; range of numbers
OTHER	; other procedures
ASK
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	Timeout: DTIME Variable: X 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	Timeout: DTIME Variable: X 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

>>	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*

Customize PDF page

Package: Surgery

Routine: SROAOPS

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

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