Routine: SROES

Package	Total	Call Graph
Surgery	8	^SROERR0 ^SROESAD ^SROESAD1 (EX,IN)^SROESAR REVRS^SROESAR0 (EX,IN)^SROESNR REVRS^SROESNR0 ($$LOCK,UNLOCK)^SROUTL
VA Fileman	2	WAIT^DICD ^DIR
Registration	1	DEM^VADPT
Text Integration Utility	1	EXTRACT^TIULQ

Package	Total	Caller Graph
Surgery	27	SRO1L1 SROA CARDIAC OPERATIVE RISK SROA CARDIAC PROCEDURES SROA CARDIAC RESOURCE SROA CATHETERIZATION SROA CLINICAL INFORMATION SROA COMPLETE ASSESSMENT SROA DEMOGRAPHICS SROA LAB SROA OPERATION DATA SROA PREOP DATA SROANES MED SROAOUT SROARPT SROCMPS SROMEN-ANES SROMEN-ANES TECH SROMEN-OP SROMEN-OUT SROMEN-PACU SROMEN-POST SROMEN-REST SROMEN-STAFF SROMEN-START SRONASS SRONIN SROVER

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; save pr-edit copy of case data
KTMP	; kill TMP globals
SRA
HDR
DOCS	; determine if signed
REVRS	; restore modified fields on signed reports
ALLREV	; restore modified fields for both concurrent cases
SIGNED
WARN	; warning message that addendum may be required
UNLOCK
EXIT	; post-edit check to see if addenda to nurse/anes. reports are required
ENTER
PRESS
DOC
CHECK	; pre-edit capture of nurse and anesthesia reports for addenda

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?30,">>> WARNING <<<" Line Location: WARN+1
Function Call: WRITE	Prompt: !!," Electronically signed reports are associated with this case. Editing",!," of data that appear on electronically signed reports will require the",!," creation of addenda to the signed reports.",!!! Line Location: WARN+2
Function Call: WRITE	Prompt: @IOF,!," "_VADM(1)_" ("_VA("PID")_") Case #"_SRTN_" - "_SRSDATE Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"An addendum to each of the following electronically signed document(s) is",!,"required:",! Line Location: DOC+6
Function Call: WRITE	Prompt: !,?10,SRNDOC(X) Line Location: DOC+7
Function Call: WRITE	Prompt: !,?10,SRADOC(X) Line Location: DOC+8
Function Call: WRITE	Prompt: !!,"If you choose not to create an addendum, the original data will be restored",!,"to the modified fields appearing on the signed reports.",!! Line Location: DOC+9
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: WRITE	Prompt: !!,"No addendum created. Original data will be restored.",!! Line Location: ALLREV+1
Routine Call	DIR Line Location: WARN+3 DOC+10 PRESS

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR
^SRF - [#130]	CHECK+2, CHECK+3, HDR, EXIT+5, ALLREV+2
^TMP(	KTMP+1!, KTMP+2!
^TMP("SRAR"	DOC+3, DOC+4
^TMP("SRARAD1"	EXIT+3, EXIT+4, EXIT+7, EXIT+8
^TMP("SRARAD2"	EXIT+4
^TMP("SRNR"	DOC+1, DOC+2
^TMP("SRNRAD1"	EXIT+2, EXIT+4, EXIT+6, EXIT+8
^TMP("SRNRAD2"	EXIT+4

Name	Field # of Occurrence
>> DFN	HDR*
DIR	WARN+3!, DOC+10!, PRESS!
DIR("A"	DOC+10, PRESS
DIR("B"	DOC+10*
DIR(0	WARN+3, DOC+10, PRESS*
>> DTOUT	WARN+3, DOC+10
>> DUOUT	WARN+3, DOC+10
I	CHECK+1~, KTMP+1, KTMP+2
IOF	HDR+1
>> J	KTMP+2*
SRA	CHECK+1~
SRA(	CHECK+2, CHECK+3, DOCS+2*, PRE+2
SRADOC	DOC~, DOC+3, DOC+4*
SRADOC(	DOC+3, DOC+4, DOC+8
SRAUDIT	CHECK+1~, CHECK+4, CHECK+5
SRAUDIT(	CHECK+2, CHECK+3, CHECK+4, CHECK+9, SIGNED*
SRCCASE	CHECK+1~, CHECK+3, EXIT+5~, DOC+2, DOC+4, DOC+12, ALLREV+2*
SRDOC	DOC~, DOC+1, DOC+2, DOC+3, DOC+4*, DOC+5
SRERR	SIGNED~
SRESAR	CHECK+1~, CHECK+2, CHECK+3, DOCS+2
SRESNOT	DOC+10~, DOC+11, DOC+12
SRESNR	CHECK+1~, CHECK+2, CHECK+3, DOCS+1
SRLCK	CHECK+8~*
SRN	CHECK+1~
SRN(	CHECK+2, CHECK+3, DOCS+1*, PRE+2
SRNDOC	DOC~, DOC+1, DOC+2*
SRNDOC(	DOC+1, DOC+2, DOC+7
>> SROERR	REVRS+2*
SROP	CHECK+1~, CHECK+2, CHECK+3, CHECK+9*, DOCS+1, DOCS+2, SIGNED, PRE+1
SRRISK	SRA~*, CHECK+6
>> SRSDATE	HDR*, HDR+1
SRSIGN	CHECK+1~, DOCS+1, DOCS+2, SIGNED*
SRSOUT	ENTER+1~!, CHECK+1, CHECK+6, CHECK+8, WARN+3*
SRTIU	CHECK+1~, CHECK+2, CHECK+3
SRTN	ENTER, CHECK+2, CHECK+3, CHECK+8, PRE+1~, PRE+2, HDR, HDR+1, EXIT+1, EXIT+2 , EXIT+3, EXIT+4, EXIT+5, EXIT+6, EXIT+7, EXIT+8, EXIT+9, DOC+1, DOC+3, DOC+12 , UNLOCK, ALLREV+2*, REVRS+2
SRTN1	EXIT+5~, EXIT+9, DOC+12, ALLREV+2*
SRX	CHECK+1~, DOCS+1, DOCS+2, SIGNED
SRY	CHECK+1~, SIGNED+1!
SRY(	SIGNED
>> VA("PID"	HDR+1
>> VADM(1	HDR+1
X	CHECK+1~, CHECK+4, DOC+7, DOC+8*
>> XQUIT	ENTER+1, CHECK+8
>> Y	HDR*, DOC+10