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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SROHIS

Package: Surgery

Routine: SROHIS


Information

SROHIS ;BIR/ADM - MOVE REPORTS FOR HISTORICAL CASES TO TIU ; [ 01/22/04 11:19 AM ]

Source Information

Source file <SROHIS.m>

Entry Points

Name Comments DBIA/ICR reference
EN
DATE
PRESS
END
INST() ; determine division used by process
MOVE ; entry point when queued
ASK
OR ; create entry in TIU for operation report
NONOR ; create entry in TIU for non-or procedures
NR ; create entry in TIU for nurse intraoperative report
AR ; create entry in TIU for anesthesia report
STATUS(SRSTAT) ; update status
DICT ; get summary from surgeon's dictation field in file 130
DISCLAIM ; disclaimer statement

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Make Reports Viewable in CPRS",!!
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: ?3,"This option allows Operation Reports, Nurse Intraoperative Reports,",!,?3,"Anesthesia Reports and Procedure Reports (Non-O.R.) for historical cases"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,?3,"to be moved into TIU as ""electronically unsigned"" to make them viewable",!,?3,"within the CPRS Surgery tab. Historical cases are cases performed before"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?3,"the Surgery Electronic Signature for Operative Reports feature was",!,?3,"implemented.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,?3,"These ""electronically unsigned"" reports will contain a disclaimer",!,?3,"stating: ""This information is provided from historical files and cannot"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,?3,"be verified that the author has authenticated/approved this information.",!,?3,"The authenticated source document in the patient's medical record should"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,?3,"be reviewed to ensure that all information concerning this event has been",!,?3,"reviewed or noted.""",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,?3,"CAUTION!! This is a system intensive process that creates new documents",!,?3,"in TIU. Please ensure adequate disk space availability before running"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,?3,"this process. Also, late activity messages may be suppressed by disabling",!,?3,"the mail group defined as the ""Late Activity Mail Group"" while this"
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,?3,"process runs. Upon completion, this mail group must be reestablished.",!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !,"No reports selected."
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+16
Function Call: WRITE
  • Prompt: !!,"Queued as task #"_ZTSK
  • Line Location: DATE+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRESS+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: INST+5
Function Call: WRITE
  • Prompt: !,X,". ",SR("DILIST",1,X)
  • Line Location: INST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INST+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133 - [#133] LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call