Advertisement
Guest User

Untitled

a guest
Oct 23rd, 2019
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
T-SQL 23.23 KB | None | 0 0
  1. delete from tblFormViewTemplate where key1='pr_RetMoveBlock'
  2. INSERT INTO [tblFormViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[ValidatorStatus],[Param3],[ParentField],[InputSize],[AllowView],[AllowUpdate],[Default],[InputSize2])VALUES('pr_RetMoveBlock',30,'תאריך בלוק',0,'Date1','EditTextBox',0,1,'','','d,m','','',2,'','','',12)
  3. INSERT INTO [tblFormViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[ValidatorStatus],[Param3],[ParentField],[InputSize],[AllowView],[AllowUpdate],[Default],[InputSize2])VALUES('pr_RetMoveBlock',40,'ש.התחלה',0,'StartTime','EditTextBox',0,1,'','','t,m','','',2,'','','',12)
  4. INSERT INTO [tblFormViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[ValidatorStatus],[Param3],[ParentField],[InputSize],[AllowView],[AllowUpdate],[Default],[InputSize2])VALUES('pr_RetMoveBlock',50,'ש.סיום',0,'EndTime','EditTextBox',0,0,'','','t,m','','',2,'','','',12)
  5. INSERT INTO [tblFormViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[ValidatorStatus],[Param3],[ParentField],[InputSize],[AllowView],[AllowUpdate],[Default],[InputSize2])VALUES('pr_RetMoveBlock',60,'חדר ניתוח',0,'RoomName','ddl',0,0,'RoomID','RoomName','_','','',0,'','','',0)
  6. GO
  7. ----------------------------------
  8. Create PROCEDURE pr_RetMoveBlock
  9. @ID int=0,
  10. @Language nvarchar(max)='',
  11. @ProfileID int=0
  12. as          
  13. BEGIN  
  14. select  * from tblFormViewTemplate ft where ft.Key1='pr_RetMoveBlock'
  15. and
  16. EXISTS(select * from tblProfileAuth where ProfileID=@ProfileID and Key1=ft.AllowView or ft.AllowView='' or ISNULL(ft.AllowView, '#')='#')
  17. order by ordId
  18. select
  19. b.id,
  20. Date1,
  21. StartTime,
  22. EndTime,
  23. room.item as RoomName,
  24. room.id as RoomID
  25. from tblBlocks b
  26. inner join tblDefRooms room on b.RoomID=room.id
  27. where b.id=@id
  28. SELECT rm.id as RoomID,rm.Item+' ['+
  29. isnull(
  30. Stuff(
  31. (
  32. select ','+tp.Item
  33. FROM tblRoomsToSubject sb
  34. inner join tbldefparitmiun tp on tp.id=sb.SubjectId
  35. where sb.RoomId=rm.id and sb.bRecommendation=0
  36. FOR XML PATH('')
  37. ),1,1,''),'')+']'  as RoomName
  38. from tbldefrooms  rm
  39. order by rm.id
  40. END
  41.  
  42. --------------------
  43. Create  procedure pr_MoveBlock
  44. @id int=0,  
  45. @Date1 datetime='',  
  46. @StartTime nvarchar(10)='',  
  47. @EndTime nvarchar(10)='',  
  48. @RoomID int=0,  
  49. @UserIdCreate int=0  
  50. as  
  51. begin  
  52. if not exists (select * from tblBlocks where id=@id)
  53. begin
  54. select 'err: הבלוק לא קיים'
  55. return
  56. end
  57. /*משמש לתיעוד בלוג*/
  58. declare @srcB nvarchar(max)=''
  59. declare @srcA nvarchar(max)=''
  60. set @srcB=isnull((SELECT top 1 * FROM tblBlocks where @id>0 and id=@id FOR XML RAW),'')
  61. /*ברירת מחדל זה 1*/
  62. declare @orgroomId int=0  
  63. declare @CyclicCounter smallint=1  
  64. set @orgRoomId=isnull(@RoomID,0)  
  65. declare @warning nvarchar(max)=''  
  66. declare  @bHaveSubject bit=0  
  67. declare @SubjectID int = (select SubjectId from tblBlocks where id=@id)
  68. if cast(@Date1 as date)<cast(getdate() AS DATE)  
  69. begin  
  70. select 'err:אין אפשרות לקבוע בלוק על תאריך היסטורי'  
  71. return  
  72. end  
  73. if (DATEDIFF(MINUTE, @StartTime ,@EndTime)<30)  
  74. begin  
  75. select 'err:זמן הבלוק המינימלי הוא 30 דקות'  
  76. return  
  77. end  
  78. re1:  
  79. /*בדיקת אימות שהחדר לא תפוס=מאושר לטווח שהתבקש */  
  80. if @RoomID>0 and exists (select  *  from tblBlocks where BlockStatus=2 and RoomID=@RoomID  and id<>@id
  81. and Date1=@Date1 and  
  82. (  
  83. StartTime between @StartTime and @Endtime  
  84. or  
  85. EndTime between @StartTime and @Endtime  
  86. or  
  87. ((@StartTime > StartTime and @EndTime < EndTime) or  
  88. (@StartTime < StartTime and @EndTime > EndTime))))  
  89. begin  
  90. select 'err: החדר הוקצה בשעות אלו עבור בלוק'  
  91. return  
  92. end  
  93. /*באם אין חדר ניסיון להביא חדר פנוי*/  
  94. if @RoomID=0  
  95. Begin  
  96. /*שלב 1 תוך ניסיון לבחור תחום*/  
  97. select top 1 @RoomID=rm.id from tbldefrooms rm  
  98. inner join tblRoomsToSubject rs on rs.roomid=rm.id and rs.bRecommendation=1 and rs.subjectid=@SubjectID  
  99. and not exists  
  100. (  
  101. select * from tblBlocks bl  
  102. where bl.RoomID=rm.id  
  103. and  
  104. BlockStatus=1    
  105. and Roomid=rm.id  
  106. and (Date1=@Date1  
  107. and StartTime between @StartTime and @Endtime  
  108. or EndTime between @StartTime and @Endtime)  
  109. or  
  110. ((@StartTime > StartTime and @EndTime < EndTime)  
  111. or  
  112. (@StartTime < StartTime and @EndTime > EndTime))  
  113. )  
  114. /*ניסיון שני בלי תחום*/  
  115. if @RoomID is null or @RoomID=0  
  116. Begin  
  117. select top 1 @RoomID=rm.id from tbldefrooms rm  
  118. inner join tblRoomsToSubject rs on rs.roomid=rm.id and rs.bRecommendation=0 and rs.subjectid=@SubjectID  
  119. and not exists  
  120. (  
  121. select * from tblBlocks bl  
  122. where bl.RoomID=rm.id  
  123. and  
  124. BlockStatus=1    
  125. and RoomId=rm.id  
  126. and (Date1=@Date1  
  127. and StartTime between @StartTime and @Endtime  
  128. or EndTime between @StartTime and @Endtime)  
  129. or  
  130. ((@StartTime > StartTime and @EndTime < EndTime)  
  131. or  
  132. (@StartTime < StartTime and @EndTime > EndTime))  
  133. )  
  134. End  
  135. End  
  136. /*בדיקה לפני שממשיכים שיש חדר*/  
  137. if @RoomID is null or @RoomID=0  
  138. begin  
  139. select 'err: לא אותר חדר עבור התאריך המבוקש'  
  140. return  
  141. end  
  142. /*יש חדר לא תואם לברירת המחדל*/  
  143. if (@RoomID > 0)  
  144. begin  
  145. if @bHaveSubject=1  and not exists (select * from tblRoomsToSubject where  roomid=@RoomID and subjectid=@SubjectID and bRecommendation=1)  
  146. begin  
  147. set @warning=@warning+'תאריך: '+convert(nvarchar(10),@Date1,103)+ ' שים לב: החדר שנבחר לא ברשימת התחומים המעודפים לתחום הניתוח'+ '<br/>'  
  148. end  
  149. end  
  150.    
  151. update tblBlocks  
  152. set  
  153. Date1 = @Date1,  
  154. StartTime = @StartTime,  
  155. EndTime = @EndTime,  
  156. RoomID = @RoomID
  157. where @id=id  
  158. nxtlvl:  
  159. declare @Retid int
  160. declare @ActionID int
  161. set @ActionID=(case when @id>0 then 2 else 1 end)
  162. if @id>0
  163.  set @Retid=@id
  164. else
  165. set @Retid=SCOPE_IDENTITY()
  166. set @srcA=isnull((SELECT top 1 * FROM tblBlocks where @Retid>0 and id=@Retid FOR XML RAW),'')
  167. exec [pr_UpdateBlockLog] @Retid,@ActionID,@UserIdCreate,@srcB,@srcA
  168. if @warning<>''    
  169.  select 'warning:' + @warning  
  170. else  
  171.  select @Retid
  172. end
  173. go
  174. ALTER  procedure pr_UpdateT17
  175. @ID int=0,
  176. @ClientId int=0,
  177. @Date1 datetime,
  178. @Date2 datetime,
  179. @Reference nvarchar(max)='',
  180. @Deductible int=0,
  181. @Kod1 nvarchar(max)='',
  182. @KodSapak nvarchar(max)='',
  183. @Kod2 nvarchar(max)='',
  184. @KodSapak2 nvarchar(max)='',
  185. @Kod3 nvarchar(max)='',
  186. @KodSapak3 nvarchar(max)='',
  187. @FileScan nvarchar(max)='',
  188. @EquipmentSum money=0,
  189. @UserIDCreate int=-1
  190. as
  191. begin
  192. declare @warning nvarchar(max)=''
  193. declare @DateSur date
  194. declare @SponserID int=0
  195. declare @Relatedid int=0
  196. select @ClientId=sl.Clientid,@DateSur=cast(b.date1 as date),@SponserID=SponserID from tblsurgerieslist  sl
  197. inner join tblblocks b on b.id=sl.blockid
  198. where sl.id=@ID
  199. if @SponserID in (50,51)
  200. begin
  201. select 'err:אין אפשרות להזין טופס התחייבות למטופל פרטי'
  202. return
  203. end
  204. /*אימות נתונים*/
  205. if @Date2<@Date1
  206. begin
  207. select 'err:טווח התאריכים לא חוקי'
  208. return
  209. end
  210. if (@date1>@DateSur or @date2<@dateSur)
  211. begin
  212. set @warning=@warning+ 'שים לב: טווח התאריכים שנבחר לא תואם לתאריך הניתוח'
  213. end
  214. /*בדיקה ראשונה לגבי כמות מול כמות*/
  215. if (
  216. select sum
  217. (
  218. (case when sl.Kod1<>'' then 1 else 0 end)
  219. +(case when sl.Kod2<>'' then 1 else 0 end)
  220. +(case when sl.Kod3<>'' then 1 else 0 end)
  221. )
  222. from tblSurgeriesList sl where id=@id)
  223. <>
  224. sum(case when @Kod1<>'' then 1 else 0 end)
  225. +(case when @Kod2<>'' then 1 else 0 end)+(case when @Kod3<>'' then 1 else 0 end)
  226. begin
  227. set @warning=@warning+'נא לשים לב:בטופס המשולב נבחרו קודי חיוב בכמות נמוכה מכמות הניתוחים'
  228. end
  229. if not exists (select * from tbl17Forms where surid=@id)
  230. begin
  231. insert into tbl17Forms (ClientID, BeginDate, EndDate, Reference, kod1,kod2,kod3,Deductible,surid,FileScan,EquipmentSum, UserIdCreate)
  232. values (@Clientid, @Date1,@Date2, @Reference,@Kod1,@kod2,@kod3,@Deductible,@id,@FileScan,@EquipmentSum, @UserIDCreate)
  233. set @Relatedid= SCOPE_IDENTITY()
  234. --עדכון קובץ הסריקה
  235. if @FileScan<>''
  236. begin
  237. insert into tblClientDocs(ClientID,NameDoc,folderDoc,RelatedID,Memo) values (@ClientId,@FileScan,@ClientId,@Relatedid,'סריקת טופס 17 עבור ניתוח')
  238. end
  239. end
  240. else
  241. begin
  242. update tbl17forms
  243. set
  244. BeginDate =  @Date1,
  245. EndDate = @Date2,
  246. Reference = @Reference,
  247. kod1 = @Kod1,
  248. kod2 = @Kod2,
  249. kod3 = @Kod3,
  250. Deductible = @Deductible,
  251. clientid=@ClientId,
  252. FileScan=@FileScan,
  253. EquipmentSum=@EquipmentSum,
  254. UserIdUpdate=@UserIDCreate
  255. where surid=@ID
  256. if @warning<>''
  257. select 'warning:' + @warning
  258. else
  259. select @ID
  260. end
  261. end
  262. go
  263. delete from tblGridViewTemplate where key1='pr_GetAll_SurgeriesToDay2'
  264. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',0,'מטופל',5,'Client','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  265. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',10,'גיל מטופל',5,'Age','ItemView',0,0,'','',0,'_','','',0,'')
  266. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',20,'רופא',5,'DoctorName','ItemView',0,0,'DoctorId','DoctorName',0,'_','','',0,'')
  267. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',20,'ת.ניתוח',5,'Date1','ItemView',0,0,'DoctorId','DoctorName',0,'_','','',0,'')
  268. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',30,'ניתוח',1,'SurgeryName','ItemView',0,0,'SurgeryId','SurgeryName',0,'_','','',0,'')
  269. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',40,'שעת<br>התחלה',1,'Start','ItemView',0,0,'','',0,'t','','',0,'')
  270. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',50,'תאריך שחרור <br>מתוכנן',5,'DateR','ItemView',0,0,'','',0,'t','','',0,'')
  271. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',60,'גורם<br>מממן',5,'SponserName','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  272. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',70,'זמן <br>מתוכנן',5,'Duration','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  273. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',80,'זמן <br>בפועל',5,'DurationReal','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  274. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',80,'קוד <br>קופה',5,'t17_1','ItemView',0,0,'','',0,'_','','',0,'')
  275. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',80,'קוד <br>קופה-2',5,'t17_2','ItemView',0,0,'','',0,'_','','',0,'')
  276. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',80,'קוד<br> קופה-3',5,'t17_3','ItemView',0,0,'','',0,'_','','',0,'')
  277. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',80,'טופס<br>התחייבות',5,'t17','ItemView',0,0,'','',0,'_','','',0,'')
  278. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',90,'קוד Icd',5,'Kod1','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  279. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',120,'קוד <br>בפועל',5,'A1','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  280. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',130,'משתלים <br>מתוכנן',5,'A2','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  281. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',140,'משתלים<br> בפועל',5,'A3','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  282. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',150,'ימי אשפוז<br>מתוכנן',5,'A4','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  283. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',160,'ימי אשפוז<br> בפועל',5,'A5','ItemView',0,0,'Client','ClientName',0,'_','pr_ClientAutocompleteHandler','',0,'')
  284. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',170,'שולם',5,'moneyStatus','ItemView',0,0,'','',0,'_','pr_ClientAutocompleteHandler','',0,'')
  285. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',180,'סטאטוס',5,'Status','ItemView',0,0,'','',0,'_','pr_ClientAutocompleteHandler','',0,'')
  286. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',190,'יוצר<br>זימון',5,'ZimunCreator','ItemView',0,0,'','',0,'_','pr_ClientAutocompleteHandler','',0,'')
  287. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',200,'יוצר<br>התחייבות',5,'ChargeCreator','ItemView',0,0,'','',0,'_','pr_ClientAutocompleteHandler','',0,'')
  288. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',210,'יוצר<br>קבלת<br>מטופל',5,'RecieptCreator','ItemView',0,0,'','',0,'_','pr_ClientAutocompleteHandler','',0,'')
  289. INSERT INTO [tblGridViewTemplate] ([Key1],[ordId],[FieldCap],[SizeCont],[FieldName],[ControlType],[bLock],[bNoBreakCell],[Param1],[Param2],[bTableKey],[ValidatorStatus],[Param3],[ParentField],[InputSize],[Default])VALUES('pr_GetAll_SurgeriesToDay2',220,'הושלמה<br>בקרה',5,'BakaraDone','ItemView',0,0,'','',0,'_','pr_ClientAutocompleteHandler','',0,'')
  290. GO
  291. ALTER  procedure pr_GetAll_SurgeriesToDay2
  292. @LocationID Int=0, --באם נשלח אפס אזי החיפוש הוא על כל המרפאות                                                                                                                                              
  293. @Lang nvarchar(100)='',
  294. @UserId int=0,
  295. @Profile int=0,
  296. @Token nvarchar(max)='',
  297. @uid int=0,
  298. @docfilter int=0,
  299. @roomfilter int=0,
  300. @typefilter int=0,
  301. @date1 nvarchar(100)='',
  302. @Date2 nvarchar(100)='',
  303. @SearchParam nvarchar(100)=''
  304. as
  305. BEGIN
  306. select  * from tblGridViewTemplate where Key1='pr_GetAll_SurgeriesToDay2' order by ordId
  307. select
  308. tblSurgeriesList.id as RelatedID,
  309. FORMAT(
  310. isnull(moneyStatus,0), 'C', 'he-IL') as moneyStatus
  311. ,
  312. --tblSurgeriesList.clientid as id,
  313. cast(tblSurgeriesList.ID as nvarchar)+ ':'+ cast(tblSurgeriesList.clientid as nvarchar) as id,
  314. PMD.KODICD AS KOD1,'' as A1,'' as A2,'' as A3,IshpuzDays as a4,
  315. DATEDIFF(DAY,b.date1,GETDATE()) as a5,
  316. RoomId as RoomName, room.item as RoomId,s.nameview as SponserName,
  317. convert(nvarchar(10),b.Date1,103) as Date1,
  318. tblSurgeriesList.Start as [Start],
  319. Duration,
  320. '<li>' +pr.paritname + '</li>'
  321. +(case when tblSurgeriesList.Kod2<>'' then '<li>'+pr2.ParitName else '' end) + '</li>'
  322. +(case when tblSurgeriesList.Kod3<>'' then '<li>'+pr3.ParitName else '' end) + '</li>'
  323. as SurgeryName,
  324. (case when tblSurgeriesList.id=24 then '<i class="fa fa-money" aria-hidden="true"></i>' else '<span class="badge badge-danger">איו כיסוי</span>' end) as m1,
  325. (case when tblSurgeriesList.id=170 then '<i class="fas fa-id-card"></i>' else '<span class="badge badge-danger">לא</span>' end) as m2,
  326. (case when tblSurgeriesList.id=11 then 'העברת כרטיס' else 'לא הגיע' end) as m3,
  327. w.NameView as DoctorName, w.id as DoctorId,tblSurgeriesList.Duration as Duration,
  328. (case when smd.surgerystary<>'' and smd.surgeryend<>'' then DATEDIFF(MINUTE,surgerystary,surgeryend) else '' end)  as DurationReal,
  329. convert(nvarchar(10),DATEADD(dd,IshpuzDays,b.Date1),103) as dateR,
  330. pr.ParitName as SurgeryName,
  331. '' as CapitalName,t17_1,t17_2,t17_3,
  332. ss.Item as Status,
  333. (case when Reference<>'' AND filescan<>'' then
  334. '<a target="_blank" href="http://192.168.1.21:444/'  +filescan + '">'+Reference+'</a>'
  335. WHEN
  336. Reference<>'' AND filescan='' then  '<b><font color=red>!'+ Reference + '</font></b>'
  337. when tblSurgeriesList.SponserID not in (50,51) then 'נדרש טופס התחייבות' else '' end)
  338. as t17,
  339. tblClients2.NameView as ClientName, tblClients2.NameView as Client,
  340. (CONVERT(int,CONVERT(char(8),getdate(),112))-CONVERT(char(8),cd.BirthDay,112))/10000 as Age,
  341. '' as ZimunCreator,
  342. '' as ChargeCreator,
  343. '' as RecieptCreator,
  344. case when BakaraDone=0 then '<i class="fa fa-times"></i>' else '<i class="fa fa-check"></i>' end as BakaraDone
  345. from tblSurgeriesList
  346. inner join tblPritim pr on pr.Kod=tblSurgeriesList.kod1
  347. left join tblPritim pr2 on pr2.Kod=tblSurgeriesList.kod2
  348. left join tblPritim pr3 on pr3.Kod=tblSurgeriesList.kod3
  349. inner join tblBlocks b on b.id=tblSurgeriesList.Blockid
  350. inner join tblClients w on w.id=b.Doctorid
  351. INNER join tblDefRooms room on B.roomid=room.id
  352. inner join tblDefSurgeryStatus ss on ss.id=tblSurgeriesList.StatusID
  353. inner join tblclients  tblClients2 on tblSurgeriesList.clientid=tblclients2.id
  354. inner join tblClientDetails cd on tblclients2.id=cd.mainid
  355. inner join tblclients  s on tblSurgeriesList.sponserid=s.id
  356. LEFT JOIN tblPritimMoreDetails PMD ON PMD.ParitKod=PR.Kod
  357. left join tblSurgerieMoreDetails smd on smd.surid=tblSurgeriesList.id
  358. outer apply(                                          
  359. select 1.17*sum(case when DocNameID in(15) then -1*docsum else DocSum  end) as moneyStatus                                          
  360. from tblHeshDocuments where  DocNameID in(1,14,15,7,18) and   tblHeshDocuments.ClientID=tblSurgeriesList.clientid                                            
  361. ) as tblMoneyStatus
  362. outer apply
  363. (
  364. select top 1 Reference,FileScan,
  365. lpd.kodsapak as t17_1,
  366. lpd2.kodsapak as t17_2,
  367. lpd3.kodsapak as t17_3
  368. FROM tbl17Forms t17
  369. inner join tblSurgeriesList sl on sl.id=t17.surId
  370. INNER JOIN tblListPrices lp ON lp.ParentID=sl.SponserID
  371. left join tblPritim p on p.kod=t17.kod1
  372. left join tblListPriceDetails lpd on lpd.ListID=lp.id and lpd.ParitKod=p.Kod
  373. left join tblPritim p2 on p2.kod=t17.kod2
  374. left join tblListPriceDetails lpd2 on lpd.ListID=lp.id and lpd2.ParitKod=p2.Kod
  375. left join tblPritim p3 on p3.kod=t17.kod3
  376. left join tblListPriceDetails lpd3 on lpd.ListID=lp.id and lpd3.ParitKod=p3.Kod
  377. where t17.surid=tblSurgeriesList.id
  378. ) as t17
  379. where
  380. 1=1
  381. and (@roomfilter=0 or room.id=@roomfilter)
  382. and (@docfilter=0 or w.id=@docfilter)
  383. and (@typefilter=0 or b.SubjectID=@typefilter)
  384. --and ((@date1<>'' or @date2<>'') or b.date1>=cast(getdate() as date))
  385. and (@date1=''  or b.Date1>=@date1)
  386. and (@date2='' or b.Date1<=@date2)
  387. and (@SearchParam='' or   ((tblClients2.NameView like  '%' + @SearchParam +  '%' ) or (tblClients2.idCard like  '%' + @SearchParam+  '%')))
  388. and tblSurgeriesList.StatusID=100
  389. END
  390. go
  391. ALTER TABLE tblSurgeriesList
  392. add BakaraDone bit not null default(0)
  393. go
  394. create procedure pr_MarkBakaraDone
  395. @surgeryid int
  396. as
  397. begin
  398. update tblSurgeriesList
  399. set BakaraDone=1
  400. OUTPUT INSERTED.*
  401. where id=@surgeryid
  402. end
  403. go
  404. insert into tblEnvDataToEnvironment (Env, EnvKey, Orderid) values ('envSurgerieBakara', 'SurgeryScanAndHesh', 1)
  405. go
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement