Routine: SRONIN

Call Graph

Call Graph Total: 30

Package	Total	Call Graph
Surgery	15	^SRCUSS ^SROCON1 ^SROERR0 (CHECK,EXIT)^SROES PRNT^SROESPR $$STATUS^SROESUTL ^SROLOCK RPT^SRONRPT ^SROPCE1 ^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	3	EXTRACT^TIULQ ES^TIUSROI UPDATE^TIUSRVP
Registration	1	(DEM,OERR)^VADPT

Package	Total	Caller Graph
Surgery	3	SROESX SRONRPT SROVER2

Package

Total

Caller Graph

Surgery

SROESX SRONRPT SROVER2

Entry Points

Name	Comments	DBIA/ICR reference
CODE	; entry point from coding menu
HDR	; heading
DH	;;48^COUNT VERIFIER
DF	;;46^INSTRUMENT COUNT CORRECT (Y/N)
DG	;;47^SPONGE, SHARPS, & INST COUNTER
SRHDR
DE	;;45^SHARPS COUNT CORRECT (Y/N)
HB	;;82^TIME OUT VERIFY COMMENTS
HC	;;83^IMAGING CONFIRMED COMMENTS
EJH	;;508^HAIR REMOVAL COMMENTS
HD	;;84^MARKED SITE COMMENTS
DISPLY
LAST
FUNCT	; nurse intraop report functions
PRNT
TR
ALLIN
DD	;;44^SPONGE COUNT CORRECT (Y/N)
EN
END
ENF
MESS	; display list of missing items
EJF	;;506^HAIR REMOVAL METHOD
SIGN	; sign report if appropriate user
GC	;;73^MARKED SITE CONFIRMED
PBJE	;;.205^TIME PAT IN OR
GA	;;71^TIME OUT VERIFIED
FOOT	; print footer
ES
EDIT	; edit report data fields
LIST
PBCB	;;.232^TIME PAT OUT OR
PAGE
GB	;;72^PREOPERATIVE IMAGING CONFIRMED

