Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Surgery 8 RPT^SROANR  LOC^SROESX  $$INUSE^SROESXA  LOC^SROESXP  RPT^SRONRPT  ($$MANDIV,$$SITE)^SROUTL0  $$SITE^SROVAR  ^SRSKILL  
VA FileMan 3 DD^%DT  LIST^DIC  ^DIR  
Text Integration Utility 2 $$WHATITLE^TIUPUTU  (MAKE,UPDATE)^TIUSRVP  
Kernel 1 ^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SR VIEW HISTORICAL REPORTS  SR100UTL  

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

External References

Name Field # of Occurrence
DD^%DT DATE+9
^%ZTLOAD DATE+16
LIST^DIC INST+5
^DIR DATE+1, PRESS, INST+3, INST+7, ASK
RPT^SROANR AR+4
LOC^SROESX MOVE+7
$$INUSE^SROESXA MOVE+10
LOC^SROESXP NONOR+2
RPT^SRONRPT NR+4
$$MANDIV^SROUTL0 MOVE+3
$$SITE^SROUTL0 MOVE+4
$$SITE^SROVAR INST+2, INST+4
^SRSKILL END
$$WHATITLE^TIUPUTU OR+2, NONOR+3, NR+2, AR+2
MAKE^TIUSRVP OR+7, NONOR+8, NR+8, AR+8
UPDATE^TIUSRVP STATUS+1

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
Routine Call
  • DIC
  • Line Location:
    • INST+5
