Welcome to the NEW CHUG— your ultimate destination for cutting-edge insights and discussions at the intersection of healthcare and technology.

Our platform is dedicated to exploring the dynamic landscape of healthcare technology, empowering professionals, enthusiasts, and innovators alike with the knowledge and resources to navigate the rapidly evolving field.

From telemedicine revolutionizing patient care to the transformative potential of artificial intelligence in diagnostics, we delve into a myriad of topics shaping the future of healthcare delivery. Whether you’re a seasoned healthcare IT professional, an aspiring entrepreneur in the digital health space, or simply curious about the latest innovations, our curated content, expert interviews, and thought-provoking articles provide a comprehensive exploration of healthcare technology’s most pressing issues.

Join us as we navigate the forefront of innovation, driving forward the transformation of healthcare for a healthier, more connected world.

Have questions or suggestions? Please use the contact button below.

Notifications

Clear all

MEL Help -- My head is sore 🙂

MEL, SQL, Oracle

Last Post by Anonymous 1 second ago

3 Posts

2 Users

0 Reactions

56 Views

RSS

cecild

(@cecild)

Posts: 314

Reputable Member

Topic starter

A simple code to pull an array from PROB_PRIOR and match the ICD code then extract the date. Done this many times but for some reason I just can't get it this time. This will crash the form every time when you end the visit or discard and I get no return value. Appreciate the help.

/* Function finds active depression diagnosis */


{!fn fnDiagnosis() {
local DAnswer

local DList = ""

local DAray =""

local DMax

local DCode = "ICD-296.30"
DList = PROB_PRIOR('DELIMITED')

DAray = getfield(DList,"|","")

DMax = size(DAray)

local DCount

local DRow

DAnswer = ""
for DCount=1, DCount<=DMax, DCount=DCount+1 do

	DRow = getfield(DAray(DCount),"^","")

	If (str(DRow[3])= DCode) then DAnswer = val(aRow[30])
	else DAnswer = ""
	endif
Endfor
return DAnswer

}

}


                    
                    	
                            Posted : July 25, 2015 6:35 am



                    
                            
        
        
    
				
                            
                
                	                		
                                        
                        			
			                
					
		 jfitzmd
                        (@jfitzmd)
                        
                                                    
                        
                            Posts: 419                        
                        
                            Reputable Member                        
                            
		                  
	                    
                    
                

                
                	
                                                 
                    	
							                        
                                            
                    
                        1.  always check for null array or your system will crash. Suggest,
if DList<>"" then
(code)
endif
2.  in line Drow=getfield, must y0u [] instead of () for row counter
3.  esthetic issue, can use DAray to contain row variables,
DAray[DCount]=getfield(DAray[DCount],"^","")
4. field Onset Date is row 5 of your array DRow, not 30 which doesn't exit
5. DRow[3], the problem code, is a string value, do not need str()
 
Good luck!
                                                                                                	                                                
                                                         
                                                    
	                                        
                    
                    	
                            Posted : July 25, 2015 10:51 am		                    
						
                    	
                    
                

                
              

          


        
        
    
				
                            
                
                	                		
                                        
                        			
			                
					
		 cecild
                        (@cecild)
                        
                                                    
                        
                            Posts: 314                        
                        
                            Reputable Member                        
                            
		                  
	                    
                    
                

                
                	
                         Topic starter
	                         
                    	
							                        
                                            
                    
                        I really appreciate the help and tips.  The 30 I knew about i just copied the wrong code to the site but it was the dang brackets on the Drow line.  It has driven me nuts and I called myself looking for format errors.  Thanks again.
Cecil
                                                                                                	                                                
                                                         
                                                    
	                                        
                    
                    	
                            Posted : July 27, 2015 3:04 am


        
            
				            
				                    
                         Forum Jump:
                        
                        
                    
								
														                        
                              Previous Topic
                            Next Topic


		
		





    
         Share:
        
        
						            
				                    
                        
                    
				            
			            
				                    
                        
                    
				            
						        
        
    
	

			        
            
                
                Forum Information
            
            
                
				                    
                        Recent Posts
				                    
                        Unread Posts
				                     Tags
            
        
        
			
			                
                    
                        
                            
                            24
                            Forums
                        
                        
                            
                            9,940
                            Topics
                        
                        
                            
                            39.9 K
                            Posts
                        
                        
                            
                            1
                            Online
                        
                        
                            
                            6,470
                            Members
                        
                    
                
			
            
                
                    
					Our newest member: Erin Kistner                
				                    
                        
						Latest Post: Register for Thrive, Austin: October 28-30, 2024 --ONE WEEK LEFT !
                    
				            

            
                
                    Forum Icons:
                     Forum contains no unread posts
                     Forum contains unread posts
                
                
                    Topic Icons:
                     Not Replied
                     Replied
                     Active
                     Hot
                     Sticky
                     Unapproved
                     Solved
                     Private
                     Closed
                
            

        
		            
                
                       Powered by wpForo version 2.4.0



	
				
                    

                        © Community Healthcare Users Group  2024  |  Contact Us

                        Twitter
Facebook
Instagram
Youtube
LinkedIn



Scroll to top