Routine: SROACPM1

Package	Total	Call Graph
Surgery	2	^SROACPM2 (,HDR)^SROAUTL
VA Fileman	2	^DIE EN^DIQ1

Package	Total	Caller Graph
Surgery	1	SROCLAB

Entry Points

External References

Name	Field # of Occurrence
^DIE	ONE+1, CONCC+4
EN^DIQ1	CONCC+3
^SROACPM2	START
^SROAUTL	SROACPM1+3
HDR^SROAUTL	ASK+5, DISP

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROACPM1+2
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROACPM1+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
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 a number (1-10) to update the information in that field. (For",!," example, enter '7' to update Serum Creatinine)" Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers (1-10) separated by a ':' to enter a range of",!," information. (For example, enter '5:7' to update Serum Potassium,",!," Serum Bilirubin, and Serum Creatinine)" 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: !," 1. HDL:",?25,$J(SRX,6),?35,$$NORCHK(21,SRX),?38,$P(SRAO(1),"^",2) Line Location: DISP+1
Function Call: WRITE	Prompt: !," 2. LDL:",?25,$J(SRX,6),?35,$$NORCHK(23,SRX),?38,$P(SRAO(2),"^",2) Line Location: DISP+2
Function Call: WRITE	Prompt: !," 3. Total Cholesterol:",?25,$J(SRX,6),?35,$$NORCHK(24,SRX),?38,$P(SRAO(3),"^",2) Line Location: DISP+3
Function Call: WRITE	Prompt: !," 4. Serum Triglyceride:",?25,$J(SRX,6),?35,$$NORCHK(22,SRX),?38,$P(SRAO(4),"^",2) Line Location: DISP+4
Function Call: WRITE	Prompt: !," 5. Serum Potassium:",?25,$J(SRX,6),?35,$$NORCHK(5,SRX),?38,$P(SRAO(5),"^",2) Line Location: DISP+5
Function Call: WRITE	Prompt: !," 6. Serum Bilirubin:",?25,$J(SRX,6),?35,$$NORCHK(14,SRX),?38,$P(SRAO(6),"^",2) Line Location: DISP+6
Function Call: WRITE	Prompt: !," 7. Serum Creatinine:",?25,$J(SRX,6),?35,$$NORCHK(7,SRX),?38,$P(SRAO(7),"^",2) Line Location: DISP+7
Function Call: WRITE	Prompt: !," 8. Serum Albumin:",?25,$J(SRX,6),?35,$$NORCHK(11,SRX),?38,$P(SRAO(8),"^",2) Line Location: DISP+8
Function Call: WRITE	Prompt: !," 9. Hemoglobin:",?25,$J(SRX,6),?35,$$NORCHK(1,SRX),?38,$P(SRAO(9),"^",2) Line Location: DISP+9
Function Call: WRITE	Prompt: !,"10. Hemoglobin A1c:",?25,$J(SRX,6),?35,$$NORCHK(27,SRX),?38,$P(SRAO(10),"^",2) Line Location: DISP+10
Function Call: WRITE	Prompt: !! Line Location: DISP+11
Function Call: WRITE	Prompt: "-" Line Location: DISP+11
Routine Call	DIE Line Location: ONE+1 CONCC+4

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	CONCC+1
^SRO(139.2 - [#139.2]	NORCHK+4

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CURLEY	RANGE+1*
DA	ONE+1, CONCC+2!, CONCC+3, CONCC+4!*
DIC	CONCC+2!, CONCC+3*
DIE	ONE+1!, CONCC+4!
DIQ	CONCC+2!, CONCC+3*
DIQ(0	CONCC+3*
DR	ONE+1!, CONCC+2!, CONCC+3, CONCC+4!*
DTIME	SROACPM1+2, ASK, HELP+3, RET
>> EMILY	ASK+7, RANGE+1, ONE+1
HIGH	NORCHK+2~, NORCHK+4*, NORCHK+5, NORCHK+6
IOF	END, HELP
LOW	NORCHK+2~, NORCHK+4*, NORCHK+5, NORCHK+6
>> MOE	DISP+11*
NODE	NORCHK+2~, NORCHK+4*
>> P1	CONCC+3*, CONCC+4
>> P2	CONCC+3*, CONCC+4
RESULT	NORCHK~, NORCHK+1, NORCHK+3*, NORCHK+5, NORCHK+6
>> S1	CONCC+2*, CONCC+3, CONCC+4
>> S2	CONCC+2*, CONCC+3, CONCC+4
>> SHEMP	RANGE+1*
SRA	START!
SRAO	START!
SRAO(	ASK+2, ASK+7, ONE+1, CONCC+2
SRAO(1	DISP+1
SRAO(10	DISP+10
SRAO(2	DISP+2
SRAO(3	DISP+3
SRAO(4	DISP+4
SRAO(5	DISP+5
SRAO(6	DISP+6
SRAO(7	DISP+7
SRAO(8	DISP+8
SRAO(9	DISP+9
SRAT	NORCHK~, NORCHK+4
>> SRCON	CONCC+1*, CONCC+4
>> SRHDR(	DISP*
>> SRI	CONCC+2*
>> SRNOMORE	RANGE+1, ONE+1
>> SRPAGE	ASK+5, DISP
>> SRSOUT	SROACPM1+3, START, ASK, ASK+2, ASK+4, HELP+3, RET
>> SRTN	SROACPM1+2, ONE+1, CONCC+1, CONCC+3
SRX	DISP~, DISP+1, DISP+2, DISP+3, DISP+4, DISP+5, DISP+6, DISP+7, DISP+8, DISP+9* , DISP+10*
SRY	CONCC+2!, NORCHK+2~, NORCHK+3*, NORCHK+5
SRY(130	CONCC+3
>> X	SROACPM1+2, ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+6, ASK+7, HELP+3, RANGE+1 , RET
>> Y	ASK+4*, ONE+1
>> Z	ASK+4*

Customize PDF page

Package: Surgery

Routine: SROACPM1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP
NORCHK(SRAT,RESULT)	;
CONCC	; check for concurrent case and update if one exists
END
HELP
RET
ONE	; edit one item
START
RANGE	; range of numbers
ASK

Name	Line Occurrences
$$NORCHK	DISP+1, DISP+2, DISP+3, DISP+4, DISP+5, DISP+6, DISP+7, DISP+8, DISP+9, DISP+10
CONCC	ASK, ASK+1
DISP	START
END	SROACPM1+2, START, ASK, ASK+1, ASK+2, ASK+4
HELP	ASK+2, ASK+4
ONE	ASK+7, RANGE+1
RANGE	ASK+6
START	ASK+2, ASK+4, ASK+6, ASK+7