Routine: SROCMPED

Package	Total	Call Graph
VA Fileman	5	^DIC ^DIE ^DIK Y^DIQ ^DIR
Surgery	2	HDR^SROAUTL ($$LOCK,UNLOCK)^SROUTL
DRG Grouper	1	$$ICDDX^ICDCODE

Package	Total	Caller Graph
Surgery	1	SROCMPS

Entry Points

External References

Name	Field # of Occurrence
^DIC	NOCAT+2
^DIE	DISP+15, ONE+1, SEPSIS+1, RCP+1, NOCAT+3
^DIK	YUP+1
Y^DIQ	START+6, START+9
^DIR	PRESS
$$ICDDX^ICDCODE	ICDSTR+2
HDR^SROAUTL	START+4, DISP+12, SEPSIS, RCP
$$LOCK^SROUTL	DISP+14, RANGE+1
UNLOCK^SROUTL	DISP+14, RANGE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+4
Function Call: WRITE	Prompt: !,"1. Occurrence: ",?26,$P(SRO(1),"^"),!,"2. Occurrence Category: ",?26,$P(SRO(2),"^") Line Location: DISP+0
Function Call: WRITE	Prompt: !,"3. "_$S($P(SR,"^",2)=3:"Sepsis Type",$P(SR,"^",2)=27&($P($G(^SRF(SRTN,"RA")),"^",2)="C"):"CPB Status",1:"ICD Diagnosis Code")_":",?26,$P(SRO(3),"^") Line Location: DISP+1
Function Call: WRITE	Prompt: !,"4. Treatment Instituted:",?26,$P(SRO(4),"^"),!,"5. Outcome to Date:",?26,$P(SRO(5),"^") Line Location: DISP+2
Function Call: WRITE	Prompt: !,"6. Date Noted: ",?26,$P(SRO(6),"^") Line Location: DISP+3
Function Call: WRITE	Prompt: !,SRX_". Occurrence Comments: ",?26,$P(SRO(SRX),"^") Line Location: DISP+6
Function Call: WRITE	Prompt: !!,SRLINE Line Location: DISP+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: DISP+8
Function Call: WRITE	Prompt: @IOF Line Location: DISP+10
Function Call: WRITE	Prompt: @IOF Line Location: DISP+11
Function Call: WRITE	Prompt: ! Line Location: DISP+12
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 occurrence information." Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"2. Enter a number "_RANGE_" to update a specific occurrence element. (For",!," example, enter '2' to update the occurrence category)" Line Location: HELP+3
Function Call: WRITE	Prompt: !!,"3. Enter a range of numbers "_RANGE_" separated by a ':' to enter a range of",!," elements. (For example, enter '1:3' to enter occurrence, occurrence",!," category, and ICD diagnosis code)" Line Location: HELP+4
Function Call: WRITE	Prompt: ! Line Location: HELP+5
Function Call: WRITE	Prompt: @IOF,!,"The occurrence selected does not have a corresponding category. A category",!,"must be selected at this time, or the occurrence will be deleted.",! Line Location: NOCAT+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: DEL+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to delete this occurrence from the patient's record. Enter 'NO'",!,"to backup and enter a category for this occurrence." Line Location: DEL+1
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Routine Call	DIE Line Location: DISP+15 ONE+1 SEPSIS+1 RCP+1 NOCAT+3
Routine Call	DIC Line Location: NOCAT+2
Routine Call	DIR Line Location: PRESS

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130.22	START+6, START+9
^SRF - [#130]	SROCMPED+2, SROCMPED+3, START, START+1, START+3, START+8, START+9, START+11, DISP+1, DISP+4 , ONE+1
^SRO(136.5 - [#136.5]	START+5

Label References

Name	Line Occurrences
DEL	DEL+1
END	START+2, START+3, DISP+8, DISP+10, DISP+11
HELP	DISP+10, DISP+11
ICDSTR	START+10
NOCAT	SROCMPED+2, DEL+2
ONE	RANGE+2
PRESS	DISP+14, HELP+5, RANGE+3
RANGE	DISP+13
RCP	START+3
SEPSIS	START+2
START	START+2, START+3, DISP+10, DISP+11, DISP+13, DISP+16
YUP	DEL

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	START+6, START+9
>> CURLEY	RANGE+2*, RANGE+3
DA	DISP+15!, ONE+1!, END!, SEPSIS!, SEPSIS+1!, SEPSIS+2!, RCP!, RCP+1!, RCP+2!, NOCAT+3!* , YUP+1!*
DA(1	DISP+15, ONE+1, SEPSIS+1, RCP+1, NOCAT+3, YUP+1
DIC	NOCAT+1!, NOCAT+2*
DIC("A"	NOCAT+2*
DIC("S"	NOCAT+2*
DIC(0	NOCAT+2*
DIE	DISP+15!, ONE+1!, END!, SEPSIS!, SEPSIS+1, SEPSIS+2!, RCP!, RCP+1, RCP+2!, NOCAT+1! , NOCAT+3!*
DIK	YUP+1!*
DIR	PRESS!
DIR(0	PRESS*
DR	DISP+15!, ONE+1!, END!, SEPSIS!, SEPSIS+1!, SEPSIS+2!, RCP!, RCP+1!, RCP+2!, NOCAT+3!*
DTIME	DISP+8, DEL
>> DTOUT	ONE+1, SEPSIS+2, RCP+2, PRESS
>> DUOUT	PRESS
>> EMILY	RANGE+2*, ONE+1
IOF	DISP+10, DISP+11, HELP, NOCAT
>> RANGE	HELP+2*, HELP+3, HELP+4
>> SHEMP	START+12, RANGE+2
SR	START+1*, START+2, START+3, START+5, START+6, START+7, START+8, START+9, START+10, START+12 , START+13, DISP+1, END!
SR(2	START+11*
SRCAT	NOCAT+1!, NOCAT+3*, NOCAT+4!
SRENTRY	SROCMPED+2, SROCMPED+3!, START!, START+1, START+11, DISP+4, DISP+15, ONE+1, SEPSIS+1, RCP+1 , NOCAT+3, YUP+1
SRICDSTR	ICDSTR+1~, ICDSTR+2*
>> SRLINE	DISP+7
>> SRMAX	DISP+5*, DISP+9, DISP+11, HELP+2
>> SRNEW	START+2, START+3, SEPSIS+2, RCP+2
SRO	END!
SRO(	DISP+4, DISP+5, DISP+6, DISP+10, DISP+15, ONE+1
SRO(1	START+5*, DISP
SRO(2	START+5*, DISP
SRO(3	START+6, START+9, START+10*, DISP+1
SRO(4	START+11*, DISP+2
SRO(5	START+12*, DISP+2
SRO(6	START+13!*, DISP+3
>> SRSDATE	START+8*, ICDSTR+2
>> SRSOUT	SROCMPED+2, SROCMPED+3, START, START+1, START+2, START+3, DISP+8, DISP+10, DISP+11, RANGE+2 , ONE+1, SEPSIS+2, RCP+2, DEL, YUP+1, PRESS*
>> SRTN	SROCMPED+2, SROCMPED+3, START, START+1, START+3, START+8, START+9, START+11, DISP+1, DISP+4 , DISP+14, DISP+15, RANGE+1, ONE+1, SEPSIS+1, RCP+1, NOCAT+3, YUP+1
>> SRTYPE	SROCMPED+2, SROCMPED+3, START, START+1, START+2, START+3, START+5, START+10, START+11, START+13 , DISP+4, DISP+5, DISP+15, ONE+1, SEPSIS+1, RCP+1, NOCAT+2, NOCAT+3, YUP+1
>> SRX	DISP+4*, DISP+5, DISP+6
>> SRYN	DEL*, DEL+1, DEL+2
>> SRZ	DISP+14, DISP+15*
X	START+5, START+10, START+12, START+13, DISP+5, DISP+8, DISP+9, DISP+10, DISP+11, DISP+13 , DISP+15, ICDSTR+2, RANGE+2, END!, NOCAT+1!
Y	START+6, START+9, DISP+11*, ONE+1, END!, SEPSIS+2, RCP+2, NOCAT+1!, NOCAT+3
>> Z	DISP+11*

Customize PDF page

Package: Surgery

Routine: SROCMPED

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP
END
HELP
ICDSTR	; get diagnosis info
SEPSIS
RCP
ONE	; edit one item
START
RANGE	; range of numbers
DEL
YUP	; delete occurrence
PRESS
NOCAT