Routine: SROANEST

Package	Total	Call Graph
VA Fileman	4	^%DT C^%DTC FILE^DIE $$GET1^DIQ
Surgery	1	HELP^SROCON

Entry Points

Name	Comments	DBIA/ICR reference
HELP	;
ASK2	;
ANESTIME(SRDFN,SRFDATE,SRTDATE)	; API to return multiple anesthesia records and times	ICR #4427 Status: Active Usage: Private
BILLTIME()	; calculate total minutes for mult anes start and end times
CSET	; caled by set xref of mult anes start and end times used for concurrent case anes field stuffing
SINPUT	;
DEL	; called by kill xref of mult anes start and end times
STIME	;
ASK
FINALT
CALC	; calculate minutes between start and end times
CHKTIME	; verify blocks of time are valid

External References

Name	Field # of Occurrence
^%DT	SINPUT+2
C^%DTC	CALC+2, CALC+3
FILE^DIE	STIME+10, ASK+3, ASK+9, ASK2+4, ASK2+5, CSET+7, DEL+2, DEL+3
$$GET1^DIQ	STIME+3, STIME+7, FINALT+3, ASK+7, CHKTIME+4, CHKTIME+9, CSET+2, CSET+5, CSET+6, BILLTIME+3 , BILLTIME+6, ANESTIME+19, ANESTIME+28
HELP^SROCON	ASK2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The time entered is before the 'TIME PAT IN HOLD AREA'. Please check the",!,"DATE/TIME entered for this field." Line Location: SINPUT+14
Function Call: WRITE	Prompt: !!,"Start time is after current end time. Please correct." Line Location: STIME+4
Function Call: WRITE	Prompt: !!,"New start time entry not permitted until previous end time is entered." Line Location: STIME+8
Function Call: WRITE	Prompt: !!,"Start time is prior to previous end time. Please correct." Line Location: STIME+9
Function Call: WRITE	Prompt: !!,"End time prior to start time. Please correct." Line Location: FINALT+4
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Invalid response, please enter Yes or No. Use ? for help." Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK2+1
Function Call: WRITE	Prompt: !,"Invalid response, please enter Yes or No. Use ? for help." Line Location: ASK2+3
Function Call: WRITE	Prompt: !!,"One or more time entries missing end time. Please correct." Line Location: CHKTIME+6
Function Call: WRITE	Prompt: !!,"Some time entries overlap. Please correct." Line Location: CHKTIME+10
Function Call: WRITE	Prompt: !,"Enter ""Y"" only if the block of time entered is the final block of time for" Line Location: HELP+1
Function Call: WRITE	Prompt: !,"this case. If the block of time is not the final block, enter ""N""." Line Location: HELP+2
Routine Call	DIE Line Location: STIME+10 ASK+3 ASK+9 ASK2+4 ASK2+5 CSET+7 DEL+2 DEL+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRF - [#130]	GET1^DIQ
130.213	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SINPUT+2, SINPUT+12, STIME+5, FINALT+2, FINALT+5, ASK+6, ASK2+4, CHKTIME+3, CHKTIME+5, CHKTIME+7 , CSET+4, DEL+3, BILLTIME+4, BILLTIME+5, ANESTIME+11, ANESTIME+12, ANESTIME+13, ANESTIME+21, ANESTIME+23, ANESTIME+25 , ANESTIME+27
^SRF("B"	ANESTIME+5, ANESTIME+7
^SRO(136 - [#136]	ANESTIME+20
^TMP("SRANES"	ANESTIME+29!, ANESTIME+31*

Label References

Name	Line Occurrences
ASK	ASK+1, ASK+2
ASK2	ASK2+2, ASK2+3
CALC	BILLTIME+7, ANESTIME+30
CHKTIME	ASK+4
HELP	ASK+2, ASK2+2

Naked Globals

Name	Field # of Occurrence
^("CON"	FINALT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SINPUT+2!*
%H	CALC+1~, CALC+2, CALC+3
>> D	DEL+2, DEL+3
>> D0	BILLTIME+3, BILLTIME+4, BILLTIME+5, BILLTIME+6
>> DA(1	SINPUT+2, SINPUT+12, STIME+3, STIME+5, STIME+7, STIME+10, FINALT+2, FINALT+3, FINALT+5, ASK+3 , ASK+6, ASK+7, ASK+9, CHKTIME+3, CHKTIME+4, CHKTIME+5, CHKTIME+7, CHKTIME+9, CSET+2, CSET+4 , CSET+5, CSET+6, CSET+7, DEL+2, DEL+3
>> DA(2	STIME+3, STIME+5, STIME+10, FINALT+3, FINALT+5, ASK+7, ASK+8, DEL+1, DEL+2, DEL+3
DTIME	ASK, ASK2+1
SR	ANESTIME+1~
SR(0	ANESTIME+23*, ANESTIME+24
SRAFLAG	ASK+5!, ASK+10!, CHKTIME+2, CHKTIME+6, CHKTIME+10*
SRAFLAG1	CHKTIME+1~, CHKTIME+2, CHKTIME+3, CHKTIME+6, CHKTIME+8, CHKTIME+10
SRAO	ANESTIME+1~, ANESTIME+22, ANESTIME+24, ANESTIME+31
SRCASE	ANESTIME+1~, ANESTIME+10, ANESTIME+11, ANESTIME+12, ANESTIME+13, ANESTIME+18, ANESTIME+19, ANESTIME+20, ANESTIME+21, ANESTIME+23 , ANESTIME+25, ANESTIME+27, ANESTIME+28, ANESTIME+29, ANESTIME+31
SRCASE(	ANESTIME+7*, ANESTIME+9, ANESTIME+10, ANESTIME+15!, ANESTIME+17, ANESTIME+18
SRCET	CHKTIME+1~, CHKTIME+4, CHKTIME+6, CHKTIME+10, CSET+1~, CSET+6, CSET+7, BILLTIME+1~, BILLTIME+6, CALC+3 , CALC+6, CALC+9, ANESTIME+1~, ANESTIME+28, ANESTIME+29, ANESTIME+31
SRCNT	ANESTIME+1~, ANESTIME+2, ANESTIME+7
SRCON	FINALT+1~, FINALT+2*, ASK+11, ASK2+4, ASK2+5
SRCRET	STIME+2~, STIME+3*, STIME+4
SRCST	FINALT+1~, FINALT+3, FINALT+4, CHKTIME+1~, CHKTIME+4, CSET+1~, CSET+5, CSET+7, BILLTIME+1~, BILLTIME+6 , CALC+2, CALC+5, CALC+8, ANESTIME+1~, ANESTIME+28*, ANESTIME+31
SRCV	ANESTIME+1~, ANESTIME+24*, ANESTIME+31
SRDATE	ANESTIME+1~, ANESTIME+12, ANESTIME+13, ANESTIME+14*, ANESTIME+15
SRDFN	ANESTIME~, ANESTIME+3, ANESTIME+5, ANESTIME+7, ANESTIME+31
SRDHRS	CALC+1~, CALC+4, CALC+7, CALC+11
SRDIAG	ANESTIME+1~, ANESTIME+20, ANESTIME+21, ANESTIME+31
SREC	ANESTIME+1~, ANESTIME+22, ANESTIME+24, ANESTIME+31
SREHR	CALC+1~, CALC+6, CALC+7, CALC+10*, CALC+11
SREMN	CALC+1~, CALC+9, CALC+10, CALC+11
SRETH	CALC+1~, CALC+3*, CALC+4
SRFDA	FINALT+1~, ASK+3!, ASK2+4!, DEL+2!, DEL+3!
SRFDA(130	ASK+3, ASK2+4, DEL+2, DEL+3
SRFDATE	ANESTIME~, ANESTIME+3, ANESTIME+4, ANESTIME+6*, ANESTIME+15
SRFLAG	SINPUT+3!, SINPUT+13!, SINPUT+15!
SRHNC	ANESTIME+1~, ANESTIME+22, ANESTIME+24, ANESTIME+31
SRIR	ANESTIME+1~, ANESTIME+22, ANESTIME+24, ANESTIME+31
SRLET	FINALT+1~, ASK+7, ASK+8, ASK+9
SRLREC	FINALT+1~, ASK+6, ASK+7, ASK+8, CHKTIME+1~, CHKTIME+5, CHKTIME+6
SRMST	ANESTIME+1~, ANESTIME+22, ANESTIME+24, ANESTIME+31
SRNON	ANESTIME+1~, ANESTIME+11*, ANESTIME+12, ANESTIME+13
SRNST	CHKTIME+1~, CHKTIME+9*, CHKTIME+10
SRPET	STIME+2~, STIME+7*, STIME+8, STIME+9
SRQO	ANESTIME+1~
SRREC	ANESTIME+1~, ANESTIME+2, ANESTIME+7, ANESTIME+8, ANESTIME+9, ANESTIME+10, ANESTIME+15, ANESTIME+16, ANESTIME+17, ANESTIME+18 , ANESTIME+26, ANESTIME+27, ANESTIME+28, ANESTIME+29*
SRRES	ANESTIME+1~, ANESTIME+2, ANESTIME+19, ANESTIME+25, ANESTIME+26, ANESTIME+29*, ANESTIME+32
SRSC	ANESTIME+1~, ANESTIME+24*, ANESTIME+31
SRSHAD	ANESTIME+1~, ANESTIME+22, ANESTIME+24, ANESTIME+31
SRSHR	CALC+1~, CALC+5*, CALC+7, CALC+11
SRSMN	CALC+1~, CALC+8*, CALC+10, CALC+11
SRSNREC	FINALT+1~, FINALT+5, FINALT+6, CHKTIME+1~, CHKTIME+7, CHKTIME+8, CHKTIME+9
SRSPREC	STIME+2~, STIME+5*, STIME+6, STIME+7
SRSREC	CHKTIME+1~, CHKTIME+2, CHKTIME+3, CHKTIME+4, CHKTIME+6, CHKTIME+7, CSET+1~, CSET+3, CSET+4, CSET+5 , CSET+6, BILLTIME+1~, BILLTIME+2, BILLTIME+5, BILLTIME+6, ANESTIME+1~
SRSTART	SINPUT+1~, SINPUT+12*, SINPUT+13, SINPUT+14
SRSTH	CALC+1~, CALC+2*, CALC+4
SRTDATE	ANESTIME~, ANESTIME+4, ANESTIME+6, ANESTIME+15
SRTIME	STIME+2~, FINALT+1~, CSET+1~
SRTIME(130	STIME+10, ASK+9, ASK2+5, CSET+7
>> SRTN	SINPUT+2, SINPUT+12
SRTTIME	BILLTIME+1~, BILLTIME+2, BILLTIME+3, BILLTIME+4, BILLTIME+8, CALC+12, ANESTIME+1~, ANESTIME+30*, ANESTIME+31
SRX	ANESTIME+1~, ANESTIME+12, ANESTIME+13
SRYN	FINALT+1~, ASK, ASK+1, ASK+2, ASK+3, ASK2+1, ASK2+2, ASK2+3, ASK2+4
X	SINPUT+2*!, SINPUT+3, SINPUT+11, SINPUT+14, STIME+1, STIME+4!, STIME+8!, STIME+9!, STIME+10, FINALT+4! , ASK+8
X1	CALC+1~, CALC+2, CALC+3
X2	CALC+1~, CALC+2, CALC+3
Y	SINPUT+2, CALC+1~, CALC+11*, CALC+12
Z	SINPUT+2*!

Customize PDF page

Package: Surgery

Routine: SROANEST

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: