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 |  Marked Items  | All
Print Page as PDF
Routine: SROARPT

Package: Surgery

Routine: SROARPT


Information

SROARPT ;B'HAM ISC/MAM,ADM - ANESTHESIA REPORT ;10/21/04

Source Information

Source file <SROARPT.m>

Call Graph

Call Graph

Call Graph Total: 30

Package Total Call Graph
Surgery 16 ^SRCUSS  RPT^SROANR  ^SROCON1  ^SROERR0  (CHECK,EXIT)^SROES  PRNT^SROESPR  $$STATUS^SROESUTL  ^SROLOCK  
^SROPCE1  TECH^SROPRIN  ^SROPS  ^SROSTOP  ($$LOCK,UNLOCK)^SROUTL  $$SITE^SROUTL0  (,EN2)^SROVAR  ^SRSKILL  
Kernel 6 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  DELETEA^XQALERT  SIG^XUSESIG  
VA FileMan 5 DD^%DT  $$EXTERNAL^DILFD  D^DIQ  EN^DIQ1  ^DIR  
Text Integration Utility 2 ES^TIUSROI  UPDATE^TIUSRVP  
Registration 1 (DEM,OERR)^VADPT  

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 SROARPT  SROESXA  

Entry Points

Name Comments DBIA/ICR reference
ENF
DISPLY
EN
SRHDR
PRNT
END
PAGE
LAST
FOOT ; print footer
HDR ; heading
FUNCT ; anethesia report functions
EDIT ; edit report data fields
SIGN ; sign report if appropriate user
ES
ALLIN
MESS ; display list of missing items
LIST
TR
PBA ;;.21^ANES CARE START TIME
PBD ;;.24^ANES CARE END TIME
APAC ;;1.13^ASA CLASS
PDF ;;.46^OP DISPOSITION
PCA ;;.31^PRINC ANESTHETIST

External References

Name Field # of Occurrence
DD^%DT EN+3
^%ZIS DISPLY+1
^%ZISC DISPLY+2, EN+14, EN+15
^%ZTLOAD DISPLY+2
$$EXTERNAL^DILFD EN+6
D^DIQ EN+1, SRHDR+1
EN^DIQ1 ALLIN+2
^DIR PAGE+2, LASTFUNCT+8, ES+9, MESS+3
^SRCUSS EDIT+4
RPT^SROANR ENES
^SROCON1 EDIT+6
^SROERR0 EDIT+7
CHECK^SROES EDIT+1
EXIT^SROES EDIT+8
PRNT^SROESPR DISPLY
$$STATUS^SROESUTL SROARPT+14, FUNCT+2, SIGN+1
^SROLOCK EDIT+2
^SROPCE1 EDIT+5
TECH^SROPRIN ALLIN+3
^SROPS SROARPT+10
^SROSTOP HDR+1
$$LOCK^SROUTL EDIT+3, SIGN+2
UNLOCK^SROUTL FUNCT+10
$$SITE^SROUTL0 EN+6
^SROVAR SROARPT+9
EN2^SROVAR EDIT+4
^SRSKILL END+2
ES^TIUSROI ES+7
UPDATE^TIUSRVP ES+5
DEM^VADPT SRHDRHDR+3
OERR^VADPT EN+1
$$NOW^XLFDT EN+3
DELETEA^XQALERT ES+8
SIG^XUSESIG ES+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LAST+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+2
Function Call: WRITE
  • Prompt: !,SRLINE,!,VADM(1),?50,SRPRINT,!,VA("PID")_" Age: "_SRAGE,?50,SRLOC,!,SRDIV,?59,"Vice SF 509",!,SRLINE
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(80-$L(SRXX)\2),SRXX
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!!,SRLINE
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?4,"MEDICAL RECORD ANESTHESIA REPORT - CASE #"_SRTN,?(79-$L("PAGE "_SRPAGE)),"PAGE "_SRPAGE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>0
  • Line Location: FUNCT+3
Function Call: WRITE
  • Prompt: !,SRHDR
  • Line Location: FUNCT+3
Function Call: WRITE
  • Prompt: !!," * * The Anesthesia Report has been electronically signed. * *"
  • Line Location: FUNCT+3
Function Call: WRITE
  • Prompt: !!," Anesthesia Report Functions:",!
  • Line Location: FUNCT+4
Function Call: WRITE
  • Prompt: !!,"This report is already signed."
  • Line Location: SIGN+1
Function Call: WRITE
  • Prompt: !!,"Sorry, you are not authorized to sign this report."
  • Line Location: SIGN+4
Function Call: WRITE
  • Prompt: !!,"Signature failed."
  • Line Location: ES+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ES+9
Function Call: WRITE
  • Prompt: @IOF,!,"The following information is required before this report may be signed:",!
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !,?5,SRX(SRZ)
  • Line Location: MESS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MESS+3
Routine Call
  • DIR
  • Line Location:
    • PAGE+2
    • LAST
    • FUNCT+8
    • ES+9
    • MESS+3
Routine Call
  • %ZIS
  • Line Location:
    • DISPLY+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
^SRO(133 - [#133] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SROARPT+13, DISPLYENEN+5, SRHDRSRHDR+1, HDR+3, FUNCT+1, EDIT+5, SIGN+1
SIGN+3, ES+2, ALLIN+4
^SRO(133 - [#133] EN+6, EN+8
^TMP("SRANE" EN+10, EN+13, END!, ES+4
^XUSEC("SROANES" PAGE

Label References

Name Line Occurrences
@( FUNCT+10
ALLIN SIGN+5
EDIT ALLIN+7
EN SROARPT+15, PRNT
END SROARPT+9, SROARPT+10, ENF+1, FUNCT+8
ENF FUNCT+11
FOOT EN+11, EN+12, EN+15
FUNCT SROARPT+15, ENF
HDR EN+9, EN+11, EN+12
LAST PAGE
LIST ALLIN+2
MESS ALLIN+7
PAGE FOOT+1
SRHDR FUNCT+1
TR LIST

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DISPLY+1!*
DA EDIT+4!*, ALLIN+1!, ALLIN+2*!
>> DFN EN*, SRHDR*, HDR+3*
DIC ALLIN+1!, ALLIN+2*!
DIE EDIT+4!*
DIQ ALLIN+1!, ALLIN+2*!
DIQ(0 ALLIN+2*
DIR PAGE+2!, LAST!, FUNCT+8!, ES+9!, MESS+3!
DIR("A" PAGE+2*, FUNCT+5*, FUNCT+6*, FUNCT+7*, ES+9*, MESS+3*
DIR("B" FUNCT+7*, MESS+3*
DIR(0 PAGE+2*, LAST*, FUNCT+7*, ES+9*, MESS+3*
DR EDIT+4!*, ALLIN+1!, ALLIN+2*!
DTIME EDIT+4*
>> DTOUT PAGE+2, LASTFUNCT+8, MESS+3
>> DUOUT PAGE+2, LASTFUNCT+8, MESS+3
DUZ PAGESIGN+3, ES+7
>> I ES+4*
IO EN+9
IO("Q" DISPLY+1!, DISPLY+2!
IOF END+1, HDR+2, FUNCT+3, MESS+1
IOSL EN+11, EN+12, FOOT+2
IOST EN+11, EN+12, FOOT+1, HDR+3, HDR+4, HDR+5
>> POP DISPLY+1
>> Q3("VIEW" EDIT+2*, EDIT+4!
SRA SIGN+3~
>> SRAGE EN+5*, FOOT+3
>> SRALRT EN+16
SRAY ES+1~, ES+5!
SRAY( ES+5*
SRAY("TEXT" ES+4*
SRDIV SROARPT+11~, EN+6*, EN+7*, PRNT~, FOOT+3
SRDO SROARPT+11~, FUNCT+9*, FUNCT+10
>> SRDTIME EDIT+4*
SRDTITL SROARPT+11~, SROARPT+12*, DISPLYDISPLY+2
>> SREDIT ALLIN+1*, ALLIN+7, MESS+4*
SRERR ES+1~, ES+5, ES+6
SRESIG SIGN+2~*
SRFLD ALLIN~, LIST*
SRFUNCT SROARPT+11~, SROARPT+13*, ENFEN+16*, EN+17, PRNT~, PAGE+1*, PAGE+3*, FUNCT+11*
>> SRHALT HDR+1
SRHDR SROARPT+11~, EN+2*, SRHDR+2*, FUNCT+1, FUNCT+3
SRI EN+10*, EN+13, ES+1~, ALLIN~
SRINUSE SROARPT+11~, EN+8*, PAGE
SRLCK EDIT+3~*, SIGN+2~*
SRLEAVE SROARPT+11~, SROARPT+13*, ENF, DISPLY*, DISPLY+1*, EN+17*, PRNT~, PAGE+2*, FUNCT+8*
>> SRLINE EN+9*, FOOT+3, HDR+4, HDR+5
SRLOC SROARPT+11~, EN+4*, FOOT+3
SRMISS SIGN+3~, SIGN+5*, ALLIN+1*, ALLIN+6*, ALLIN+7
SRNEWOP SROARPT+10!
>> SRODR EDIT+6
>> SROERR EDIT+7*
SROK SIGN+3~*, SIGN+4
SROLOCK EDIT+2~, EDIT+4
SRP ES+1~, ALLIN~, TR*
>> SRPAGE EN+9*, HDR+2*, HDR+3, HDR+4
SRPARAM SROARPT+11~, EN+6*, EN+8
SRPRINT SROARPT+11~, EN+3*, FOOT+3
>> SRSDATE EN+1*, EN+2, SRHDR+1*, SRHDR+2
SRSEL SROARPT+11~, ENF*, FUNCT+9*
SRSIG ES+1~
SRSINED SROARPT+11~, SROARPT+13*, SROARPT+14*, SROARPT+15, DISPLYFUNCT+2*, FUNCT+3, FUNCT+6, FUNCT+7, ES+6*
SRSITE SROARPT+9, END+2!
SRSITE("KILL" SROARPT+9*, END+2
SRSITE("SITE" EN+7
>> SRSOUT EN+9*, EN+10, EN+11, EN+12, EN+14, PAGE+1*, PAGE+2*, PAGE+3*, LAST*, FOOT+1
HDR+1*, FUNCT+1*, FUNCT+8*, FUNCT+11*, EDIT+1, SIGN+5, ALLIN+1*, ALLIN+7, MESS+3*
>> SRTECH ALLIN+3
SRTIU SROARPT+11~, SROARPT+13*, SROARPT+14, DISPLY*, FUNCT+1*, FUNCT+2, FUNCT+6, FUNCT+7, SIGN+1~*, ES+2*
ES+5, ES+7
SRTN SROARPT+10, SROARPT+13, DISPLYENEN+2, EN+5, EN+6, EN+10, EN+13, SRHDR
SRHDR+1, SRHDR+2, END+3!, HDR+3, HDR+4, FUNCT+1, FUNCT+10, EDIT+3, EDIT+4, EDIT+5
EDIT+7, SIGN+1, SIGN+2, SIGN+3, ESES+2, ES+4, ES+8, ALLIN+2, ALLIN+4
LIST
SRTN("KILL" SROARPT+10*, END+3
SRX EDIT+2~, ALLIN~, MESS+3!
SRX( ALLIN+4*, ALLIN+5*, ALLIN+6, MESS+2, LIST*
SRXX SROARPT+11~, HDR+3*
SRY ALLIN~, ALLIN+3!
SRY(130 LIST
SRZ EDIT+2~, ALLIN~, ALLIN+3!, ALLIN+6*, MESS+2*, LIST*, TR
>> ST EDIT+4*
>> VA("PID" EN+2, SRHDR+2, FOOT+3, HDR+3
>> VADM(1 EN+2, SRHDR+2, FOOT+3, HDR+3
>> VADM(3 EN+5
VAIN END+2!
VAIN(4 EN+4
VAIN(5 EN+4
VAINDT EN*, EN+1, END+2!
X EN+5*, EN+6*, PAGE+3, FOOT+2*, SIGN+3~*, LIST*
X1 ES+1~, ES+3
>> XQAID ES+8*
>> XQAKILL ES+8*
Y EN+1*, EN+3*, EN+5*, SRHDR+1*, FUNCT+9, SIGN+3~*, MESS+4
>> Z EN+5*
ZTDESC DISPLY+2~*
ZTQUEUED DISPLY+2~, END+1, HDR+1
>> ZTREQ END+1*
ZTRTN DISPLY+2~*
ZTSAVE DISPLY+2~
ZTSAVE("SRSITE*" DISPLY+2*
ZTSAVE("SRTN" DISPLY+2*
>> ZTSTOP END+1

Marked Items

Name Field # of Occurrence
$T(@SRP LIST
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 |  Marked Items  | All