Routine Call
  • DIR
  • Line Location:
    • DATE+1
    • PRESS
    • INST+3
    • INST+7
    • ASK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133 - [#133] LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] MOVE+4, MOVE+5, MOVE+6, MOVE+8, MOVE+9, MOVE+10, MOVE+11, OR+7*, NONOR+6, NONOR+8*
, NR+8*, AR+8*, DICT+2
^SRF("AC" MOVE+3
^SRO(133 - [#133] INST+1, INST+9
^TMP("SRANE" AR+5, AR+9!
^TMP("SRNIR" NR+5, NR+9!

Label References

Name Line Occurrences
$$INST DATE+3
AR MOVE+10
ASK DATE+4, DATE+5, DATE+6, DATE+7, DATE+15
DICT OR+4, NONOR+5
DISCLAIM OR+4, NONOR+5, NR+4, AR+4
EN DATE+15
END DATE+1, DATE+3, DATE+4, DATE+5, DATE+6, DATE+7, DATE+8, DATE+15, MOVE+13
NONOR MOVE+11
NR MOVE+9
OR MOVE+8
PRESS DATE+8
STATUS OR+7, NONOR+8, NR+8, AR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN MOVE+1~, MOVE+4*, OR+3, OR+7, NONOR+4, NONOR+8, NR+3, NR+8, AR+3, AR+8
DIR DATE!, DATE+1!, DATE+4!, DATE+5!, DATE+6!, DATE+7!, INST+3!, INST+7!, ASK!
DIR("?" DATE*, INST+3*, INST+7*
DIR("A" DATE*, DATE+4*, DATE+5*, DATE+6*, DATE+7*, DATE+10*, DATE+11*, DATE+12*, DATE+13*, DATE+14*
, DATE+15*, PRESS*, INST+3*, INST+7*
DIR("B" INST+3*, ASK*
DIR(0 DATE*, PRESS*, INST+3*, INST+7*, ASK*
DT MOVE+2
>> DTOUT DATE+1, ASK
>> DUOUT DATE+1, ASK
IOF EN, END
SR INST+1~
SR("DILIST" INST+6, INST+7, INST+8, INST+9
SR0 MOVE+1~, MOVE+4*, OR+3, OR+5, NONOR+4, NONOR+6, NR+3, NR+6, AR+3, AR+6
SRAY OR+1~, OR+7, NONOR+1~, NONOR+8, NR+1~, NR+8, AR+1~, AR+8, STATUS+1!
SRAY( OR+3*, NONOR+4*, NR+3*, AR+3*, STATUS+1*
SRAY("TEXT" NR+5*, AR+5*, DICT+2*, DISCLAIM+1*, DISCLAIM+2*, DISCLAIM+3*, DISCLAIM+4*, DISCLAIM+5*, DISCLAIM+6*, DISCLAIM+7*
, DISCLAIM+8*
SRAY(1202 STATUS+1*
SRAY(1204 STATUS+1*
SRAY(1208 STATUS+1*
SRAY(1209 STATUS+1*
SRAY(1211 OR+6*, NONOR+7*, NR+7*, AR+7*
SRAY(1301 OR+3*, NONOR+4*, NR+3*, AR+3*
SRAY(1302 OR+3*
SRAY(1303 OR+3*, NONOR+4*, NR+3*, AR+3*
SRAY(1405 OR+3*, NONOR+4*, NR+3*, AR+3*
SRAY(1701 OR+3*, NONOR+4*, NR+3*, AR+3*
SRCNT INST+1~*, INST+2
SRDIV MOVE+1~, MOVE+4*
>> SRDOC STATUS+1
SRED1 MOVE+1~, MOVE+2*, MOVE+3
SRINST SROHIS+12~, DATE+3*, DATE+10, INST+1~, INST+2*, INST+3*, INST+4*, INST+5, INST+8*, INST+9
SRINSTP SROHIS+12~, DATE+3*, MOVE+3
SRL NR+5*, AR+5*, DICT+1~*, DICT+2*
SRLOC MOVE+1~, OR+5, NONOR+6, NR+6, AR+6
SRN SROHIS+12~, DATE+10*, DATE+11*, DATE+12*, DATE+13*, DATE+14*, DATE+15
SRPOS SROHIS+12~
SRRPT SROHIS+12~
SRRPT(1 DATE+4*, DATE+8, DATE+11, MOVE+8
SRRPT(2 DATE+5*, DATE+8, DATE+12, MOVE+9
SRRPT(3 DATE+6*, DATE+8, DATE+13, MOVE+10
SRRPT(4 DATE+7*, DATE+8, DATE+14, MOVE+11
SRSD SROHIS+12~, DATE+2*, DATE+9, MOVE+2
SRSD1 MOVE+1~, MOVE+2*, MOVE+3*
SRSDT SROHIS+12~, DATE+9*, DATE+10
SRSOUT SROHIS+12~, EN*, DATE+4, DATE+5, DATE+6, DATE+7, DATE+15, ASK*
SRSTAT STATUS~, STATUS+1
SRTIU MOVE+1~, OR+1~, OR+7, NONOR+1~, NONOR+8, NR+1~, NR+8, AR+1~, AR+8, STATUS+1
SRTN MOVE+1~, MOVE+3*, MOVE+4, MOVE+5, MOVE+6, MOVE+8, MOVE+9, MOVE+10, MOVE+11, OR+3
, OR+7, NONOR+4, NONOR+6, NONOR+8, NR+3, NR+4, NR+5, NR+8, NR+9, AR+3
, AR+4, AR+5, AR+8, AR+9, DICT+2
SRTXT NR+1~, NR+5*, AR+1~, AR+5*, DICT+1~*, DICT+2*
SRV OR+1~, NONOR+1~, NONOR+6*, NR+1~, AR+1~
SRX OR+1~, OR+2*, NONOR+1~, NONOR+3*, NR+1~, NR+2*, AR+1~, AR+2*
TITLE OR+1~, OR+2*, OR+7, NONOR+1~, NONOR+3*, NONOR+8, NR+1~, NR+2*, NR+8, AR+1~
, AR+2*, AR+8
U DATE+3, INST+4, INST+7, INST+9
VDT OR+1~, OR+5*, OR+6, OR+7, NONOR+1~, NONOR+6*, NONOR+7, NONOR+8, NR+1~, NR+6*
, NR+7, NR+8, AR+1~, AR+6*, AR+7, AR+8
VLOC OR+1~, OR+5*, OR+6, OR+7, NONOR+1~, NONOR+6*, NONOR+7, NONOR+8, NR+1~, NR+6*
, NR+7, NR+8, AR+1~, AR+6*, AR+7, AR+8
VSIT OR+1~, OR+5*, OR+7, NONOR+1~, NONOR+6*, NONOR+8, NR+1~, NR+6*, NR+8, AR+1~
, AR+6*, AR+8
>> VSTR OR+6*, OR+7, NONOR+7*, NONOR+8, NR+7*, NR+8, AR+7*, AR+8
X SROHIS+12~, INST+1~*, INST+6*, OR+1~, NONOR+1~, NR+1~, AR+1~
Y SROHIS+12~, DATE+1, DATE+2, DATE+4, DATE+5, DATE+6, DATE+7, DATE+9*, DATE+15, INST+3!
, INST+8, INST+9
Y(0 INST+3
>> ZTDESC DATE+16*
>> ZTIO DATE+16*
>> ZTQUEUED MOVE+12
>> ZTREQ MOVE+12*
>> ZTRTN DATE+16*
>> ZTSAVE("DUZ" DATE+16*
>> ZTSAVE("SRINST" DATE+16*
>> ZTSAVE("SRINSTP" DATE+16*
>> ZTSAVE("SRRPT*" DATE+16*
>> ZTSAVE("SRSD" DATE+16*
>> ZTSK DATE+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All