External References

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

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,!,SRDIVNM,?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: !,?3,"MEDICAL RECORD NURSE INTRAOPERATIVE REPORT - CASE #"_SRTN,?(79-$L("PAGE "_SRPAGE)),"PAGE "_SRPAGE,! Line Location: HDR+4
Function Call: WRITE	Prompt: @IOF,!,SRHDR Line Location: FUNCT+4
Function Call: WRITE	Prompt: !!," * * The Nurse Intraoperative Report has been electronically signed. * *" Line Location: FUNCT+4
Function Call: WRITE	Prompt: !!," Nurse Intraoperative Report Functions:",! Line Location: FUNCT+5
Function Call: WRITE	Prompt: !!,"Sorry, you are not authorized to sign this report." Line Location: SIGN+6
Function Call: WRITE	Prompt: !!,"Signature failed." Line Location: ES+2
Function Call: WRITE	Prompt: ! Line Location: ES+8
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: !,?5,SRX(SRZ) Line Location: MESS+3
Function Call: WRITE	Prompt: !,?5,SRX(SRJJ) Line Location: MESS+4
Function Call: WRITE	Prompt: !,?5,SRX(508) Line Location: MESS+5
Function Call: WRITE	Prompt: ! Line Location: MESS+8
Routine Call	DIR Line Location: PAGE+2 LAST FUNCT+9 ES+8 MESS+8
Routine Call	%ZIS Line Location: DISPLY+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SRONIN+14, DISPLY, EN, EN+5, SRHDR, SRHDR+1, HDR+3, FUNCT+2, EDIT+5, SIGN+2 , SIGN+3, ES+1, ALLIN+3, ALLIN+4, ALLIN+8, ALLIN+9, ALLIN+11, MESS+6, CODE+3
^SRO(131.9 - [#131.9]	MESS+7
^SRO(133 - [#133]	EN+6
^TMP("SRNIR"	EN+9, EN+12, END!, ES+3
^XUSEC("SROCHIEF"	SIGN+4

Label References

Name	Line Occurrences
@(	FUNCT+11
ALLIN	SIGN+7
DISPLY	CODE+5
EDIT	ALLIN+12
EN	SRONIN+16, PRNT
END	SRONIN+10, SRONIN+11, ENF+1, FUNCT+9, CODE+5
ENF	FUNCT+12
FOOT	EN+10, EN+11, EN+14
FUNCT	SRONIN+16, ENF
HDR	EN+8, EN+10, EN+11
LAST	PAGE
LIST	ALLIN+6
MESS	ALLIN+12
PAGE	FOOT+1
SRHDR	FUNCT+2
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, ALLIN+6!
>> DFN	EN, SRHDR, HDR+3*
DIC	ALLIN+1!, ALLIN+2*, ALLIN+6!
DIE	EDIT+4!*
DIQ	ALLIN+1!, ALLIN+2*, ALLIN+6!
DIQ(0	ALLIN+2*
DIR	PAGE+2!, LAST!, FUNCT+9!, ES+8!, MESS+8!
DIR("A"	PAGE+2, FUNCT+6, FUNCT+7, FUNCT+8, ES+8, MESS+8
DIR("B"	FUNCT+8, MESS+8
DIR(0	PAGE+2, LAST, FUNCT+8, ES+8, MESS+8*
DR	EDIT+4!, ALLIN+1!, ALLIN+2, ALLIN+6!
DTIME	EDIT+4*
>> DTOUT	PAGE+2, LAST, FUNCT+9, MESS+8
>> DUOUT	PAGE+2, LAST, FUNCT+9, MESS+8
DUZ	SIGN+3, SIGN+4, SIGN+5, ES+6
>> I	ES+3*
IO	EN+8
IO("Q"	DISPLY+1!, DISPLY+2!
IOF	END+1, HDR+2, FUNCT+4, MESS+1
IOSL	EN+10, EN+11, FOOT+2
IOST	EN+10, EN+11, FOOT+1, HDR+3, HDR+4, HDR+5
>> POP	DISPLY+1
>> Q3("VIEW"	EDIT+2*, EDIT+4!
SRA	SIGN+2~
SRA(	SIGN+5
SRAGE	SRONIN+12~, EN+5*, FOOT+3, CODE+1~
SRALRT	EN+15, FUNCT+1!
SRAT	SRONIN+12~
SRAY	ES~, ES+4!
SRAY(	ES+4*
SRAY("TEXT"	ES+3*
SRDIV	SRONIN+12~, EN+6*, PRNT~, CODE+1~
SRDIVNM	SRONIN+12~, EN+6, EN+7, FOOT+3, CODE+1~
SRDO	SRONIN+12~, FUNCT+10*, FUNCT+11, CODE+1~
>> SRDTIME	EDIT+4*
SRDTITL	SRONIN+12~, SRONIN+13, DISPLY, DISPLY+2, CODE+1~, CODE+2
>> SREDIT	ALLIN+1, ALLIN+12, MESS+9
SRERR	SIGN+5, ES~, ES+4, ES+5
SRESIG	SIGN+1~*
SRFLD	ALLIN~, LIST*
SRFUNCT	SRONIN+12~, SRONIN+14, ENF, EN+15, EN+16, PRNT~, PAGE+1, PAGE+3, FUNCT+12, CODE+1~ , CODE+3
>> SRHALT	HDR+1
SRHDR	SRONIN+12~, EN+2, SRHDR+2, FUNCT+2, FUNCT+4, CODE+1~
SRI	EN+9*, EN+12, ES~, ALLIN~
SRII	SIGN+2~*, SIGN+5
SRINUSE	SRONIN+12~, CODE+1~
SRJ	SIGN+2~, SIGN+3, SIGN+5, MESS+6
SRJJ	ALLIN~, ALLIN+3, ALLIN+8, MESS+4, MESS+6, MESS+7
SRJK	ALLIN~, ALLIN+3*
SRLCK	EDIT+3~, SIGN+1~
SRLEAVE	SRONIN+12~, SRONIN+14, ENF, DISPLY, DISPLY+1, EN+16, PRNT~, PAGE+2, FUNCT+9, CODE+1~ , CODE+3*
>> SRLINE	EN+8*, FOOT+3, HDR+4, HDR+5
SRLOC	SRONIN+12~, EN+4*, FOOT+3, CODE+1~
SRM	ALLIN~, ALLIN+5*
SRMIS508	ALLIN~, ALLIN+1, ALLIN+9, ALLIN+12, MESS+5
SRMISS	SIGN+2~, SIGN+7, ALLIN+1, ALLIN+12*
SRMISS1	ALLIN~, ALLIN+1, ALLIN+7, ALLIN+12, MESS+2
SRMISS2	ALLIN~, ALLIN+1, ALLIN+10, ALLIN+12, MESS+3
SRMISS3	ALLIN~, ALLIN+1, ALLIN+11, ALLIN+12, MESS+6
SRMISS82	ALLIN~, ALLIN+1*, ALLIN+12
SRMISS83	ALLIN~, ALLIN+1*, ALLIN+12
SRMISS84	ALLIN~, ALLIN+1*, ALLIN+12
SRNEWOP	SRONIN+11!
SRNOEDIT	PAGE, CODE+1~, CODE+2*
SRNUR	SIGN+2~, SIGN+3*
SRO	ALLIN~, ALLIN+4*, ALLIN+5
>> SRODR	EDIT+6
>> SROERR	EDIT+7*
SROK	SIGN+2~, SIGN+3, SIGN+4, SIGN+5*, SIGN+6
SROLOCK	EDIT+2~, EDIT+4
SROO	ALLIN~, ALLIN+4, ALLIN+5, LIST+1, LIST+2
SRP	ES~, ALLIN~, TR*
>> SRPAGE	EN+8, HDR+2, HDR+3, HDR+4
SRPARAM	SRONIN+12~, CODE+1~
SRPRINT	SRONIN+12~, EN+3*, FOOT+3, CODE+1~
>> SRSDATE	EN+1, EN+2, SRHDR+1, SRHDR+2
SRSEL	SRONIN+12~, ENF, FUNCT+10, CODE+1~
SRSIG	ES~
SRSINED	SRONIN+12~, SRONIN+14, SRONIN+15, SRONIN+16, DISPLY, FUNCT+3, FUNCT+4, FUNCT+7, FUNCT+8, ES+5 , CODE+1~, CODE+3, CODE+4
SRSITE	SRONIN+10, END+2!
SRSITE("KILL"	SRONIN+10*, END+2
SRSITE("SITE"	EN+7
>> SRSOUT	EN+8, EN+9, EN+10, EN+11, EN+13, PAGE+1, PAGE+2, PAGE+3, LAST, FOOT+1 , HDR+1, FUNCT+2, FUNCT+9, FUNCT+12, EDIT+1, SIGN+7, ALLIN+1, ALLIN+12, MESS+8*
SRSTAT	CODE+1~
SRTIU	SRONIN+12~, SRONIN+14, SRONIN+15, DISPLY, FUNCT+2, FUNCT+3, FUNCT+7, FUNCT+8, ES~, ES+1 , ES+4, ES+6, CODE+1~, CODE+3*, CODE+4
SRTN	SRONIN+11, SRONIN+14, DISPLY, EN, EN+2, EN+5, EN+6, EN+9, EN+12, SRHDR , SRHDR+1, SRHDR+2, END+3!, HDR+3, HDR+4, FUNCT+2, FUNCT+11, EDIT+3, EDIT+4, EDIT+5 , EDIT+7, SIGN+1, SIGN+2, SIGN+3, ES, ES+1, ES+3, ES+7, ALLIN+2, ALLIN+3 , ALLIN+4, ALLIN+5, ALLIN+8, ALLIN+9, ALLIN+11, MESS+6, CODE+3, LIST, LIST+1
SRTN("KILL"	SRONIN+11*, END+3
SRX	EDIT+2~, ALLIN~, MESS+8!
SRX(	ALLIN+7, ALLIN+10, ALLIN+11, MESS+2, MESS+3, MESS+4, MESS+6, LIST, LIST+2
SRX(48	ALLIN+10
SRX(506	ALLIN+7
SRX(508	MESS+5
SRX(71	ALLIN+7
SRX(72	ALLIN+7
SRX(73	ALLIN+7
SRXX	SRONIN+12~, HDR+3*, CODE+1~
SRY	ALLIN~
SRY(	ALLIN+5*, LIST+1
SRY(130	ALLIN+3*, ALLIN+8, ALLIN+9, LIST
SRZ	EDIT+2~, ALLIN~, ALLIN+10, ALLIN+11, MESS+2, MESS+3, LIST, LIST+1, 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, LIST
X1	ES~, ES+2
>> XQAID	ES+7*
>> XQAKILL	ES+7*
Y	EN+1, EN+3, EN+5, SRHDR+1, FUNCT+10, SIGN+2~, MESS+9
>> 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: SRONIN

Information

Source Information

Call Graph

Call Graph Total: 30

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items