Routine: SRSCAN1

Information

SRSCAN1 ;B'HAM ISC/MAM - CANCEL SCHEDULED OPERATION; 06/24/88 11:20

Source file <SRSCAN1.m>

Package	Total	Call Graph
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package	Total	Caller Graph
Surgery	1	SRSCAN

Name	Comments	DBIA/ICR reference
MM
LOOP	; break procedure if greater than 60 characters

Name	Field # of Occurrence
D^DIQ	SRSCAN1+6
DEM^VADPT	MM

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Scheduled Start Time: "_$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)_" "_SRSST,!,"Scheduled End Time: "_$E(SRSEDT,4,5)_"-"_$E(SRSEDT,6,7)_"-"_$E(SRSEDT,2,3)_" "_SRSET Line Location: SRSCAN1+8
Function Call: WRITE	Prompt: !,"Patient: "_SRNM Line Location: MM+0
Function Call: WRITE	Prompt: !,"Physician: "_USER Line Location: MM+4
Function Call: WRITE	Prompt: !,"Procedure: "_SROPS(1) Line Location: MM+5
Function Call: WRITE	Prompt: !,?11,SROPS(2) Line Location: MM+5
Function Call: WRITE	Prompt: !,?11,SROPS(2) Line Location: MM+5
Function Call: WRITE	Prompt: !,?11,SROPS(2) Line Location: MM+5

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	SRSCAN1+7
^SRF - [#130]	SRSCAN1+2, MM, MM+1
^SRS - [#131.7]	SRSCAN1+7
^VA(200 - [#200]	MM+2

Name	Line Occurrences
LOOP	MM+1

Name	Field # of Occurrence
^(0	SRSCAN1+7, MM+2

Name	Field # of Occurrence
>> DFN	MM*
>> LOOP	LOOP+1*
>> M	MM+1*, LOOP+1
MM	SRSCAN1+4, MM+1!, LOOP+1
MMM	MM+1!, LOOP+1*
>> S(0	SRSCAN1+2*
>> S(31	SRSCAN1+2*, SRSCAN1+3
>> SRFIND	SRSCAN1+6*
>> SRNM	MM*
>> SROPER	MM+1, LOOP+1
SROPS	MM+1!
SROPS(	LOOP+1*
SROPS(1	MM+1*, MM+5
SROPS(2	MM+5
SROPS(3	MM+5
SROPS(4	MM+5
>> SRSDATE	SRSCAN1+2*, SRSCAN1+5, SRSCAN1+8
>> SRSDOC	SRSCAN1+2*, MM+2, MM+3
>> SRSDT1	SRSCAN1+4*
>> SRSDT2	SRSCAN1+4*
SRSEDT	SRSCAN1+4!, SRSCAN1+5, SRSCAN1+8
>> SRSET	SRSCAN1+3, SRSCAN1+4, SRSCAN1+6, SRSCAN1+8, SRSCAN1+9*
>> SRSET1	SRSCAN1+4*
>> SRSOR	SRSCAN1+2*, SRSCAN1+7
>> SRSST	SRSCAN1+3, SRSCAN1+4, SRSCAN1+6, SRSCAN1+8, SRSCAN1+9*
>> SRTN	SRSCAN1+2, MM, MM+1
>> USER	MM+2, MM+3, MM+4
>> VADM(1	MM
>> XX	SRSCAN1+4*
>> Y	SRSCAN1+6*