Routine: SRSCHDA

Information

SRSCHDA ;B'HAM ISC/MAM - SCHEDULE ANESTHESIA PERSONNEL ; [ 01/31/01 7:58 AM ]

Package	Total	Call Graph
VA Fileman	4	^%DT C^%DTC ^DIC ^DIE
Surgery	3	^SROCON1 ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SRSCHDA

Name	Comments	DBIA/ICR reference
AGAIN
END
LIST	; set variables and list case
DATE
OR
LOOP	; break procedure if greater than 70 characters
MORE

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: OR+0
Function Call: WRITE	Prompt: !!,"There are no cases scheduled for this operating room. ",!!,"Press RETURN to continue " Line Location: OR+1
Function Call: WRITE	Prompt: @IOF Line Location: OR+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: AGAIN+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if you would like to schedule anesthesia personnel in another",!,"room, or 'NO' to quit." Line Location: AGAIN+0
Function Call: WRITE	Prompt: !!,"Please answer 'YES' or 'NO'." Line Location: AGAIN+2
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF,!!,"Scheduled Operations for "_SROR("N"),! Line Location: LIST+3
Function Call: WRITE	Prompt: "-" Line Location: LIST+3
Function Call: WRITE	Prompt: !!,"Case # "_SRTN_" Patient: "_SRNM,!,"From: "_SRST_" To: "_SRET,!,SROPS(1) Line Location: LIST+4
Function Call: WRITE	Prompt: !,?5,SROPS(2) Line Location: LIST+4
Function Call: WRITE	Prompt: !,?5,SROPS(2) Line Location: LIST+4
Function Call: WRITE	Prompt: !! Line Location: LIST+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: MORE+0
Function Call: WRITE	Prompt: !!,"Enter RETURN to continue scheduling other cases, or '^' to leave this option.",!! Line Location: MORE+0
Routine Call	DIE Line Location: LIST+7
Routine Call	DIC Line Location: OR

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	LIST+1, LIST+2
^SRF("AMM"	OR+1, OR+3

Name	Field # of Occurrence
^(31	LIST+2

Name	Field # of Occurrence
%DT	DATE!*
%DT("A"	DATE*
>> DA	LIST+7*
>> DFN	LIST+1*
DIC	OR!*
DIC("A"	OR*
DIC("S"	OR*
DIC(0	OR*
>> DIE	LIST+7*
DR	LIST+5!, LIST+7*!
DTIME	OR+1, AGAIN, MORE
IOF	OR+4, END+1, LIST+3
>> LINE	LIST+3*
>> LOOP	LOOP+1*
>> M	LIST+1*, LOOP+1
MM	LIST+1!, LOOP+1*
MMM	LIST+1!, LOOP+1*
>> SRANES(1	OR+2*, LIST+7
>> SRANES(2	OR+2*, LIST+7
>> SRCASE	SRSCHDA+2*, END
>> SRET	LIST+2*, LIST+4
>> SRNM	LIST+1*, LIST+4
SRNOCON	LIST+8*!
SRODR	LIST+5!, LIST+8
>> SROPER	LIST+1, LOOP+1
SROPS	LIST+1!
SROPS(	LOOP+1*
SROPS(1	LIST+1*, LIST+4
SROPS(2	LIST+4
SROPS(3	LIST+4
>> SROR	OR*, OR+1, OR+3
>> SROR("N"	OR*, LIST+3
>> SRSD	OR+3*
>> SRSD1	DATE+1*, OR+1, OR+3
>> SRSDATE	DATE*, DATE+1, OR+1, OR+3
>> SRST	LIST+2*, LIST+4
SRTN	SRSCHDA+2, OR+3, END!, LIST+1, LIST+2, LIST+4, LIST+6, LIST+7, LIST+9
>> SRZ	OR, LIST+1, MORE+1
>> VADM(1	LIST+1
>> X	DATE+1, OR+1, AGAIN, AGAIN+1, AGAIN+2, AGAIN+3, MORE, MORE+1
>> X1	DATE+1*
>> X2	DATE+1*
>> Y	DATE, OR
>> Y(0	OR