��
G O
/ * * * * * * O b j e c t : T a b l e [ d b o ] . [ t P h y s i c i a n ] S c r i p t D a t e : 0 6 / 0 8 / 2 0 0 9 1 6 : 5 8 : 5 0 * * * * * * /
S E T A N S I _ N U L L S O N
G O
S E T Q U O T E D _ I D E N T I F I E R O N
G O
S E T A N S I _ P A D D I N G O N
G O
C R E A T E T A B L E [ d b o ] . [ t P h y s i c i a n ] (
[ P h y s i c i a n I D ] [ i n t ] I D E N T I T Y ( 1 , 1 ) N O T N U L L ,
[ H o s p i t a l I D ] [ i n t ] N O T N U L L ,
[ H o s p i t a l P h y s i c i a n I D ] [ v a r c h a r ] ( 5 0 ) C O L L A T E S Q L _ L a t i n 1 _ G e n e r a l _ C P 1 _ C I _ A S N O T N U L L ,
[ F i r s t N a m e ] [ v a r c h a r ] ( 5 0 ) C O L L A T E S Q L _ L a t i n 1 _ G e n e r a l _ C P 1 _ C I _ A S N U L L ,
[ M i d d l e N a m e ] [ v a r c h a r ] ( 5 0 ) C O L L A T E S Q L _ L a t i n 1 _ G e n e r a l _ C P 1 _ C I _ A S N U L L ,
[ L a s t N a m e ] [ v a r c h a r ] ( 5 0 ) C O L L A T E S Q L _ L a t i n 1 _ G e n e r a l _ C P 1 _ C I _ A S N O T N U L L ,
[ S u f f i x ] [ v a r c h a r ] ( 1 0 ) C O L L A T E S Q L _ L a t i n 1 _ G e n e r a l _ C P 1 _ C I _ A S N U L L ,
[ I s A c t i v e ] [ b i t ] N O T N U L L C O N S T R A I N T [ D F _ t P h y s i c i a n _ A c t i v e ] D E F A U L T ( ( 1 ) ) ,
C O N S T R A I N T [ P K _ t P h y s i c i a n ] P R I M A R Y K E Y C L U S T E R E D
(
[ P h y s i c i a n I D ] A S C
) W I T H ( P A D _ I N D E X = O F F , I G N O R E _ D U P _ K E Y = O F F ) O N [ P R I M A R Y ]
) O N [ P R I M A R Y ]
G O
S E T A N S I _ P A D D I N G O F F
G O
C R E A T E P R O C E D U R E [ d b o ] . [ D e l e t e P h y s i c i a n ]
( @ P h y s i c i a n I D i n t )
A S
B E G I N
- - S E T N O C O U N T O N a d d e d t o p r e v e n t e x t r a r e s u l t s e t s f r o m
- - i n t e r f e r i n g w i t h S E L E C T s t a t e m e n t s .
S E T N O C O U N T O N ;
- - I n s e r t s t a t e m e n t s f o r p r o c e d u r e h e r e
U P D A T E t P h y s i c i a n
S E T I s A c t i v e = 0
W H E R E P h y s i c i a n I D = @ P h y s i c i a n I D
E N D
G O
C R E A T E P R O C E D U R E [ d b o ] . [ g e t P h y s i c i a n L i s t ]
( @ T e s t V e r s i o n b i t , @ H o s p i t a l I D i n t )
A S
B E G I N
- - S E T N O C O U N T O N a d d e d t o p r e v e n t e x t r a r e s u l t s e t s f r o m
- - i n t e r f e r i n g w i t h S E L E C T s t a t e m e n t s .
S E T N O C O U N T O N ;
- - I n s e r t s t a t e m e n t s f o r p r o c e d u r e h e r e
S E L E C T * F R O M t P h y s i c i a n
W H E R E H o s p i t a l I D = @ H o s p i t a l I D
A N D I s A c t i v e = 1
E N D
G O
C R E A T E P R O C E D U R E [ d b o ] . [ I n s e r t P h y s i c i a n ]
( @ H o s p i t a l I D i n t , @ F i r s t N a m e v a r c h a r ( 5 0 ) , @ M i d d l e N a m e v a r c h a r ( 5 0 ) , @ L a s t N a m e v a r c h a r ( 5 0 ) , @ H o s p i t a l P h y s i c i a n I D v a r c h a r ( 5 0 ) , @ S u f f i x v a r c h a r ( 1 0 ) )
A S
B E G I N
- - S E T N O C O U N T O N a d d e d t o p r e v e n t e x t r a r e s u l t s e t s f r o m
- - i n t e r f e r i n g w i t h S E L E C T s t a t e m e n t s .
S E T N O C O U N T O N ;
I F E X I S T S ( S E L E C T N U L L
F R O M t P h y s i c i a n
W H E R E H o s p i t a l I D = @ H o s p i t a l I D
A N D I s A c t i v e = 1
A N D H o s p i t a l P h y s i c i a n I D = @ H o s p i t a l P h y s i c i a n I D )
b e g i n
D E C L A R E @ E r r o r M e s s a g e N V A R C H A R ( 4 0 0 0 ) ;
s e l e c t @ E r r o r M e s s a g e = '