Routine: SROWL

Information

SROWL ;B'HAM ISC/MAM - ENTER PATIENT ON WAITING LIST; APRIL 18, 2007@11:55am

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	7	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK (D,GETS)^DIQ ^DIR
Surgery	2	WL^SROPCE1 ^SRSKILL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Surgery	2	REFERRING PHYSICIAN SROW-ENTER

Entry Points

Name	Comments	DBIA/ICR reference
ENTER	; enter a patient on the waiting list
PAT
OP
END
PRESS
DEL
HELP
CHK	; check for existing entries for a patient
LIST	; list existing procedures for specialty selected
LOOP	; break procedure if greater than 36 characters
REFPHY
PRMPT

External References

Name	Field # of Occurrence
NOW^%DTC	OP+2
^DIC	ENTER+1, PAT, PRMPT+10
FILE^DICN	OP+3
^DIE	OP+4
^DIK	DEL
D^DIQ	PAT+1, LIST+1
GETS^DIQ	PRMPT+17
^DIR	OP, PRESS
WL^SROPCE1	OP+5
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ENTER+1
Function Call: WRITE	Prompt: ! Line Location: PAT+0
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: PAT+0
Function Call: WRITE	Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",! Line Location: PAT+1
Function Call: WRITE	Prompt: ! Line Location: OP+0
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: OP+0
Function Call: WRITE	Prompt: ! Line Location: OP+2
Function Call: WRITE	Prompt: @IOF,!,SRNM_" has been entered on the waiting list",!,"for "_SRSSNM Line Location: OP+6
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: WRITE	Prompt: @IOF,!,"Classification information is incomplete. No action taken." Line Location: DEL+1
Function Call: WRITE	Prompt: !!,"Enter RETURN if you want to continue entering a new procedure on the waiting",!,"list for "_SRNM_". If the procedure you are about to enter appears",!,"above, enter 'NO' to quit this option." Line Location: HELP+0
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: HELP+1
Function Call: WRITE	Prompt: @IOF,!,"Procedure(s) already entered for "_SRNM,!,"on the Waiting List for "_SRSSNM,! Line Location: CHK+1
Function Call: READ	Variable: ECYN Timeout: DTIME Line Location: CHK+3
Function Call: WRITE	Prompt: !,SRNM,?40,"Date Entered on List:",?66,SRDT,!,?3,SROP(1),?40,"Tentative Operation Date: ",?66,SROPDT Line Location: LIST+3
Function Call: WRITE	Prompt: !,?3,SROP(2) Line Location: LIST+4
Function Call: WRITE	Prompt: ! Line Location: LIST+5
Function Call: READ	Formatting: ! Prompt: "Is this a VA Physician from this facility? (Y/N): <Y> " Variable: SRCONT Timeout: DTIME Line Location: PRMPT+0
Routine Call	DIC Line Location: ENTER+1 PAT PRMPT+10
Routine Call	DIE Line Location: OP+4
Routine Call	DIR Line Location: OP PRESS

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRO(133.8 - [#133.8]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PAT+1
^SRO(133.8 - [#133.8]	PAT+2, CHK+2, LIST+1
^SRO(137.45 - [#137.45]	ENTER+2

Label References

Name	Line Occurrences
CHK	PAT+2, CHK+5
DEL	OP+5
END	ENTER+1, PAT, PAT+2, OP, DEL+1
HELP	CHK+5
LIST	CHK+2
LOOP	LIST+2
PAT	PAT+1
PRESS	END
PRMPT	PRMPT+1

Naked Globals

Name	Field # of Occurrence
^(	PAT+1
^(0	LIST+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	OP+2
>> D0	PRMPT+7, PRMPT+12*
DA	OP+3!, OP+4!, DEL, PRMPT+7, PRMPT+12*
DA(1	OP+3, DEL
DD	OP+3!
>> DFN	PAT+1*, PAT+2, OP+3, CHK+2
DIC	ENTER+1!, PAT!, OP+3!, PRMPT+7, PRMPT+9, PRMPT+12*
DIC("A"	ENTER+1, PAT
DIC("B"	PRMPT+9*, PRMPT+10!
DIC("DR"	PRMPT+30*
DIC(0	ENTER+1, PAT, OP+3, PRMPT+9, PRMPT+31*
DIE	OP+4!*
>> DIK	DEL*
DIR	OP!, PRESS!
DIR("A"	OP, PRESS
DIR(0	OP, PRESS
DLAYGO	ENTER+1*!
DO	OP+3!, PRMPT+7, PRMPT+12*
DR	OP+3!, OP+4!, PRMPT+7, PRMPT+12
DR(2	OP+4*
DR(3	OP+4*
DTIME	HELP+1, CHK+3, PRMPT
>> DTOUT	OP
>> DUOUT	OP
>> ECYN	PAT+2, CHK+3, CHK+4, CHK+5
IOF	ENTER+1, OP+6, END, DEL+1, CHK+1
>> LOOP	LOOP+1*
>> M	LIST+2*, LOOP+1
MM	LIST+2!, LOOP+1*
MMM	LIST+2!, LOOP+1*
SRCONT	REFPHY+1~, REFPHY+2, PRMPT, PRMPT+1, PRMPT+3*, PRMPT+4, PRMPT+5, PRMPT+13!
SRDABAK	PRMPT+7*, PRMPT+12, PRMPT+13!
SRDEMO	REFPHY+1~
SRDEMO(1	PRMPT+20, PRMPT+21, PRMPT+22, PRMPT+23, PRMPT+30
SRDEMO(2	PRMPT+24*, PRMPT+30
SRDEMO(200	PRMPT+19, PRMPT+20, PRMPT+21, PRMPT+22, PRMPT+24, PRMPT+25, PRMPT+26, PRMPT+27
SRDEMO(3	PRMPT+25*, PRMPT+30
SRDEMO(4	PRMPT+26*, PRMPT+30
SRDEMO(5	PRMPT+27*, PRMPT+30
SRDICBAK	PRMPT+7*, PRMPT+12, PRMPT+13!
SRDOBAK	PRMPT+7*, PRMPT+12, PRMPT+13!
SRDRBAK	PRMPT+7*, PRMPT+12, PRMPT+13!
>> SRDT	LIST+1*, LIST+3
SRDZERO	PRMPT+7*, PRMPT+12, PRMPT+13!
>> SRNM	PAT+1*, OP+4, OP+6, HELP, CHK+1, CHK+3, LIST+3
>> SRNPREC	PRMPT+15*, PRMPT+17, PRMPT+19, PRMPT+20, PRMPT+21, PRMPT+22, PRMPT+24, PRMPT+25, PRMPT+26, PRMPT+27
>> SROFN	OP+3, DEL, CHK+2, LIST+1
SROP	LIST+2!
SROP(	LOOP+1*
SROP(1	LIST+2*, LIST+3
SROP(2	LIST+4
>> SROPDT	LIST+1*, LIST+3
>> SROPER	OP+1, OP+4, LIST+1, LIST+2, LOOP+1
>> SRSDT	OP+2*, OP+4
>> SRSOUT	ENTER+1*, OP+5
>> SRSS	ENTER+1*, PAT+2, OP+3, OP+4, DEL, CHK+2, LIST+1
>> SRSS1	ENTER+1*, ENTER+2
>> SRSSNM	ENTER+2*, OP+6, CHK+1, CHK+3
SRXBAK	PRMPT+7*, PRMPT+12, PRMPT+13!
U	PRMPT+15, PRMPT+30
>> X	OP+3, HELP+1, PRMPT+4, PRMPT+7, PRMPT+9, PRMPT+12, PRMPT+19*
Y	ENTER+1, PAT, PAT+1, OP+1, OP+3, LIST+1, REFPHY+1~, PRMPT+14, PRMPT+15, PRMPT+30
Y(0	ENTER+1, PAT+1

Customize PDF page

Package: Surgery