Routine: SROACOP

Package	Total	Call Graph
Surgery	5	(,HDR)^SROAUTL (CPTS,DISP)^SROAUTL0 ^SROERR0 ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	3	NOW^%DTC ^DIE Y^DIQ

Package	Total	Caller Graph
Surgery	2	SROA CARDIAC OPERATIVE RISK SROAUTL3

Entry Points

Name	Comments	DBIA/ICR reference
END
HELP
YN	; store answer
RET
ONE	; edit one item
START
RANGE	; range of numbers
KNOW	; delete date/time of estimate of mortality
ASK
DT
NOW	; update date/time of estimate of mortality
CHCK	;compare dates

External References

Name	Field # of Occurrence
NOW^%DTC	NOW+1
^DIE	START+2, ONE+3, ONE+6
Y^DIQ	START+3, START+6
^SROAUTL	SROACOP+3
HDR^SROAUTL	START+12, ASK+4
CPTS^SROAUTL0	START+24
DISP^SROAUTL0	ONE+1
^SROERR0	ASK+5, ASK+6
$$LOCK^SROUTL	ASK+7, RANGE+1
UNLOCK^SROUTL	ASK+7, RANGE+1
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROACOP+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROACOP+2
Function Call: WRITE	Prompt: !," 1. Physician's Preoperative Estimate of Operative Mortality: "_X Line Location: START+13
Function Call: WRITE	Prompt: !,?3," A. Date/Time Collected: "_X Line Location: START+14
Function Call: WRITE	Prompt: !," 2. ASA Classification:",?31,$P(SRAO(2),"^"),!," 3. Surgical Priority:",?31,$P(SRAO(3),"^") Line Location: START+15
Function Call: WRITE	Prompt: !,?3," A. Date/Time Collected: "_X Line Location: START+16
Function Call: WRITE	Prompt: !," 4. Date/Time Operation Began:",?31,$P(SRAO(4),"^"),!," 5. Date/Time Operation Ended:",?31,$P(SRAO(5),"^") Line Location: START+17
Function Call: WRITE	Prompt: !," 6. Preoperative Risk Factors: " Line Location: START+18
Function Call: WRITE	Prompt: ?25,X Line Location: START+20
Function Call: WRITE	Prompt: X,! Line Location: START+22
Function Call: WRITE	Prompt: $E(X,1,J-1),! Line Location: START+23
Function Call: WRITE	Prompt: X Line Location: START+23
Function Call: WRITE	Prompt: !," 7. CPT Codes (view only):" Line Location: START+24
Function Call: WRITE	Prompt: ! Line Location: START+26
Function Call: WRITE	Prompt: !! Line Location: START+27
Function Call: WRITE	Prompt: "-" Line Location: START+27
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !! Line Location: ASK+7
Function Call: WRITE	Prompt: @IOF Line Location: END+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 the corresponding number to update the information in a particular",!," field. (For example, enter '3' to update Surgical Priority)" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter two numbers separated by a ':' to enter a range of information.",!," (For example, enter '1:2' to update Physician's Preoperative Estimate of",!," Mortality and ASA Classification.)" Line Location: HELP+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: HELP+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: RET+0
Function Call: WRITE	Prompt: !!,"* NOTE: D/Time of Surgical Priority should be < the D/Time Patient in OR.*" Line Location: CHCK+3
Function Call: WRITE	Prompt: !!,"* NOTE: D/Time of Estimate of Mortality should be < the D/Time PT in OR. *" Line Location: CHCK+4
Routine Call	DIE Line Location: START+2 ONE+3 ONE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DT+1
^DD(130	START+3, START+6
^SRF - [#130]	START+1, START+2, START+3, START+8, START+9, ONE+5, NOW+1, KNOW+1*, CHCK+2
^SRO(136 - [#136]	START+11

Label References

Name	Line Occurrences
CHCK	START+26
DT	START+5, START+7, START+8, START+9
END	SROACOP+2, START, ASK, ASK+1, ASK+3
HELP	ASK+1, ASK+3
ONE	ASK+7, RANGE+2
RANGE	ASK+5
RET	START
START	ASK+1, ASK+3, ASK+5, ASK+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	NOW+1
>> C	START+3, START+6
>> CURLEY	RANGE+2*
DA	START+2!, ONE+2, NOW+1, KNOW+1
DIE	START+2!, ONE+2!, ONE+3, ONE+6
DR	START+2!, ONE+2!, ONE+3!, ONE+6!
DTIME	SROACOP+2, ASK, HELP+3, RET
>> EMILY	ASK+6, RANGE+2, ONE+1, ONE+2, ONE+3, ONE+4
>> I	START+1, START+21, START+23, START+25
IOF	END, HELP
>> J	START+23*
>> LINE	START+21, START+23
>> MOE	START+27*
>> NYUK	YN+1
>> SHEMP	RANGE+2, YN+1
SRA	START!
SRA(	START+1*, START+10
SRA(206	START+2*, START+4, START+5
SRA(208	START+4, START+7
>> SRACLR	SROACOP+3, START
SRAO	START!
SRAO(	ASK+1, ASK+6, ONE+2
SRAO("1A"	START+5*, START+14
SRAO("3A"	START+7*, START+16
SRAO(1	START+4*, START+13
SRAO(2	START+3*, START+15
SRAO(3	START+4, START+6, START+15
SRAO(4	START+8*, START+17
SRAO(5	START+9*, START+17
SRAO(6	START+10*, START+19
SRAO(7	START+12*
SRCSTAT	SROACOP+3~, START+11*
SREM	CHCK+1~, CHCK+2*, CHCK+4
>> SREQST	END
SRINO	CHCK+1~, CHCK+2*, CHCK+3, CHCK+4
SRL	START+21, START+22, START+23, START+24~
>> SROERR	ASK+5, ASK+6
>> SRPAGE	START+12*
SRPROC	START+24~
SRPROC(	START+25
>> SRQ	START+19, START+21, START+22, START+23*
>> SRSOUT	SROACOP+3, START, ASK+1, ASK+3, HELP+3, RANGE+2, ONE+3, ONE+6, RET*
SRSP	CHCK+1~, CHCK+2*, CHCK+3
>> SRSUPCPT	SROACOP+3*
>> SRTN	SROACOP+2, START+1, START+2, START+3, START+8, START+9, START+11, ASK+5, ASK+6, ASK+7 , RANGE+1, ONE+2, ONE+5, CHCK+2
X	SROACOP+2, START+5, START+7, START+8, START+9, START+13, START+14, START+16, START+19, START+20 , START+22, START+23, ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, DT* , DT+1, HELP+3, RANGE+2, RET*, NOW+1~
>> X1	START+13*, START+14
>> Y	START+3, START+5, START+6, START+7, START+8, START+9, START+23, ASK+3, DT, DT+1 , ONE+3, ONE+6
>> Z	START+19, START+23, ASK+3*

Customize PDF page

Package: Surgery

Routine: SROACOP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: