Routine: SROARPT

Information

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

Source Information

Source file <SROARPT.m>

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

Caller Graph Total: 2

Package	Total	Caller Graph
Surgery	2	SROARPT SROESXA

Entry Points

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, LAST, FUNCT+8, ES+9, MESS+3
^SRCUSS	EDIT+4
RPT^SROANR	EN, ES
^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	SRHDR, HDR+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

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

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROARPT+13, DISPLY, EN, EN+5, SRHDR, SRHDR+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, LAST, FUNCT+8, MESS+3
>> DUOUT	PAGE+2, LAST, FUNCT+8, MESS+3
DUZ	PAGE, SIGN+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*, DISPLY, DISPLY+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, ENF, EN+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, DISPLY, FUNCT+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, DISPLY, EN, EN+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, ES, ES+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

Customize PDF page

Package: Surgery

Routine: SROARPT

Information

Source Information

Call Graph

Call Graph Total: 30

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

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