Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Entry Points | Interaction Calls

Print Page as PDF

Routine: SROES

Package: Surgery

Routine: SROES

Information

SROES ;BIR/ADM - SURGERY E-SIG UTILITY ;06/07/06

Source Information

Source file <SROES.m>

Entry Points

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

Interaction Calls

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

Info | Source | Entry Points | Interaction Calls